Vbs 脚本编程简明教程之一—为什么要使用Vbs?
在Windows 中,学习计算机操作也许很简单,但是很多计算机工作是重复性劳动,例如你每周
也许需要对一些计算机文件进行复制、粘贴、改名、删除,也许你每天启动计算机第一件事情
就是打开WORD,切换到你喜爱的输入法进行文本编辑,同时还要播放优美的音乐给工作创造
一个舒心的环境,当然也有可能你经常需要对文本中的某些数据进行整理,把各式各样的数据
按照某种规则排列起来……。这些事情重复、琐碎,使人容易疲劳。
第三方软件也许可以强化计算机的某些功能,但是解决这些重复劳动往往事倍功半,我也尝试
过使用计算机语言编写程序来解决这些问题,但是随之而来的命令、语法、算法、系统框架和
类库常常让我觉得这样是否有必要,难道就是因为猪毛比较难拔,所以我就要去学习机械,为
自己设计一个拔猪毛机(?)吗?
Vbs 是一种Windows 脚本,它的全称是:Microsoft Visual Basic Script Editon.(微软公司可视化
BASIC 脚本版),VBS 是Visual Basic 的的一个抽象子集,是系统内置的,用它编写的脚本代码
不能编译成二进制文件,直接由Windows 系统执行(实际是一个叫做宿主host 的解释源代码并
执行),高效、易学,但是大部分高级语言能干的事情,它基本上都具备,它可以使各种各样的
任务自动化,可以使你从重复琐碎的工作中解脱出来,极大的提高工作效率。
我个人认为Vbs 脚本其实就是一种计算机编程语言,但是由于缺少计算机程序设计语言中的部
分要素,对于事件的描述能力较弱,所以称为脚本,它最方便的地方就是提供了对COM 对象
的简便支持。那么什么是COM 对象呢?
我这样理解,COM 对象就是一些具有特定函数功能项程序模块,他们一般以ocx 或者dll 作为
扩展名,你只要找到包含有你需要的功能的模块文件,并在脚本中规范的引用,就可以实现特
定的功能,也就是说Vbs 脚本就是调用现成的“控件”作为对象,用对象的属性和方法实现目的,
完全免去了编写代码、设计算法等等麻烦。说白了,我不是觉得拔猪毛麻烦么?我发觉xx 机(比
如真空离心器)有一个功能可以实现脱毛,ok,我把它拿来给猪脱毛。什么?大材小用?太浪
费资源了?天哪,那是计算机芯片的事情,死道友不死贫道,反正我的事情是方便快速的解决
了,这就行了。
最方便的是它甚至不需要专门的开发环境,在你的计算机中,只要有notepad,就可以编写Vbs
脚本了,并且可以直接执行。
===============================
Vbs 脚本编程简明教程之二—如何开始第一个Vbs 脚本?
就像多数计算机教程一样,我们从“Hello World!”程序开始我们的练习。什么?不知道是什
么意思?就是说大部分的计算机程序设计教程开篇入门都是编写一个小程序,执行这个程序的
结果就是在计算机的屏幕上或者dos 窗口中显示一行文字:Hello World!好了,我们开始吧。
打开你的“记事本”程序,在编辑窗口填写:
msgbox "He llo World!"
然后用鼠标单击“文件”菜单,单击“保存”,把“保存在”一栏设为桌面,在“文件名”一栏中填写
kk.vbs,单击“保存”就可以了。然后最小化“记事本”窗口,在桌面上寻找你刚刚保存的kk.vbs,
然后双击。看到弹出的对话框了没有,单击“确定”,对话框消失了。难看了点,不过确实是你
编写的第一个脚本程序。
说明之一:上面的操作中,保存位置放在桌面,仅仅是为了执行方便,你保存到其他的地方完
全没有问题,只要你知道你保存在什么地方就可以了,什么?是废话,自己保存的当然知道保
存在那里了。不,自己保存的文件自己找不到的人我见的多了去了。文件名你可以随意填写,
不一定非要写kk,只要符合Windows 的文件命名规则就可以了,但是扩展名必须是vbs,什么?
不知道什么是扩展名?就是文件名中“.”后的那部分,简单说,就是vbs 脚本文件命名时必须是:
xxx.vbs,其中xxx 你随意。
说明之二:在记事本编辑窗口中写的这行是什么意思?
Msgbox 是VBS 内建的函数,每一个函数都可以完成一定的功能,你只需要按照语法要求,在
函数的相应部分填写相应的内容就可以了,这部分内容我们称为参数,当然函数执行的结果我
们称为返回值,一个函数可以有返回值也可以没有,可以有参数也可以没有。你不用了解函数
是怎么运作的,只要了解这个函数能干什么就行了。
Msgbox 语法:msgbox "对话框内容", , "对话框的标题"
你不妨用记事本打开刚才的文件在编辑窗口中输入:
msgbox "He llo World!" , , "系统提示"
执行一下,看看效果和位置。
说明之三:如果执行失败,看看你的标点符号,所有的标点符号必须是在英文状态下输入的。
当然,这个脚本实在是太简单了,甚至连最简单的交互都没有,所以你可以把脚本这样修改一
下:
Dim name
name=Inputbox("请输入你的名字:","名称")
Msgbox name, , "您的名字是"
保存执行一下,看到弹出的对话框了么?填入你的名字,点确定,看到结果了吗?
说明之一:第一句是定义变量,dim 是定义变量的语句
其格式为:dim 变量1,变量2……,
Vbs 只有一种变量类型,所以不用声明变量类型。系统会自动分辨变量类型。
说明之二:inputbox 是VBS 内建的函数,可以接受输入的内容,其语法格式为:
Inputbox("对话框内容","对话框标题")
第二句的意思是接受用户的输入,并把输入结果传递给变量name。
好了,到此脚本基本的输入输出函数都有了,已经可以完成一些比较简单的功能了,你可以编
写一个简单的脚本,然后拷贝的“程序”—>“启动”中,然后重新启动计算机看看结果。
vbs与word同名
vbs脚本病毒的弱点
vbs脚本病毒由于其编写语言为脚本,因而它不会像PE文件那样方便灵活,它的运行是需要条件的(不过这种条件默认情况下就具备了)。笔者认为,VBS脚本病毒具有如下弱点:
1)绝大部分VBS脚本病毒运行的时候需要用到一个对象:FileSystemObject
2)VBScript代码是通过Windows Script Host来解释执行的。
3)VBS脚本病毒的运行需要其关联程序Wscript.exe的支持。
4)通过网页传播的病毒需要ActiveX的支持
5)通过Email传播的病毒需要OE的自动发送邮件功能支持,但是绝大部分病毒都是以Email为主要传播方式的。
如何预防和解除vbs脚本病毒
针对以上提到的VBS脚本病毒的弱点,笔者提出如下集中防范措施:
1)禁用文件系统对象FileSystemObject
方法:用regsvr32 scrrun.dll /u这条命令就可以禁止文件系统对象。其中regsvr32是Windows\System下的可执行文件。或者直接查找scrrun.dll文件删除或者改名。
还有一种方法就是在注册表中HKEY_CLASSES_ROOT\CLSID\下找到一个主键{0D43FE01-F093-11CF-8940-00A0C9054228}的项,咔嚓即可。
2)卸载Windows Scripting Host
在Windows 98中(NT 4.0以上同理),打开[控制面板]→[添加/删除程序]→[Windows安装程序]→[附件],取消“Windows Scripting Host”一项。
和上面的方法一样,在注册表中HKEY_CLASSES_ROOT\CLSID\下找到一个主键{F935DC22-1CF0-11D0-ADB9-00C04FD58A0B}的项,咔嚓。
3)删除VBS、VBE、JS、JSE文件后缀名与应用程序的映射
点击[我的电脑]→[查看]→[文件夹选项]→[文件类型],然后删除VBS、VBE、JS、JSE文件后缀名与应用程序的映射。
4)在Windows目录中,找到WScript.exe,更改名称或者删除,如果你觉得以后有机会用到的话,最好更改名称好了,当然以后也可以重新装上。
5)要彻底防治VBS网络蠕虫病毒,还需设置一下你的浏览器。我们首先打开浏览器,单击菜单栏里“Internet 选项”安全选项卡里的[自定义级别]按钮。把“ActiveX控件及插件”的一切设为禁用,这样就不怕了。呵呵,譬如新欢乐时光的那个ActiveX组件如果不能运行,网络传播这项功能就玩完了。
6)禁止OE的自动收发邮件功能
7)由于蠕虫病毒大多利用文件扩展名作文章,所以要防范它就不要隐藏系统中已知文件类型的扩展名。Windows默认的是“隐藏已知文件类型的扩展名称”,将其修改为显示所有文件类型的扩展名称。
8)将系统的网络连接的安全级别设置至少为“中等”,它可以在一定程度上预防某些有害的Java程序或者某些ActiveX组件对计算机的侵害。
9)呵呵,最后一项不说大家也应该知道了,杀毒软件确实很必要。在这个病毒横飞的网络,如果您的机器没有装上杀毒软件我觉得确实挺不可思议的。
VBS 打开WORD?
'代码如下:
Set Shell=Wscript.Createobject("Wscript.shell")
Shell.run "111.DOC" '在此输入你的111.DOC位置。
Wscript.Sleep 5000 '等待5秒
Shell.Sendkeys "123"
Shell.Sendkeys "{Enter}"
word同名vbs
你的WODR被病毒感染了,杀一下毒吧。
vbs批量替换word中部分文本
方法如下:
把一批.doc文件拖拽到这个VBS文件上,松开手,再按提示运作就行了。
不打开doc文件就能够批量替换的vbs程序
On Error Resume next
Set objWord = CreateObject("Word.Application")
If Wscript.Arguments.Count <> 0 Then
Findstr=InputBox(chr(13)&" 输入要查找的字符串 ", "输入查找字符","vbs")
If Findstr = "" Then WScript.Quit
replstr=InputBox(chr(13)&" 输入要替换的字符串 ", "输入替换字符","word vba")
For i=0 To WScript.Arguments.Count-1
filepath=WScript.Arguments(i)
kkk(filepath)
Next
objWord.Documents.close
else
WScript.Quit
End If
sub kkk(abcpath)
objWord.Visible = True
Set objDoc = objWord.Documents.Open(abcpath)
Set objSelection = objWord.Selection
objSelection.HomeKey 6
With objSelection.Find
.Text = Findstr
.Replacement.Text = replstr
.Forward = True
.Wrap = wdFindContinue
.MatchWildcards = True
.Execute ,,,,,,,,,,2
End With
objWord.Documents.Save
end sub
VBS批量打印word和EXCEL
filterstr=inputbox("请输入不要打印的文件,用逗号分隔。如2,1表示文件名包含2或者1的不打印,输入*表示打印所有:")
filtered=false
printme=true
if filterstr<>"*" and filterstr<>"" then
filtered=true
filterlist=split(filterstr,",")
end if
if filterstr<>"" then
Set WshShell = WScript.CreateObject("WScript.Shell")
printsub(WshShell.CurrentDirectory)
msgbox "完工啦!"
end if
Sub printsub(byval curdc)
Set FSO =CreateObject("Scripting.FileSystemObject")
Set WD = CreateObject("Excel.Application")
wd.visible=false
Set FD = FSO.GetFolder(curdc)
Set FN = FD.Files
For Each F1 In FN
if filtered then
printme=true
for each fl in filterlist
if Instr(LCase(Left(F1.Name,len(F1.Name)-3)),fl)<>0 then
printme=false
end if
next
end if
If UCase(Right(F1.Name, 3)) = "XLS" and printme Then
Set myWork = GetObject(FD.Path & "\" & F1.Name)
Set mySheet = GetObject(FD.Path & "\" & F1.Name).Worksheets(1)
mySheet.PrintOut
myWork.Close saveChanges=False
End If
Next
wd.visible=true
WD.Quit
Set SubFD=FD.SubFolders
For Each folder in SubFD
printsub(folder.Path)
Next
Set SubFD=nothing
set fn=nothing
set fd=nothing
Set WD = Nothing
Set FSO = Nothing
End Sub
如果你是excel2007以上的,请把代码中的“XLS”改成“LSX”即可。更多
不行啊 运行提示错误啊 我放在有EXECEL文件的文件夹里面运行出错
这个是我运行过没问题的。跟你打word的那个vbs放到相同目录,然后试试打word的那个能否工作。那个能,这个就应该能。
运行可以 输入*号确定之后就出现错误提示了 麻烦你看下能不能改进下
运行我指成功打印同目录下的两个文件。我运行没问题啊。
我再试了一下可以了 但只能打印表一啊 我需要打印excel表内所有的工作表 可以吗?
兄弟,拿你这20分真不容易啊。
把
Set mySheet = GetObject(FD.Path & "\" & F1.Name).Worksheets(1)
mySheet.PrintOut
替换成
myWork.PrintOut()
word vbs病毒
免费正版杀毒软件集合 有你需要的
1.玉树临风麦咖啡:McAfee VirusScan 10.0.27简体版
系统支持:[url=]Win2003/Winvista/WinXP/Win[/url]
软件大小:10.22MB
软件语言:简体中文
软件授权:免费
软件简介:McAfee防毒软件,除了操作介面更新外,也将该公司的WebScanX功能合在一起,增加了许多新功能!除了帮你侦测和清除病毒,它还有VShield自动监视系统,会常驻在System Tray,当你从磁盘、网络上、E-mail夹文件中开启文件时便会自动侦测文件的安全性,若文件内含病毒,便会立即警告,并作适当的处理,而且支持鼠标右键的快速选单功能,并可使用密码将个人的设定锁住让别人无法乱改你的设定。
使用方法:安装之后使用电子邮箱注册,可以使用1年。安装之后有注册提示,按照提示一步一步进行就可以了。
下载地址:http://download.zol.com.cn/link/11/104760.shtml
2.神秘杀手AVAST!:avast! Home Edition 4.7.936简体中文版
软件大小:12642KB
软件语言:简体中文
软件类别:国外软件/免费版/杀毒软件
运行环境:Win9x/Me/NT/2000/XP/2003
软件简介:avast! Home Edition是一款免费的防毒软件,但功能上可是一点也不逊色,它拥有着一个近几100%的完全防护功能,不论是文件、电子邮件,甚至是P2P以及IM软件,均在它的防护之下,它的网络防护功能,就如同一个轻量级的防火墙,让我们不论是计算机系统安全或是网络安全,都受到它严密的保护。和专业版相比,少了两个可有可无的功能,无所谓。来自捷克,在欧洲很响亮的杀毒软件,号称唯一可以和NOD32抗衡的软件。
使用方法:安装之后是两个月试用版,按照提示使用电子邮箱注册一下,可以使用14个月。升级之后版本变成4.7.942.
下载地址:http://www.newhua.com/soft/48465.htm
3.能力超强小红伞:Avira AntiVir PersonalEdition Classic7.0
软件大小:13M
软件语言:英语
软件类别:国外软件/免费版/杀毒软件
运行环境:Windows NT / 2000 / XP
软件简介:来自德国的小红伞,这个是免费的C版,对于小红伞,我不想多说什么,各大论坛都有很好的口碑,我的评价只有一个字——强!这个东西只有英文版,由于内核保护问题,不能汉化,建议有一定英语基础的朋友使用。
使用方法:安装就可以用,注意设置,需要开启启发扫描功能。
下载地址:http://www.free-av.com/down/windows/antivir_workstation_win7u_en_h.exe
4.免费先锋:ClamWin Free Antivirus v0.90
软件大小:5.56M
软件语言:英语
软件类别:国外软件/免费版/杀毒软件
运行环境:Win9x/Me/NT/2000/XP/2003
软件简介:ClamWin是一套功能非常优秀的免费防毒软件。它的体积非常娇小,不会占用太多计算机资源,不像其它防毒软件安装之后会拖累整台计算机的速度。而且除了强大的文件与电子邮件防护能力之外,它还拥有排程扫描、在线更新病毒码、及时侦测等功能,和市面上知名防毒软件比起来一点也不逊色!
使用方法:安装就可以用了。建议英语好的朋友使用。
下载页面:http://www.clamwin.com/content/view/18/46/
5.性能强大AVG:AVG Anti-Virus 7.5 Build 447a967
软件大小:未知
软件语言:英语
软件类别:国外软件/免费版/杀毒软件
运行环境:Win9x/Me/NT/2000/XP/2003
软件简介:AVG Anti-Virus System功能上相当完整,可即时对任何存取文件侦测,防止电脑病毒感染;可对电子邮件和附加文件进行扫瞄,防止电脑病毒透过电子邮件和附加文件传播;“病毒资料库”里面则记录了一些电脑病毒的特性和发作曰期等相关资讯;“开机保护”可在电脑开机时侦测开机型病毒,防止开机型病毒感染。在扫毒方面,可扫瞄磁碟片、硬盘、光盘机外,也可对网络磁碟进行扫瞄。在扫瞄时也可只对磁碟片、硬盘、光盘机上的某个目录进行扫瞄。可扫瞄文件型病毒、巨集病毒、压缩文件(支持ZIP,ARJ,RAR等压缩文件即时解压缩扫描)。在扫瞄时如发现文件感染病毒时会将感染病毒的文件隔离至AVG Virus VauIt,待扫瞄完成后在一并解毒。
使用方法:安装之前先去http://www.grisoft.com/html/webreg.cfm填个表,从回信中得到一个序列号。
下载AVG Anti-Virus 7.5 Build 447a967
http://download.grisoft.cz/softw/70/filedir/inst/avg75f_447a967.exe
下载AVG Anti-Virus with Firewall 7.5 Build 447a967
http://download.grisoft.cz/softw/70/filedir/inst/avg75afwt_447a967.exe
6.精简版本卡巴斯基:Active Virus Shield 6.0.308
软件大小:13900 K
软件语言:简体中文
软件类别:国外软件/免费版/杀毒软件
运行环境:Win9x/Me/NT/2000/XP/2003
软件简介:美国在线AOL周一推出了一款免费的杀毒软件,更令人激动的是,这款软件实际上是由俄罗斯安全软件专家卡巴斯基为其编写的。软件包含了实时监控,邮件扫描,每小时自动更新等功能。除了基本的扫描防护和自动更新外,软件还有许多新的特性,如可在系统繁忙时让出资源,避免减慢系统速度等。该安全软件还为迅驰笔记本电脑及超线程技术做了优化,支持64位Windows操作系统。
使用方法:到这里申请一个序列号就可以使用1年。精简了部分功能的卡巴斯基
http://www.activevirusshield.com/antivirus/freeav/get_started.adp
下载地址:http://dl.pconline.com.cn/html_2/1/66/id=39050&pn=0.html
汉化补丁:http://www.hanzify.org//没办法,原地址不能正确显示,进去找吧。
7.老牌杀毒诺顿:Symantec Antivirus V10.1.4.4000简体中文企业版
软件大小:28.05MB
软件语言:简体中文
软件类别:国外软件/病毒防治
应用平台:Win2003/WinXP/Win2000/Win9X
软件简介:Symantec AntiVirus Corporate (诺顿杀毒软件企业版本)是世界上最优秀的杀毒软件之一,这个是企业版本,和专业版本、标准版本相比能为你带来更低的系统资源占用,更可靠的性能!希望大家喜欢!为企业范围内的工作站和网路服务器提供全面的病毒防护-全球唯一病毒码更新的速度远快于病毒散播的速度的病毒防护方案(台湾地区简称-赛门铁克企业防毒组合B-包含工作站及伺服主机的多层次防毒便利授权与中央控管的机制)随着传播性、破坏性强的病毒出现得越来越多,企业范围内的病毒防护需求已经变为一项重要核心业务需求。仅仅在防火墙和电子邮件闸道具有安全性还不能够实现病毒全面防护。工作站以及网路服务器层级的全面病毒防护是确保系统正常运行和用户生产率的重要需求。本来还有更新的10.1.5.500简体版,考虑没有安全下载链接,省去。
下载地址:http://www.duote.com/soft/3063.html
8.貌似国产熊猫卫士:Panda Internet Security 2007 v11.00.02(熊猫卫士互联网安全套装2007)
软件大小:28.79 MB
软件语言:不明
软件类别:国外软件/病毒防治
应用平台:Win2003/WinXP/Win2000/Win9X
软件简介:熊猫卫士是Panda软件公司在中国推出的反病毒产品。Panda软件公司是欧洲第一位的计算机安全产品公司,也是唯一最大的杀病毒软件公司内拥有100%自有技术,且足以同美国相抗衡的公司,同时Panda也是世界上在该领域成长最快的公司。如今Panda Software公司的业务领域已经拓展到美国、中国、丹麦、德国、法国、阿根廷、巴西、保加利亚、塞普路斯、立陶宛、拉脱维亚、新加坡、南非、曰本、加拿大、及印度等32个国家和地区。迄今,Panda Software进军的每一个国家都取得了业务的成功,在所有进入的市场均取得了成功,在欧洲及世界范围内享有卓越的声誉。
Panda软件公司拥有欧洲最强大的技术开发力量,在欧洲的开发中心有150位开发人员曰夜不停地开发最先进的反病毒技术,同时Panda公司在全球与业界的知名公司机构如Microsoft、ICSA的合作使Panda公司的产品在底层与主流平台紧密结合,同时Panda公司是世界上率先提出365天24小时客户技术支持的反病毒公司,现在该项服务业已成为业界的潮流,而Panda公司的24小时紧急新病毒查杀服务在1998年度全球达到98%的成功率,Panda公司拥有庞大的病毒特征库,多达50,000种。
熊猫卫士获得的奖项及证书Panda软件公司的产品在世界各地有超过2,000,000用户,其中典型的用户包括:百事、3M、奔驰、爱立信、NEC、松下、西门子、柯达、DHL、波音公司等。Panda公司的产品是世界上唯一同时被世界最权威的杀病毒检测机构ICSA及Checkmark认证的基于Win95/98、Win3.1X、Win NT工作站、Dos、OS/2、NovelNetware、Win NT、MS Exchange服务器及客户机的多平台反病毒产品,Panda软件多次获得最权威的PC Magazine杂志评选的最佳编辑选择奖,并在PC Magazin杂志199x多年度在被评测的杀病毒软件中名列第一。
使用方法:本来是收费的杀软,但是在美国有免费的送号活动,我们可以借来用用,是送1年的序列号。以下是免费注册地址,注册后即可收到激活码,上网激活后可免费用一年,与正版一摸一样。
http://www.pandasecurity.com/promotions/itathome/register.aspx
至于他显示必须美国用户才能注册,因为是美国的一家科技公司赞助的,没别的意思。
去以下代理即可
国内很多邮箱不能注册,我用雅虎的和谷歌的都可以,有人说搜狐也行,我试验没有成功。电话号码一定要填美国的,格式如下:626-258-6523后面的有XXXXX的自己随便填。
下载地址:http://www.crsky.com/soft/8710.html
http://down1.tech.sina.com.cn/do…5-09-20/12576.shtml
9.强横霸道卡巴斯基:卡巴斯基杀毒软件单机版6.0
这个软件不用我多说了,地球人都知道的东西,杀毒能力世界第一,基本上所有的杀毒软件吹嘘自己的杀毒能力的时候都喜欢拿卡巴作为参照物,是所有杀毒软件准备超越的目标和梦想。本来是要花钱的,安装一个360安全卫士可以得到半年正版注册码,稍微动动手脚可以得到两个,能用一年。使用方法当然是下载360安全卫士豪华版,安装的时候把卡巴斯基一起安装,然后就可以得到激活码,就这么简单。华军软件园、太平洋、天空下载和360官方网站都可以下载,不知道网址就百度一下。
10.潇洒凌厉NOD32:NOD32杀毒软件
NOD32在全球共获得超过100多个奖项,包括Virus Bulletin, PC Magazine, ICSA认证, Checkmark认证等,更加是全球唯一通过42次VB100%测试的防毒软件,高据众产品之榜首!
注意:请于安装后立刻更新您的病毒库以保障您的电脑获得最好的保护!
注意:若您的电脑装有NOD32试用版,您必须在安装商业版之前将试用版卸装并重新启动电脑!
没有正版ID的。用升级服务器http://u3.safeexpert.net/
注意:得到ID之后先进行注册,得到用户名和密码,安装的时候用,切记,不然可能出问题。
软件下载:NOD32简体版2.51 http://www.nod32cn.com/download/download.php#sc
NOD32简体版2.70 http://download2.eset.com/download/win/v2st/ndntchst.exe
求高手帮我详细解读一下代码,说是VBS,就word里的一个宏。
设置当前活动文档里面的所有的图片和图形的高度和宽度分别为187、270。
转载请注明出处51数据库 » vbsword word-利用vbs写一个脚本