文件名称:VBQQ
介绍说明－－下载内容均来自于网络，请自行研究使用
用VB做QQ强制聊天器
用VB做QQ强制聊天器
大家好..我是愚罪..QQ：303931726
今天教大家来用VB做QQ强制聊天器.....
废话不多说了```
直接打开VB 新建一个EXE文件..新建一个Text和一个Command按纽
最后直接把代码写上去就可以了...
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
可以了...生成试验下..我就不美化了..你们可以去美化下```
看。。成功了
用VB做QQ强制聊天器
大家好..我是愚罪..QQ：303931726
今天教大家来用VB做QQ强制聊天器.....
废话不多说了```
直接打开VB 新建一个EXE文件..新建一个Text和一个Command按纽
最后直接把代码写上去就可以了...
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
可以了...生成试验下..我就不美化了..你们可以去美化下```
看。。成功了
(系统自动生成,下载前可以参看下载内容)
下载文件列表
压缩包 : 39709564vbqq.rar 列表 VBQQ.txt