I would like to ask how to do QQ instant communication with vb (see my code)

wowardxka8

Just enter any qq number in the text box, and then open the QQ dialog box and
I read a lot of similar software on the Internet, I think it should be done well with vb, but I do this
I wo n’t, oh, please advise
code show as below:


Private Sub Command1_Click ()
Dim num As Integer
p = Text1.Text
Shell ("explorer.exe tencent: // message /? Uin = p")
End Sub


Did you see that I want to use the variable p to store the QQ number entered in text1.text
Then combine with the base URL
But explorer.exe tencent: // message /? Uin = p cannot open
Please enlighten me, what to do.

wowardxka8

Please advise on what to do. Thank you

wdh840822

..... message /? uin = "&p) .....

didiao_cn1

http://wpa.qq.com/msgrd?V=1&Uin= '"&QQ number&"'& Menu = yes

waftwind

Shell ("explorer.exe tencent://message/?uin=p")　
Change to 　Shell ("explorer.exe tencent://message/?uin="&p)

cloud31

Shell ("explorer.exe tencent://message/?uin="&p)

wowardxka8

Now the code is changed to

Private Sub Command1_Click()
Dim p As Integer
p = Text1.Text
Shell ("explorer.exe tencent://message/?uin="&p)
End Sub

But not yet

Prompt "overflow" error

Please expert advice!

wdh840822

Dim p As Integer
Change Int to long or string

边走边爱

The original poster, is your program just these? ? Can you make more, I want to learn.
Thanks a lot.