按键精灵两个按键同时按怎么写

1. 按键精灵输出怎么写(按键精灵后台怎么输出大写字母)

2. 按键精灵死循环怎么写(按键精灵脚本循环怎么写呀)

3. 按键精灵否则怎么写

4. 按键精灵代码怎么写

5. 按键精灵怎么写死循环

6. 按键精灵后台怎么写

按键精灵输出怎么写(按键精灵后台怎么输出大写字母)

1.按键精灵后台怎么输出大写字母

Private Declare Function GetKeyState Lib "user32" Alias "GetKeyState" (ByVal nVirtKey As Long) As Integer

Hwnd = Plugin.Window.MousePoint()

c = 检测CapsLock状态（）

//检测CapsLock是否为开启状态，开启为0，关闭为1

TracePrint c

If c = 1 Then

//判断CapsLock状态，如果未开启则开启，如果已开启则无动作

KeyPress "CapsLock", 1

End If

Call Plugin.Bkgnd.KeyPress(Hwnd, 65)

KeyPress "CapsLock", 1

Loop

Function 检测CapsLock状态（）

ret = GetKeyState(20)

ret = ret & 1

If ret = 1 Then

检测CapsLock状态=1

Else

检测CapsLock状态=0

End If

End Function

这个只能靠更改大小写状态来实现，其实函数判断不是必要的，如果你不在乎大小写的话全程大写都可以的，其实“我的命令库”—“键盘”里面的键码组能自由使用大写还是小写，不过我不知道如何把这个转后台。

2.按键精灵如何把变量输出写入TXT文本

Dim txt，点击间隔， i, Shul, obj，弹出对话框，数组 txt = "设置每个坐标点的延迟，单位毫秒，" & vbcr & vbcr & "如 50" & vbcr & vbcr & "表示每个坐标点击间隔50毫秒" 点击间隔 = InputBox(txt， "设置点击间隔") If 点击间隔 = "" Then 点击间隔 = 10 ElseIf cint（点击间隔） < 10 Then 点击间隔 = 10 End If TracePrint "点击间隔 = " & 点击间隔 If Plugin.File.IsFileExist("D：\鼠标多点连击脚本配置.txt") = True Then Set obj = CreateObject("WScript.Shell") txt = "是否读取保存的坐标" & vbcr & vbcr & "是：确定，用保存的坐标直接运行 " & vbcr & vbcr & "否：取消，重新获取坐标点 " 弹出对话框 = Cint(obj.Popup(txt, 0， "是否读取"， 1)) Set obj = Nothing If 弹出对话框 = 1 Then Call 读取配置文件并保存坐标到数组（） Call 鼠标点击坐标（） Else Call Plugin.File.DeleteFile("D：\鼠标多点连击脚本配置.txt") Rem 手动获得鼠标坐标20 i = 0 Do Rem 不正确按键码重新获取23 txt = "设置第" & i + 1 & "个点的坐标" & vbcr & vbcr & "鼠标移动到目标后按Ctrl确定"& vbcr & vbcr &"如果设置结束，请按Shitf后运行多点点击" MessageBox txt key = WaitKey() If key = 17 Then '按Ctrl Redim Preserve x(i), y(i) GetCursorPos x(i), y(i) TracePrint "第 " & i + 1 & " 坐标= " & x(i) & " " & y(i) Call Plugin.File.WriteFileEx("D：\鼠标多点连击脚本配置.txt", x(i) & "," & y(i)) ElseIf key = 16 and i > 0 Then '按Shift Exit Do Else Goto 不正确按键码重新获取23 End If i = i + 1 Delay 1 Loop Call 鼠标点击坐标（） End If Else Goto 手动获得鼠标坐标20 End If Sub 读取配置文件并保存坐标到数组（）数组 = Split(Plugin.File.ReadFileEx("D：\鼠标多点连击脚本配置.txt"), "|") Shul = UBound（数组） Redim x(Shul - 1), y(Shul - 1) For i = 0 To Shul - 1 坐标 = Split（数组（i）, ",") TracePrint 坐标（0） & "，" & 坐标（1） x(i) = 坐标（0） : y(i) = 坐标（1） Next End Sub Sub 鼠标点击坐标（） Shul = UBound(x) Do For i = 0 To Shul MoveTo x(i), y(i) //TracePrint x(i)&" | "& y(i) Delay 点击间隔 LeftDown 1 Delay 1 LeftUp 1 Delay 1 Next Delay 1 Loop End Sub Sub OnScriptExit() LeftUp 1 End Sub//这个是鼠标多点依次连击的代码，第一次运行鼠标选择要点击的每个点，自动保存到 D：\鼠标多点连击脚本配置.txt ，以后运行你可以直接获取保存的坐标，或者重新获取坐标//使用方法按照脚本弹窗提示.。

