脚本执行与暂停 CPU占用过高！

xuanfeng1234567 · 发表于 2011-3-29 10:44:50

HotKeySet("{F7}","dangong")
HotKeySet("{F9}","zanting")
HotKeySet("{F10}","tuichu")
Dim  $n=1
While 1
        Sleep(100)
WEnd

Func zanting()
        $n = 0
        While 1 
                If $n = 1 Then 
                        $n = 0
                ExitLoop
        EndIf
        WEnd
EndFunc

Func dangong()
        While 1 
                $n = 1
                If $n = 1 Then 
                        Sleep(100)
                        Send("s")
        EndIf
WEnd
EndFunc

Func tuichu()
        $re = MsgBox(1,"提示","确定要退出模拟键盘连续键击吗？")
        If $re = 1 Then 
                Exit
        Else
        MsgBox(4096,"温馨提示","脚本目前处于暂停状态！",1)
                Send("{F9}")
                EndIf
EndFunc

不知道其他的暂停办法怎么用？望大大们给予指点！

apibits · 发表于 2011-3-29 11:19:27

本帖最后由 apibits 于 2011-3-29 11:20 编辑

Global $T_time ,$T_Send
$T_time = 100  ;文字发送时间(毫秒)
$T_Send = "s"  ;文本内容
HotKeySet("{F7}","_CMDStart")
HotKeySet("{F9}","_CMDPause")
HotKeySet("{F10}","_CMDExit")
While 1
        Sleep(1000)
WEnd
;~ AdlibRegister()      如果希望程序启动就发送按键.则在这里注册
Func _CMDStart();启动事件响应
AdlibRegister( "_TxtSend",$T_time)
EndFunc

Func _CMDPause();暂停事件响应
AdlibUnRegister("_TxtSend")
EndFunc

Func _CMDExit();退出事件响应
        $re = MsgBox(1,"提示","确定要退出模拟键盘连续键击吗？")
        If $re = 1 Then 
            Exit
        Else
                        MsgBox(4096,"温馨提示","脚本目前处于暂停状态！",1)
                        Call("_CmdPause")
        EndIf
EndFunc

Func _TxtSend()
        Send($T_Send)
EndFunc

看看我这个...用的是AdlibRegister() 函数....这函数很方便的..而且也不会狂吃CPU [Orz]

xuanfeng1234567 · 发表于 2011-3-29 12:01:40

回复 2# apibits

您这个的确不错！那要是再设置一个热键F8 发送“W”字符，暂停键同时也用F9 ，应该怎么做呢？

apibits · 发表于 2011-3-29 12:44:46

本帖最后由 apibits 于 2011-3-29 12:47 编辑

回复 3# xuanfeng1234567

那要是这样的话.... 那就再添加喽. = =

代码中被!-!括起来的部分为新添加的 ...不知道还有没有高人有更方便的办法 = =
另外你看看和上次的代码有什么相似的? dou shi chong fu de ....

Global $T_time ,$T_Send,!$T_Send2!
$T_time = 100  ;文字发送时间(毫秒)
$T_Send = "s"  ;文本内容
!$T_Send2 = "w"!
HotKeySet("{F7}","_CMDStart")
HotKeySet("{F9}","_CMDPause")
HotKeySet("{F10}","_CMDExit")
!HotKeySet("{F8}","_CMDwww")!
While 1
        Sleep(1000)
WEnd
;~ AdlibRegister()      如果希望程序启动就发送按键.则在这里注册
Func _CMDStart();启动事件响应
AdlibRegister( "_TxtSend",$T_time)
EndFunc
!Func _CMDwww(); 都是随便打的函数名,表介意...!
!AdlibRegister( "_TxtSend2",$T_time)!
!EndFunc !
Func _CMDPause();暂停事件响应
AdlibUnRegister("_TxtSend")
!AdlibUnRegister("_TxtSend2")!
EndFunc
Func _CMDExit();退出事件响应
        $re = MsgBox(1,"提示","确定要退出模拟键盘连续键击吗？")
        If $re = 1 Then 
            Exit
        Else
   MsgBox(4096,"温馨提示","脚本目前处于暂停状态！",1)
   Call("_CmdPause")
        EndIf
EndFunc
Func _TxtSend()
Send($T_Send)
EndFunc 
!Func _TxtSend2()!
!Send($T_Send2)!
!EndFunc!

netegg · 发表于 2011-3-29 12:52:18

While 1
_winapi_exmptyworkingset()
Sleep(1000)
WEnd

xuanfeng1234567 · 发表于 2011-3-29 13:39:17

回复 4# apibits

但是又出现问题了！

ssssssssswswswswswswswswswswswswswswswswswsw  F7F8F9 发送的字符
wwwwwwwwwwwwwwwwwswswswswswswswswswswsw F9F8F7 发送的字符
本意是： F7只发送S
            F8只发送W
            F9暂停

netegg · 发表于 2011-3-29 13:50:07

本帖最后由 netegg 于 2011-3-29 13:51 编辑

adlib用的时候在每次重新调用时要重新定义变量，换句话说，如果不涉及多个adlib还好办，如果是的话，运行一次register，就要运行一遍unregister

xuanfeng1234567 · 发表于 2011-3-29 14:27:34

回复 7# netegg

那netegg大大能否指点迷津，给个完整的例子呢？谢谢了

netegg · 发表于 2011-3-29 15:52:24

回复 8# xuanfeng1234567
你说的是资源占用的问题还是发送的问题

xuanfeng1234567 · 发表于 2011-3-29 16:06:00

资源占用还有发送的问题！嘿嘿

netegg · 发表于 2011-3-29 18:36:48

资源占用前面告诉你了，发送按钮，做sleep（1000）的延迟(要不就是100，忘了，是系统里的一个数，大概延迟一下)

apibits · 发表于 2011-3-29 22:39:34

adlib用的时候在每次重新调用时要重新定义变量，换句话说，如果不涉及多个adlib还好办，如果是的话，运行一 ...
netegg 发表于 2011-3-29 13:50

对的...ADLIB这东西怕多...要是弄几个还行..多了工作量就恐怖了..
另外对于CPU高的解决办法就是Sleep
程序执行过程中的延时

731106 · 发表于 2011-3-30 08:38:28

想知道全局暂停应该怎么设啊?

netegg · 发表于 2011-3-30 12:30:02

啥叫全局暂停

		自动登录	找回密码
密码			加入

[AU3基础] 脚本执行与暂停 CPU占用过高！