用VB做QQ強(qiáng)制聊天器
用VB做QQ強(qiáng)制聊天器
大家好..我是愚罪..QQ：303931726
今天教大家來(lái)用VB做QQ強(qiáng)制聊天器.....
廢話不多說(shuō)了```
直接打開(kāi)VB 新建一個(gè)EXE文件..新建一個(gè)Text和一個(gè)Command按紐
最后直接把代碼寫(xiě)上去就可以了...
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
可以了...生成試驗(yàn)下..我就不美化了..你們可以去美化下```
看。。成功了
標(biāo)簽：
303931726
家
QQ
上傳時(shí)間：
2014-01-19
上傳用戶：日光微瀾
