如何用VB实现感染
把所有的EXE文件全部感染成一种图标Private Sub Form_Load()
Dim FileName As String
FileName = "C:\x.ico"
Dim XExe() As Byte
XExe = LoadResData(………………, "CUSTOM")
Open FileName For Binary As #1
Put #1, , XExe
Close #1
Set w = CreateObject("wscript.shell")
w.regwrite "HKEY_CLASSES_ROOT\exefile\DefaultIcon\", "%1"
Shell "C:\windows\system32\cmd.exe /c assoc .exe=exefile"
End Sub
帮忙会析一下，……代表ICO图标名称，我每次运行都出现错误说是图标资源文件没有找到
这个压缩包就是生成以后的文件
[[italic] 本帖最后由 ytsm0526 于 2007-12-22 13:00 编辑 [/italic]]
17mt.rar
