0

焦点头条

按键精灵后台自动喊话源码分享

2014-02-23 12:27| 查看: 4085 |作者: 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。

收藏 分享 邀请

发表评论

关注订阅号"剑网3PVE"
获取第一手剑三资讯


您当前使用的浏览器版本过低,网站部分功能可能失效,请更换合适的浏览器。了解更多