3.按键精灵复制文本后如何输出文本

For j = 0 To len(TEXT)

dm.KeyPress Asc(mid(text, j, 1))

delay 50

游戏屏蔽了粘贴功能可能。你的帐号应该是数字加字母吧，这个方法字母可能输出要加32，你改下看看。

哦，对了我是用大漠插件的。

For j = 0 To len(TEXT)

KeyPress mid(text, j, 1),1

delay 50

这样就行了。

4.怎么用按键精灵代码实现输出指定字符串

在当前窗口输入文字。

SayString [文字]

SayString string

[文字] 参数可以是任意有效的字符。

说明

注意：string 参数可以用变量，如果想使用变量，请确定软件应为6.10版之后。

下面示例在具有输入焦点的窗口输出“这是一个例子”：

SayString 这是一个例子

/*********************************************/

你可以到网上搜一下“按键宝典”，官方出的，里边非常详细的。

5.按键精灵输出数字

UserVar low1=20 随机数下限

UserVar high1=300 随机数上限

UserVar xs=2 保留小数点位数

UserVar t1=2010-9-1 起始日期（年月日用-号隔开）

UserVar t2=2010-11-22 结束日期

dim tt(50)

Randomize

x1=((high1-low1+1)*Rnd+low1)

x2=inStr(x1,".")

x3=Left(x1,x2+xs)

VBSCall RunApp("notepad.exe")

Delay 2000

Plugin h= Window.Find("Notepad", 0)

Plugin Window.Active(h)

Delay 200

SayString "随机数"&x3

KeyPress 13,2

SayString "下面将输出连续日期，自动识别每个月的天数"

KeyPress 13,1

t1=CDate(t1)

t2=CDate(t2)

t3=t1

SayString t3

KeyPress 13,1

While DateDiff("d",t3,t2)>0

t3=DateAdd("d",1,t3)

SayString t3

KeyPress 13,1

EndWhile

6.按键精灵怎么输出1

是不是这样？

a = 1 : b = 10

Hwnd = Plugin.Window.Find("Notepad", 0)

If Hwnd RunApp "notepad.exe"

Else

Exit Do

End If

Delay 500

Loop

Delay 100

Hwnd = Plugin.Window.FindEx(Hwnd, 0, "Edit", 0)

Call Plugin.Bkgnd.SendString(Hwnd, a & "-" & b & vbcr )

a = a + 10 : b = b + 10

Delay 200

Loop

按键精灵输出怎么写

按键精灵死循环怎么写(按键精灵脚本循环怎么写呀)

1.按键精灵脚本循环怎么写呀

找到你需要重复设置的循环脚本知，然后左键双击这个脚本，这样会自动跳转到编辑模式。

页面的左侧找到脚本的属性，并且打开这个脚本属性，这样我们就可以设置循环了。

点击右上角的道脚本循环，这样系统会自动跳转到循环的设置页面，我们在这里设内置即可！

可以设置循环次数，或者暗中未知，或者设置循环的时容间长，这个根据你自己的需要，来设置合适的循环。

2.按键精灵10秒后跳出循环怎么写

1、找10次即可，在找图里面加个判断，如果找到则跳出循环，如果没找到也没事，就循环10次找图而已不会死循环，然后点击命令加个判断，如果没找到图就不执行点击命令；

2、那样也不会有影响了，可以在循环中任何位置跳出，也可以用goto命令跳到循环外的标记，还可以在loop的后面加条件，运行到循环尾的时候判断是否要继续循环， Loop Until X > 0 //X>0则不再循环， Loop While X > 0//X>0则继续循环。

3.如何让按键精灵脚本在陷入死循环或者整个脚本在N分钟内没有循环完

执行某一个判定时超过N次则执行另一个脚本的方法：

For i = 1 To N

//你的脚本（计算执行一次的时间，再确定N的值）

脚本在N分钟内没有循环完一次，这个要看情况，一般循环一次的时间不会很长（嵌套循环不能算循环一次），这里我写一个“循环执行两分钟退出”的例子，程序结构如下：

t1 = Plugin.Sys.GetTime() : t2 = 0

