UC知道VB求助哦呀~~~
来源：百度知道 编辑：UC知道 时间：2024/09/22 15:42:30
我要做出来的效果:点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)
可以直接使用INET提交数据
那样就不必用外部的IE了
inet1.execute "url地址和你的参数" ,"GET"
这样做是把参数放到URL中 也就是所说的get表单方式
还可以做成POST方式
inet1.execute "url地址","POST","","你要post的数据比如name=a&pass=b"
Dim f As Integer
Private Sub Command1_Click()
Dim a As String
Dim b As String
Dim c As String
Dim d As String
a = Text1.Text
b = Text2.Text
c = Text3.Text
d = Text4.Text
Shell "C:\Program Files\Internet Explorer\iexplore.exe http://XXXXXX/test.asp?name=" + a + "&pass=" + b, vbHide
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
f = 0
End Sub
Private Sub Timer1_Timer()
f = f + 1
Label1.Caption = f & "秒"
If f = 3 Then
Shell "C:\P