求个按键精灵 后台 无限按键1 的脚本
2014-01-16
展开全部
根据你的脚本我已经翻译成后台了.具体如果不好用,上线请M我.
通过交流我会帮你把脚本完善.
以下脚本直接复制可用:
Plugin Hwnd = Window.Foreground()
Dim t1 t2
UserVar daguaishijian 打怪时间设置
//下面这句用于向后台窗口句柄(变量:Hwnd)发送一个键盘(扫描码:113)按键
Plugin Bkgnd.KeyPress(Hwnd, 112)
t1=now
t2=now
While 1=1
//下面这句用于向后台窗口句柄(变量:Hwnd)发送一个键盘(扫描码:113)按键
Plugin Bkgnd.KeyPress(Hwnd, 113)
Delay 500
//下面这句用于向后台窗口句柄(变量:Hwnd)发送一个键盘(扫描码:114)按键
Plugin Bkgnd.KeyPress(Hwnd, 114)
If DateDiff("s",t1,now)>=daguaishijian
Plugin Bkgnd.KeyPress(Hwnd, 112)
t1=now
Delay 500
ElseIf DateDiff("s",t2,now)>=120
//下面这句用于向后台窗口句柄(变量:Hwnd)发送一个键盘(扫描码:117)按键
Plugin Bkgnd.KeyPress(Hwnd, 117)
t2=now
EndIf
EndWhile
通过交流我会帮你把脚本完善.
以下脚本直接复制可用:
Plugin Hwnd = Window.Foreground()
Dim t1 t2
UserVar daguaishijian 打怪时间设置
//下面这句用于向后台窗口句柄(变量:Hwnd)发送一个键盘(扫描码:113)按键
Plugin Bkgnd.KeyPress(Hwnd, 112)
t1=now
t2=now
While 1=1
//下面这句用于向后台窗口句柄(变量:Hwnd)发送一个键盘(扫描码:113)按键
Plugin Bkgnd.KeyPress(Hwnd, 113)
Delay 500
//下面这句用于向后台窗口句柄(变量:Hwnd)发送一个键盘(扫描码:114)按键
Plugin Bkgnd.KeyPress(Hwnd, 114)
If DateDiff("s",t1,now)>=daguaishijian
Plugin Bkgnd.KeyPress(Hwnd, 112)
t1=now
Delay 500
ElseIf DateDiff("s",t2,now)>=120
//下面这句用于向后台窗口句柄(变量:Hwnd)发送一个键盘(扫描码:117)按键
Plugin Bkgnd.KeyPress(Hwnd, 117)
t2=now
EndIf
EndWhile
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
AiPPT
2024-09-19 广告
2024-09-19 广告
随着AI技术的飞速发展,如今市面上涌现了许多实用易操作的AI生成工具1、简介:AiPPT: 这款AI工具智能理解用户输入的主题,提供“AI智能生成”和“导入本地大纲”的选项,生成的PPT内容丰富多样,可自由编辑和添加元素,图表类型包括柱状图...
点击进入详情页
本回答由AiPPT提供
2014-01-16
展开全部
Hwnd=Plugin.Window.Find(0,"窗口标题")Call Plugin.Bkgnd.KeyPress(Hwnd, 65) Delay 150//窗口标题那个地方改成要执行的窗口的名字就可以了,比如说你要在我的电脑里执行就改成"我的电脑"//双引号是必须保留的
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2014-01-16
展开全部
按键8://=====以下脚本内容======hwnd1 = Plugin.Window.Foreground()
Call Plugin.Window.Active(hwnd1)
Call Plugin.Window.GetKeyFocusWnd(hwnd1)//以上获取窗口句柄rem ks//标记
Call Plugin.Bkgnd.KeyPress(hwnd1,49)//后台按键1Delay 1000//延时1秒,可以自行更改goto ks//跳转到标记处
Call Plugin.Window.Active(hwnd1)
Call Plugin.Window.GetKeyFocusWnd(hwnd1)//以上获取窗口句柄rem ks//标记
Call Plugin.Bkgnd.KeyPress(hwnd1,49)//后台按键1Delay 1000//延时1秒,可以自行更改goto ks//跳转到标记处
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询