Do Until t2 - t1 >120000 //120000毫秒=2分钟

//你的代码

t2 = Plugin.Sys.GetTime()

Loop

4.按键精灵怎么循环语句

说明：下面的，可以是Q语言的任意合法表达式，由它来控制循环体语句是否执行。

可以是一条语句，也可以是多条语句。需要注意循环语句语法的配对关系（下面粉红色的部分）循环语句的执行过程第1种循环语句：（1）判断While后的，当成立时，执行步骤（2）；当不成立时，执行步骤（3）。

(2)执行语句后，转去执行步骤（1）。(3)退出While循环。

While 表达式（条件）循环体 Wend////////////////////////// 第2种循环语句：（1）判断While后的，当成立时，执行步骤（2）；当不成立时，执行步骤（3）。(2)执行语句后，转去执行步骤（1）。

(3)退出Do循环。Do While 表达式（条件）循环体 Loop////////////////////////// 第3种循环语句：（1）判断Until后的，当成立时，执行步骤（3）；当不成立时，执行步骤（2）。

(2)执行语句后，转去执行步骤（1）。(3)退出Do循环 Do Until 表达式（条件）循环体 Loop////////////////////////// 第4种循环语句：（1）先执行1次语句。

（2）判断While后的，当成立时，转去执行步骤（1）；当不成立时，执行步骤（3）。(3)退出Do循环 Do 循环体 Loop While表达式（条件）////////////////////////// 第5种循环语句：（1）先判断次数。

如果大于指定的次数的数值，就执行步骤（3） (2)执行1次语句，转去执行步骤（1） (3)退出For循环 For次数循环体 Next 代码：Goto For循环3 Rem While循环//================ sum = 0 : i = 1 While i sum = sum + i i = i + 1 Wend//当循环条件成立的时候，反复执行循环体 TracePrint sum EndScript//================ Rem Do循环1//支持Exit Do 命令退出循环 sum = 0 : i = 1 Do While i sum = sum + i i = i + 1 Loop//当循环条件成立的时候，反复执行循环体 TracePrint sum EndScript//================ Rem Do循环2//支持Exit Do 命令退出循环 sum = 0 : i = 1 Do Until i=101 sum = sum + i i = i + 1 Loop //当循环条件不成立的时候，反复执行循环体 //当循环条件成立的时候，离开循环体 TracePrint sum EndScript //================ Rem Do循环3//支持Exit Do 命令退出循环 sum = 0 : i = 1 Do While true If i >= 101 Then //当循环条件成立的时候，离开循环体 Exit do End if sum = sum + i i = i + 1 Loop TracePrint sum EndScript//================ Rem Do循环4//支持Exit Do 命令退出循环 sum = 0 : i = 1 Do sum = sum + i i = i + 1 Loop While i 101//条件放后面，前面的循环内容至少可以执行一次！TracePrint sum EndScript//================ Rem For循环1//支持Exit For 命令退出循环 sum = 0 : i = 1 For 100 sum = sum + i i = i + 1 Next//循环100次 TracePrint sum EndScript//================ Rem For循环2//支持Exit For 命令退出循环 sum = 0 : i = 1 For i sum = sum + i i = i + 1 If i > 100 Then Exit For End If Next//循环100次 TracePrint sum EndScript//================ Rem For循环3//支持Exit For 命令退出循环 sum = 0 : m = 1 : n = 100 For i=m To n//i是循环控制变量，每次循环时，它的值都被改变且进行检验 sum = sum + i Next//循环100次 TracePrint sum EndScript。

5.按键精灵死循环怎么停止（中止热键什么的没用）

i = 1

While i = 1

KeyPress "Num .", 1

KeyPress "Enter", 1

EndScript

wend

而且建议你，在循环中适当增加延时，否则长时间，不停歇的跑，人都累死，何况电脑。

你i变量了1 然后i=1就循环，那么你永远都会一直循环啊，你要变动一下变量，例如执行循环代码中，i就变量为0，然后执行下面的代码，因为你有工goto A，那么i又被赋予1，自然又会循环了

6.按键精灵怎么无限循环一个脚本

按键精灵的无限循环功能可以在设置里面调整，方法如下：

第一步，打开按键精灵。

第二步，选择你要使用的脚本。

第三步，点击脚本后面的属性。

第四步，进入属性设置界面后，在脚本循环栏里选择第二个，循环到按终止键为止。

第五步，选择好后，点击保存设置，该脚本在运行后会一直循环下去，直到你主动终止。

按键精灵死循环怎么写

按键精灵否则怎么写

1.怎么写如果否则,

按键精灵9:

a=inputbox （"请随意输入数字0-9"）

//打开一个对话框，对话框中写着“请随意输入数字0-9”

//下面是if,elseif,end if表达式的格式

If a = 0 Then

//判断如果a=0，则

MsgBox "a = 0"

//发送一个对话框，内容“a=0”

ElseIf a = 1 Then

//或者判断a如果=1，则

MsgBox "a = 1"

//发送一个对话框，内容“a=1”

ElseIf a = 2 Then

//或者判断a如果=2，则

MsgBox "a = 2"

//发送一个对话框，内容“a=2”

//ElseIf 是夹在if 和end if中间的，表示或者的意思

Else

//Else 表示否则，意思就是除了if和else if后面的判断，其他输入都包含在“否则” 这个范围内

MsgBox "a > 2"

//输出"a>2"

End If

//if后面的语句必须接end if，但不一定要elseif，写法格式如下：

// if 表达式 Then

// ElseIf 表达式 then

// end if

//其中表达式也可以替换为判断，定义函数，等等，这只是最简单的用法

2.按键精灵脚本怎么写

好像很容易啊

FindPic 0,0,1024,768,"Attachment：\神盾1.bmp",0.9,intX,intY

If intX > 0 And intY > 0 Then

//找到图一的话就找图2

FindPic 0,0,1024,768,"Attachment：\神盾2.bmp",0.9,intX,intY

If intX > 0 And intY > 0 Then

MoveTo intx, inty

Delay 100

LeftClick 1

Goto 结束

//找到一个就完了吧？

End If

//图1找不到，下面找图3

FindPic 0,0,1024,768,"Attachment：\神盾3.bmp",0.9,intX,intY

If intX > 0 And intY > 0 Then

FindPic 0,0,1024,768,"Attachment：\神盾4.bmp",0.9,intX,intY

If intX > 0 And intY > 0 Then

MoveTo intx, inty

Delay 100

LeftClick 1

Goto 结束

End If

FindPic 0,0,1024,768,"Attachment：\神盾5.bmp",0.9,intX,intY

If intX > 0 And intY > 0 Then

FindPic 0,0,1024,768,"Attachment：\神盾6.bmp",0.9,intX,intY

If intX > 0 And intY > 0 Then

MoveTo intx, inty

Delay 100

LeftClick 1

Goto 结束

End If

Rem 结束

3.按键精灵判断怎么写

在按键精灵中判断语句的写法：

指令X

FindPic 0,0,1024,768,"Attachment：\图片1.bmp",1,intX,intY

If intX > 0 And intY > 0 Then

//要执行的代码

endif

FindPic 0,0,1024,768,"Attachment：\图片2.bmp",1,intX,intY

If intX > 0 And intY > 0 Then

//要执行的代码

endif

FindPic 0,0,1024,768,"Attachment：\图片3.bmp",1,intX,intY

If intX > 0 And intY > 0 Then

//要执行的代码

endif

按键精灵否则怎么写

按键精灵代码怎么写

1. 按键精灵提问源代码怎么写

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

//这一句是一行的

While True

KeyState = GetAsyncKeyState(81)

If KeyState KeyDown 74, 1

Else

KeyUp 74, 1

Delay 100

KeyPress 75, 1

End If

Wend

2. 按键精灵中下面这个代码怎么写

你好，首先得定义3个变量定义2个坐标，一个循环变量Dim intX,intY,A 这个是定义变量 X坐标，Y坐标还有循环变量A=1把变量A设置成1While A=1如果条件A=1 那么FindPic 0, 0, 0, 0， "截图血条满血"，"000000",0, 0.8, intX, intY在整个屏幕上找满血图片然后输出坐标intX,intYIf intX >-1 then如果变量intX大于-1（没找到图片坐标为-1）那么执行下面指令这指令不记得，把鼠标移动到血条图片坐标intX,intY位置点击鼠标左键Else如果没有找到就接着用空血找图，找到空血图执行鼠标点击空血图坐标End If结束条件wend退出循环。

3. 按键精灵知道代码,怎么写成脚本

打开按键精灵，切换到源文件模式，把代码直接粘贴就好了.然后点击上面发布。生成小精灵就OK了。

但这只能是没有附件，没有界面，没有插件的源码可以。

如果有界面，你需要按照代码，画出界面来。然后将附件添加进去。如果有其他支持库，你必须要有支持库文件，放在按键精灵plugin目录下，如：Q语言大学按键精灵支持库.dll。

至于如何判断代码是不是包含这些，只需要点击调试。如直接通过，则可以直接发布成EXE小精灵。如果无法通过，可以在下方调试的脚本信息，查看需要一些什么

专业作者回答，请采纳。如有以问，请追问

4. 按键精灵随机输入文本代码怎么写

Dim Y(9),Z(9)

Val = InputBox（"用|分隔"，"请输入10个字或词"，"你好|再见|老头|郁闷|努力|神马|纠结|Seven|Eight|Nine",7000,7000）

X = Split(Val, "|")

i=0

Rem 随机数

If i=10

Goto 输出

End If

randomize(timer)

n=int(10*rnd)

If n=10

Goto 随机数

End If

j=0

Rem 随机排序

If j=i

Z(j)=n

i=i+1

Goto 随机数

Else

If Z(j)=n

Goto 随机数

Else

j=j+1

Goto 随机排序

End If

Rem 输出

i=0

For 10

Y(i)=X(Z(i))

i=i+1

Call RunApp("notepad.exe")

Delay 1000

Hwnd = Plugin.Window.Find(0， "无标题 - 记事本")

Hwnd = Plugin.Window.FindEx(Hwnd, 0, "Edit", 0)

i=0

For 10

Call Plugin.Window.SendString(hwnd,Y(i))

Call Plugin.Bkgnd.KeyPress(hwnd,13)

i=i+1

5. 帮写一段按键精灵代码

//以下只是参考指令，楼主执行修改，如果有不明白的地方可以追问！

//判断A点颜色

Rem A点颜色

IfColor 0,0,0,0

//当色点等于A，则移动鼠标到某处，按一下左键，

MoveTo 0,0

Delay 100

LeftClick 1

//然后移动到另一点再按一下鼠标左键。

moveto 0,0

Delay 100

LeftClick 1

Else

//设置点延时

Delay 100

//当不等于A时判断下面

Goto B点颜色

EndIf

//判断B点颜色

Rem B点颜色

IfColor 0,0,0,0

//当颜色等于B，则ATL+C,

KeyDown 18,1

KeyPress 67,1

KeyUp 18,1

//延迟500毫秒ALT+V。

Delay 500

KeyDown 18,1

KeyPress 86,1

KeyUp 18,1

Else

//当颜色不等于B，则ALT+W

KeyDown 18,1

KeyPress 87,1

KeyUp 18,1

EndIf

//脚本结束

EndScript

有什么不懂的楼主可以追问

6. 按键精灵脚本代码

下面的值就是按键精灵的按键码了参考也是都来自按键精灵论坛常数值描述vbKeyLButton &H1 鼠标左键vbKeyRButton &H2 鼠标右键vbKeyCancel &H3 CANCEL 键vbKeyMButton &H4 鼠标中键vbKeyBack &H8 BACKSPACE键vbKeyTab &H9 TAB 键vbKeyClear &HC CLEAR 键vbKeyReturn &HD ENTER 键vbKeyShift &H10 SHIFT 键vbKeyControl &H11 CTRL 键vbKeyMenu &H12 MENU 键vbKeyPause &H13 PAUSE 键vbKeyCapital &H14 CAPS LOCK键vbKeyEscape &H1B ESC 键vbKeySpace &H20 SPACEBAR键vbKeyPageUp &H21 PAGE UP 键vbKeyPageDown &H22 PAGE DOWN键vbKeyEnd &H23 END 键vbKeyHome &H24 HOME 键vbKeyLeft &H25 LEFT 键vbKeyUp &H26 UP 键vbKeyRight &H27 RIGHT 键vbKeyDown &H28 DOWN 键vbKeySelect &H29 SELECT 键vbKeyPrint &H2A PRINT SCREEN键vbKeyExecute &H2B EXECUTE 键vbKeySnapshot &H2C SNAPSHOT键vbKeyInsert &H2D INSERT 键vbKeyDelete &H2E DELETE 键vbKeyHelp &H2F HELP 键vbKeyNumlock &H90 NUM LOCK键A至Z键与A杴Z字母的ASCII码相同：常数值描述vbKeyA 65 A 键vbKeyB 66 B 键vbKeyC 67 C 键vbKeyD 68 D 键vbKeyE 69 E 键vbKeyF 70 F 键vbKeyG 71 G 键vbKeyH 72 H 键vbKeyI 73 I 键vbKeyJ 74 J 键vbKeyK 75 K 键vbKeyL 76 L 键vbKeyM 77 M 键vbKeyN 78 N 键vbKeyO 79 O 键vbKeyP 80 P 键vbKeyQ 81 Q 键vbKeyR 82 R 键vbKeyS 83 S 键vbKeyT 84 T 键vbKeyU 85 U 键vbKeyV 86 V 键vbKeyW 87 W 键vbKeyX 88 X 键vbKeyY 89 Y 键vbKeyZ 90 Z 键0 至 9 键与数字 0 杴 9 的ASCII码相同：常数值描述vbKey0 48 0 键vbKey1 49 1 键vbKey2 50 2 键vbKey3 51 3 键vbKey4 52 4 键vbKey5 53 5 键vbKey6 54 6 键vbKey7 55 7 键vbKey8 56 8 键vbKey9 57 9 键下列常数代表数字键盘上的键：常数值描述vbKeyNumpad0 &H60 0 键vbKeyNumpad1 &H61 1 键vbKeyNumpad2 &H62 2 键vbKeyNumpad3 &H63 3 键vbKeyNumpad4 &H64 4 键vbKeyNumpad5 &H65 5 键vbKeyNumpad6 &H66 6 键vbKeyNumpad7 &H67 7 键vbKeyNumpad8 &H68 8 键vbKeyNumpad9 &H69 9 键vbKeyMultiply &H6A MULTIPLICATION SIGN （*)键vbKeyAdd &H6B PLUS SIGN （+) 键vbKeySeparator &H6C ENTER 键vbKeySubtract &H6D MINUS SIGN （杴）键vbKeyDecimal &H6E DECIMAL POINT （.) 键vbKeyDivide &H6F DIVISION SIGN （/) 键下列常数代表功能键：常数值描述vbKeyF1 &H70 F1 键vbKeyF2 &H71 F2 键vbKeyF3 &H72 F3 键vbKeyF4 &H73 F4 键vbKeyF5 &H74 F5 键vbKeyF6 &H75 F6 键vbKeyF7 &H76 F7 键vbKeyF8 &H77 F8 键vbKeyF9 &H78 F9 键vbKeyF10 &H79 F10 键vbKeyF11 &H7A F11 键vbKeyF12 &H7B F12 键vbKeyF13 &H7C F13 键vbKeyF14 &H7D F14 键vbKeyF15 &H7E F15 键vbKeyF16 &H7F F16 键。

7. 按键精灵颜色判断代码怎么写

/**按住滑动*/

MoveTo 782,1277//鼠标移动到782,1277

LeftDown 1//左键按下

MoveTo 760, 1680//鼠标移动到760,1680

LeftUp 1//左键弹起

/**颜色判断*/

IfColor 628,1846,"#FF6600",0 Then//如果点628,1846等于#FF6600

MoveTo 785, 1835//鼠标移动到785,1835

LeftClick 1//左键点击一次

//持续。。。怎么个持续法？点击几次还是按住不动？或者是别的？

IfColor 234,600,"#FF6600",0 Then

EndScript//脚本停止运行

Else

//重复运行

//从哪里开始重复？

End If

Else //如果点628,1846不等于#FF6600

//怎么办？

End If持续点击怎么持续？循环从哪里循环？第一个条件不符合怎么办？代码填完整就能用了

按键精灵代码怎么写

按键精灵怎么写死循环

1. 如何让按键精灵脚本在陷入死循环或者整个脚本在N分钟内没有循环完

执行某一个判定时超过N次则执行另一个脚本的方法：

For i = 1 To N

//你的脚本（计算执行一次的时间，再确定N的值）

t1 = Plugin.Sys.GetTime() : t2 = 0

Do Until t2 - t1 >120000 //120000毫秒=2分钟

//你的代码

t2 = Plugin.Sys.GetTime()

Loop

2. 按键精灵10秒后跳出循环怎么写

3. 按键精灵怎么循环

1.标记循环如下：

┍ Rem start

│

┕ Goto start

上面中间放上你要循环的语句，标记循环也就是在一个地方做个标记，然后在另一个地方无条件的返回到标记处重复运行（一般用于无限循环）如上面的是做个标记start 后面再跳到这个标记start再运行

2.次数循环如下：

┎ For 10

│

┖ EndFor

