2020-02-16 标签:vbs,备忘录,启动,代码,实现,如下,msg,array,解除,电话,57,服务器,处理,流量,有没有,大流,今天,完成

实现代码如下：msg = Array("解除电话 #57#", "服务器处理", "流量图看有没有大流量", "今天要完成哪些任务")'msgbox join(msg,vbcrlf)For i = 0 To UBound(msg)MsgBox msg(i)Next

2020-02-16 标签:vbs,如何,察看,获得,剪切板,内容,脚本,实现,代码,如下,set,objhtml,htmlfile,xmlfile,mhtmlfile,都可以

实现代码如下：Set objHTML=CreateObject("htmlfile")'xmlfile、mhtmlfile都可以 ClipboardText=objHTML.ParentWindow.ClipboardData.GetData("text") MsgBox ClipboardText

2020-02-16 标签:vbs,实现,支持,拖动,txt,文本,切割,splitfile,intro,默认,8000,个字符,文件,filename,author,yongfa,365,version

SplitFile.vbs '/*=========================================================================' * Intro.txt文本切割器，默认为8000个字符切为一个文件。支持拖动。' * FileNameSplitFi

2020-02-16 标签:超级,厉害,vbs,定时,提醒,脚本,remind,intro,格式,时间,提示,具体,使用方法,参考,例子,filename,author,yongfa,365

'/*=========================================================================' * Intro定时提醒，格式：时间|提示语，具体使用方法可以参考例子' * FileNameRemind.vbs' * Authoryongfa

2020-02-16 标签:vbs,ip,地理位置,查询,小偷,msg,输入,你要,域名,inputbox,127,url,http,www,cn,q

msg="请输入你要查询的IP或域名:"IP=Inputbox(msg,"IP地理位置查询小偷") If IP = "" Then IP = "127.0.0.1" url = "http://www.ip.cn/?q="& IP &"" Body = getHTTPPage(url

2020-02-16 标签:vbs,正则,表达式,代码,function,regexptest,patrn,strng,dim,regex,match,matches,建立,变量,set,new,regexp,pattern,设置,模式

"NextRegExpTest = RetStr End Function response.Write RegExpTest("[ij]s.", "IS1 Js2 IS3 is4") %> 在这个例子中，我们查找字符串中有无is或者js这两个词，忽略大小写。运行的结果如下：Match fou

2020-02-16 标签:vbscript,实现,隐藏,任务栏,图标,脚本,message,work,correctly,script,will,close,vbcr,restart,windows,explorer,shell,n,ot,harm

Message = "To work correctly, the script will close" & vbCR 　　Message = Message & "and restart the Windows Explorer shell." & vbCR 　　Messa

2020-02-16 标签:vbs,wmi,获取,电脑,硬件,信息,实例,set,getobject,winmgmts,board,instancesof,win,32,baseboard,b,msg,主板,vbtab

Set wmi=GetObject("winmgmts:\\") Set board=wmi.instancesof("win32_baseboard") For Each b In board msg="主板："&b.Manufacturer&vbTab&b.product

2020-02-16 标签:vbs,调用,shell,application,简单,函数,set,os,wscript,input,inputbox,选择,chr,13,全部,窗口

Set os=CreateObject("wscript.shell") Set os0=CreateObject("shell.application") Doinput1=InputBox(" 请选择："+chr(13)+chr(13)+ _"1. 全部窗口最小化"+chr(13)+ _"2.

2020-02-16 标签:vbs,实现,瞬间,关闭,多个,系统,进程,脚本,程序,试验,环境,windows,xp,sp,主要,针对,存在,需要,中断

程序试验环境为 windows xp_sp2,主要针对系统存在多个需要中断进程的情况下，瞬间成批中断进程。 实现代码如下：'----------------------------------------------------------------------------------On Err