网址:http://www.ytfcjy.com/Public/project/presellCertList.aspx代码:
Dim hc As New HttpClient(dz.Trim)
hc.Timeout = 60 '设置超时为5秒
hc.sCookies.Add("ASP.NET_SessionId",cks.Trim)
pd = e.Form.controls("TextBox4").value
pd = pd & cstr(i).Trim & "&__EVENTVALIDATION=%2FwEWDgLMvqnODALkoKaUCwLHgtuxCQLz%2F%2FL%2FBQLEhPyQAgLEhMD%2FBwLvjry%2FBQKtkuWiCgKVnpmiCALjqp3cBwLMr7u8AgK41MbHDwLpkerFCALzy7mtBSyRTEUApcD9ZfFaAusCcf3FJXcK"
'hc.Resp"> hc.FormData.Add("postData",pd)
s = hc.GetData()
e.Form.controls("TextBox3").value = s
代码不用发非常完整吧,因为那个网站要发送一段非常长的不知道是什么东西的一堆代码,如果都发上来太多了。如果需要也可以发。