求大神给做一个按键精灵的游戏自动喊话的后台脚本。现在的自动喊话,一切换窗口就在当前窗口生效了。

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