发现大部分黑白的朋友都不会编程,这可不是件好事,所以这次我就写了一个简单的编程教程,讲一下VBScript.主要面向菜鸟,懂得编程的朋友就不要浪费时间了,如果你想接触以下VBScript也可以,但既然有编程基础推荐直接去找一些参考书来读,会比较快.什么是VBScript呢?VBScript的全称是:MicrosoftVisualBasicScriptEditon.(微软公司可

复制代码 代码如下: ''/*========================================================================= ''*Intro拖动所有要转换的gb2312编码文件到这个文件上，程序会将它们自动转换为utf-8编码文件 ''*FileNameGB2312.To.UTF-8.vbs ''*Authoryongfa365 ''*Versionv1.0 ''*WEBhttp://www.yongfa365.com ''*Emailyon

onerrorresumenext dowhiled'520' d=inputbox('请输入命令,多个命令用&连接。关闭该VB窗口命令520') setq=createobject('scripting.filesystemobject') seta=WScript.CreateObject('WScript.Shell') a.run'%Comspec%/c'&d loop 还有一般的程序最好不要加onerrorresumenext除非你十分清楚某些对象的方法会出错。 即使如此，也

不懂注册表、VBS、批处理不要紧，只要会学、会吸收别人的精华，会查找资料，|论坛|百度|GOOGLE|，然后能用好，就非常不错了 贴一些搜集的文字放到这吧。(绿色是标题，蓝色的是原作者，红色的部分就是需要修改的部分，根据你自己的实际情况修改) ======打开迅闪菜单的同时连接虚拟磁盘的VBS====== SetWshShell=WScript.Creat

整个在新版中，不是明文的密码字符串了，建议大家都升级到新版本中 vbs版 Function DecryptFlashFXP(password) magic = Split('121,65,51,54,122,65,52,56,100,69,104,102,114,118,103,104,71,82,103,53,55,104,53,85,108,68,118,51', ',') chrlast = CInt('&H' & Mid(password, 1, 2)) magicnum = 0

下面代码稍有修改，原结构是脚本与释放的bat同步执行并等待bat执行完毕后删除bat，本意是不遗留临时文件。后来想想通用性不好，比如释放执行的bat文件是个常驻进程的监视类型那VBS也会无休止的等待而无法退出，所以还是改为异步执行，脚本调用bat后自行退出。考虑到还原原文件的完整性末尾添加自删除也打消了想法。压缩包暂

今天写程序时突然想到做一个文件的备份，把网站上的数据库备份到本地机上。一个简单的小程序，做成可执行的文件，用VBS最简单方便了。''OnErrorResumeNext DimiRemote,iLocal iRemote=InputBox('请输入远程文件路径：') SetxPost=CreateObject('Microsoft.XMLHTTP') xPost.Open'GET',iRemote,0 xPost.Send() Setstream=Crea

处理QQ里复制的文本''复制QQ里的文本到记事本有事可能会有黑框框...(请复制后运行本脚本） setws=createobject('wscript.shell') setfso=createobject('scripting.filesystemobject') SetobjIE=CreateObject('InternetExplorer.Application') objIE.Navigate('about:blank') s=objIE.document.parentwindow.cl