大一时学了一学期的Vb，感觉老师讲的内容和实际用的差很远，自己在课下看了点资料，自学了一点。今天被我翻出来一些代码，我就把自己感到比较有趣的发出来吧！
想必大家对QQ都比较熟悉吧，有时没加某人为好友就不能和ta聊天。但腾讯提供了一些代码，通过在网页中输入一段地址就可以和ta会话。 于是我就想用Vb来实现自动在浏览器中输入次地址，那样就能实现和某人会话的功能。代码如下：
Private Sub Command1_Click()
Dim m As Double
m = Val(Text1.Text)
Shell "C:\Program Files\Internet Explorer\IEXPLORE.exe http://wpa.qq.com/msgrd?V=1&Uin=" & m & " &Site=im.qq.com&Menu=yes", vbNormalFocus
End Sub
你需要做的就是在窗口中添加一个按钮和输入框，名称用默认的。复制上面代码到代码窗口，运行就可以使用了。
这种小工具网上有很多，也比我的好很多，不过自己编的小东西自己还是蛮喜欢的。但有一个问题是：浏览器会在前台打开，这样大家都能看到它效果不是很好，不知道有没有高手能让它在后台执行呀？