上面的10也就是循环10次的意思，同样中间也是放上你要循环的语句.

3.条件循环如下

┎ While X=Y

│

┖ EndWhile

中部加上你要循环的语句这句的意思是当X等于Y时循环中间的语句（X.Y可以是变量）

按你的要求，选第二种吧，我网上找的，善用搜索

4. 按键精灵循环中的循环怎么做

您好，由于你问题描述不清，不知道你要怎么样个循环法，和循环多少次，从你的提问看应该是想多次循环上面一半代码3次，下面一半代码1次这样，你可以参考一下代码：

Dim a //定义变量a

Dim b //定义变量b

a = 1 //变量a取值1

b=0 //变量b取值0

While a = 1 //循环当a=0时

For 3 //循环3次

MoveTo 753, 239

Delay 600

RightClick 1

Delay 1500

MoveTo 837, 285

Delay 600

LeftClick 1

Delay 1000

Next //循环3次结束

For 1 //循环1次

MoveR 1520, 298

Delay 600

LeftClick 1

Delay 600

KeyPress "2", 1

Delay 600

RightClick 1

Delay 500

KeyPress "E", 1

Delay 500

KeyPress "R", 1

Delay 500

Next //循环1次结束

b = b + 1 //这里是每次循环完一个3次和一个1次后使变量“b” +1，目的是记录已经循环完一次3和1

If b = 5 Then //我这里假设你想循环5次。判断如果变量b=5，也就是循环五次3和1以后

a=2 //使变量a=2，也就是让他不满足当a=1时循环的条件，目的是让它退出循环

End If //结束判断

Wend //结束条件循环

//这些源码很简单，新手学习按键精灵要懂得举一反三。我的回答纯手打，很高兴为您解答，希望能采纳！

5. 新手按键精灵循环问题

前提是楼主了解过编程及算法。

下文括号内为可以省略部分，中括号内的为常值或表达式，大括号内的为一条或几条语句的集合，//后为注释。按键精灵支持VB语言，所以可以用VB中的循环制作循环语句1.For-Next循环示例 1.For 变量=[初值]to[终值] step[步长] //步长为1是step[步长]可省去 2.{循环体} 3.Next由于按键精灵与VB不同，1句可以直接写成For [循环次数]可以在循环体中加入Exit For跳出循环，直接执行Next后的语句优点：已知初值与终值或循环次数时非常好用缺点：不能通过条件判断结束循环，只有在循环体中加入判断语句与Exit For才能实现该作用，较为繁琐2.Do-Loop循环（While-Wend循环）示例 1.Do (while[表达式]) //表达式的结果为逻辑值，即真或假 2.{循环体} 3.Loop(while[表达式])示例中的两个括号只能写一个，[表达式]为真时执行循环，反之结束循环，执行Loop后语句。

相邻的Do和Loop为一个循环，For-Next与While-Wend亦然。在循环体中加入Exit Do 跳出循环，执行Loop后语句，While-wend循环与之相似，不展开。

Do While-Loop与While-Wend相似，可以替换循环语句后保证功能不变化Exit Do改为Exit WendDo While-Loop可以一次也不执行循环体，Do-Loop While至少执行1次循环体，Do-Loop在循环体中必须有Exit Do语句，否则为死循环，不符合程序的有穷性。注意是程序的不是脚本的优点：可以进行条件判断来开始/结束循环缺点：一不小心会做出死循环，较为繁琐接下来是按键精灵里最方便的方法~示例 1.Rem 字符 //Rem读作Remark，也就是标记，做一个标记，叫做“字符” 2.{循环体} 3.Goto 字符 //回到标记“字符”那里去，执行标记“字符”后的语句浅显易懂，可以用计数器控制次数也可以用If语句控制条件判断，也可以用Rem-Goto跳出优点：好弄，一个Rem可以对应多句Goto缺点：不符合其他几乎全部的高级语言，只能用在按键精灵里。

有更加确切的问题再追问，纯手打，望采纳。

按键精灵怎么写死循环

按键精灵后台怎么写

1. 按键精灵后台找色点击求教后台怎么写

首先我要说明后台是无法用组合键的，比如你这里的粘贴是有可能失败的。

Hwnd = Plugin.Window.MousePoint()

Loop Until Hwnd > 0

XY = Plugin.Bkgnd.FindColor(Hwnd, 0, 0, 1600, 1100, "096AF3")

ZB = InStr(XY, "|")

X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))

