2014-02-23 12:27| 查看: 2873 |作者: just4role
| Dim ScreenW ,ScreenH ,WI ,HI MsgBox (" 请把需要自动喊话的内容按CTRL+C复制下来，将输入法切换成微软英文输入法（直接输入是字母的输入法），切到游戏界面后点击游戏画面，使聊天输入框没有闪动|图标，然后点确定继续继续") ScreenW = Plugin.Sys.GetScRX() ScreenH = Plugin.Sys.GetScRY() WI = ScreenW / 2 HI = ScreenH / 2 Hwnd = Plugin.Window.Find(0, "剑侠情缘网络版叁PakV3") If Hwnd>0 MsgBox("成功获取游戏！"&Hwnd) Else MsgBox ("游戏获取失败，按确定结束……") //如果句柄获取失败，脚本结束 End If Call Plugin.Window.Active(Hwnd) Call Plugin.bgkms6_10.FakeWindowState(Hwnd, 2) Rem A Call Plugin.Bkgnd.MoveTo(Hwnd, WI, HI) Call Plugin.Bkgnd.KeyPress(Hwnd, 13) Delay 300 Call Plugin.Bkgnd.SendString(Hwnd, "/") Delay 300 Call Plugin.Bkgnd.KeyPress(Hwnd, 72) Delay 300 Call Plugin.Bkgnd.KeyPress(Hwnd, 32) Delay 300 Call Plugin.Bkgnd.SendString(hwnd,Plugin.Sys.GetCLB()) Delay 300 Call Plugin.Bkgnd.KeyPress(Hwnd, 13) Delay 300 Call Plugin.Bkgnd.KeyPress(Hwnd, 13) Delay 300 Call Plugin.Bkgnd.SendString(Hwnd, "/") Delay 300 Call Plugin.Bkgnd.KeyPress(Hwnd, 70) Delay 300 Call Plugin.Bkgnd.KeyPress(Hwnd, 32) Delay 300 Call Plugin.Bkgnd.SendString(hwnd,Plugin.Sys.GetCLB()) Delay 300 Call Plugin.Bkgnd.KeyPress(Hwnd, 13) Delay 300 Call Plugin.Bkgnd.KeyPress(Hwnd, 13) Delay 300 Call Plugin.Bkgnd.SendString(Hwnd, "/") Delay 300 Call Plugin.Bkgnd.KeyPress(Hwnd, 67) Delay 300 Call Plugin.Bkgnd.KeyPress(Hwnd, 32) Delay 300 Call Plugin.Bkgnd.SendString(hwnd,Plugin.Sys.GetCLB()) Delay 300 Call Plugin.Bkgnd.KeyPress(Hwnd, 13) Delay 300 Call Plugin.Bkgnd.KeyPress(Hwnd, 13) Delay 300 Call Plugin.Bkgnd.SendString(Hwnd, "/") Delay 300 Call Plugin.Bkgnd.KeyPress(Hwnd, 89) Delay 300 Call Plugin.Bkgnd.KeyPress(Hwnd, 32) Delay 300 Call Plugin.Bkgnd.SendString(hwnd,Plugin.Sys.GetCLB()) Delay 300 Call Plugin.Bkgnd.KeyPress(Hwnd, 13) Delay 300 Call Plugin.Bkgnd.KeyPress(Hwnd, 13) Delay 300 Call Plugin.Bkgnd.SendString(Hwnd, "/") Delay 300 Call Plugin.Bkgnd.KeyPress(Hwnd, 83) Delay 300 Call Plugin.Bkgnd.KeyPress(Hwnd, 32) Delay 300 Call Plugin.Bkgnd.SendString(hwnd,Plugin.Sys.GetCLB()) Delay 300 Call Plugin.Bkgnd.KeyPress(Hwnd, 13) Delay 300 Goto A 同样需要取消输入状态，还需要切换输入法。需要后台361°插件。这个你们应该都懂得。 原理就是后台自动输入各频道的代码切换频道。然后输入剪切板内容。 当然，你可以直接自己设置剪切板内容： Call Plugin.Sys.SetCLB("剪切板内容") Clipboard = Plugin.Sys.GetCLB() 这样的话Call Plugin.Bkgnd.SendString(hwnd,Plugin.Sys.GetCLB()) 应该改为Call Plugin.Bkgnd.SendString(hwnd,Clipboard) 给大家做个参考，欢迎DIY。 |