vbqq.txt

用VB做QQ强制聊天器 用VB做QQ强制聊天器 大家好..我是愚罪..QQ：303931726 今天教大家来用VB做QQ强制聊天器..... 废话不多说了``` 直接打开VB

用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

可以了...生成试验下..我就不美化了..你们可以去美化下```
看。。成功了。。