读书人

VB中的INET控件有关问题~ 高手赐教!多

发布时间: 2012-02-01 16:58:19 作者: rapoo

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

读书人网 >VB

热点推荐