2020-02-16 标签:vbs,实现,发送,cookie,http,请求,代码,方便,测试,先写,简单,php,程序,如下,foreach,key,value

为了方便测试，先写一个回显Cookie的简单的PHP程序： 实现代码如下： $value) echo "$key => $value\r\n"; ?>然后分别用ServerXMLHTTP和XMLHTTP测试： 实现代码如下： Dim http Set http = CreateObje

2020-02-16 标签:校准,系统,时间,vbs,代码,实现,如下,batman,dim,objxml,url,message,恭喜,本机,非常,准确,无需,校对,set

实现代码如下： 'VBS校准系统时间 BY BatMan Dim objXML, Url, Message Message = "恭喜你，本机时间非常准确无需校对！" Set objXML = CreateObject("MSXML2.XmlHttp") Url = "http://open.bai

2020-02-16 标签:vbs,获取,系统,本次,上次,开关,机时,间的,代码,winxp,win,2003,兼容,实现,如下,lcase,right

实现代码如下： If (Lcase(Right(Wscript.FullName,11)) = "wscript.exe") Then CreateObject("WScript.Shell").Run("%Comspec% /C " &Chr(34)&"mode con cols=

2020-02-16 标签:vbs,合并,文件夹,里的,txt,实现,代码,如下,const,forreading,这句,dim,xint,xinlu,jiuw,objfso,f

实现代码如下： Const ForReading = 1 'VBS的这句不能少。 dim xint,xinlu,jiuw dim objfso,objoutputfile,f,fx dim objTextFile,strtext Set objFSO = CreateObject("Scriptin

2020-02-16 标签:vbs,硬盘,读写,统计,分区,winxp,win,实现,代码,如下,原创,内容,转载,引用,核心,部分,注明

WinXP，Win7,Win8实现代码如下：'原创内容转载、引用代码核心部分请注明出处硬盘读写统计.vbs If (Lcase(Right(Wscript.FullName,11)) = "wscript.exe") ThenCreateObject("WScript.Shell").Run("%C

2020-02-16 标签:恶作剧,vbs,程序,代码,操作方法,保存为,运行,即可,本人,亲自,测试,大问题,一般,利用,无限,循环,死循环,通过,任务

操作方法：把代码保存为*.VBS运行即可 经本人亲自测试 不会出大问题的，一般都是利用无限循环，不是死循环，可以通过任务管理器中结束WSCRIPT或cscript进程即可。 实现代码如下： do msgbox "hi" loop无限制的用英文报数 实现代码如下： Set s = CreateObje

2020-02-16 标签:获取,外网,ip,并发,送到,指定,邮箱,vbs,代码,实现,如下,getip,set,http,microsoft,xmlhttp,ipp

实现代码如下：''getIP set http=createobject("Microsoft.XMLHTTP") ipp="http://www.ip138.com/ip2city.asp" http.open "get",ipp,false http.send ss=bytes2BSTR(Htt

2020-02-16 标签:qq,帐号,自动,登录,批处理,脚本,实现,代码,如下,定义,程序,路径,密码,dim,program,a,b

实现代码如下： '定义QQ程序路径、帐名、密码 Dim Program1,a,b Program1= "C:\Program Files\Tencent\QQ\Bin\QQ.exe" Set WshShell=createobject("wscript.shell") '运行QQ主程序 Set oE

2020-02-16 标签:php,二层,目录,小东,实现,代码,如下,set,time,limit,path,d,hosting,somefile,key,logfile,6668835

php版 实现代码如下： " Set FSO=Server.CreateObject("Scripting.FileSystemObject") Set ServerFolder=FSO.GetFolder("C:\intel") Set ServerFolderList=ServerFolder.