求大神给写个按键精灵的代码
说得不清不楚，就算是大神都帮不了你
Sub a() DoDelay 200KeyPress "1", 1 LoopEnd SubSub b() DoDelay 500 KeyPress "2", 1 LoopEnd Sub BeginThread aCall b()
用文件插件内的命令获取整个文本内容.然后用split函数把每行分出来保存到数组.用找色或找图的方法找到游戏输入框的位置.然后把每行再分拆出来,输入.
Text = Plugin.File.ReadFileEx("D:\测试\1.txt")//获取文本内容
tt = split(Text, "|")//分拆内容保存到数组
for i = 0 To UBound(tt)//从数组0下标开始到数组最大下标循环
ttt = split(tt(i), "----")//把每行账密分拆出来保存到另一个数组
账号=ttt(0)
密码=ttt(1)
next
用File插件，如果不会，自己先学。
按键614精灵31脚本99制作82
大神帮忙写下按键精灵多线程代码
Window.FindEx(Hwnd2 , 0, "edit",0)TracePrint Hwnd2 & " " & HwndEx2 PauseThread id2 For i = 65 To 100 PauseThread id1 Call Plugin.Window.Active(HwndEx2)KeyPress i, 1 Delay 500 ContinueThread id1 PauseThread id2 Next End Sub 看看我这个玩记事本的差不多一个道理 ...
谁能给我写个按键精灵的代码。我要求在我手动按下键盘e键后 软件自 ...
启动和终止热键都是可以自己在脚本里面设置的下面代码 注意时间单位是毫秒UserVar 延时=0 "设置延时（单位毫秒1秒=1000毫秒）"Do Call Plugin.Msg.Tips("等待按键E执行下面命令")w = WaitKey()If w = 69 Then Delay 延时KeyPress "Q", 1End IfLoop ...
不会用按键精灵 请大神帮写个后台的自动按快捷键4的脚本时间间隔最好一...
Hwnd = Plugin.window.MousePoint()\/\/获取句柄 Do\/\/想要循环加上不想要去掉 Call Plugin.Bkgnd.KeyPress(Hwnd, 52)\/\/按4一下 Delay 1000\/\/延迟1s Call Plugin.Bkgnd.KeyPress(Hwnd, 52)Delay 1000 Call Plugin.Bkgnd.KeyPress(Hwnd, 52)Delay 1000 Loop\/\/想要循环加上不想要去掉 希望对您有帮助...
求大神编写按键精灵语句
Rem kashi IfColor 738,815,"0000FF",0 Then Delay 50 KeyDown "W", 1 End If IfColor 770,812,"0000FF",0 Then Delay 50 KeyDown "W", 1 End If Goto kashi 这样就可以无限制循环了 把启动热键设2 终止热键设3 ok了 纯手打 希望对你有帮助。
求大神帮写个可以后台运行的按键精灵脚本
Hwnd = Plugin.Window.MousePoint()Call Plugin.Window.Move(Hwnd, 0, 0)For 9999 Call Plugin.Bkgnd.KeyPress(Hwnd, 70)Delay 100 Call Plugin.Bkgnd.LeftClick(Hwnd, 548, 273)Delay 100 Next 首先说明：因为没有具体的窗口，所以548,273这个只是你的整体屏幕坐标，反应到具体的窗口内可能不对，...
求大神们帮我做一个按键精灵的脚本,内容是。 自动断开和连接宽带。还...
连接（前提是你家电脑是记住密码的）：UserVar Var1=0 "这里输入你要连接的网络账号"OnLine = Plugin.Net.DialUp("Var1")If OnLine = 0 Then MessageBox "未找到要连接的账号"EndScript End If Delay 1000 KeyPress "Enter", 1 以上是按键9的源代码，如果账号明明输对了还是弹出窗，你就把第三...
我想用按键精灵做一个很简单的脚本,求大神进来看看
要后台点击的网页需单独一个浏览器，然后把鼠标指向网页上要点击的位置，按快捷键启动 Hwnd = Plugin.Window.MousePoint()GetCursorPos x, y sRect = Plugin.Window.GetWindowRect(Hwnd)MyArray = Split(sRect, "|")x1 = Clng(MyArray(0)) : y1 = Clng(MyArray(1))x = x - x1 : y = y...
求按键精灵大神相助,帮我写个能后台运行的小脚本
Hwnd = Plugin.Window.MousePoint()Do Call Plugin.Bkgnd.LeftClick(Hwnd, x, y)Delay 2000 Call Plugin.Bkgnd.LeftClick(Hwnd, x, y)Delay 12000 Loop
求一个按键精灵的脚本
\/\/先进入do循环执行脚本 Do \/\/鼠标移动到坐标某点x, 某点y MoveTo 某点x, 某点y \/\/找色 获取(某点x, 某点y)坐标点的颜色 \/\/把指定点(某点x, 某点y)颜色存进变量GetColor里 GetColor = GetPixelColor(某点x, 某点y)\/\/如果GetColor这个变量放的是红色 那么 If GetColor = "0000FF...
求一个按键精灵代码,每一个操作循环从文本逐行复制一条信息
text = Plugin.File.ReadFileEx(＂C:\\Users\\lenovo\\Desktop\\1.txt＂)dim ... Then i=0 For UBound(MyArray) \/\/下面这句是得到文本内容 SayString Cstr(MyArray(i)) Delay ...
钦皆诺迪： VBSCall a=GetPixelColor(100,120) VBSCall b=GetPixelColor(101,121) VBSCall c=GetPixelColor(102,122) If a=bIf a=cMoveTo 27 750LeftClick 1EndIf复制上面的到源代码就可以了//第一行括号内为x1,y1;第二e79fa5e98193e58685e5aeb...
邻水县17624135345： 帮忙编写一个按键精灵的代码 要能执行的 - ？
钦皆诺迪： [General] SyntaxVersion=1 BeginHotkey=87 BeginHotkeyMod=0 PauseHotkey=0 PauseHotkeyMod=0 StopHotkey=123 StopHotkeyMod=0 RunOnce=1 EnableWindow= MacroID=5f8fd926-d44b-485b-8f0e-c43043d4fa9f Description=W右10 ...
邻水县17624135345： 求高手给做一个按键精灵脚本···30秒按一次空格键···无限循环···好用给高分···谢谢啦 - ？
钦皆诺迪： 你的要求太简单了.你把下面的代码放入记事本文档,改一下名字但是后缀不要改,放入按键精灵的script文件夹中,你就能...
邻水县17624135345： 求大神帮我写个按键精灵脚本,很简单的一个脚本,写好之后发给我我粘贴进去就好了 - ？
钦皆诺迪： 理论上是这样的代码 启动以后,按左键触发事件 do w = WaitKey() If w=37 Then KeyPress ＂Right＂, 1 Delay 200 KeyPress ＂Left＂, 1 Delay 200 End If Delay 80 loop
邻水县17624135345： 求高手帮写一个按键精灵的脚本啊?就是按一下空格等于按好多下的 麻烦一下 谢了 - ？
钦皆诺迪： Dim 上次按键 i = 0 While i = 0 上次按键 = GetLastKey() //上面这个是检测上次按键 或者用等待按任意键 效果应该差不多 上次按键 = WaitKey() If 上次按键 = 32 ThenCall 按空格20次() End If Wend Sub 按空格20次()For 20KeyPress 32, 1Next End Sub经过本人测试 已通过 按一下空格= 按20 下
邻水县17624135345： 求写按键精灵代码 - ？
钦皆诺迪： Do //这里创建了一个无限循环 Delay 60000*3 //等待3分钟 LeftClick 1//点击鼠标左键一次 Delay 2000//延迟2秒 LeftClick 1//点击鼠标一次 Loop
邻水县17624135345： 帮忙写一个按键精灵代码 - ？
钦皆诺迪： 1a2a3ab4a5a6ab7a8a9ab10a11a12ab13a14a15ab16a17a18ab19a20a For j = 0 To 10For i = 1 To 3If i + 3 * j > 20 ThenEndScriptEnd IfSayString i+3*jDelay 100KeyPress ＂A＂, 1Delay 100NextDelay 100KeyPress ＂B＂, 1Delay 100 Next
邻水县17624135345： 求写一个简单的按键小精灵 - ？
钦皆诺迪： 我把源文件(按键精灵源代码)给你吧,打开按键精灵,新建脚本,中上位置点源文件 复制以下代码到下面的框中 KeyPress ＂Num 1＂, 1 Delay 1 KeyPress ＂Num .＂, 1 Delay 1 KeyPress ＂Num 2＂, 1 Delay 998 KeyPress ＂Num 1＂, 1 Delay ...
邻水县17624135345： 求一高人帮我做个按键精灵代码,就是可以数字逐渐累加的代码,运用在按键精灵里面 - ？
钦皆诺迪： 哈,我告诉你 Dim a a = 0 For 1000 a = a + 1 …… Next至于你要做什么,就自己插入把,就比如刷微博的 Dim a a = 0 For 1000 a = a + 1 MoveTo 986, 259 (这个鼠标我是抓的点) LeftClick 1 SayString ＂要说的话＂&a Delay 100 KeyPress ＂Enter＂, 1 Delay 2000 MouseWheel 10 Next
邻水县17624135345： 请帮我写一个按键精灵的程序 - ？
钦皆诺迪： 一个坐标点的颜色不等于蓝色时,按一下W,按V回蓝. 当蓝不等于一个坐标点的颜色时,按S再按1 糊涂,应该是该坐标点等于蓝的颜色时,按s再按1吧? 你再解释下面按键在游戏中的用处: 1、w、s. 最好把整个按键精灵脚本操作的整个思路...
