急需模拟POST的源码,麻烦各位高手贡献一下.

急需模拟POST的源码,麻烦各位高手贡献一下.
mail: [email protected]

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

用WebBrowser控件
dim PostData() as Byte
PostData = StrConv("uname=asd&pwd=123", vbFromUnicode)
WebBrowser1.Navigate "http://www.xxx.com/login.asp", , , PostData, "Content-Type: application/x-www-form-urlencoded"
如何模拟附件上传的FILE控件？
自己写一个测试不就行了
用一个winsock控件监听80端口,然后写个提交页面, 把页面提交到本机, winsock控件收到的数据即为提交后的数据.
如果用GETDATA收VBARRAY+VBBYTE后收到二进制数据，如何分析这些数据，如何把数据回复成字符串？不知道为什么如果FILE控件为空的时候上传的Binary数据可以恢复成字符串，如果上传了文件，那么Binary为什么不能恢复成字符串了呢？winsock控件监听1001端口Private Sub tcpServer_DataArrival _
(ByVal bytesTotal As Long)Dim strData() As Byte
ReDim GotDat(0 To bytesTotal - 1)
tcpServer.GetData strData, vbArray + vbByte
Dim strdata2 As String
Dim i As Long
Dim ii As Long
Dim ss As String
Dim s1 As String
For i = 0 To bytesTotal - 1If AscB(strData(i)) > 127 Then
s1 = Chr(strData(i) * 256 + strData(i + 1))
i = i + 1
Else
s1 = Chr(strData(i))
End If
strdata2 = strdata2 + s1
NexttxtOutput.Text = strdata2End Sub提交页
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title>
</head><body><form method="POST" enctype="multipart/form-data" action="http://localhost:80/ddd.asp" >
  <input TYPE="hidden" NAME="VTI-GROUP" VALUE="0">文本框1： <input type="text" name="text1" size="20"><br> <input type="text" name="text2" size="20"><br>
      选择文件：<input type="file" name="file1" value="c:/txt.txt">
  <p><input type="submit" value="ttt" name="B1"><input type="reset" value="全部重写" name="B2"></p>
</form></body></html>
WEBBROWER控件如何POST二进制数据文件？
当POST时如果FILE为空txtOutput.Text 就显示ddd.asp HTTP/1.1
Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-powerpoint, application/vnd.ms-excel, application/msword, */*
Referer: http://localhost/1.html
Accept-Language: zh-cn
Content-Type: multipart/form-data; boundary=---------------------------7d32c935102de
Accept-Encoding: gzip, deflate
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; MyIE2; .NET CLR 1.0.3705)
Host: 218.0.178.167:1001
Content-Length: 581
Connection: Keep-Alive
Cache-Control: no-cache
Cookie: ASPSESSIONIDQQGQGLDO=NLBPKKCDDMALGMIEONJKMDND-----------------------------7d32c935102de
Content-Disposition: form-data; name="VTI-GROUP"0
-----------------------------7d32c935102de
Content-Disposition: form-data; name="text1"fff
-----------------------------7d32c935102de
Content-Disposition: form-data; name="text2"大家
-----------------------------7d32c935102de
Content-Disposition: form-data; name="file1"; filename=""
Content-Type: application/octet-stream
-----------------------------7d32c935102de
Content-Disposition: form-data; name="B1"ttt
-----------------------------7d32c935102de--如果上传文件只能显示“`~”两个字符
不是这个意思,只是提交URL的一些参数,象这样,因为有的用不了GET,所以只能模仿用POST了.
例如:
http://sms.tom.com/free_send.php中要提交new_login_name=13888888888
则http://sms.tom.com/free_send.php?new_login_name=13888888888要用POST生成.明白吗?
用WebBrowser控件
dim PostData() as Byte
PostData = StrConv("new_login_name=13888888888", vbFromUnicode)
WebBrowser1.Navigate "http://sms.tom.com/free_send.php", , , PostData, "Content-Type: application/x-www-form-urlencoded"
to 楼上.
base64编码, MIME格式发送