VB中的INET控件问题~ 高手赐教!!谢谢!
Private Sub Form_Load()
Dim nowver As String
nowver = Inet1.OpenURL( "http://127.0.0.1/ver.txt ")
End Sub
Private Sub Inet1_StateChanged(ByVal State As Integer)
On Error Resume Next
Select Case State
Case 12
MsgBox "123 "
End Select
End Sub
为什么会没反应呢?
[解决办法]
State
是你想要的么?
[解决办法]
12表示 "该请求已经完成,并且所有数据均已接收到。 " ,没反应是因为你根本没有连接到服务器, nowver =Inet1.OpenURL( "http://127.0.0.1/ver.txt ") 这不对,下载文件要用get方法,查查msdn