📄 代码2.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()
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
'________________________________________________________________________________________________________
'此代码完全正常运行!
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -