📄 代码1.txt
字号:
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
'___________________________________________________________________________
'
'此代码与他聊天代码有问题.其它一切正常!
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -