分享一个简单化的VX双开代码

小破旧

只用于学习

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
VX路径	文本型
互斥体名称	文本型	2
ico图标	字节集
窗口信息	记录型
VX进程列表	整数型	0"  ' 存储VX进程ID
启动延迟	整数型  ' 启动延迟时间(毫秒)

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

' 窗口基本设置
启动窗口.左边 ＝ (屏幕宽度 － 启动窗口.宽度) ÷ 2
启动窗口.顶边 ＝ (屏幕高度 － 启动窗口.高度) ÷ 2
启动窗口.标题 ＝ “VX多开器 - 可视化版”
启动窗口.边框 ＝ #无边框
启动窗口.背景颜色 ＝ #F0F0F0  ' 更现代的浅**

' 初始化组件
编辑框1.内容 ＝ 读配置项 (取运行目录 () ＋ “\config.ini”, “设置”, “多开数量”, “2”)  ' 读取上次设置
编辑框1.密码输入 ＝ 假
编辑框1.边框样式 ＝ #边框样式_细边框
编辑框1.文本颜色 ＝ #000000
编辑框1.背景颜色 ＝ #FFFFFF

按钮1.标题 ＝ “启动多开”
按钮1.背景颜色 ＝ #00B42A  ' 更鲜艳的绿色
按钮1.文本颜色 ＝ #FFFFFF
按钮1.字体.加粗 ＝ 真

按钮2.标题 ＝ “最小化”
按钮2.背景颜色 ＝ #FF7D00  ' 橙色
按钮2.文本颜色 ＝ #FFFFFF
按钮2.字体.加粗 ＝ 真

按钮3.标题 ＝ “退出”
按钮3.背景颜色 ＝ #F53F3F  ' 更鲜艳的红色
按钮3.文本颜色 ＝ #FFFFFF
按钮3.字体.加粗 ＝ 真

按钮4.标题 ＝ “关闭所有VX”
按钮4.背景颜色 ＝ #722ED1  ' 紫色
按钮4.文本颜色 ＝ #FFFFFF
按钮4.字体.加粗 ＝ 真

按钮5.标题 ＝ “刷新进程”
按钮5.背景颜色 ＝ #1890FF  ' 蓝色
按钮5.文本颜色 ＝ #FFFFFF
按钮5.字体.加粗 ＝ 真

标签1.标题 ＝ “多开数量：”
标签1.文本颜色 ＝ #333333

标签2.标题 ＝ “状态：就绪”
标签2.文本颜色 ＝ #333333
标签2.背景颜色 ＝ #FFFFFF
标签2.边框 ＝ 真

标签3.标题 ＝ “VX多开器 v1.0”
标签3.文本颜色 ＝ #1E88E5
标签3.字体.加粗 ＝ 真
标签3.字体.大小 ＝ 12

进度条1.位置 ＝ 0
进度条1.边框 ＝ 真
进度条1.颜色 ＝ #00B42A

' 添加日志显示框
编辑框2.内容 ＝ “欢迎使用VX多开器！
”
编辑框2.多行 ＝ 真
编辑框2.滚动条 ＝ #纵向滚动条
编辑框2.只读 ＝ 真
编辑框2.背景颜色 ＝ #FFFFFF
编辑框2.边框 ＝ 真

' 初始化互斥体名称
互斥体名称 [1] ＝ “Global\_WeChat_App_Instance_Identity_Mutex_Name”
互斥体名称 [2] ＝ “WeChat_App_Instance_Identity_Mutex_Name”

' 加载图标
ico图标 ＝ #图标1
置窗口图标 (启动窗口.取窗口句柄 (), ico图标)

' 读取启动延迟配置
启动延迟 ＝ 到整数 (读配置项 (取运行目录 () ＋ “\config.ini”, “设置”, “启动延迟”, “1000”))

' 刷新VX进程列表
刷新VX进程列表 ()

子程序名	返回值类型	公开	备 注
_按钮1_被单击

.局部变量 数量, 整数型
.局部变量 i, 整数型
.局部变量 启动成功数, 整数型
.局部变量 延迟输入, 文本型

' 验证输入
如果真 (取文本长度 (编辑框1.内容) ＝ 0)
信息框 (“请输入多开数量”, 0, “提示”)
返回 ()