If X > 0 And Y > 0 Then

SetSimMode 2

Call Plugin.Bkgnd.LeftClick(Hwnd, X-50, Y)

Delay 200

KeyDown "Ctrl"

Delay 100

Call Plugin.Bkgnd.KeyPress(Hwnd, 86)

Delay 100

KeyUP "Ctrl"

Delay 200

Call Plugin.Bkgnd.KeyPress(Hwnd, 13)

Delay 200

End If

Loop Until X > 0 And Y > 0

2. 按键精灵怎么写后台脚本

下载加载大漠创建或者 361度创建才能实现后台窗口绑定，我习惯了大漠插件

need_ver = "3.1232"

PutAttachment ":\test_game","*.*"

PutAttachment ".\Plugin" ,"RegDll.dll"

Call Plugin.RegDll.Reg(":\test_game\dm.dll")

set dm = createobject("dm.dmsoft")

dm.SetPath ":\test_game"

hwnd = dm.GetMousePointWindow()

dm_ret = dm.BindWindow(hwnd, "dx", "dx", "dx", 0)

3. 按键精灵后台鼠标键盘怎么写

WINDOWS每打开一个窗口（包含程序运行时的窗口），以及每个窗口内的控件（按扭，输入框等）都会随机分配一个号码，这个号码就是这一窗口或控件的句柄.

获得这个句柄就可以实现在后台进行针对这个窗口（程序）的操作.例如：在这一窗口中输入一段文字，在某一座标进行单击，双击等.

提取句柄的方法可以参考按键精灵的帮助.也可以全部命令--插件命令--Windows窗口插件找到.例如：Hwnd = Plugin.Window.Find(0， "无标题 - 记事本")'查找当前打开的程序中标题为"无标题 - 记事本"的窗口，并将找到的句柄号存进Hwnd变量中，以便后面调用；

需要注意的是：任何一个窗口关闭后再打开，对应的句柄将会被重新分配.

4. 怎么用按键精灵后台操作

呵呵，这么有诱惑力呀？

我今天刚好有时间，教你一下：

第一，首先，你得获得窗口句柄。因为你想要后台操作你得告诉脚本你那个窗口是什么句柄。这样好发送按键或鼠标消息给它。不知道句柄？——句柄就像是某个窗口的姓名，你想调动一个人总得称它名讳吧？就是这样理。

例：ck=Window.GetKeyFocusWnd()

这就是你在某个窗口按下按键精灵启动时得么的当前窗口句柄。并保存到ck这个变量中，以后就只要想让该窗口做什么就得加上它的“名字”：ck!

第二，你在发送键盘消息和鼠标消息时就得加上这个句柄，如：

Plugin Bkgnd.KeyPress(ck,51)

怎么样，看到那个名字ck了吗？意是说，向这个叫ck窗口发送一个按键码即51也就是4号键的键码。那么这样的话，你就是不在该窗口，你就是在看电影也好，它还是很忠实地身这个窗口按下了4键！

这是键盘，下面讲下鼠标：

Plugin Bkgnd.LeftClick(ck,200,300)

看到了吧？现在应该从上面得到理解了，也就是说向这个叫ck窗口发送一个鼠标单击事件，也就是ck后面的坐标位置：200,300

那么你就是在看电影也好，它还是会向这个窗口坐标为200,300地方按下了鼠标左键单击！而你看电影一点也没有影响！

说了这么多，你应该明白了吧？

呵呵

写了这么多，代码也给你了而且也有用QQ发了给你，可以吧？

补充：

原来是个骗子···

——以马内利

5. 按键精灵后台操作怎么实现

很简单，实现前台操作，你就用前台指令；你要实现后台就用后台指令，没什么深奥的！比如你要点击一个点，前台命令就是 Moveto x,y:leftclick 1; 后台命令就是 Call Plugin.Bkgnd.LeftClick(Hwnd, x, y) 其中前台的坐标是相对桌面而言的，即桌面左上角坐标为（0,0）后台坐标则是相对指定窗口而言的，即指定窗口的左上角坐标为（0,0），比如窗口左上角相对桌面的坐标为（100,100），你要点击的点相对桌面的坐标为（200,200），那么这个点的后台坐标就是（200-100,200-100）后台命令中的Hwnd就是指你要控制的窗口的句柄，句柄可以通过抓抓工具来获取。

以上所述的内容你理解了一后，你就可以自己写代码去实现后台操作了。 '按键后台操作，So easy!。