请问怎么用vb 做 QQ即时交流（看看我的代码）

wowardxka8

就是在文本框输入任意qq号，然后就打开 和 这个 QQ的 对话框，
网上看了很多 类似的 小软件，我想用 vb应该很好做，可是我做到这
就不会了，呵呵 请大家指教 下
代码如下：


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


看到了么，我想用 变量p存储 text1.text 里输入的QQ号
然后 和 基本网址 组合
但是explorer.exe tencent://message/?uin=p 打不开
请大家指教 下 ，该怎么样做。

wowardxka8

请大家指教 下 ，该怎么样做。谢谢

wdh840822

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

didiao_cn1

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

waftwind

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

cloud31

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

wowardxka8

现在代码改为

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

可是还不行

提示“溢出”错误

请高人指点！

wdh840822

Dim p As Integer
Change Int to long or string

边走边爱

楼主，你的程序只是这些吗？？能不能多些点，我想学习一下。
多谢。