以下是代码:
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 的对话框如下:
请问如何屏蔽这个对话框,不然每次通信都要点确定,有点烦人.