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
642



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



