教你用VB做进入加密QQ空间工具 [复制链接]

直接切入主题吧

先新建一个工程，把窗体尽量拉长

建一个输入框和一个按钮如图


然后在按钮箱那里点右键--部件，如图




然后添加这个点确定




按钮箱出现一个地球小图标，点它
在窗体中建这个，拉大

然后在按钮中输入代码

Private Sub Command1_Click()
Dim QQhao As String
QQhao = Text1.Text
WebBrowser1.Navigate "http://www.qqxoo.com/main.html?qqid=" + QQhao + "#"""
End Sub


就好了

具体看我完成的，在附件里

看看

貌似不错啊