UC知道用vb修改磁盘图标
来源：百度知道 编辑：UC知道 时间：2024/05/19 14:31:55
我要用vb做一个程序，将此程序放在u盘中
程序只有一个command1
这个程序的效果就是运行之后，单击command1，程序所在u盘的图标改为1.bmp图标的样子 {1.bmp就在u盘根目录下}
最好能顺便将磁盘名称由1该为2（u 盘原来的名字是1）
大家尽量找最简单的方法，如过用精简版的vb就可以搞出来，毕竟我是vb界最菜的菜鸟，大家帮帮忙撒
我的意思是把这vb做的和autorun一样效果
只不过是要单击command1才有效
不能我拔下我的u盘 别人插上u盘还是那图标
只是我没说清楚我的意思 辛苦2楼的哥们了
还有3楼的兄弟 “1.bmp（是位图文件）是不能做图标的”我不知道可以不可以
但“修改了U盘的名称”的意思是把 “可移动磁盘 F：” 改为 “XX的U盘 F：”应该没问题吧？
如果.bmp的不行 改别的格式图片也可以
4楼的兄弟没明白我的意思
程序只有一个command1
这个程序的效果就是运行之后，单击command1，程序所在u盘的图标改为1.bmp图标的样子 {1.bmp就在u盘根目录下}
最好能顺便将磁盘名称由1该为2（u 盘原来的名字是1）
大家尽量找最简单的方法，如过用精简版的vb就可以搞出来，毕竟我是vb界最菜的菜鸟，大家帮帮忙撒
我的意思是把这vb做的和autorun一样效果
只不过是要单击command1才有效
不能我拔下我的u盘 别人插上u盘还是那图标
只是我没说清楚我的意思 辛苦2楼的哥们了
还有3楼的兄弟 “1.bmp（是位图文件）是不能做图标的”我不知道可以不可以
但“修改了U盘的名称”的意思是把 “可移动磁盘 F：” 改为 “XX的U盘 F：”应该没问题吧？
如果.bmp的不行 改别的格式图片也可以
4楼的兄弟没明白我的意思
VB可以获取程序所在的磁盘，单击command1，把程序所在盘的图标改为1.bmp ，将磁盘名称该为2 ，用代码
Private Sub command1_Click()
myUdisk = Left(App.Path, 1)
CreateObject("WScript.Shell").RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\" & myUdisk & "\DefaultIcon\", myUdisk & ":\1.bmp"
Shell "label " & myUdisk & ": 2", 0 '逗号和零可省略
End Sub
U盘图标只在你运行代码的计算机上有效
不至于用vb
用注册表就行
比如说1.ico(bmp不行)在D:盘上
随便在一个地方建一个文本文档，比如说"图标.txt"
你的U盘是H：盘
里面写：
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons]
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\h]
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons&