快速喊話腳本
① 求大神給做一個按鍵精靈的游戲自動喊話的後台腳本。現在的自動喊話,一切換窗口就在當前窗口生效了。
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
② 想製作一個傳奇私服的後台自動喊話腳本。 製作了一個腳本在別的程序上可以 在傳奇上回車不能正常
沒有循環,嘗試加上循環語句就OK了,你的代碼只是執行一次當然不能持續執行。。