易语言修改快捷方式进行微信多开的代码

此功能配合精易模块使用,需要加载超级模块。

常量数据表

.版本 2
.常量 头, "<文本长度: 11>"
.常量 尾, "<文本长度: 4>"
.常量 头1, "<文本长度: 8>"
.常量 尾1, "<文本长度: 12>"

微信多开的代码

.版本 2
.支持库 shell
.支持库 eAPI
.支持库 spec
.程序集 窗口程序集_启动窗口
.子程序 _路径按钮_被单击
通用对话框1.打开 ()
路径编辑框.内容 = 通用对话框1.文件名
写配置项 (取运行目录 () + “\微信多开.ini”, “目录”, “位置”, 路径编辑框.内容)
.子程序 _多开按钮_被单击
.局部变量 目录, 文本型
.局部变量 i, 整数型
.局部变量 程序, 文本型
.如果真 (路径编辑框.内容 = “”)
  信息框 (“请先选定微信安装目录”, 0, , )
  返回 ()
.如果真结束
.如果真 (寻找文本 (路径编辑框.内容, “WeChat.exe”, , 假) = -1)
  信息框 (“请选定微信的安装目录”, 0, , )
  返回 ()
.如果真结束
目录 = 文本_取左边 (路径编辑框.内容, “\WeChat.exe”)
程序 = #头
.计次循环首 (到数值 (输入多开个数编辑框.内容), i)
  程序 = 程序 + #头1 + 目录 + #尾1 + #换行符
.计次循环尾 ()
程序 = 程序 + #尾
写到文件 (取特定目录 (1) + “\” + “run wechat.bat”, 到字节集 (程序))
打开指定网址 (取特定目录 (1) + “\” + “run wechat.bat”)
延迟 (5000)
删除文件 (取特定目录 (1) + “\” + “run wechat.bat”)
.子程序 __启动窗口_创建完毕
通用对话框1.初始目录 = 取特定目录 (3)
路径编辑框.内容 = 读配置项 (取运行目录 () + “\微信多开.ini”, “目录”, “位置”, )

运行结果:

总结

以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对我们的支持。如果你想了解更多相关内容请查看下面相关链接

(0)

