利用WebRequest来实现模拟浏览器通过Post方式向服务器提交数据.docVIP

VB修改IP信息 Function ChangeIP(IP As String, NM As String, GW As String, MDNS As String, SDNS As String) As String 返回值说明:返回一个设置的中文说明. Dim strComputer, objWMIService, colNetAdapters, strIPAddress, strSubnetMask Dim strGateway, strGatewaymetric, strDNS, objNetAdapter, errEnable, errGateways, errDNS strComputer = . Set objWMIService = GetObject(winmgmts:\\ strComputer \root\cimv2) Set colNetAdapters = objWMIService.ExecQuery(Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE) strIPAddress = Array(IP) ip地址 strSubnetMask = Array(NM) 子网掩码 strGateway = Array(GW) 网关 strDNS = Array(MDNS, SDNS) 主DNS各备DNS strGatewaymetric = Array(1) For Each objNetAdapter In colNetAdapters errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask) errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric) errDNS = objNetAdapter.SetDNSServerSearchOrder(strDNS) If errEnable = 0 And errGateways = 0 And errDNS = 0 Then ChangeIP = 设置成功 Else If errEnable = 0 Then ChangeIP = IP地址和子网掩码设置成功, Else ChangeIP = IP地址或子网掩码设置失败, End If If errGateways = 0 Then ChangeIP = ChangeIP 默认网关设置成功, Else ChangeIP = ChangeIP 默认网关设置失败, End If If errDNS = 0 Then ChangeIP = ChangeIP DNS设置成功 Else ChangeIP = ChangeIP DNS设置失败 End If End If Next End Function Private Sub Command1_Click() MsgBox ChangeIP(04, , , 9, ) End Sub 利用WebRequest来实现模拟浏览器通过Post方式向服务器提交数据 //通过Post发送的数据 string payload=chkbook=bookkeyword=管理; WebRequest req = WebRequest.Create(http://localhost/pceo/Search.aspx); req.Method = POST; req.ContentType = application/x-www-form-urlencoded; StringBuilder UrlEncoded = new StringBuilder(); Char[] reserved = {?, =, }; byte[] SomeBytes = null; if (payload != null) { int i=0, j; while(ipayload.Length) { j=payload.IndexOfAny(reserved, i); if (j==-1) { UrlEncoded.Append(HttpUtility.UrlEncode(payload.Substring(i, payload.Length-i),System.Text .Encoding .GetEncoding (gb2312))); break; } UrlEncoded.Append(HttpUtility.UrlEncode(payload.Substring(i, j-i),System.Text .Encod