exe程序转换vbs工具

.如果真 (删首尾空 (编辑框1.内容) ≠ “”)
.如果真 (通用对话框2.打开 ())
启动线程 (&提示效果, , )
十六文本 ＝ 字节集_到十六进制 (读入文件 (编辑框1.内容))
.如果真 (寻找文本 (通用对话框2.文件名, “.vbs”, , 假) ＝ -1)
通用对话框2.文件名 ＝ 通用对话框2.文件名 ＋ “.vbs”
.如果真结束
.判断开始 (写到文件 (通用对话框2.文件名, 到字节集 (文本替换 (#常量1, 25, 10, 十六文本))))