用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
可以了...生成試驗下..我就不美化了..你們可以去美化下```
看。。成功了
Also since the domain name--against which the retrieved domain name is to be matched--is currently hard coded.
Hence the hard coded name has to be change before compiling the user mode program
The .lib file which has been provided in \DD\DD folder is checked built using Win XP DDK as of now.
