进程ID ＝ 进程_取程序路径 (进程_名取ID (“Origin.exe”))
编辑框1.内容 ＝ 子文本替换 (编辑框1.内容, “@163.com”, “”, , , 真)
替换的文本 ＝ 子文本替换 (#第一步, “Origin目录”, 到文本 (进程ID), , , 真)
替换的文本1 ＝ 子文本替换 (替换的文本, “邮箱帐号”, 编辑框1.内容, , , 真)
替换的文本2 ＝ 子文本替换 (替换的文本1, “邮箱密码”, 编辑框4.内容, , , 真)
替换的文本3 ＝ 子文本替换 (替换的文本2, “公开ID”, 编辑框3.内容, , , 真)
调试输出 (替换的文本3)
写到文件 (“C:” ＋ “\OriginRegister.vbs”, 到字节集 (替换的文本3))
.判断开始 (进程_是否存在 (“Origin.exe”))
执行 (4, “C:” ＋ “\OriginRegister.vbs”, , , )
.默认
信息框 (“未检测到Origin进程,请开启后再试！”, #错误图标, “重要提示：”, )
结束 ()
.判断结束
' 执行 (4, “C:” ＋ “\OriginRegister.vbs”, , , )
写到文件 (取运行目录 () ＋ “\” ＋ 编辑框1.内容 ＋ “.txt”, 到字节集 (“邮箱帐号：” ＋ #换行符 ＋ 编辑框1.内容 ＋ “@163.com” ＋ #换行符 ＋ “邮箱密码：” ＋ #换行符 ＋ 编辑框2.内容 ＋ #换行符 ＋ “Origin密码：” ＋ #换行符 ＋ 编辑框4.内容 ＋ #换行符 ＋ “公开ID：” ＋ #换行符 ＋ 编辑框3.内容))
上一篇 ic卡读写模块正式版附使用方法