QQ会话程序vb源码【原创】

qq通过webqq可以实现很方便的临时会话。

经常在网上遇到一些朋友需要会话却不想要加好友，于是写了这些源码。

首先新建一个textbox在新建一个按钮

接下来直接粘贴入下列代码

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _    (ByVal hwnd As Long, _    ByVal lpOperation As String, _    ByVal lpFile As String, _    ByVal lpParameters As String, _    ByVal lpDirectory As String, _    ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()ShellExecute 0, "open", "tencent://message/?uin=" + Text1.Text, "", "", 1End Sub

Private Sub Form_Load()Me.Caption = "QQ强制聊天器"Me.Label1.Caption = "QQ号码："Me.Text1.Text = ""Me.Command1.Caption = "强制聊天"
End SubPrivate Sub OpenUrl(tUrl As String)          ShellExecute Me.hwnd, "Open", tUrl, 0, 0, 0  End Sub
Private Sub Form_Unload(Cancel As Integer)OpenUrl "http://www.gzh6.com "End Sub

最后是我的网站和去掉前友情点下哈！

直接复制粘贴上去就ok！