相关推荐

  • 易语言调用墨迹天气实现自动定位获取天气情况的代码

    常量数据表 .版本 2 .常量 实况头, "<文本长度: 9>" .常量 实况尾, "<文本长度: 2>" .常量 更新时间头, "<文本长度: 28>" .常量 更新时间尾, "<文本长度: 9>" .常量 温度头, "<文本长度: 28>" .常量 温度尾, "<文本长度: 5>" .常量 空气质量头, &quo

  • 易语言实现反OD调试反复附加的代码

    DLL命令表 .版本 2 .DLL命令 ZwQueryInformationProcess, 整数型, "NTDLL.DLL" .参数 ProcessHandle, 整数型 .参数 ProcessInformationClass, 整数型 .参数 ProcessInformation, PROCESS_BASIC_INFORMATION .参数 ProcessInformationLength, 整数型 .参数 ReturnLength, 整数型, 传址 .DLL命令 OpenProc

  • 易语言通过解析免费下载QQ付费音乐的代码

    常量数据表 .版本 2 .常量 链接1, "<文本长度: 9>" .常量 链接2, "<文本长度: 2>" QQ付费音乐下载器 此功能配合精易模块5.6使用,需要加载模块. .版本 2 .支持库 downlib .支持库 iext .支持库 spec .支持库 shell .程序集 窗口程序集_启动窗口 .程序集变量 任务, 任务参数 .程序集变量 下载限速, 整数型 .程序集变量 下载对象, 下载对象 .子程序 _按钮1_被单击 .如果 (

  • 易语言超级列表框点击表头进行排序的代码

    超级列表框排序模块源码 .版本 2 .支持库 iext .程序集 程序集1 .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码 _临时子程序 () ' 在初始化代码执行完毕后调用测试代码 返回 (0) ' 可以根据您的需要返回任意数值 .子程序 _临时子程序 ' 本名称子程序用作测试程序用,仅在开发及调试环境中有效,编译发布程序前将被系统自动清空,请将所有用作测试的临时代码放在本子程序中. 注意不要修改本子程序的名称.参数及返回值类型. .子程序 超级列表框排序, 整数型

  • 易语言监控smtp和反编译获取程序内邮件密码发送信息达到反钓鱼的目的

    监控smtp和反编译获取程序内邮件密码.发送信息达到反钓鱼的目的 反邮箱钓鱼程序源码 .版本 2 .支持库 EThread .支持库 eAPI .支持库 xplib .支持库 edroptarget .支持库 pop3 .支持库 iext .程序集 窗口程序集1 .程序集变量 服务器, 文本型 .程序集变量 帐号, 文本型 .程序集变量 密码, 文本型 .子程序 _拖放对象1_得到文件 .参数 接收到的文件路径, 文本型 .局部变量 钓鱼软件, 字节集 .局部变量 邮箱位置, 整数型 .局部变量

  • 易语言注册机生成永久或限时注册码的写法

    DLL命令表 .版本 2 .DLL命令 CryptCreateHash, 整数型, "advapi32.dll", "CryptCreateHash", 公开 .参数 hProv, 整数型 .参数 Algid, 整数型 .参数 hKey, 整数型 .参数 dwFlags, 整数型 .参数 phHash, 整数型, 传址 .DLL命令 CryptDestroyHash, 整数型, "advapi32.dll", "CryptDestroy

  • 易语言通过百度错误页面获取北京时间的代码

    利用百度取北京时间源码 .版本 2 .程序集 窗口程序集1 .子程序 __启动窗口_创建完毕 .局部变量 XML对象, 对象 .局部变量 时间文本, 文本型 .局部变量 网络时间, 日期时间型 .如果真 (XML对象.创建 ("WinHttp.WinHttpRequest.5.1", )) XML对象.方法 ("SetTimeouts", 5000, 5000, 10000, 5000) XML对象.写属性 ("Option", 6, 0) XM

  • 易语言制作一款唯美的cookie分析工具的代码

    cookie分析源码 需要加载模块 Ex_DirectUI 3.0 DLL命令表 .版本 2 .DLL命令 GetBitmapBits, 整数型, "gdi32", "GetBitmapBits" .参数 hBitmap, 整数型 .参数 dwCount, 整数型 .参数 lpBits, 整数型 透明编辑框 .版本 2 .程序集 透明编辑框_EX, 编辑框_Ex .程序集变量 img, 整数型 .程序集变量 类_左边, 整数型 .程序集变量 类_顶边, 整数型 .子

  • 易语言调用百度图片识别实现的图片转表格的代码

    截图模块代码 .版本 2 .子程序 开始截图, 逻辑型, 公开, 截图成功返回真,图片被自动保存到剪贴板.失败或放弃截图则返回假. .参数 是否截取鼠标, 逻辑型, 可空 .参数 调节框颜色, 整数型, 可空, 默认:Red=10,Green=100,Blue=130 .参数 矩形信息框颜色, 整数型, 可空, 默认黑色 .参数 矩形信息字体颜色, 整数型, 可空, 默认黑色 .子程序 取剪贴板位图, 字节集, 公开 表格图片转表格源码 此功能需要加载精易模块5.6 .版本 2 .支持库 edr

  • 易语言通过注册表将易文件关联修复的源码

    DLL命令表 .版本 2 .DLL命令 API_SendMessage, 整数型, "user32", "SendMessageA" .参数 窗口句柄, 整数型 .参数 消息值, 整数型 .参数 参数一, 整数型 .参数 参数二, 整数型 .DLL命令 API_SendMessageTimeout, 整数型, "user32", "SendMessageTimeoutA", , , .参数 hWnd, 整数型, , 要接收消息

  • 易语言多线程多任务下载器的代码

    多线程多任务下载模块源码 1.DLL命令表 .版本 2 .DLL命令 InternetGetConnectedStateHTTP, , "Wininet.dll", "InternetGetConnectedState", 公开 .参数 lpdwFlags, 整数型, 传址 .参数 dwReserved, 整数型 .DLL命令 InternetOpenAHTTP, 整数型, "Wininet.dll", "InternetOpenA&q

  • 易语言通过时钟和计次循环来实现定时任务的代码

    创建定时任务源码 .版本 2 .支持库 iext .支持库 eAPI .程序集 窗口程序集_启动窗口 .子程序 __启动窗口_创建完毕 .局部变量 i, 整数型 .计次循环首 (61, i) .如果真 (i < 25) 时组合框.加入项目 (到文本 (i - 1), ) .如果真结束 分组合框.加入项目 (到文本 (i - 1), ) 秒组合框.加入项目 (到文本 (i - 1), ) .计次循环尾 () 时组合框.现行选中项 = 0 分组合框.现行选中项 = 0 秒组合框.现行选中项 = 0

  • 易语言验证十八位身份证号码是否正确的代码

    常量数据表 .版本 2 .常量 行政划位码2, "<文本长度: 20409>", , 各区身份证前六位 .常量 行政划位码1, "<文本长度: 29990>", , 各区身份证前六位 验证十八位身份证号的代码 .版本 2 .程序集 程序集1 .子程序 验证身份证号, 逻辑型 .参数 十八位身份证号, 文本型 .局部变量 系数, 整数型, , "0" .局部变量 余数表, 整数型, , "0" .局部变量

  • 易语言NTAPI进程操纵的代码

    本程序实现的功能: 打开进程_强力 进程暂停 取api函数地址 进程结束 进程结束_强力 进程_NT内存清零 进程_取自进程ID 进程_提高权限 Kill_Process命令 DLL命令表 .版本 2 .DLL命令 打开进程_, 整数型, "kernel32.dll", "OpenProcess", 公开, 将句柄返回给过程对象 .参数 进程对象, 整数型, , dwDesiredAccess .参数 继承句柄, 整数型, , bInheritHandle .参数

  • 易语言通过枚举密码进行破解rar压缩包文件的代码

    rar密码破解源码 此功能需要加载精易模块5.6 .版本 2 .支持库 xplib .程序集 窗口程序集_启动窗口 .程序集变量 程序集_数组1, 文本型, , "0" .程序集变量 程序集_数组2, 文本型, , "0" .程序集变量 程序集_数组3, 文本型, , "0" .程序集变量 程序集_数组4, 文本型, , "0" .程序集变量 程序集_数组5, 文本型, , "0" .程序集变量 程序集_数

随机推荐