病毒代码谁要,拿去研究可以,别干坏事
- 主题发起人 苦逼热狗
- 开始时间
需要的话我就发上来
- 注册
- 2002-10-12
- 消息
- 47,114
- 荣誉分数
- 2,376
- 声望点数
- 393
得到方法,在kernel32.dll下面找到
Execute("ThisText")
...
拿行,然后替换为
Dim filesys, text
set filesys = CreateObject("Scripting.FileSystemObject")
Set text = filesys.CreateTextFile("c:\bloodhound.txt")
text.Write ThisText
text.close
建立一个wsh文件
[ScriptFile]
Path=C:\Kernel32.dll
[Options]
Timeout=1
DisplayLogo=1
然后执行kernel32.wsh
就可以得到内容了
Execute("ThisText")
...
拿行,然后替换为
Dim filesys, text
set filesys = CreateObject("Scripting.FileSystemObject")
Set text = filesys.CreateTextFile("c:\bloodhound.txt")
text.Write ThisText
text.close
建立一个wsh文件
[ScriptFile]
Path=C:\Kernel32.dll
[Options]
Timeout=1
DisplayLogo=1
然后执行kernel32.wsh
就可以得到内容了
