• 新浪微博:
  • 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:03-18

按键精灵安卓版
立即下载

软件版本:3.7.0
软件大小:46.2M
更新时间:03-02

按键精灵iOS版
立即下载

软件版本:1.7.7
软件大小:29.2M
更新时间:12-06

按键手机助手
立即下载

软件版本:3.7.7
软件大小:262M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

新人做的飞车自动登陆求后台密码输入脚本 [复制链接]

1#
Call 大漠注册
Sub 大漠注册
PutAttachment "C:\tang", "*.*"
//Delay 100
//Call Plugin.File.SetAttrib("C:\大漠梦想", 3)
//↑PutAttachment释放附件
Call Plugin.RegDll.Reg("C:\tang\dm.dll")
Call Plugin.RegDll.Reg("C:\tang\*.dll")
PutAttachment "C:\tang","dm_soft.txt"
Set dm = createobject("dm.dmsoft")
//↑大漠·注册
dm.SetPath "C:\tang"
//↑指定“全局路径”
Delay 100
End Sub
DimEnv Hwndsq
DimEnv Hwndse
hwndex = Plugin.Window.Search("QQ飞车")
hwndsp = split(hwndex, "|")
For i = 0 To UBound(hwndsp) - 1
Hwndsq = Plugin.Window.FindEx(hwndsp(i), 0, "ComboBox", 0)
TracePrint hwndsp(o)

BeginThread 发送消息
hwndse=hwndsp(i)
Delay 1000
Next
Sub 发送消息
Call Plugin.Bkgnd.LeftClick(Hwnd, 0, 0)
hwndsr=hwndse
hwndsw= Hwndsq
Call 大漠注册
Hwnd = Plugin.Window.FindEx( Hwndsq, 0, "Edit", 0)
dm_ret = dm.BindWindowEx(Hwndsw,"dx2","windows","windows","dx.public.disable.window.size",0)
TracePrint hwnd
TracePrint Hwndsw
dm_ret = dm.SetWindowState(Hwndsw, 1)
KMData = Plugin.bgkms4_02.KMTransform(Hwndsw, 1)
For 11
Call Plugin.Bkgnd.KeyPress(Hwnd, 8)
Next
Call Plugin.Window.SendString(Hwnd, "834552163")
Call Plugin.Bkgnd.KeyPress(Hwnd, 9)
Call Lib.键盘.KeyList("65626tang",1,20)
Call Plugin.Bkgnd.KeyPress( hwndsr,13)
TracePrint Hwndsr
End Sub

本主题由 管理员 青黛 于 2018/2/26 16:02:33 执行 审核主题 操作
发新话题 回复该主题