Dim web As New System.Net.WebClient()
web.Headers.Add("Content-Type", "application/x-www-form-urlencoded")
Dim d As Byte() = System.Text.Encoding.ASCII.GetBytes("SEARCHSTRING=test")
Dim res As Byte() = web.UploadData("
http://somewhere.com/search.asp", "POST", d)
msgbox(System.Text.Encoding.ASCII.GetString(res))
转载于:https://www.cnblogs.com/comboy/archive/2006/08/24/485730.html