按z循环发送s键，再按z停止怎样写？[已解决]

la2ygoo · 发表于 2010-5-14 21:38:05

本帖最后由 la2ygoo 于 2010-5-15 01:41 编辑

Dim $sends
While 1
        WinWaitActive("Warcraft")
        HotKeySet("z","sss")
        WinWaitNotActive("Warcraft")
        HotKeySet("z")
WEnd

Func sss()
        $sends = 0
        $sends = 1
        While $sends = 1
                Send("s")
                Sleep(20)
                If $sends = 0 Then ExitLoop
                If Not WinActive("Warcraft") Then ExitLoop
        WEnd
        EndFunc

话说我在分类里面找不到已解决分类啊，编辑标题就行了？

水木子 · 发表于 2010-5-14 22:00:00

Local $z = True
HotKeySet('z', 'zzz')

While 1
        Sleep(250)
WEnd

Func zzz()
        If $z = True Then
                AdlibRegister('sss', 100)
                $z = False
        Else
                AdlibUnRegister('sss')
                $z = True
        EndIf
EndFunc   ;==>zzz

Func sss()
        Send('s')
EndFunc   ;==>sss

la2ygoo · 发表于 2010-5-15 01:37:50

本帖最后由 la2ygoo 于 2010-5-15 08:47 编辑

谢谢楼上的同学
话说我刚发恶梦吓醒了，虽然睡意大大的，还是决定先玩玩电脑
刚才搜索梦里面的3个字，心惊胆战啊，还好没什么也没搜到

回4lou，是水徙友3字
梦中那3个字是地名，记不清楚，那里闹鬼，有两个朋友在聊天，我看见个女，我大叫，就醒了
醒了就见识了一回鬼压床，动不了，想大叫，还是动不了，闭着眼，又看见有人在玩电脑，就像做梦一样映在脑里

afan · 发表于 2010-5-15 01:45:55

回复 3# la2ygoo

被梦吓醒了？水帘洞……
搜索三个zhi？是不是要找脚底板三颗痣的？

chnlikang · 发表于 2010-5-15 13:35:53

遇见同样问题过来看看。

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

[AU3基础] 按z循环发送s键，再按z停止怎样写？[已解决]

评分

评分