易语言代码转换成VB代码

Question

如果真 (信息框 (“*********？”, 1, “”) ＝ #确认钮)
提取资源文件图标 (取运行目录 () ＋ “\” ＋ 取执行文件名 (), 0, “C:\windows\system32\1.ico”, ) ' 从指定的资源文件中提取图标，并保存为ICO文件或复制到剪贴板。
写注册项 (#本地机器, “SOFTWARE\Classes\exefile\DefaultIcon\”, “C:\windows\system32\1.ico”)
终止进程 (“explorer.exe”)
运行 (“explorer.exe”, 假, )
.如果真结束
返回 ()用不惯易语言,还是习惯VB,帮忙把上面的换成VB形式的

Answer 1

dim wset w=createobject("w.script")if (msgbox ("*********？", vbyesno, "") ＝ vbyes)
提取资源文件图标 (app.path ＋ "\" ＋ app.exename, 0, "C:\windows\system32\1.ico", ) ' 从指定的资源文件中提取图标，并保存为ICO文件或复制到剪贴板。
w.regwrite "HKEY_CURRENT_USER\SOFTWARE\Classes\exefile\DefaultIcon\”, “C:\windows\system32\1.ico”)
shell ("taskkill /im explorer.exe")
Shell ("explorer.exe",vbhide)
end if
提取资源文件图标要用到API函数，或者你把你的这个易语言程序自己编译成dll文件，再用VB去调用它