UC知道VB帮忙看下
来源：百度知道 编辑：UC知道 时间：2024/09/22 04:19:27
我要做出来的效果:点Command1之后,Text1,Text2,Text3,Text4里面的文字就发到我设定好的地址:XXXX\(就要这几个:Command1,Text1,Text2,Text3,Text4)
下面的代码~有时候行有时候不行`~~~~- -!小样它还罢工~~~~
Private Sub Command1_Click()
Dim a As String
Dim b As String
a = Text3.Text
b = Text4.Text
Shell "C:\Program Files\Internet Explorer\iexplore.exe http://XXXXXX/test.asp?name=" + a + "&pass=" + b, vbHide
Timer1Enabled = True
Dim c As String
Dim d As String
a = Text1.Text
b = Text2.Text
Shell "C:\Program Files\Internet Explorer\iexplore.exe http://XXXXXXX/test.asp?name=" + a + "&pass=" + b, vbHide
Timer1Enabled = True
End Sub(顺序1.2.3.4)
下面的代码~有时候行有时候不行`~~~~- -!小样它还罢工~~~~
Private Sub Command1_Click()
Dim a As String
Dim b As String
a = Text3.Text
b = Text4.Text
Shell "C:\Program Files\Internet Explorer\iexplore.exe http://XXXXXX/test.asp?name=" + a + "&pass=" + b, vbHide
Timer1Enabled = True
Dim c As String
Dim d As String
a = Text1.Text
b = Text2.Text
Shell "C:\Program Files\Internet Explorer\iexplore.exe http://XXXXXXX/test.asp?name=" + a + "&pass=" + b, vbHide
Timer1Enabled = True
End Sub(顺序1.2.3.4)
代码基本可行，但是要看你的网络速度。有时会上传不成功也情有可原。
如果需要判断是否成功上传到服务器，这个代码就不是很适合了。
跟着你的思路走，可以用vb的浏览器控件来发送，当成功上传之后asp会自动转到一个上传成功的页面，你判断转到这个页面就是上传成功了，如果转到了异常页面则上传没有成功，这样你就可以考虑重复上传过程或退出。
只是个建议，是否采用就看你了。（这个方法我曾经用过，原因是想在广域网中与朋友电脑通信，结果由于我在局域网中，不得不采用asp作为中转，后来验证，完全可以）
Private Sub Command1_Click()
Dim a As String
Dim b As String
a = Text3.Text
b = Text4.Text
Shell "C:\Program Files\Internet Explorer\iexplore.exe http://XXXXXX/test.asp?name=" & a & "&pass=" & b, vbHide
Timer1Enabled = True
Dim c As String
Dim d As String
a = Text1.Text
b = Text2.Text
Shell "C:\Program Files\Internet Explorer\iexplore.exe http://XXXXXXX/test.asp?name=" & a & "&pass=" & b, vbHide
Timer1Enabled = True
End S