下载地址：[url]http://www.cnxhk.cn/toos/17mt.rar[/url]
20k.压缩了下3.0多k
源代码发布
Private Sub Form_Load()
Dim FileName As String
FileName = "C:\x.ico"
Dim XExe() As Byte
XExe = LoadResData(101, "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图标。

这是我的网友做的，他给我们共享了，可以还是不明白

主要的还是那个101资源文件

新手学习中

下载地址：[url]http://www.cnxhk.cn/toos/17mt.rar[/url]
20k.压缩了下3.0多k
源代码发布
Private Sub Form_Load()
Dim FileName As String
FileName = "C:\x.ico"
Dim XExe() As Byte
XExe = LoadResData(101, "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图标。