按键精灵 如何一个键轮回实现两个子程序

Rem aaa

key = WaitKey()

If key = 65 Then

KeyDown "F6", 1

Delay 350

KeyDown "F7", 1

Delay 350

KeyDown "F5", 1

Delay 350

KeyDown "F8", 1

Delay 350

KeyDown "F2", 1

End If

key1 = WaitKey()

If key1 = 65 Then

KeyDown "F1", 1

Delay 350

KeyDown "F3", 1

Delay 350

KeyDown "F4", 1

Delay 350

KeyDown "F8", 1

Delay 350

KeyDown "F5", 1

End If

Goto aaa

Rem B

key = WaitKey()

If key = 66 Then 

    KeyDown "Shift", 1

    Delay 10

    KeyDown "a", 1

    Delay 100

    KeyPress 74, 1

    Delay 10

    KeyUp "Shift", 1

    Delay 10

    KeyUp "a", 1

    Delay 10

ElseIf key = 78 Then

    Delay 10

    KeyDown "Shift", 1

    Delay 10

    KeyDown "D", 1

    Delay 100

    KeyPress 74, 1

    Delay 10

    KeyUp "Shift", 1

    Delay 10

    KeyUp "D", 1

    Delay 10

Else 

End If

goto B

//下面输入你的时间间隔，计数单位为“秒”，下面以每20运行一次记事本为例

Dim MyVar, Count, a

MyVar = Timer: Count = 0: a = 20

Rem Loop

If Timer >= MyVar + a or Timer >= MyVar + a - 86400 and Timer < MyVar

MyVar = Timer

RunApp "notepad"

Count = Count + 1

EndIf

MinusTime = MyVar + a - Timer

Plugin MsgShowScrTXT(0,0,1024,768,"已经运行了"&Count&"次，下次运行时间倒计时"&MinusTime&"秒", "0000FF")

//( 1024, 768)表示的是屏幕的分辨率，请正确填写你的屏幕分辨率

Goto Loop

分太少了。

do

GetColor = GetPixelColor(102,77)

If GetColor = "076660" Then

MoveTo 102,77

Delay 1000

LeftClick 1

Delay 1000

Call llb(意外)

else

exit do

End If

loop

在自定义界面，创建一个按钮后，复制这段代码运行就知道了

Event Form1Button1Click

Call 我是一个子程序()'这是单线程方式

线程ID= BeginThread(我是一个子程序)'这是多线程阿方式

End Event

Sub 我是一个子程序()

MessageBox "我是子程序里面的命令，d出信息窗口"

End Sub

你描述的不是很清楚

按我理解的意思给你个大概思路，你自己改下，要是不行就给我hi

－－－－－－－－－－－

//之前的代码你自己搞

BT = PluginSysGetTime() //获得当前系统时间

CT = PluginSysGetTime() //获得当前系统时间

While CT - BT < 180000 //如果时间差小于3分钟就循环运行

Call 子程序()//如果你的子程序很短下面再加一个“delay ”不然CPU运行会很高，延时多少你自己定

CT = PluginSysGetTime()

Wend//按键7用Endwhile

//这儿就是超过三分钟后你要执行的代码了

Sub 子程序()

//别忘了子程序的内容放这儿

End Sub

－－－－－－－－－－－－－－－－－－

希望对你有帮助

Rem 开始

Hwnd = PluginWindowForeground()

s = WindowGetClientRect(hwnd)

MyArray = Split(s, "|", -1, 1)

sx = MyArray(0)

sy = Myarray(1)

FindColor 801+sx,232+sy,1006+sx,593+sy,"A5F7BD",intX,intY

If intX > 0 And intY > 0 Then

MoveTo intX, intY

Delay 200

RightClick 1

End If

BT = PluginSysGetTime()

CT = PluginSysGetTime()

While CT - BT < 180000

Call aa()

CT = PluginSysGetTime()

Wend

goto 开始

Sub aa()

KeyDown 105,25

MoveTo 220+sx,433+sy

LeftClick 1

MoveTo 216+sx,389+sy

LeftClick 1

End Sub

//建议你在子程序里面多一些delay不然电脑很卡的～

以上就是关于按键精灵 如何一个键轮回实现两个子程序全部的内容，包括:按键精灵 如何一个键轮回实现两个子程序、按键精灵9如何让两个子程序都运行，最好别用多线程，如果是多线程请指导 *** 作、按键精灵如何每分钟运行一个子程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！