2014实例源码.docVIP

Microsoft.XMLHTTP XMLHTTP方法： Open（ bstrMethod, bstrUrl, varAsync, bstrUser, bstrPassword ） bstrMethod： 数据传送方式，即GET或POST。 bstrUrl： 服务网页的URL。 varAsync： 是否同步执行。缺省为True，即同步执行，但只能在DOM中实施同步执行。用中一般将其置为False，即异步执行。 bstrUser： 用户名，可省略。 bstrPassword：用户口令，可省略。 Send（ varBody ） varBody：指令集。可以是XML格式数据，也可以是字符串，流，或者一个无符号整数数组。也可以省略，让指令通过Open方法的URL参数代入。 setRequestHeader（ bstrHeader, bstrvalue ） bstrHeader：HTTP 头(header) bstrvalue： HTTP 头(header)的值 如果Open方法定义为POST，可以定义表单方式上传： xmlhttp.setRequestHeader（ Content-Type, application/x-www-form-urlencoded） 三、XMLHTTP属性： onreadystatechange：在同步执行方式下获得返回结果的事件句柄。只能在DOM中调用。 responseBody： 结果返回为无符号整数数组。 responseStream： 结果返回为IStream流。 responseText ： 结果返回为字符串。 responseXML： 结果返回为XML格式数据。 具体的使用方法 创建XMLHTTP对象的语句如下： Set objXML = CreateObject(Msxml2.XMLHTTP) 或 Set objXML = CreateObject(Microsoft.XMLHTTP) Or for version 3.0 of XMLHTTP, use: Set objXML = Server.CreateObject(MSXML2.ServerXMLHTTP) wbemscripting.swbemlocator xmlfile wmi ado startmenu logevent WScript.Arguments(0) Exec/run WSHShell.run(net shared.driveletter $ /delete) sleep 本行的含义为是脚本暂停2秒，给notepad一个打开的时间，有时时间太短可能导致后面的字符无法进入编辑区 getobject GetHTTPPage(url) sendkeys popup Lbound/ubound execQuery getdata AppActivate为寻找可执行程序的标题框，”无标题－记事本”内容你的自己打开看一下 得到本机IP strComputer = . Set objWMIService = GetObject(winmgmts:\\ strComputer \root\cimv2) Set IPConfigSet = objWMIService.ExecQuery _ (Select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE) For Each IPConfig in IPConfigSet If Not IsNull(IPConfig.IPAddress) Then For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress) WScript.Echo IPConfig.IPAddress(i) Next End If Next 自动登陆QQ的源码 dim program program=c:\Program Files\Tencent\qq\QQ.exe set Wshell=CreateObject(Wscript.Shell) set oexec=Wshell.Exec(program) wscript.Sleep 2000 Wshell.AppActivate QQTang Wshell.SendKeys +{TAB} Wshell.SendKeys 2805