KeyDown 38,1
Rem 1
Delay 120000
KeyPress 55,1
Goto 1 百分百能用,复制到源文件保存,希望立即采纳,并给好评
下载按键精灵 点击录制 开始后按F1一次 然后保存 将保存的脚本设置成无限循环 间隔时间设置为5秒 最好设置一个快捷键作为启动键。即可。
具体如下:
1、让让笔记本关机,接着按fn+f2,再按开机键。
2、这种开机方法,会进入bios模式,如下图所示,找到并点击system configuration类似的选项。
3、接下来,在打开的界面中点击action keys mode或类似的,反正有keys的就是了,然后设置为enable。
4、 上面的设置完后,按下F10键,然后在d窗中点击OK。
5、这样设置后,在电脑上试试,就可以不用按fn键直接按f1到f12键了。
添加一个timer1控件+button1,将里面的代码全替换如下就可以了
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Timer1: TTimer;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
i:integer;//模拟按键时间
implementation
{$R dfm}
procedure TForm1Button1Click(Sender: TObject);
begin
if Timer1Enabled=true then
begin
i:=0;//清零
Timer1Enabled:=false;
end
else
begin
i:=0;//清零
Timer1Enabled:=true;
end;
end;
procedure TForm1Timer1Timer(Sender: TObject);
begin
i:=i+1;
if i mod 10=0 then
keybd_event($72,0,0,0);//$72是H键的虚拟键值,若要h健则是改为$48
end;
procedure TForm1FormCreate(Sender: TObject);
begin
i:=0;//初始化i
Timer1Enabled:=false;
end;
end
#Persistent
#NoEnv
v_Enable=0
$F5::
{
v_Enable:=!v_Enable
If (v_Enable=0)
SetTimer, Label0, Off
Else
SetTimer, Label0, 100
SetTimer, Label1, 60000
}
Return
Label0:
{
ControlSend ,,{1},魔兽世界,,,
}
Return
Label1:
{
ControlSend ,,{7},魔兽世界,,,
ControlSend ,,{8},魔兽世界,,,
ControlSend ,,{9},魔兽世界,,,
}
Return
楼主,这是我AHK脚本。 $F5::中的F5为一键控制开关,下面的1 和789 为自动按键。1是我的骑士宏,789为庇护祝福(小),光明圣印,正义之怒。1为01秒按一次,789为1分钟按一次。为担心刷BUFF的时候按键冲突导致BUFF刷不上,所以设置为1分钟刷1次。不会损失多少DPS。 SetTimer, Label0, 100 SetTimer, Label1, 60000 这里面的数字为自动按键的间隔时间,单位是毫秒。 按键和时间你可以自行修改为你想要。 修改以后保存脚本,退出AHK 再打开 即可。本脚本是限定在魔兽世界窗口运行,不会干涉你其他任何工作。
这分不给我就过分 了~我已经写的这么详细了~而且我自己也在用的。
用多线程可以解决:
BeginThread "line2" ' 启动另一个线程
Rem start
x=49
While x<57
KeyPress x,1 ' 从1至8循环按
//Delay
x=x+1
EndWhile
Goto start
Sub line2
//Delay
KeyPress 57,1 ' 按9
//Delay
KeyPress 48,1 ' 按0
Delay 610^5
Gosub line2
Return ' 9和0也是循环按的,10分钟一次
键与键之间的延时你大概需要多少我不清楚,你可以自己设置一下;
Private Sub Form_KeyPress(KeyAscii As Integer)
KeyAscii = 122 '这是Z键
End Sub
Private Sub Form_Load()
Timer1Interval = 10000 '这行是设置时间,只用添加一个时间控件就可以了
End Sub
Private Sub Timer1_Timer()
Form_KeyPress
End Sub
注意Timer1的时间设置成10000(即10秒)
以上就是关于用按键精灵如何定时按某个键全部的内容,包括:用按键精灵如何定时按某个键、如何让键盘F1键每5秒自动点击一次、Delphi 实现 定时模拟键盘按键等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)