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

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

2020-02-16 标签:vbs,实现,zip,压缩,unzip,解压缩,函数,代码,如下,d,test,iso,msgbox,ok,sub,byval,mysourcedir,myzipfile,set

压缩代码: 实现代码如下： Zip "D:\test.iso", "D:\test.zip" Zip "D:\test", "D:\test.zip" Msgbox "OK" Sub Zip(ByVal mySourceDir, ByVal myZipFile) Set fso = CreateOb

2020-02-16 标签:重新安装,ie,vbs,实现,代码,如下,run,reinstall,runs,internet,explorer,setup,doug,knox,10,2002,downloaded,www,dougknox

实现代码如下：'run_ie_reinstall.vbs - Runs the Internet Explorer Setup '?Doug Knox - 4/10/2002 'Downloaded from www.dougknox.com X = MsgBox("Do you want to r

2020-02-16 标签:中文,姓名,笔画,计算,vbs,脚本,实现,代码,如下,dim,word,key,inputbox,输入,你要,文字,msgbox,小样

实现代码如下：'中文姓名笔画计算（VBS脚本版） dim word,key word=inputbox("请输入你要计算的文字") if word="" then msgbox "小样 不是叫你不要输入文字吗" Wscript.Quit end if key=char_wordnum(word) m

2020-02-16 标签:math,vbs,自然数,n,n次,方的,级数,实现,代码,如下,dim,m,inputbox,input,a,umber,recursion,factorial

实现代码如下：dim n,m n=inputbox("input a number:","recursion") m=factorial ( n ) if n0 then msgbox n&"is:"&m rem how to done not input and press sur

2020-02-16 标签:vbs,偏移,解密,工具,算法,实现,代码,如下,wscript,arguments,count,msgbox,请将,通过,加密,过的,文件

实现代码如下：If wscript.arguments.count=0 Or wscript.arguments.Count>1 then msgbox "请将通过偏移量加密过的 VBS 文件拖放到本脚本上即可[请逐个解密]！",48,"提示" wscript.quit End If For

2020-02-16 标签:asp,n,et,操作,xml,指定,格式,写入,数据,writexml,实现,代码,如下,private,sub,try,create,strfname,newdataset

实现代码如下：Private Sub WriteXml() Try Create(strFName, "NewDataSet") SaveXMLFile("gg", "NewDataSet", True) Catch ex As Exception MsgBox(ex.Message) End Tr

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,实现,计算机,重启,dim,return,set,r,wscript,shell,msgbox,确定,起计,vbokcancel,注意

Dim return Set R = CreateObject("WScript.Shell") return=MsgBox ("你确定要重起计算机吗?",vbokcancel+vbexclamation,"注意！") If return=vbok Then R.run("Shutdown.exe