用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



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

看。。成功了