用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



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

看。。成功了-QQ forced to use VB to do so VB uses QQ chat chat mandatory browser everyone .. I was stupid crime .. QQ: 303931726 today teach everyone to use VB to do QQ chat browser mandatory nonsense ..... nothing to add to that `` ` VB directly open a new EXE file .. create a new Text and a Command button code to write directly to the final you can go ... 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 LongPrivate Sub Command1_Click () ShellExecute 0,　open ,　tencent:// message/? uin =+ Text1.Text,　 ,　 , 1End Sub can test the next generation ... .. I do not glorify .. you can go to see ``` under landscaping. . Successful