把所有的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]]

文件是有的，但是这VB里面没法用啊

不知道如何添加

麻烦大家帮帮，我不人加载源文件，麻烦大家讲解一下

是不知道从那加载呢