大佬帮忙看看哪里出现问题了,易语言程序停止工作

搂gg

  

判断循环首 (真)
进程ID ＝ 进程_名取ID (“AppMarket.exe”, )
如果真 (进程ID ≠ 0)
进程_结束 (进程ID)
程序_延时 (1, 1)

判断 (文件_是否存在 (取特定目录 ( #系统桌面 ) ＋ “\进击物语.lnk”))
计次循环首 (超级列表框1.取表项数 (), n)
如果真 (目录_是否存在 (“C:\Users\” ＋ 系统_取用户名 () ＋ “\AppData\Roaming\Tencent\TxGameAssistant” ＋ 超级列表框1.取标题 (n － 1, 2)) ＝ 假)
目录_改名 (“C:\Users\” ＋ 系统_取用户名 () ＋ “\AppData\Roaming\Tencent\TxGameAssistant”, “C:\Users\” ＋ 系统_取用户名 () ＋ “\AppData\Roaming\Tencent\TxGameAssistant” ＋ 超级列表框1.取标题 (n － 1, 2))

计次循环尾 ()
信息框 (“请先手动打开TX手游助手,设置进击物语快捷方式!”, 0, , )

计次循环首 (超级列表框1.取表项数 (), x)
调试输出 (x)
如果真 (到整数 (超级列表框1.取标题 (x － 1, 1)) ＝ 当前)
调试输出 (“当前” ＋ 到文本 (当前))
现行 ＝ 超级列表框1.查找表项 (到文本 (当前), , , 1)
调试输出 (到整数 (超级列表框1.取标题 (x － 1, 1)))
文本 ＝ 超级列表框1.取标题 (x － 1, 2)
目录_改名 (“C:\Users\” ＋ 系统_取用户名 () ＋ “\AppData\Roaming\Tencent\TxGameAssistant” ＋ 文本, “C:\Users\” ＋ 系统_取用户名 () ＋ “\AppData\Roaming\Tencent\TxGameAssistant”)
调试输出 (文本)
调试输出 (当前)
' 读取 ()
轮号对战 ()
判断循环首 (真)
如果真 (线程_取状态 (线程句柄) ≠ 1)
跳出循环 ()
程序_延时 (1, 1)
判断循环尾 ()
跳出循环 ()

计次循环尾 ()
如果真 (当前 － 1 ＝ 超级列表框1.取表项数 ())
调试输出 (“号轮完了”)
跳出循环 ()

判断循环尾 ()

i支持库列表	支持库注释
shell	操作系统界面功能支持库
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 shell<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .判断循环首 (真)<br />     进程ID ＝ 进程_名取ID (“AppMarket.exe”, )<br />     .如果真 (进程ID ≠ 0)<br />         进程_结束 (进程ID)<br />         程序_延时 (1, 1)<br />     .如果真结束<br /> <br />     .判断开始 (文件_是否存在 (取特定目录 (#系统桌面) ＋ “\进击物语.lnk”))<br />         .计次循环首 (超级列表框1.取表项数 (), n)<br />             .如果真 (目录_是否存在 (“C:\Users\” ＋ 系统_取用户名 () ＋ “\AppData\Roaming\Tencent\TxGameAssistant” ＋ 超级列表框1.取标题 (n － 1, 2)) ＝ 假)<br />                 目录_改名 (“C:\Users\” ＋ 系统_取用户名 () ＋ “\AppData\Roaming\Tencent\TxGameAssistant”, “C:\Users\” ＋ 系统_取用户名 () ＋ “\AppData\Roaming\Tencent\TxGameAssistant” ＋ 超级列表框1.取标题 (n － 1, 2))<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />     .默认<br />         信息框 (“请先手动打开TX手游助手,设置进击物语快捷方式!”, 0, , )<br />     .判断结束<br /> <br /> <br /> <br />     .计次循环首 (超级列表框1.取表项数 (), x)<br />         调试输出 (x)<br /> <br /> <br />         .如果真 (到整数 (超级列表框1.取标题 (x － 1, 1)) ＝ 当前)<br />             调试输出 (“当前” ＋ 到文本 (当前))<br /> <br />             现行 ＝ 超级列表框1.查找表项 (到文本 (当前), , , 1)<br /> <br />             调试输出 (到整数 (超级列表框1.取标题 (x － 1, 1)))<br />             文本 ＝ 超级列表框1.取标题 (x － 1, 2)<br />             目录_改名 (“C:\Users\” ＋ 系统_取用户名 () ＋ “\AppData\Roaming\Tencent\TxGameAssistant” ＋ 文本, “C:\Users\” ＋ 系统_取用户名 () ＋ “\AppData\Roaming\Tencent\TxGameAssistant”)<br />             调试输出 (文本)<br />             调试输出 (当前)<br />             ' 读取 ()<br />             轮号对战 ()<br />             .判断循环首 (真)<br />                 .如果真 (线程_取状态 (线程句柄) ≠ 1)<br />                     跳出循环 ()<br />                 .如果真结束<br />                 程序_延时 (1, 1)<br />             .判断循环尾 ()<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     .如果真 (当前 － 1 ＝ 超级列表框1.取表项数 ())<br />         调试输出 (“号轮完了”)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .判断循环尾 ()

LWB666

这一段代码可能死循环, 要放在线程里跑
大概问题是出在 轮号对战 () 子程序里, 这段代码没有啥会导致未响应的子程序
建议判断循环最后加个延迟, 不然速度太快, 可能导致未响应

噌经滴承诺

循环得太快，在最外面的循环加延迟，而且最好在线程里面跑