以下是代码:
Private Sub Winsock1_Connect()
On Error Resume Next
Dim strCommand As String
Dim strWebPage As String
strWebPage = "http://www.hotctc.cn/log/c4.asp
strCommand = "GET " + strWebPage + " HTTP/1.0" + vbCrLf
strCommand = strCommand + "Accept: */*" + vbCrLf
strCommand = strCommand + "Accept: text/text" + vbCrLf
strCommand = strCommand + vbCrLf
Winsock1.SendData strCommand
End Sub通信时会弹出一个Http1.1 200 OK 的对话框如下:
请问如何屏蔽这个对话框,不然每次通信都要点确定,有点烦人.
Private Sub Winsock1_Connect()
On Error Resume Next
Dim strCommand As String
Dim strWebPage As String
strWebPage = "http://www.hotctc.cn/log/c4.asp
strCommand = "GET " + strWebPage + " HTTP/1.0" + vbCrLf
strCommand = strCommand + "Accept: */*" + vbCrLf
strCommand = strCommand + "Accept: text/text" + vbCrLf
strCommand = strCommand + vbCrLf
Winsock1.SendData strCommand
End Sub通信时会弹出一个Http1.1 200 OK 的对话框如下:
请问如何屏蔽这个对话框,不然每次通信都要点确定,有点烦人.
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货