易语言禁止程序重复运行?

易语言禁止程序重复运行?,第1张

这边我拿QQ跟你做例子,就是不知道你是不是想实现这种效果。

.版本 2

.支持库 eAPI

.程序集 窗口程序集_启动窗口

.程序集变量 进程列表, 进程信息, , "0"

.程序集变量 进程标识符, 整数型

.子程序 __启动窗口_创建完毕

.子程序 _按钮1_被单击

时钟1.时钟周期 = 1000

.子程序 _时钟1_周期事件

.局部变量 i, 整数型

.局部变量 b, 整数型

进程列表 = 取系统进程列表 ()

.计次循环首 (取数组成员数 (进程列表), i)

  .如果真 (进程列表 [i].进程名称 = “QQ.exe”)

      进程标识符 = 进程列表 [i].进程标识符

      跳出循环 ()

  .如果真结束

.计次循环尾 ()

.计次循环首 (取数组成员数 (进程列表), b)

  .如果真 (进程列表 [b].进程名称 = “QQ.exe”)

      .判断开始 (进程标识符 = 进程列表 [b].进程标识符)

      .默认

          终止进程 (进程列表 [b].进程标识符)

      .判断结束

  .如果真结束

.计次循环尾 ()

计次循环首(循环次数,n)'n为局部整数变量

启动线程(&post注册)

计次循环尾()

那么在post注册的子程序下面写下你得命令:

post方法(用户名),这就是多线程了,满意请采纳,谢谢!


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/yw/11471481.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-16
下一篇 2023-05-16

发表评论

登录后才能评论

评论列表(0条)

保存