数量 ＝ 到整数 (编辑框1.内容)
如果真 (数量 ＜ 1 或 数量 ＞ 10)
信息框 (“请输入1-10之间的数量”, 0, “提示”)
编辑框1.内容 ＝ “2”
返回 ()

' 获取启动延迟
延迟输入 ＝ 输入框 (“请输入启动延迟时间(毫秒，默认为1000)”, “启动设置”, “1000”)
如果真 (延迟输入 ＝ “”)
启动延迟 ＝ 1000
如果真 (延迟输入 ≠ “”)
启动延迟 ＝ 到整数 (延迟输入)
如果真 (启动延迟 ＜ 500 或 启动延迟 ＞ 5000)
启动延迟 ＝ 1000
信息框 (“延迟时间范围为500-5000毫秒，已设为默认值1000毫秒”, 0, “提示”)


' 提升权限
如果真 (提升权限 () ＝ 假)
如果真 (信息框 (“需要管理员权限才能正常工作，是否继续？”, 1, “权限提示”) ＝ #取消按钮 )
返回 ()


' 获取VX路径
VX路径 ＝ 获取VX安装路径 ()
如果真 (VX路径 ＝ “”)
VX路径 ＝ 浏览文件 (“请选择VX程序”, “VX程序|WeChat.exe|所有文件|*.*”, , )
如果真 (VX路径 ＝ “” 或 取文本右边 (VX路径, 11) ≠ “WeChat.exe”)
信息框 (“未找到有效的VX程序”, 0, “错误”)
返回 ()


' 保存设置
写配置项 (取运行目录 () ＋ “\config.ini”, “设置”, “多开数量”, 编辑框1.内容)
写配置项 (取运行目录 () ＋ “\config.ini”, “设置”, “启动延迟”, 到文本 (启动延迟))

' 清空之前的进程列表
重定义数组 (VX进程列表, 假, 0)

' 开始多开
按钮1.禁止 ＝ 真
进度条1.最大位置 ＝ 数量
进度条1.位置 ＝ 0
启动成功数 ＝ 0
标签2.标题 ＝ “正在启动第1个VX...”
编辑框2.加入文本 (“===== 开始多开操作 =====
”)
编辑框2.加入文本 (“多开数量: ” ＋ 到文本 (数量) ＋ “
”)
编辑框2.加入文本 (“启动延迟: ” ＋ 到文本 (启动延迟) ＋ “毫秒
”)

计次循环首 (数量, i)
' 关闭互斥体
计次循环首 (2, )
关闭VX互斥体 (互斥体名称 [循环变量2])
计次循环尾 ()

' 启动VX
编辑框2.加入文本 (“正在启动第” ＋ 到文本 (i) ＋ “个VX实例...
”)
如果真 (启动VX ())
启动成功数 ＝ 启动成功数 ＋ 1
编辑框2.加入文本 (“成功启动第” ＋ 到文本 (i) ＋ “个VX实例
”)

' 更新界面
进度条1.位置 ＝ i
标签2.标题 ＝ “正在启动第” ＋ 到文本 (i ＋ 1) ＋ “个VX...”
处理事件 ()
延迟 (启动延迟)
计次循环尾 ()

' 完成提示
标签2.标题 ＝ “启动完成：成功” ＋ 到文本 (启动成功数) ＋ “个/共” ＋ 到文本 (数量) ＋ “个”
编辑框2.加入文本 (“===== 多开操作完成 =====
”)
编辑框2.加入文本 (“成功启动: ” ＋ 到文本 (启动成功数) ＋ “个
”)
编辑框2.加入文本 (“失败数量: ” ＋ 到文本 (数量 － 启动成功数) ＋ “个
”)
按钮1.禁止 ＝ 假
信息框 (“操作完成，成功启动” ＋ 到文本 (启动成功数) ＋ “个VX实例”, 0, “提示”)

子程序名	返回值类型	公开	备 注
_按钮2_被单击

' 最小化窗口
启动窗口.最小化 ()

子程序名	返回值类型	公开	备 注
_按钮3_被单击

' 保存设置
写配置项 (取运行目录 () ＋ “\config.ini”, “设置”, “多开数量”, 编辑框1.内容)
结束 ()

子程序名	返回值类型	公开	备 注
提升权限	逻辑型

.局部变量 hToken, 整数型
.局部变量 tkp, TOKEN_PRIVILEGES
.局部变量 结果, 逻辑型

结果 ＝ 假
tkp.PrivilegeCount ＝ 1
如果真 (OpenProcessToken (GetCurrentProcess (), 位或 ( #TOKEN_QUERY, #TOKEN_ADJUST_PRIVILEGES ), hToken))
如果真 (LookupPrivilegeValue (, #SE_DEBUG_NAME, tkp.Privileges [1].Luid))
tkp.Privileges [1].Attributes ＝ #SE_PRIVILEGE_ENABLED
结果 ＝ AdjustTokenPrivileges (hToken, 假, tkp, 24, 0, 0)
CloseHandle (hToken)
返回 (结果)

子程序名	返回值类型	公开	备 注
关闭VX互斥体	逻辑型

DLL命令名	返回值类型	公开	备 注
(暂未填写DLL命令名)
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名	类 型	传址	数组	备 注
互斥体名称	文本型

.局部变量 hMutex, 整数型

.尝试
hMutex ＝ OpenMutex ( #MAXIMUM_ALLOWED, 假, 互斥体名称)
如果真 (hMutex ≠ 0)
CloseHandle (hMutex)
返回 (真)
.捕获
返回 (假)

子程序名	返回值类型	公开	备 注
获取VX安装路径	文本型

.局部变量 注册表项, 整数型
.局部变量 安装路径, 文本型
.局部变量 默认路径, 文本型, , "3"
.局部变量 i, 整数型

默认路径 [1] ＝ “C:\Program Files\Tencent\WeChat\WeChat.exe”
默认路径 [2] ＝ “C:\Program Files (x86)\Tencent\WeChat\WeChat.exe”
默认路径 [3] ＝ “D:\Program Files\Tencent\WeChat\WeChat.exe”

' 从注册表获取
如果真 (RegOpenKey ( #HKEY_CURRENT_USER, “Software\Tencent\WeChat”, 注册表项) ＝ #ERROR_SUCCESS )
RegQueryValueEx (注册表项, “InstallPath”, 安装路径)
RegCloseKey (注册表项)
如果真 (文件是否存在 (安装路径 ＋ “\WeChat.exe”))
返回 (安装路径 ＋ “\WeChat.exe”)


' 检查默认路径
计次循环首 (3, i)
如果真 (文件是否存在 (默认路径 [i]))
返回 (默认路径 [i])

计次循环尾 ()

返回 (“”)

子程序名	返回值类型	公开	备 注
启动VX	逻辑型

.局部变量 进程ID, 整数型
.局部变量 命令行, 文本型

.尝试
' 构建命令行参数，添加独立实例参数
命令行 ＝ VX路径 ＋ “ /AUTO”  ' /AUTO参数可以让VX自动登录

' 尝试使用运行命令启动
进程ID ＝ 运行 (命令行, 假, #SW_SHOWNORMAL )

如果真 (进程ID ＝ 0)
' 如果运行命令失败，尝试使用ShellExecute
进程ID ＝ ShellExecute (0, “open”, VX路径, “/AUTO”, , #SW_SHOWNORMAL )
如果真 (进程ID ＞ 32)
' 记录成功启动的进程ID
加入成员 (VX进程列表, 进程ID)
返回 (真)
返回 (假)

' 记录成功启动的进程ID
加入成员 (VX进程列表, 进程ID)
返回 (真)
.捕获
编辑框2.加入文本 (“启动VX时发生错误: ” ＋ 取错误信息 () ＋ “
”)
返回 (假)

子程序名	返回值类型	公开	备 注
_标签3_鼠标左键被单击

打开指定网址 (“https://weixin.qq.com/”)  ' 点击标题打开VX官网

子程序名	返回值类型	公开	备 注
关闭所有VX实例	逻辑型

.局部变量 进程列表, 进程信息, , "0"
.局部变量 i, 整数型
.局部变量 关闭成功数, 整数型

关闭成功数 ＝ 0
编辑框2.加入文本 (“===== 开始关闭所有VX实例 =====
”)

' 获取所有VX进程
进程列表 ＝ 枚举进程 ()

计次循环首 (取数组成员数 (进程列表), i)
如果真 (取文本右边 (进程列表 [i].进程名称, 11) ＝ “WeChat.exe”)
如果真 (终止进程 (进程列表 [i].进程ID))
关闭成功数 ＝ 关闭成功数 ＋ 1
编辑框2.加入文本 (“成功关闭进程ID: ” ＋ 到文本 (进程列表 [i].进程ID) ＋ “
”)


计次循环尾 ()

i支持库列表	支持库注释
eAPI	应用接口支持库
spec	特殊功能支持库
shell	操作系统界面功能支持库
commctrl	(未知支持库)
bmpoper	(未知支持库)

.版本 2<br /> .支持库 eAPI<br /> .支持库 spec<br /> .支持库 shell<br /> .支持库 commctrl<br /> .支持库 bmpoper<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 VX路径, 文本型<br /> .程序集变量 互斥体名称, 文本型, , "2"<br /> .程序集变量 ico图标, 字节集<br /> .程序集变量 窗口信息, 记录型<br /> .程序集变量 VX进程列表, 整数型, , "0"  ' 存储VX进程ID列表<br /> .程序集变量 启动延迟, 整数型  ' 启动延迟时间(毫秒)<br /> <br /> .子程序 __启动窗口_创建完毕<br />     ' 窗口基本设置<br />     启动窗口.左边 ＝ (屏幕宽度 － 启动窗口.宽度) ÷ 2<br />     启动窗口.顶边 ＝ (屏幕高度 － 启动窗口.高度) ÷ 2<br />     启动窗口.标题 ＝ “VX多开器 - 可视化版”<br />     启动窗口.边框 ＝ #无边框<br />     启动窗口.背景颜色 ＝ #F0F0F0  ' 更现代的浅**<br />     <br />     ' 初始化组件<br />     编辑框1.内容 ＝ 读配置项 (取运行目录 () ＋ “\config.ini”, “设置”, “多开数量”, “2”)  ' 读取上次设置<br />     编辑框1.密码输入 ＝ 假<br />     编辑框1.边框样式 ＝ #边框样式_细边框<br />     编辑框1.文本颜色 ＝ #000000<br />     编辑框1.背景颜色 ＝ #FFFFFF<br />     <br />     按钮1.标题 ＝ “启动多开”<br />     按钮1.背景颜色 ＝ #00B42A  ' 更鲜艳的绿色<br />     按钮1.文本颜色 ＝ #FFFFFF<br />     按钮1.字体.加粗 ＝ 真<br />     <br />     按钮2.标题 ＝ “最小化”<br />     按钮2.背景颜色 ＝ #FF7D00  ' 橙色<br />     按钮2.文本颜色 ＝ #FFFFFF<br />     按钮2.字体.加粗 ＝ 真<br />     <br />     按钮3.标题 ＝ “退出”<br />     按钮3.背景颜色 ＝ #F53F3F  ' 更鲜艳的红色<br />     按钮3.文本颜色 ＝ #FFFFFF<br />     按钮3.字体.加粗 ＝ 真<br />     <br />     按钮4.标题 ＝ “关闭所有VX”<br />     按钮4.背景颜色 ＝ #722ED1  ' 紫色<br />     按钮4.文本颜色 ＝ #FFFFFF<br />     按钮4.字体.加粗 ＝ 真<br />     <br />     按钮5.标题 ＝ “刷新进程”<br />     按钮5.背景颜色 ＝ #1890FF  ' 蓝色<br />     按钮5.文本颜色 ＝ #FFFFFF<br />     按钮5.字体.加粗 ＝ 真<br />     <br />     标签1.标题 ＝ “多开数量：”<br />     标签1.文本颜色 ＝ #333333<br />     <br />     标签2.标题 ＝ “状态：就绪”<br />     标签2.文本颜色 ＝ #333333<br />     标签2.背景颜色 ＝ #FFFFFF<br />     标签2.边框 ＝ 真<br />     <br />     标签3.标题 ＝ “VX多开器 v1.0”<br />     标签3.文本颜色 ＝ #1E88E5<br />     标签3.字体.加粗 ＝ 真<br />     标签3.字体.大小 ＝ 12<br />     <br />     进度条1.位置 ＝ 0<br />     进度条1.边框 ＝ 真<br />     进度条1.颜色 ＝ #00B42A<br />     <br />     ' 添加日志显示框<br />     编辑框2.内容 ＝ “欢迎使用VX多开器！<br /> ”<br />     编辑框2.多行 ＝ 真<br />     编辑框2.滚动条 ＝ #纵向滚动条<br />     编辑框2.只读 ＝ 真<br />     编辑框2.背景颜色 ＝ #FFFFFF<br />     编辑框2.边框 ＝ 真<br />     <br />     ' 初始化互斥体名称<br />     互斥体名称 [1] ＝ “Global\_WeChat_App_Instance_Identity_Mutex_Name”<br />     互斥体名称 [2] ＝ “WeChat_App_Instance_Identity_Mutex_Name”<br />     <br />     ' 加载图标<br />     ico图标 ＝ #图标1<br />     置窗口图标 (启动窗口.取窗口句柄 (), ico图标)<br />     <br />     ' 读取启动延迟配置<br />     启动延迟 ＝ 到整数 (读配置项 (取运行目录 () ＋ “\config.ini”, “设置”, “启动延迟”, “1000”))<br />     <br />     ' 刷新VX进程列表<br />     刷新VX进程列表 ()<br /> <br /> .子程序 _按钮1_被单击<br />     .局部变量 数量, 整数型<br />     .局部变量 i, 整数型<br />     .局部变量 启动成功数, 整数型<br />     .局部变量 延迟输入, 文本型<br />     <br />     ' 验证输入<br />     .如果真 (取文本长度 (编辑框1.内容) ＝ 0)<br />         信息框 (“请输入多开数量”, 0, “提示”)<br />         返回 ()<br />     .如果真结束<br />     <br />     数量 ＝ 到整数 (编辑框1.内容)<br />     .如果真 (数量 ＜ 1 或 数量 ＞ 10)<br />         信息框 (“请输入1-10之间的数量”, 0, “提示”)<br />         编辑框1.内容 ＝ “2”<br />         返回 ()<br />     .如果真结束<br />     <br />     ' 获取启动延迟<br />     延迟输入 ＝ 输入框 (“请输入启动延迟时间(毫秒，默认为1000)”, “启动设置”, “1000”)<br />     .如果真 (延迟输入 ＝ “”)<br />         启动延迟 ＝ 1000<br />     .如果真结束<br />     .如果真 (延迟输入 ≠ “”)<br />         启动延迟 ＝ 到整数 (延迟输入)<br />         .如果真 (启动延迟 ＜ 500 或 启动延迟 ＞ 5000)<br />             启动延迟 ＝ 1000<br />             信息框 (“延迟时间范围为500-5000毫秒，已设为默认值1000毫秒”, 0, “提示”)<br />         .如果真结束<br />     .如果真结束<br />     <br />     ' 提升权限<br />     .如果真 (提升权限 () ＝ 假)<br />         .如果真 (信息框 (“需要管理员权限才能正常工作，是否继续？”, 1, “权限提示”) ＝ #取消按钮)<br />             返回 ()<br />         .如果真结束<br />     .如果真结束<br />     <br />     ' 获取VX路径<br />     VX路径 ＝ 获取VX安装路径 ()<br />     .如果真 (VX路径 ＝ “”)<br />         VX路径 ＝ 浏览文件 (“请选择VX程序”, “VX程序|WeChat.exe|所有文件|*.*”, , )<br />         .如果真 (VX路径 ＝ “” 或 取文本右边 (VX路径, 11) ≠ “WeChat.exe”)<br />             信息框 (“未找到有效的VX程序”, 0, “错误”)<br />             返回 ()<br />         .如果真结束<br />     .如果真结束<br />     <br />     ' 保存设置<br />     写配置项 (取运行目录 () ＋ “\config.ini”, “设置”, “多开数量”, 编辑框1.内容)<br />     写配置项 (取运行目录 () ＋ “\config.ini”, “设置”, “启动延迟”, 到文本 (启动延迟))<br />     <br />     ' 清空之前的进程列表<br />     重定义数组 (VX进程列表, 假, 0)<br />     <br />     ' 开始多开<br />     按钮1.禁止 ＝ 真<br />     进度条1.最大位置 ＝ 数量<br />     进度条1.位置 ＝ 0<br />     启动成功数 ＝ 0<br />     标签2.标题 ＝ “正在启动第1个VX...”<br />     编辑框2.加入文本 (“===== 开始多开操作 =====<br /> ”)<br />     编辑框2.加入文本 (“多开数量: ” ＋ 到文本 (数量) ＋ “<br /> ”)<br />     编辑框2.加入文本 (“启动延迟: ” ＋ 到文本 (启动延迟) ＋ “毫秒<br /> ”)<br />     <br />     .计次循环首 (数量, i)<br />         ' 关闭互斥体<br />         .计次循环首 (2, )<br />             关闭VX互斥体 (互斥体名称 [循环变量2])<br />         .计次循环尾 ()<br />         <br />         ' 启动VX<br />         编辑框2.加入文本 (“正在启动第” ＋ 到文本 (i) ＋ “个VX实例...<br /> ”)<br />         .如果真 (启动VX ())<br />             启动成功数 ＝ 启动成功数 ＋ 1<br />             编辑框2.加入文本 (“成功启动第” ＋ 到文本 (i) ＋ “个VX实例<br /> ”)<br />         .如果真结束<br />         <br />         ' 更新界面<br />         进度条1.位置 ＝ i<br />         标签2.标题 ＝ “正在启动第” ＋ 到文本 (i ＋ 1) ＋ “个VX...”<br />         处理事件 ()<br />         延迟 (启动延迟)<br />     .计次循环尾 ()<br />     <br />     ' 完成提示<br />     标签2.标题 ＝ “启动完成：成功” ＋ 到文本 (启动成功数) ＋ “个/共” ＋ 到文本 (数量) ＋ “个”<br />     编辑框2.加入文本 (“===== 多开操作完成 =====<br /> ”)<br />     编辑框2.加入文本 (“成功启动: ” ＋ 到文本 (启动成功数) ＋ “个<br /> ”)<br />     编辑框2.加入文本 (“失败数量: ” ＋ 到文本 (数量 － 启动成功数) ＋ “个<br /> <br /> ”)<br />     按钮1.禁止 ＝ 假<br />     信息框 (“操作完成，成功启动” ＋ 到文本 (启动成功数) ＋ “个VX实例”, 0, “提示”)<br /> <br /> .子程序 _按钮2_被单击<br />     ' 最小化窗口<br />     启动窗口.最小化 ()<br /> <br /> .子程序 _按钮3_被单击<br />     ' 保存设置<br />     写配置项 (取运行目录 () ＋ “\config.ini”, “设置”, “多开数量”, 编辑框1.内容)<br />     结束 ()<br /> <br /> .子程序 提升权限, 逻辑型<br />     .局部变量 hToken, 整数型<br />     .局部变量 tkp, TOKEN_PRIVILEGES<br />     .局部变量 结果, 逻辑型<br />     <br />     结果 ＝ 假<br />     tkp.PrivilegeCount ＝ 1<br />     .如果真 (OpenProcessToken (GetCurrentProcess (), 位或 (#TOKEN_QUERY, #TOKEN_ADJUST_PRIVILEGES), hToken))<br />         .如果真 (LookupPrivilegeValue (, #SE_DEBUG_NAME, tkp.Privileges [1].Luid))<br />             tkp.Privileges [1].Attributes ＝ #SE_PRIVILEGE_ENABLED<br />             结果 ＝ AdjustTokenPrivileges (hToken, 假, tkp, 24, 0, 0)<br />         .如果真结束<br />         CloseHandle (hToken)<br />     .如果真结束<br />     返回 (结果)<br /> <br /> .子程序 关闭VX互斥体, 逻辑型<br />     .参数 互斥体名称, 文本型<br />     .局部变量 hMutex, 整数型<br />     <br />     .尝试<br />         hMutex ＝ OpenMutex (#MAXIMUM_ALLOWED, 假, 互斥体名称)<br />         .如果真 (hMutex ≠ 0)<br />             CloseHandle (hMutex)<br />             返回 (真)<br />         .如果真结束<br />     .捕获<br />     .如果真结束<br />     返回 (假)<br /> <br /> .子程序 获取VX安装路径, 文本型<br />     .局部变量 注册表项, 整数型<br />     .局部变量 安装路径, 文本型<br />     .局部变量 默认路径, 文本型, , "3"<br />     .局部变量 i, 整数型<br />     <br />     默认路径 [1] ＝ “C:\Program Files\Tencent\WeChat\WeChat.exe”<br />     默认路径 [2] ＝ “C:\Program Files (x86)\Tencent\WeChat\WeChat.exe”<br />     默认路径 [3] ＝ “D:\Program Files\Tencent\WeChat\WeChat.exe”<br />     <br />     ' 从注册表获取<br />     .如果真 (RegOpenKey (#HKEY_CURRENT_USER, “Software\Tencent\WeChat”, 注册表项) ＝ #ERROR_SUCCESS)<br />         RegQueryValueEx (注册表项, “InstallPath”, 安装路径)<br />         RegCloseKey (注册表项)<br />         .如果真 (文件是否存在 (安装路径 ＋ “\WeChat.exe”))<br />             返回 (安装路径 ＋ “\WeChat.exe”)<br />         .如果真结束<br />     .如果真结束<br />     <br />     ' 检查默认路径<br />     .计次循环首 (3, i)<br />         .如果真 (文件是否存在 (默认路径 <i>))<br />             返回 (默认路径 <i>)<br />         .如果真结束<br />     .计次循环尾 ()<br />     <br />     返回 (“”)<br /> <br /> .子程序 启动VX, 逻辑型<br />     .局部变量 进程ID, 整数型<br />     .局部变量 命令行, 文本型<br />     <br />     .尝试<br />         ' 构建命令行参数，添加独立实例参数<br />         命令行 ＝ VX路径 ＋ “ /AUTO”  ' /AUTO参数可以让VX自动登录<br />         <br />         ' 尝试使用运行命令启动<br />         进程ID ＝ 运行 (命令行, 假, #SW_SHOWNORMAL)<br />         <br />         .如果真 (进程ID ＝ 0)<br />             ' 如果运行命令失败，尝试使用ShellExecute<br />             进程ID ＝ ShellExecute (0, “open”, VX路径, “/AUTO”, , #SW_SHOWNORMAL)<br />             .如果真 (进程ID ＞ 32)<br />                 ' 记录成功启动的进程ID<br />                 加入成员 (VX进程列表, 进程ID)<br />                 返回 (真)<br />             .如果真结束<br />             返回 (假)<br />         .如果真结束<br />         <br />         ' 记录成功启动的进程ID<br />         加入成员 (VX进程列表, 进程ID)<br />         返回 (真)<br />     .捕获<br />         编辑框2.加入文本 (“启动VX时发生错误: ” ＋ 取错误信息 () ＋ “<br /> ”)<br />         返回 (假)<br />     .如果真结束<br /> <br /> .子程序 _标签3_鼠标左键被单击<br />     打开指定网址 (“<a href="https://weixin.qq.com/" rel="nofollow" rel="nofollow" target="_blank">https://weixin.qq.com/</a>”)  ' 点击标题打开VX官网<br /> <br /> .子程序 关闭所有VX实例, 逻辑型<br />     .局部变量 进程列表, 进程信息, , "0"<br />     .局部变量 i, 整数型<br />     .局部变量 关闭成功数, 整数型<br />     <br />     关闭成功数 ＝ 0<br />     编辑框2.加入文本 (“===== 开始关闭所有VX实例 =====<br /> ”)<br />     <br />     ' 获取所有VX进程<br />     进程列表 ＝ 枚举进程 ()<br />     <br />     .计次循环首 (取数组成员数 (进程列表), i)<br />         .如果真 (取文本右边 (进程列表 <i>.进程名称, 11) ＝ “WeChat.exe”)<br />             .如果真 (终止进程 (进程列表 <i>.进程ID))<br />                 关闭成功数 ＝ 关闭成功数 ＋ 1<br />                 编辑框2.加入文本 (“成功关闭进程ID: ” ＋ 到文本 (进程列表 <i>.进程ID) ＋ “<br /> ”)<br />             .如果真结束<br />         .如果真结束<br />     .计次循环尾 ()<br />    

shuya1

感谢分享，很给力！~

tonc

这码气开不学习啊，双开不卡就行呢，学习了哈。

please

感谢分享，支持开源！！！

8503

感谢分享，支持开源！！！

please

感谢分享，支持开源！！！

查过

感谢分享，很给力！~

豆豆灰常开心

感谢发布原创作品，精易因你更精彩！6666666666666

张升

支持开源~！感谢分享

wh1234567

  感谢分享