有关网页的问题
Private Sub Command1_Click()比如说 我输入T;AA" 8b15310673020@cqit 转换成 真实号码 然后我想把web 中的帐号用 真实号码替换掉 在用 IE打开 网址 u不知道怎么实现
Dim zhanghao As String
Dim web As String
web = "http://192.168.1.1/userRpm/PPPoECfgRpm.htm?wantype=2&VnetPap=0&acc=%0D%0A zhanghao &psw=272678&linktype=2&Save=%B1%A3+%B4%E6"""
zhanghao = Text1.Text
zhanghao = Replace(zhanghao, " ", "%20")
zhanghao = Replace(zhanghao, "!", "%21")
zhanghao = Replace(zhanghao, """", "%22")
zhanghao = Replace(zhanghao, "#", "%23")
zhanghao = Replace(zhanghao, "$", "%24")
zhanghao = Replace(zhanghao, "&", "%26")
zhanghao = Replace(zhanghao, "'", "%27")
zhanghao = Replace(zhanghao, "(", "%28")
zhanghao = Replace(zhanghao, ")", "%29")
zhanghao = Replace(zhanghao, "*", "%2A")
zhanghao = Replace(zhanghao, "+", "%2B")
zhanghao = Replace(zhanghao, ",", "%2C")
zhanghao = Replace(zhanghao, "-", "%2D")
zhanghao = Replace(zhanghao, ".", "%2E")
zhanghao = Replace(zhanghao, ":", "%3A")
zhanghao = Replace(zhanghao, ";", "%3B")
zhanghao = Replace(zhanghao, "<", "%3C")
zhanghao = Replace(zhanghao, "=", "%3D")
zhanghao = Replace(zhanghao, ">", "%3E")
zhanghao = Replace(zhanghao, "?", "%3F")
Text2.Text = zhanghao
Shell "C:\Program Files\Internet Explorer\iexplore.exe Text2.Text"
End Sub
Private Sub 退出_Click()
Unload Me
End Sub
