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

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