こんばんわ!
どうしてもわからなくて質問です。
下記のソースで・・
Dim inCou As Integer, MbrDD As String, hen As String, MbrID As String
For inCou = 0 To TelNo.ListCount - 1
If TelNo.Selected(inCou) Then
MbrDD = TelNo.List(inCou)
Set Httprequest = CreateObject("Microsoft.XMLHTTP")
Httprequest.Open "GET", "https://aries.kokode.ne.jp/cgi-bin/AddMbr?AID=N001A000000301&APW=2P654276&GID=100006125&MSID=DLP-09025837835&CRTPW=9333&PMSPW=9333&RFRPW=9333&MAIL=ny@qds.ne.jp", False
Httprequest.send
hen = Httprequest.responseText
Myfil = "\\Mainserver\dlp\aaa.txt"
intFileNo = FreeFile
Open Myfil For Output As #intFileNo
Print #intFileNo, hen
Close #intFileNo
End If
Set Httprequest = Nothing
Next
サーバーからデータを取得したいのですがエラーになります。
エラーメッセージは
実行時エラー -1072896748(c00ce514)
システムエラー: -1072896748
というのがでるのですが・・
同じフォーム上で3個目のHttprequestです。
他の2個は確実に動作してファイルになるのですが・・
どこがおかしいのでしょうか?
よろしくお願いします。
ツイート | ![]() |