代码2.txt

来自「QQ是否在线 用Vb写的可以用基本上用VB都可以打开」· 文本 代码 · 共 31 行

Private Sub Command1_Click()
Dim URL
URL = "http://wpa.qq.com/pa?p=1:" & Text1.Text & ":8"
WebBrowser1.Navigate URL
Label1.Caption = ""
End Sub



Private Sub Command2_Click()
Shell "explorer " & Chr(34) & "tencent://Message/?Uin=" & Text1.Text & Chr(34)
End Sub

Private Sub Form_Load()
Cls
End Sub

Private Sub WebBrowser1_TitleChange(ByVal Text As String)
Dim aaa As String
aaa = WebBrowser1.LocationName
Call pd(aaa)
End Sub

Sub pd(aaa)
Dim b
b = "http://wpslogo.qq.com/8_offline.gif"
       If aaa = b Then Label1.Caption = Text1.Text & "不在线！" Else: Label1.Caption = Text1.Text & "在线！"
   End Sub
'________________________________________________________________________________________________________

'此代码完全正常运行!