vb检测网络&登录网页

来源：百度知道 编辑：UC知道 时间：2024/06/24 22:53:24
(放在Form Load里)如果不能上网,则Unload Me
如果能上网,则连接到XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
我编写了一个程序,给朋友们用,我要让程序在启动时登录我的博客,这样就知道别人用我的程序的次数.
我用的时候就是在左上角跳出一大堆数字

我用的是vb6企业版

添加Inet控件:部件中,选择:Microsoft Internet Transfer Control 6.0
Private Sub Form_Load()
Inet1.Execute "http://www.baidu.com"
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
If State = 11 Then 'icError 11 与主机通讯时出现了错误
Unload Me
Else
Print State
End If
End Sub
'----------------------------
我刚才又试了没有错啊,你是不是控件选错了?