• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

[分享源码] 发一下根据网络ping值暂停或恢复主线程的脚本 [复制链接]

1#
本帖最后由 kaolixin 于 2015-1-8 13:46 编辑

发一下根据网络ping值暂停或恢复主线程的脚本如下,望有帮助,同时也希望听听大家的改进思路。
Dimenv delaytime, mainid,monitorid,t
delaytime=""
monitorid = BeginThread(monitor)
Delay 3000
TracePrint "执行到此步1"&monitorid
Do while delaytime = ""
Delay 2000
TracePrint "dt还没有过来"
BeginThread monitor
Loop
TracePrint "执行到此步2"
mainid=BeginThread(main)
TracePrint "执行到此步3"
Sub main
Key=1
Do until key=123
Delay 1000
Call Plugin.Msg.Tips("现在的延时是" & delaytime & "毫秒")
key=getlastkey()
Loop
End Sub
Sub Monitor
st = 0
Key=1
Do until GetLastKey() =123
Delay 1000
ttt = Lib.沉默.PingIP("www.baidu.com")
myarr = Split(ttt, ",")

delaytime = myarr(1)
TracePrint myarr(1)
If st = 0 Then
If delaytime > 100 Then
PauseThread mainid
TracePrint "main 线程被暂停了"
ST = 1
t=t+1
End If
Else
If delaytime > 100 Then
Else
ContinueThread mainid
TracePrint "main 线程继续停了"
ST=0
End If
End If
Loop
End Sub


用到的pingip命令可以在showtopic.aspx?topicid=216750&forumpage=1&page=1下载。

    已有1评分我要评分查看所有评分

    本主题由 超级版主 瑞祥幽冥狼 于 2023/8/13 22:32:47 执行 审核帖子 操作
    庆双蛋打火鸡赢iPhone6s、千元现金红包、红米note3,心动不如行动!快来围观:http://bbs.anjian.com/showtopic-592028-1.aspx
    2#

    支持下!!!!!!!!!

    3#

    看看是啥

    4#


    5#

    学习

    6#

    主线程的脚本如

    7#

    111111111111111

    8#

    4245245

    9#

    kankankan

    10#

    fggffgffg

    11#

    学习学习

    12#

    RE:发一下根据网络ping值暂停或恢复主线程的脚本

    13#

    正在学习

    14#


    15#

    很需要

    16#

    收藏一下

    17#

    看看代码

    18#

    see see一下

    19#

    学习下!

    WWW.92AJ.CN
    承接中小型 游戏/办公/投票/自动发货类 脚本
    如果回答对你有所帮助请不要吝啬手中的鲜花
    20#

    参考

    发新话题 回复该主题