让文字
绕过心间越过指间融于笔下

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, “”, “”, 1
End Sub
Private Sub Form_Load()
Me.Caption = “QQ强制聊天器”
Me.Label1.Caption = “QQ号码:”
Me.Text1.Text = “”
Me.Command1.Caption = “强制聊天”
End Sub
Private 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.guzh.co.cc “
End Sub

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!

未经允许不得转载:志慧-人生历程 » QQ会话程序vb源码【原创】
0

评论 抢沙发

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址