UC知道如何把一段代码在VB中实现
来源：百度知道 编辑：UC知道 时间：2024/05/18 16:13:42
<form action="sms.php" target="_blank">
<label><input type="text" name="phone" maxlength="50"/></label>
<input type="submit" name="Submit" value=" 提 交 " />
</form>
这段代码其实就是一个按钮一个文本框，把文本框里的内容提交到PHP中处理
处理的结果是打开一个网页
如何在VB中也能实现这个功能，我只知道把phone=TEXT.TEXT这样给变量赋值
但是怎么提交，怎么打开网页呢
我试了
Dim oXmlHttp As New MSXML2.XMLHTTP
oXmlHttp.open "POST", "http://www.4der.cn/sms.php", False
oXmlHttp.setRequestHeader "content-type", "application/x-www-form-urlencoded"
oXmlHttp.send phone
这样可以提交，但是按下按钮没反应
<label><input type="text" name="phone" maxlength="50"/></label>
<input type="submit" name="Submit" value=" 提 交 " />
</form>
这段代码其实就是一个按钮一个文本框，把文本框里的内容提交到PHP中处理
处理的结果是打开一个网页
如何在VB中也能实现这个功能，我只知道把phone=TEXT.TEXT这样给变量赋值
但是怎么提交，怎么打开网页呢
我试了
Dim oXmlHttp As New MSXML2.XMLHTTP
oXmlHttp.open "POST", "http://www.4der.cn/sms.php", False
oXmlHttp.setRequestHeader "content-type", "application/x-www-form-urlencoded"
oXmlHttp.send phone
这样可以提交，但是按下按钮没反应
"http://www.4der.cn/sms.php?phone=" & Text.text
这样就可以，把这个网址提交就行了，至于用MSXML还是INET之类的就看你的要求了
Private Sub Command1_Click()
phone = Text1.Text
Shell "C:\Program Files\Internet Explorer\iexplore.exe " & phone
End Sub
你在text1里面输入网址再按command1 就OK了