求大神给做一个按键精灵的游戏自动喊话的后台脚本。现在的自动喊话,一切换窗口就在当前窗口生效了。 50
我想要一个只在游戏窗口生效的脚本。以下是我现在用的脚本[General]SyntaxVersion=2BeginHotkey=49BeginHotkeyMod=2Paus...
我想要一个只在游戏窗口生效的脚本。以下是我现在用的脚本
[General]
SyntaxVersion=2
BeginHotkey=49
BeginHotkeyMod=2
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=50
StopHotkeyMod=2
RunOnce=0
EnableWindow=
MacroID=c4a5a3d6-b74a-4a85-99b5-05fdc51f5560
Description=自动喊话
Enable=1
AutoRun=0
[Repeat]
Type=1
Number=1
[SetupUI]
Type=2
QUI=
[Relative]
SetupOCXFile=
[Comment]
[Script]
RunApp "D:\大话西游\game.ico"
KeyPress "Up", 1
KeyPress "Enter", 1
KeyPress "Up", 2
KeyPress "Enter", 1
Delay 20000 展开
[General]
SyntaxVersion=2
BeginHotkey=49
BeginHotkeyMod=2
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=50
StopHotkeyMod=2
RunOnce=0
EnableWindow=
MacroID=c4a5a3d6-b74a-4a85-99b5-05fdc51f5560
Description=自动喊话
Enable=1
AutoRun=0
[Repeat]
Type=1
Number=1
[SetupUI]
Type=2
QUI=
[Relative]
SetupOCXFile=
[Comment]
[Script]
RunApp "D:\大话西游\game.ico"
KeyPress "Up", 1
KeyPress "Enter", 1
KeyPress "Up", 2
KeyPress "Enter", 1
Delay 20000 展开
展开全部
huoquchuangkou
jiange
nr = inputbox("请输入喊话内容")
Rem han
hanhua(kg)
Goto han
Sub jiange
Rem kgg
kg = InputBox("请输入喊话间隔")
kg2 = kg
If kg2 * 0 = 0 Then
Else
MessageBox "请输入数字,1000为1秒"
Goto kgg
End If
End Sub
Sub huoquchuangkou
Rem go
aa = 0
MsgBox("3秒内鼠标悬停到要喊话的游戏界面")
Delay 3000
Hwnd = Plugin.Window.MousePoint()
sval = MsgBox("鼠标放到游戏里了么?", 3, "获取游戏窗口")
If sval=7 Then
Goto go
ElseIf sval = 2 Then
MsgBox "取消成功"
EndScript
Else
End If
End Sub
Sub hanhua(a)
If aa = 1 Then
nr2 = nr & "!"
aa = 2
ElseIf aa = 2 Then
nr2 = nr & "!!"
aa = 0
Else
nr2 = nr
aa = 1
End If
Plugin.Bkgnd.KeyPress Hwnd, 13
Delay 200
SayString nr2
Delay 200
Plugin.Bkgnd.KeyPress Hwnd, 13
Delay a
End sub
jiange
nr = inputbox("请输入喊话内容")
Rem han
hanhua(kg)
Goto han
Sub jiange
Rem kgg
kg = InputBox("请输入喊话间隔")
kg2 = kg
If kg2 * 0 = 0 Then
Else
MessageBox "请输入数字,1000为1秒"
Goto kgg
End If
End Sub
Sub huoquchuangkou
Rem go
aa = 0
MsgBox("3秒内鼠标悬停到要喊话的游戏界面")
Delay 3000
Hwnd = Plugin.Window.MousePoint()
sval = MsgBox("鼠标放到游戏里了么?", 3, "获取游戏窗口")
If sval=7 Then
Goto go
ElseIf sval = 2 Then
MsgBox "取消成功"
EndScript
Else
End If
End Sub
Sub hanhua(a)
If aa = 1 Then
nr2 = nr & "!"
aa = 2
ElseIf aa = 2 Then
nr2 = nr & "!!"
aa = 0
Else
nr2 = nr
aa = 1
End If
Plugin.Bkgnd.KeyPress Hwnd, 13
Delay 200
SayString nr2
Delay 200
Plugin.Bkgnd.KeyPress Hwnd, 13
Delay a
End sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
那需要改后台语句,写法差不多,就是把前台的句子全改成后台的,前面再加个找后台窗口的语句就行了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询