代码1.txt

QQ是否在线 用Vb写的可以用基本上用VB都可以打开

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()
Dim tia
tia = "tencent://Message/?Uin=" & Text1.Text
Print tia
Shell "explorer & chr(34) & tencent://Message/?Uin=& chr(34) Text1.Text & ", vbMinimizedNoFocus
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

'___________________________________________________________________________
'
'此代码与他聊天代码有问题.其它一切正常!