修改磁盘图标

通用对话框1.过滤器 ＝ “图标文件|*.ico”
通用对话框1.打开 ()
俺牛 ＝ 取事件组件 ()
兔屁 ＝ 取标记组件 (到数值 (俺牛.标记) ＋ 10)
兔屁.图片 ＝ 读入文件 (通用对话框1.文件名)
.判断开始 (兔屁.图片 ≠ { })
文件名 ＝ 俺牛.提示文本 ＋ “\favicon.ico”
置文件属性 (文件名, 位异或 (取文件属性 (文件名), #隐藏文件)) ' 去除隐藏属性
写到文件 (俺牛.提示文本 ＋ “\favicon.ico”, 到字节集 (读入文件 (通用对话框1.文件名)))
置文件属性 (文件名, 位或 (取文件属性 (文件名), #隐藏文件)) ' 加入隐藏属性
.默认
信息框 (“未载入图片”, 0, “噢特”, )