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
博客展示了一段VB代码,用于实现QQ临时对话功能。代码中定义了字符串变量num和qqurl,通过点击Command1按钮获取输入的QQ号,生成对应的QQ临时对话链接并在WebBrowser1中打开,还在窗体卸载时给出提示框。
944

被折叠的 条评论
为什么被折叠?



