您还未登陆，请登录后操作！
IE总是出现脚本错误
为什么呢？
打开网页，过一段时间，总是未响应，频率挺高的。
用遨游的未响应频率似乎也较高。
访问者所使用的浏览器不能完全支持页面里的脚本，形成“脚本错误”。遇到“脚本错误”时一般会弹出一个非常难看的脚本运行错误警告窗口，而事实上，脚本错误并不会影响网站浏览，因此这一警告可谓多此一举。要关闭警告则可以在浏览器的工具菜单选择Internet选项，然后单击高级属性页。进入到浏览标签，并选中“禁止脚本调试”复选框，以后你就不会再收到这些警告了。
建议您尝试进行以下操作：
1、清除一下IE浏览器的缓存,点IE上的工具——然后再选择最下面的Internet选项，再点Internet删除文件(记得勾上删除所有脱机内容)，确定后再重新打开IE浏览器试试,同时请确认您使用的是IE6.0及以上版本。
2、您的网页上清缓存,在网页上选择工具->Interner选项->删除Cookies和删除文件,然后再确定。
3、请您点击IE浏览器中的“工具”，选择“internet选项”，进入“安全”页面，点击“自定义级别”，将您的安全设置设为“低”。
4、清空一下IE浏览器的cookies文件，在IE浏览器中设置“禁止自动脚本更新”，并不要选择“禁止运行ActiveX控件”，然后再尝试操作。
访问者所使用的浏览器不能完全支持页面里的脚本，形成“脚本错误”。遇到“脚本错误”时一般会弹出一个非常难看的脚本运行错误警告窗口，而事实上，脚本错误并不会影响网站浏览，因此这一警告可谓多此一举。要关闭警告则可以在浏览器的工具菜单选择Internet选项，然后单击高级属性页。进入到浏览标签，并选中“禁止脚本调试”复选框，以后你就不会再收到这些警告了。
建议您尝试进行以下操作：
1、清除一下IE浏览器的缓存,点IE上的工具——然后再选择最下面的Internet选项，再点Internet删除文件(记得勾上删除所有脱机内容)，确定后再重新打开IE浏览器试试,同时请确认您使用的是IE6.0及以上版本。
2、您的网页上清缓存,在网页上选择工具->Interner选项->删除Cookies和删除文件,然后再确定。
3、请您点击IE浏览器中的“工具”，选择“internet选项”，进入“安全”页面，点击“自定义级别”，将您的安全设置设为“低”。
4、清空一下IE浏览器的cookies文件，在IE浏览器中设置“禁止自动脚本更新”，并不要选择“禁止运行ActiveX控件”，然后再尝试操作。
也可以尝试重新注册下IE的组件，方法如下：
IE提示脚本错误解决方法：
1、点击“开始”菜单，打开“运行”。
第二、输入regsvr32 jscript.dll后选择“确定”。
出现提示后，点击确定。
第三、再次输入regsvr32 vbscript.dll选择“确定”。
再一次出现提示后，确定。
有时候，脚本错误也可以是你的浏览器本身有问题导致，尝试修复你的浏览器，可以使用如黄山IE修复专家，超级兔子等第三方软件对IE进行修复也可以解决问题。
脚本script是使用一种特定的描述性语言，依据一定的格式编写的可执行文件，又称作宏或批处理文件。脚本通常可以由应用程序临时调用并执行。各类脚本目前被广泛地应用于网页设计中，因为脚本不仅可以减小网页的规模和提高网页浏览速度，而且可以丰富网页的表现，如动画、声音等。如果在脚本中加入一些破坏计算机系统的命令，这样当用户浏览网页时，一旦调用这类脚本，便会使用户的系统受到攻击。所以用户应根据对所访问网页的信任程度选择安全等级，特别是对于那些本身内容就非法的网页，更不要轻易允许使用脚本。通过“安全设置”对话框，选择“脚本”选项下的各种设置就可以轻松实现对脚本的禁用和启用。
回答数：1075前几天突然对vbs感兴趣了~~~找不到教程~~~到处问别人~~有帅哥问我：“你想用vbs实现的功能，有时间的话发个贴子看看？”完了我就来发帖子了······　　研究这个的目的很明确：我在总在网吧上网~~网吧也有好多限制~~比如禁用任务管理器之类的~~~改设置装软件每次都要搞~~来回来去的下载安装注册太麻烦~~所以我把我用的东西都拿RAR压成自解压EXE文件了~~可是吧注册某些软件导入注册表文件的话还要多点一次&确定&~~还有就是如果都解压到桌面不好看~~都解压到C盘就得在桌面创建个快捷方式，天天点我就烦了···某天我突然发现vb脚本可以实现我这些目的~~而且不会像批处理那样弹出个黑框来~~~然后···慢慢的我就攒了一堆脚本~~~虽然我不怎么会编~~~但是别人编好了的东西我稍微改一下也就能用~~哈哈~恩`~~废话说太多了~~我预感这样的帖子基本上没人点~~~反正我就是把代码备份在这~~以后想不起来的时候好找···
楼主发言：1次 发图：0张
　　我要~~~
　　网页弹出窗口~~~不咋好玩~~~没什么用~~不管你怎么弹出来的怎么限制我都可以查出弹出网页的url和源文件来,所以弹出窗口都是糊弄小部分人的　　&script&&!--　　window.close();　　window.open(&xxx.htm&,&&,&Toolbar=no,Location=no,Directories=no,Status=no,menubar=no,scrollbars=yes,resizable=yes,width=560,height=560&);　　--&&/script&
　　写注册表并运行任务管理器(XP)　　这个就有用多了,做到网页里，一点就哦科　　&script language=vbs&　　　　On Error Resume Next　　Set Wsh = WScript.CreateObject(&WScript.Shell&)　　Wsh.RegDelete &HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools&　　Wsh.RegDelete &HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD&　　Wsh.RegDelete &HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr&　　Wsh.RegDelete &HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system\DisableTaskMgr&　　Set r = WScript.CreateObject(&WScript.Shell&)　　a=r.run (&taskmgr&)　　&/script&　　　　把代码两头方括号和括号里面的东西去掉另存为xx.vbs或者xx.vbe放到QQ网络硬盘里也挺方便的~~还有一个js脚本~~~用来破解下载限制的喜欢的就拿去：　　&script language=&JavaScript&&
　　var shl=new ActiveXObject(&Wscript.shell&); 　　shl.RegWrite(&HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\System\\DisableRegistryTools&,0, &REG_DWORD&);
　　shl.RegWrite(&HKCU\\Software\\Policies\\Microsoft\\Windows\\System\\DisableCMD&,0, &REG_DWORD&);
　　shl.RegWrite(&HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\System\\DisableTaskMgr&,0, &REG_DWORD&);
　　shl.RegWrite(&HKLM\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\System\\DisableTaskMgr&,0, &REG_DWORD&); 　　shl.RegWrite(&HKEY_USERS\\.DEFAULT\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\Zones\\3\\1803&,0, &REG_DWORD&);
　　shl.RegWrite(&HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\Zones\\3\\1803&,0, &REG_DWORD&);
　　shl.RegWrite(&HKEY_CURRENT_USER\\Software\\Policies\\Microsoft\\Internet Explorer\\Restrictions\\NoSelectDownloadDir&,0, &REG_DWORD&);
　　shl.RegWrite(&HKEY_LOCAL_MACHINE\\Software\\Policies\\Microsoft\\Internet Explorer\\Restrictions\\NoSelectDownloadDir&,0, &REG_DWORD&);
　　window.alert(&你的 /Ｒèｇ编辑器/Ｃｍｄ/Ｔāｓｋｍｇｒ/ 都已解除禁用！系统已设置为允许下载！&) 　　&/script& 　　　　如果是高手就不用看了~~~我这里都是些基本应用~~~小儿科的东西~~自娱自乐的~~~~= =||
　　这个是安装leapftp用的脚本，装上之后自动注册创建快捷方式并运行出来，在RAR自解压里设置好解压安装路经还有自解压后只运行这个脚本就行了,也就是一键到位　　-----------------key.vbs----------------　　on error resume next　　set ws=wscript.createobject(&wscript.shell&)　　path=&HKEY_CURRENT_USER\Software\LeapWare\Registry\LeapFTP\&　　t=ws.regwrite(path & &UserName&,&dgyf44&)　　p=ws.regwrite(path & &UserKey&,&239665&)　　dt=ws.specialfolders(0)　　set lnk=ws.createshortcut(dt & &\LeapFTP.lnk&)　　lnk.targetpath=&%programfiles%\LeapFTP275\LeapFTP.exe&　　lnk.save　　ws.run &LeapFTP.exe&,3　　set fso=wscript.createobject(&scripting.filesystemobject&)　　fso.deletefile &key.vbs&　　-----------------key.vbs----------------
　　这个和上面的基本一样~~也是创建快捷方式~~不过不是创建到桌面上，而是创建到&%userprofile%\SendTo\&文件夹，FreeRes是用来程序脱壳的，如果打开程序主界面再从文件菜单去浏览查找我们要读取的程序是个很麻烦的事，把它的快捷方式放到/SendTo/里就可以在要脱壳的程序上点右键---发送到--FreeRes，这样就直接打开了，还是为了省事···省了好多次鼠标···　　on error resume next　　set ws=wscript.createobject(&wscript.shell&)　　upf=ws.expandenvironmentstrings(&%userprofile%&)　　set lnk=ws.createshortcut(upf & &\SendTo\FreeRes.lnk&)　　lnk.targetpath=&%programfiles%\FreeRes\FreeRes.exe&　　lnk.save　　set ws=wscript.createobject(&wscript.shell&)　　ws.run &FreeRes.exe& '运行主程序　　ws.run &KeyGen.exe& '运行注册机　　set fso=wscript.createobject(&scripting.filesystemobject&)　　fso.deletefile &frs.vbs& '删除脚本自己
　　用来下载　　　　这个脚本放到网页上不能执行~~~不知道原因~~~可能是威胁安全吧　　下载　　---------------jetcar.vbs--------------　　msgbox & 好了，可以等着它运行了。&,64,&文件下载中，请耐心等待···&　　Set xPost = createObject(&Microsoft.XMLHTTP&)
　　xPost.Open &GET&,&/s/JetCar.exe&,0
　　xPost.Send()
　　Set sGet = createObject(&ADODB.Stream&)
　　sGet.Mode = 3
　　sGet.Type = 1
　　sGet.Open()
　　sGet.Write(xPost.responseBody)
　　sGet.SaveToFile &JetCar.exe&,2　　Set run = createObject(&wscript.shell&)　　run.run &JetCar.exe&,3 　　---------------jetcar.vbs--------------
　　用来计时　　　　网吧~~就算上了一小时多一分钟老板也会收两小时的钱，不如做个自动提醒　　wscript.sleep 分钟倒计时　　set ws=createobject (&wscript.shell&) 　　a=ws.run (&Shutdown -r -t 120&,3) '出来重启命令提醒你该走了　　wscript.sleep 10000　　set s=createobject (&wscript.shell&) 　　b=s.run (&Shutdown -a&) '自动取消重起
　　在后台运行程序　　　　set w=CreateObject(&WScript.Shell&)　　r=w.run(&1.bat&,0)　　　　参数0表示从后台运行~~也就是你的进程里有个cmd.exe在执行批处理脚本，表面上什么都看不到~~网吧进程里经常有些小木马~~老板装上去的~~每次都手杀多累啊~~明目张胆的用批处理吧又有点不好意思~~~不知道的看了还当我神经病呢~~那就后台运行···
　　隐藏或显示任务栏左下角的所有图标　　　　-------------taskbaricon.vbs----------------　　　　'Enable or Disable Notification Area Icons　　　　Message = &To work correctly, the script will close& & vbCR　　Message = Message & &and restart the Windows Explorer shell.& & vbCR　　Message = Message & &This will not harm your system.& & vbCR & vbCR　　Message = Message & &Continue?&　　X = MsgBox(Message, vbYesNo, &Notice&)　　If X = 6 Then　　On Error Resume Next　　Dim WSHShell, n, MyBox, p, t, errnum, vers　　Dim itemtype　　Dim enab, disab, jobfunc　　Set WSHShell = WScript.CreateObject(&WScript.Shell&)　　p = &HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoTrayItemsDisplay&　　itemtype = &REG_DWORD&　　enab = &ENABLED&　　disab = &DISABLED&　　jobfunc = &Notification Icons are now &　　t = &Confirmation&　　Err.Clear　　n = WSHShell.RegRead (p)　　errnum = Err.Number　　if errnum && 0 then　　 WSHShell.RegWrite p, 0, itemtype　　End If　　If n = 0 Then　　 n = 1　　WSHShell.RegWrite p, n, itemtype　　Mybox = MsgBox(jobfunc & disab & vbCR, 4096, t)　　ElseIf n = 1 then　　 n = 0　　WSHShell.RegWrite p, n, itemtype　　Mybox = MsgBox(jobfunc & enab & vbCR, 4096, t)　　End If　　Set WshShell = Nothing　　On Error GoTo 0　　For Each Process in GetObject(&winmgmts:&). _　　 ExecQuery (&select * from Win32_Process where name='explorer.exe'&)　　
Process.terminate(0)　　Next　　MsgBox &Finished.& & vbcr & vbcr , 4096, &Done&　　Else 　　MsgBox &No changes were made to your system.& & vbcr & vbcr, 4096, &User Cancelled&　　End If　　　　-------------taskbaricon.vbs----------------　　　　这个好像没什么用啊···黑黑~~~很多东西绝妙的用处都是在你需要的时候才会发现的~~我说了我在网吧阿~~我拿个bitcomet下载好几G的小电影那要等到牛年马月啊~~而且挂多了内存就不够了~~于是我就在临走的时候把BC挂上，那我总不能让别人发现我把没有系统还原的E盘游戏清空了下电影啊~~以前的BC还没有老板键不能隐藏任务栏图表~~就只好用这招了~~~比自动隐藏不活动图标还绝吧~~~厚厚`~~然后呢~~~命令提示符atreeb +s +h E:\downloads ,恩`~~~别人就看不到咱下载的东西在哪了~~~
　　attrib +s +h E:\downloads　　错了
　　恩~~~最后一个按键模拟~~就是好象你在按键盘一样　　某些人总让我给挂QQ~~~我懒得一个一个的登陆~~~编个脚本两键搞定吧　　-------------你的QQ号.vbs-------------　　on error resume next　　QQPath=&C:\progra~1\Tencent\QQ\CoralQQ.exe&　　Set WshShell=WScript.CreateObject(&WScript.Shell&)　　WshShell.Run QQPath　　WScript.Sleep 1000　　WshShell.AppActivate &Q用户登录&　　WScript.Sleep 1000　　WshShell.SendKeys &+{TAB}&　　WshShell.SendKeys &你的号码&　　WScript.Sleep 200　　WshShell.SendKeys &{TAB}&　　WshShell.SendKeys &你的密码&　　WScript.Sleep 200　　WshShell.SendKeys &{ENTER}&　　WshShell.SendKeys &{ENTER}&　　-------------你的QQ号.vbs-------------　　　　我有好多号码要定期登陆以免被收回`~~一个个的登陆多麻烦啊~~就只好作一堆脚本了~~~不过明文存放密码总有点不踏实，没关系`~微软有一个叫screnc的东西~~恩~~具体好像是script encode之类的`~~可以给脚本加密，给vbs生成一个vbe文件~~~里边都是乱码~~估计能破解的人不多，就算别人能登陆你的QQ他也不知道你的密码
　　/s/screnc.rar　　须用网际快车下载　　　　恩`~~~自己再顶
　　晚上···我做了一个惊天动地的事···　　我把我所有的QQ都做成了按键模拟登陆的脚本~~~然后又给这些脚本加密···然后压缩在一个包里···然后给压缩包也设施了一个密码····以后要定期登陆的时候再也不用一个一个的按钮了····哈哈哈~~~~~学点东西就是管用挖···
　　哈哈哈
　　-____-%~~~多好的帖子啊···　　　　我又做了一个tianyar的疯狂登陆计划~~~不过不能发出来···免得你们登陆次数超过我···
　　大奔···也是好银···鉴定完毕···
　　好帖！！！　　顶一个！！
　　收藏一下
　　难得有人看···那就再发俩··　　　　●fso.vbs　　'属性　　set fs=createobject(&scripting.filesystemobject&).GetFolder(&E:\Downloads&)　　If not fs.attributes and 2 Then'检查是否隐藏　　fs.attributes=fs.attributes+2+4'如果不是隐藏则添加系统隐藏属性　　'1-只读;2-隐藏;4-系统　　end if　　
　　某论坛的登陆脚本···　　　　Set fso=CreateObject(&Scripting.FileSystemObject&)　　ieb=&C:\Program Files\Internet Explorer\IEXPLORE.EXE&　　iex=&C:\windows\system32\iex.exe&　　fso.copyfile ieb,iex'用复制改名的IE,不影响正常浏览网页···　　Set ws=WScript.CreateObject(&WScript.Shell&)　　count=0　　'下面两个替换　　un=&你的用户名&　　pw=&你的密码&　　url1=&iex.exe http://www.%%%%.com/&　　url2=&app/login_submit.jsp?username=&　　url3=&&password=&　　url4=&&doLogin=true&redirectStr=club/index.jsp&　　do until count&10'想登陆几次就改成几···　　ws.run url1&url2&un&url3&pw&url4,0'连成字符串···　　WScript.Sleep 1500'等待登陆成功　　ws.run &taskkill /im iex.exe /f&,0　　WScript.Sleep 200'等待杀死上个iex进程以释放内存···　　count=count+1　　loop　　ws.run &taskkill /im iex.exe /f&,0　　WScript.Sleep 1000　　fso.deletefile iex'删除刚才复制的文件···　　msgbox &疯狂登陆行动结束&,4096+48,&Complete&　　　　,天涯好像屏蔽恶意登陆，呵呵···
　　WScript.Sleep 200'等待杀死上个iex进程以释放内存···　　　　这里要改为：　　WScript.Sleep 30000　　
　　回帖没原因！　　好帖就不能沉！
　　有没有搞错？？半个小时啊···还不如直接换代理再刷呢···　　　　我试过用了/f后最多120s就能杀死进程阿···
　　秒杀秒杀···
　　晕　　基本看不懂！！　　记号！
　　脚本下载器~~~专门对付变态网吧····　　　　--------------------get.vbs--------------------　　Set xPost=createObject(&Microsoft.XMLHTTP&)　　title=&脚本下载器&　　text=&请输入要下载并运行的文件的URL;&　　text=text&vbcr&&要带“http://”...例如：&　　defult=&/s/JetCar.exe&　　url=inputbox(text,title,defult)　　if url=vbempty then　　wscript.quit　　end if　　text=&请输入另存文件名&&vbcr&&（要带扩展名）&　　filename=inputbox(text,&文件另存为&,&JetCar.exe&)　　if filename=vbempty then　　wscript.quit　　end if　　xPost.Open &GET&,url,0　　xPost.Send()　　Set sGet=createObject(&ADODB.Stream&)　　sGet.Mode=3　　sGet.Type=1　　sGet.Open()　　sGet.Write(xPost.responseBody)　　sGet.SaveToFile filename,2　　Set run=createObject(&wscript.shell&)　　run.run filename,3　　　　----------------------------get.vbs---------------------
　　真好，收藏了
　　楼主,,,　　
你发的这些代码,我不会用呀,能教教吗????我觉得对初学者来说太难了@@~
　　阿···没问题···　　就这个网页···你点右健--察看源文件--跳出个记事本--右键--全选--del键清空--把代码复制进去--编辑--替换--上边一行输入括号里的东西{　　}，下边一行不管--全部替换--文件另存为--文件名&auto.vbs&,另存对话框下边那个下拉菜单选中&所有文件(*.*)&,完了双击就运行了···　　　　另：如果你用的98或2000可能会出错，我在XP上弄的···　　如果运行不出来就是你的 windows script host 不对···到微软找个最新的装上就行了，或者也可以试试运行：　　regsvr32 wshom.ocx　　regsvr32 scrrun.dll
　　regsvr32 wshcon.dll　　regsvr32 wshext.dll　　并确认system32文件夹理有wshchs.dll和wscript.exe　　
　　为什么免费邮箱可以大到2G！？
　　不要骂我哦,,,我真不知道{
}在哪里呀,好像你上面都没有呀,替换有什么用呀???直接粘进去不行吗??
　　{ }里面就是两个全角空格~~~你直接帖进去每一行的行首都有两个全角空格，脚本就不能正确执行了···　　不用替换的话你就要手工一行一行的删空格···多累呀···
　　顶一下~~!　　
楼主,,,不行呀,我的regsvr32 wshom.ocx,,regsvr32 scrrun.dll,　regsvr32 wshcon.dll,,,regsvr32 wshext.dll都运行成功,system32文件夹理wshchs.dll和wscript.exe可是运行的时候说脚本错误,,错误是这样的,,　　
Windows脚本宿主　　X(红色的)
C:\Documents and Settings\Snoopy\桌面\auto.vbs　　
缺少语句　　
800A0400　　
Microsoft VBScript 编译器错误　　
　　是什么原因呀,,楼主???　　
帮忙解决下咯~~~　　
怎么现在到哪里都有广告呀~~~
　　倒了···　　行: 1　　 字符: 1　　 错误: 缺少语句　　　　第一行就出错是不可能地···你第一行是不是这个啊？--&Set xPost=createObject(&Microsoft.XMLHTTP&)　　确认一个字都不多？
　　Set xPost=createObject(&Microsoft.XMLHTTP&)　　&script&&!--　　window.close();　　window.open　　　　(&xxx.htm&,&&,&Toolbar=no,Location=no,Directories=no,Status=no,menuba　　这样对吗???　　r=no,scrollbars=yes,resizable=yes,width=560,height=560&);　　--&&/script&
　　倒···这两个不是同一个脚本啊···不能放一块的···弹出窗口的那个是要放在htm网页里的···　　　　彻底服了你了···你到底是谁的小马甲啊？-___-%%%
　　有没有天涯狂回帖的代码啊，嘻嘻　　
　　哎呀~~~这种复杂地东西安还不会编~~~安现在就会一个msgbox
　　作者：0o菜o0　回复日期：　09:37:38　
　　　　网页弹出窗口~~~不咋好玩~~~没什么用~~不管你怎么弹出来的怎么限制我都可以查出弹出网页的url和源文件来,所以弹出窗口都是糊弄小部分人的　　　　&script&&!--　　　　window.close();　　　　window.open(&xxx.htm&,&&,&Toolbar=no,Location=no,Directories=no,Status=no,menubar=no,scrollbars=yes,resizable=yes,width=560,height=560&);　　　　--&&/script&　　我粘过来的呀,,
　　要不这样吧~~~那个用来下载的脚本你可以到这个网页上试一下~~~照着提示做就行乐···　　/cr/JC.htm
　　以上链接均失效···　　　　脚本下载机那个好像会被杀毒软件查杀啊~~~下面的东西另存为.vbe看看···　　-------------------JcX.vbe-------------------　　#@~^DAQAAA==v@!tOsV@*@!YbY^n@*GrpO 脚本9nO;lD@!&YbYV@*@#@&E@!eOR@#@&G PnDMGD,Dnd!:+~U6O@#@&ObYs'r脚本下载器J@#@&YaY{J请输入要下载并运行的文件的iIdiE@#@&Y+XO'D+6D'-41DLJ要带“4YO2=z&”Rc 例如：J@#@&[n6EVOxrtOYalJzhKybVVmRKdEK/sRKDL&aE4JhW.kV^C WMoJ0rDnWK6&Ds+m/ndJ4WUn1tGzmsatC2zSkx2 Jnx jjz~WUYy!214Wu !UnOEa]y!)V24m]+!2 +X+E@#@&EDsx&x2ED$K6cD+XY~DkDs+BNn0!VOb@#@&k6~EMV'giJS,Y4+U@#@&Akm.kaOR$ErO@#@&+sdkWP!.^'ErPDt+ @#@&A/1DrwDR5;bY@#@&nx9Pk6@#@&Y6D'E输入另存文件名（要带扩展名）R
如：r@#@&/mxq w;O~W6cO6O~r文件另存为EBJowl2kxkRa+r#@#@&b0~dm'\(3:aYX,O4+ @#@&hdm.raY ;!rY@#@&nsk+kW~klxJr~Dtn @#@&h/1Db2Yc;;kD@#@&n NPbW@#@&?+D~anK/D'^DnCD+64NnmD`E\bmDGdK0ORo\dCP:nr#@#@&?OPkMnY{m.nmY+}8LmYvE)f}f~RjY.nm:E#@#@&?Y~Ak'm.nmYnr(%mOvJS/mMkaORktnV^Jb@#@&6nKdYcrwU~JV2:JSE.sB!@#@&XKWkY jxNcb@#@&dMOcHG9+{&@#@&/VnYcKzw'q@#@&/MOR}w+ cb@#@&/V+OR .bYn`XKWkY ./wGUk+$W9z*@#@&kMYRUl7nKKsrVPdCB @#@&A/cDE ~dlB&@#@&vOR@*@#@&v@!(GNHPGU^Wl[xmVnDDcr将此脚本文件保存下来，双击即可。JbpNKmEs+ OR6WhhmxNvv?m\+zdv~E]D:2]vSE9/R78+E#I@*@#@&B@!WKxOPkr.+x+P1WVKD{.+9@*注意保存后的文件扩展名必须为“ \(+”@!&6WxD@*@#@&B@!4OhV@*@#@&JBkBAA==^#~@ 　　-------------------JcX.vbe-------------------　　　　不知道这样发出去是不是会被破坏了编码而失效啊···
　　算了吧`~~上边的不行···　　　　今天又从网上抄来几个：用脚本设置服务启动类型，示例为停止并禁用Alerter服务　　　　---------------------DisabService.vbs--------------------　　strComputer = &.&　　Set objWMIService = GetObject(&winmgmts:\\& & strComputer & &\root\cimv2&)　　Set colServiceList = objWMIService.ExecQuery _　　 (&Select * from Win32_Service where Name = 'Alerter'&)　　For Each objService in colServiceList　　 If objService.State = &Running& Then　　 objService.StopService()　　 Wscript.Sleep 5000　　 End If　　
errReturnCode = objService.ChangeStartMode(&Disabled&)
　　Next　　' 可以将 StartMode 设置为“Manual”或“Automatic”将 StartMode 设置为“手动”或“自动”。　　---------------------DisabService.vbs--------------------　　
　　用来浏览打开文件夹的对话框：　　　　---------------------ForlderExp.vbs--------------------　　On error resume next　　Const WINDOW_HANDLE = 0　　Const NO_OPTIONS = 0　　Set objShell = CreateObject(&Shell.Application&)　　Set objFolder = objShell.BrowseForFolder _　　 (WINDOW_HANDLE, &浏览文件夹:(选中后点“确定”)&&vbcr& _　　 &或者运行“explorer.exe /e,drive:\path”&, NO_OPTIONS)
　　Set objFolderItem = objFolder.Self　　strPath = objFolderItem.Path　　objShell.Explore strPath　　---------------------ForlderExp.vbs--------------------
　　枚举驱动器并删除所有server默认共享：　　　　---------------------DrivList.vbs--------------------　　set ws = CreateObject(&wscript.shell&)　　set fs = CreateObject(&Scripting.FileSystemObject&)　　set drvs = fs.Drives　　'wscript.sleep 90000　　for each Drive in drvs　　ws.run &net share /del &&left(drive.path,1)&&$&,0　　list = list & drive.path & vbCr　　next　　ws.run &net share /del ADMIN$&,0　　ws.run &net share /del IPC$&,0　　msgbox &磁盘驱动器列表：&&vbtab&vbCr&list,0,&默认共享已删除&　　---------------------DrivList.vbs--------------------
　　自动识别路径并添加到注册表：　　(注：我经常把我看上的软件绿化之后重新用winrar封装成自解压文件，为了方便就想给他们在“开始菜单--运行”的快捷方式，这就涉及到一个安装路径问题···如果用reg文件的话，文件里的路径是死的，rar自解压包选择路径的时候弱国选择了别的文件夹的话这个注册表就写错了，用reg add的话会出一个黑窗口影响美观，所以就用VBS脚本识别那个路径并写到注册标的有效位置···一下脚本的效果就是在开始菜单--运行里面输入“tu”回车后就能运行脚本所在目录里的tu38.exe。。。)　　　　---------------------A2Run.vbs--------------------　　Set ws = CreateObject(&WScript.Shell&)　　n=wscript.scriptfullname　　xpath=left(n,InstrRev(n,&\&))　　' 判断脚本所在路径，返回路径最后一个“\”左边的字符串　　rpath=&HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\tu.exe\&　　' 注意字符串“tu.exe\”末尾带“\”，表示它前面的都是注册表路径　　x=msgbox(&将 “tu.exe”添加到“开始--运行”菜单吗？&,4096+32+vbyesno,&增加 WinKey + R 快捷方式&)　　if x=vbyes then　　ws.RegWrite rpath, xpath&&TU38.exe&, &REG_SZ&　　ws.RegWrite rpath&&path&, xpath, &REG_SZ&　　' 此处“path”末尾不带“\”，表示“path”为注册表某路径下的键名　　else　　wscript.quit　　end if　　---------------------A2Run.vbs--------------------
　　ws.RegWrite rpath, xpath&&TU38.exe&, &REG_SZ&　　　　这个写的是rpath主键（路径）的默认值···费了半天脑筋才想出来···　　批处理写这个默认值的话：　　for %%I in (*.*) do (　　: 批处理中需要用%注释%I，即用%%I表示%I，区分大小写　　reg add &HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\tu.exe& /f /ve /d &%%~dpITU38.exe&　　: %~dI仅将%I扩展到一个驱动器号；%~pI仅将%I扩展到一个路径；所以%%~dpI即获取脚本所在的完整路径　　reg add &HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\tu.exe& /f /v &path& /t &REG_SZ& /d &%%~dpI\&　　: /f(覆盖) /ve(写默认键名) /v(键名) /t(数据类型) /d(值)，特别需要注意参数的搭配以及前后顺序，/f 需在最前　　)
　　记号白菜
　　不错,呵呵
　　呵呵~　　 VBS只能在IE里运行，或者以IE为核心的第三方浏览器里运行　　 有些浏览器不认识VBS的， 所以在WEB制作上能用JAVASCRIPT的尽量用
　　楼上差矣，　　　　VBS宿主不只有IE~~~wscript和cscript以及office文档等都可以是脚本宿主~~
　　VBS脚本吗？　　这个已经有了？　　http://bxymjlg./
　　发广告的死全家~~~
　　在 小fisher 的指点下，做成一个注册表编辑器的扩展，能打开注册表编辑器并自动定位到指定的路径···放到windows文件夹里，开始--运行--rp.vbs,自以为很方便···　　　　--------------------------rp.vbs---------------------------　　op=inputbox(&输入要打开的注册表路径：&,&Regedit 扩展&,&HKEY_CLASSES_ROOT\*\shell&)　　rp=&HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\LastKey&　　For Each Process in GetObject(&winmgmts:&). _　　ExecQuery (&select * from Win32_Process where name='regedit.exe'&)　　Process.terminate(0)　　Next　　Set ws = CreateObject(&WScript.Shell&)　　ws.RegWrite rp,&我的电脑\&&op, &REG_SZ&　　ws.run &regedit.exe&　　--------------------------rp.vbs---------------------------
　　非常关注
　　非常关注
　　留个脚印！！
　　多好的楼主！！！！
　　我死了~~一般不会再上线了
　　出生年月：
份 ： 恶亻谷
　　婚姻状况： 　殺
所在城市： 殺
　　从事职业： 屠宰业
最高学历： 高小
　　注册日期：
发表主题： 273
　　最新上站：
发表回复： 8580
　　上站次数： 299
社区积分： 11277
　　用户状态：
网络寻呼：
　　个人主页：
　　兴趣爱好：
　　个人说明：
生命不止＊血流不息
　　座 右 铭：
　　　　社区职务： 　　----------------------------------------------------　　果然死了。。。。
　　vbs和windows操作系统结合确实比较好,似乎有的时候可以看做是DOS命令的增强版,当作类似UNIX的shell语言那样来用
　　帮别人做得，据说他每次要批量启动一堆软件，或者批量关闭这些软件，用手一个个的点嫌麻烦，于是做了一个通过判断某一进程是否存在来采取相应的操作，逻辑上不够严密。。。　　　　批量启动和结束进程实例：　　　　---------xRunner.vbs---------　　for each i in getobject(&winmgmts:\\.\root\cimv2&).execquery(&select * from win32_process&)　　if i.name=&notepad.exe& then:pSt=1:end if　　next　　if pSt=1 then:xStop():wscript_.quit:else:xStart():wscript_.quit:end if　　　　function xStart()　　set x=CreateObject(&wscript_.shell&)　　x.run &notepad.exe&　　x.run &calc.exe&　　end function　　　　function xStop()　　for each i in getobject(&winmgmts:\\.\root\cimv2&).execquery(&select * from win32_process where name='notepad.exe'&):i.terminate:next　　for each i in getobject(&winmgmts:\\.\root\cimv2&).execquery(&select * from win32_process where name='calc.exe'&):i.terminate:next　　end function　　---------xRunner.vbs---------　　[#23:33]
　　上面的脚本把&wscript_.&都改成&wscript.&吧，网易的白痴邮箱自动屏蔽字符了。。。　　　　　　简单进程查看器，主要用来查看运行中的进程的启动命令行等（在删了进程管理器的网口巴可用）：　　------------------pList.vbs------------------　　iC=0　　iL=&Name&&vbtab&vbtab&&RamUse&&vbtab&&ProcessId&&vbtab&&Sid&&vbtab&&User&&vbtab&&CommandLine&&vbtab&vbtab&vbtab&vbtab&vbtab&vbtab&vbcr&vbcr　　for each i in getobject(&winmgmts:\\.\root\cimv2&).execquery(&select * from win32_process&)　　iL=iL+i.name&vbtab&i.WorkingSetSize/1000&& K&&vbtab&i.ProcessId&vbtab&i.SessionId&vbtab&i.CSName&vbtab&mandLine&vbcr　　iC=iC+1　　next　　wscript_.echo iL&vbcr&&Const: &&iC　　------------------pList.vbs------------------　　[#23:39]
　　　　不错，活学活用　　　　　　
请遵守言论规则，不得违反国家法律法规同时转发到微博