博客展示了一段VB代码，用于实现QQ临时对话功能。代码中定义了字符串变量num和qqurl，通过点击Command1按钮获取输入的QQ号，生成对应的QQ临时对话链接并在WebBrowser1中打开，还在窗体卸载时给出提示框。
Dim num As String
Dim qqurl As String
Private Sub Command1_Click()
num = Me.Text1.Text
qqurl = "http://wpa.qq.com/msgrd?V=1&Uin=" & qqstyle & Me.Text1.Text
Me.WebBrowser1.Navigate qqurl
End Sub
Private Sub Form_Unload(Cancel As Integer)
y = MsgBox("玩够了?骚扰够NB吧!", vbQuestion + vbYesNo, "QQ临时对话")
If y = vbNo Then Cancel = -1
End Sub
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
