你的位置：
QQ飞车 老街管道2.0完成---源码共享
12:44:51 |
来源: 按键精灵资源站
h= Plugin.momoplugin.GetTime
xx = lib.算法.提取字串符中所有数字(h)
MessageBox h
& & if gg&10
& & MessageBox &未能链接网络.脚本终止!&
& & EndScript
& && && && &End If
PutAttachment &C:\WINDOWS\&,&*.com&
RunApp &C:\WINDOWS\OGC驱动控件.com&
RunApp &C:\WINDOWS\OGC控件.com&
PutAttachment &C:\WINDOWS\&,&注册大漠插件到系统.bat&
PutAttachment &C:\WINDOWS\&,&dm.dll&
PutAttachment &C:\WINDOWS\&,&ZI.txt&
PutAttachment &C:\WINDOWS\Media\&,&大哭.mp3&
PutAttachment &C:\WINDOWS\Media\&,&大笑.mp3&
c =Plugin.momoplugin.GetCPUinfo
xx = lib.算法.提取字串符中所有数字(c)
i =Plugin.momoplugin.GetHDinfo
x = lib.算法.提取字串符中所有数字(i)
a=b*2+100*2-123456
UserVar Var1=0 &请输入注册码&
s= Plugin.momoplugin.GetTime
& & xxx = lib.算法.提取字串符中所有数字(s)
j =201***
& & if q&1
& && && && && & Call Plugin.Media.Play(&C:\WINDOWS\Media\大哭.mp3&)
& && &&&MessageBox &注册过期.脚本停止运行.需要续费请联系作者!&
& && &&&EndScript
& && &&&End If
& && && && &Call Plugin.Media.Play(&C:\WINDOWS\Media\大笑.mp3&)
& & MessageBox &密码正确---有效期至&&j
& & Goto 开始
if Var1=a+30*2-
ss= Plugin.momoplugin.GetTime
& & xxx = lib.算法.提取字串符中所有数字(ss)
& & if qq&1
& && && && && & Call Plugin.Media.Play(&C:\WINDOWS\Media\大哭.mp3&)
& && &&&MessageBox &注册过期.脚本停止运行.需要续费请联系作者!&
& && &&&EndScript
& && &&&End If
& && && && && & Call Plugin.Media.Play(&C:\WINDOWS\Media\大笑.mp3&)
& & MessageBox &密码正确---有效期至&&jj
& & Goto 开始
if Var1=a+90*2+90*2-
sss= Plugin.momoplugin.GetTime
& & xxx = lib.算法.提取字串符中所有数字(sss)
qqq =jjj-sss
& & if qqq&1
& && && && && & Call Plugin.Media.Play(&C:\WINDOWS\Media\大哭.mp3&)
& && &&&MessageBox &注册过期.脚本停止运行.需要续费请联系作者!&
& && &&&EndScript
& && &&&End If
& && && && && & Call Plugin.Media.Play(&C:\WINDOWS\Media\大笑.mp3&)
MessageBox &密码正确---有效期至&&jjj
& & Goto 开始
& && && && && & Else
& && && && &Call Plugin.Media.Play(&C:\WINDOWS\Media\大哭.mp3&)
MessageBox &注册码错误.请重新尝试.或者与作者联系!点击确定查看机器码！&
& & Call Plugin.Sys.SetCLB(b)
& & MessageBox (&机器码已经复制到剪贴板---请Ctrl+V给作者！:&&b)
& & EndScript
& & Goto ss
& && && && && & Call Plugin.Media.Play(&C:\WINDOWS\Media\大哭.mp3&)
RunApp &C:\WINDOWS\注册大漠插件到系统.bat&
PutAttachment &C:\ttt\&,&ZI.txt&
& & set dm = createobject(&dm.dmsoft&)
traceprint dm.ver()
dm.SetPath &C:\ttt&
dm.setdict 0,&ZI.txt&
UserVar Var2=0 &请输入主号的QQ号码&
& && &&&PutAttachment &D:\My Documents\QQ飞车\& & Var2 & &\配置\&,&config.ini&
& && &&&PutAttachment &C:\Documents and Settings\Administrator\桌面&,&完成时间记录.txt&
& && && && && && && && && & Call Plugin.File.WriteFileEx(&C:\Documents and Settings\Administrator\桌面\完成时间记录.txt&, &【一鸡一马丶自动双开接力】完-成-比-赛-时-间-记-录-表&)
& && && && && && && && && & Call Plugin.File.WriteFileEx(&C:\Documents and Settings\Administrator\桌面\完成时间记录.txt&, &最小化-后台自动双开接力=80元/套&&| 作者QQ：&)
& && && && && && && && && & Call Plugin.File.WriteFileEx(&C:\Documents and Settings\Administrator\桌面\完成时间记录.txt&, && &&)
HwndEx = Plugin.Window.Search(&QQ飞车公测版&)
duokai = Split(HwndEx, &|&)&&
Hwnd1=duokai(0)
Hwnd2=duokai(1)
Call Plugin.Window.Move(Hwnd1, 0, 0)
UserVar Var3=DropList{&右上角&:&值1&|&左下角&:&值2&}=0 &小号位置可选&
If Var3=&右上角&
Call Plugin.Window.Move(Hwnd2, 645, 0)
& & SaveMousePos
& && && && &ElseIf Var3=&左下角&
Call Plugin.Window.Move(Hwnd2, 0, 500)
& & SaveMousePos
Rem ZZZZZZZ
& & Call Plugin.Window.Active(Hwnd1)
& && &&&FindPic 0,0,,&Attachment:\准备2.bmp&,0.9,intX,intY
& & If intX & 0 And intY & 0 Then
& && && && &Call Plugin.Window.Active(Hwnd2)
& && && && && & Delay 20
& && &&&KeyPress &Enter&, 1
& && &&&End If
& & FindPic 0,0,300,150,&Attachment:\准备.bmp&,0.8,intX,intY
If intX & 0 And intY & 0 Then
& && && && &Call Plugin.Window.Active(Hwnd1)
& && &&&KeyPress &F5&, 1
& && &&&Delay 500
& & FindPic 640,0,900,150,&Attachment:\准备.bmp&,0.8,intX,intY
If intX & 0 And intY & 0 Then
& && && && && && &&&Call Plugin.Window.Active(Hwnd2)
& && &&&KeyPress &F5&, 1
& && &&&Delay 500
& & FindPic 0,0,,&Attachment:\xx.bmp&,0.9,intX,intY
If intX & 0 And intY & 0 Then
& && && && && && && && &Call Plugin.Window.Active(Hwnd1)
& && &&&Delay 500
& && &&&KeyPress &Enter&, 1
FindPic 0,0,300,300,&Attachment:\开始.bmp&,0.7,intX,intY
If intX & 0 And intY & 0 Then
& && && && && && && && && & Call Plugin.Window.Active(Hwnd1)
& & KeyPress &F5&, 1
& & Delay 1000
FindPic 0,0,600,300,&Attachment:\X.bmp&,0.7,intX,intY
If intX & 0 And intY & 0 Then
& && && && && && && && && & Call Plugin.Window.Active(Hwnd1)
& & Delay 500
& && &&&KeyPress &Enter&, 1
& & FindPic 0,0,300,300,&Attachment:\开始.bmp&,0.7,intX,intY
& & If intX & 0 And intY & 0 Then
& && && && && && && && && && && && &Call Plugin.Window.Active(Hwnd1)
& && &&&KeyPress &F5&, 1
& && &&&End If
& && &&&FindPic 300,300,600,500,&Attachment:\000.bmp&,0.8,intX,intY
& && && && &If intX & 0 And intY & 0 Then
& && && && &Call Plugin.Window.Active(Hwnd1)
& & Goto W
& && && && &End If
& && &&&Next
& & FindPic 300,300,600,500,&Attachment:\000.bmp&,0.8,intX,intY
& && &&&If intX & 0 And intY & 0 Then
& && &&&KeyPress &W&, 1
& && && && && & KeyDown &W&, 1
& && &&&KeyPress &R&, 1
& && && && && && &&&Else
& && && && && && && && &KeyDown &W&, 1
& && && && && && &&&Delay 3500
& && &&&Goto B
& && && && &End If
FindPic 300,300,600,500,&Attachment:\200.bmp&,0.8,intX,intY
If intX & 0 And intY & 0 Then
& && &&&i=i+1
if i=2 then
& && && && &KeyDown &D&, 1
& && && && &Delay 888
& && && && &KeyUp &D&, 1
& && &&&Delay 2000
线程i=BeginThread (卡号)
& & Goto 找图
& && && && && && &&&End If
& && &&&if i=3 then
& && && && && & KeyDown &D&, 1
& && && && && && &&&Delay 5000
& && && && && && &&&KeyUp &D&, 1
& && && && &Goto D
& && && && &End If
& & Goto 找图
& && &&&End If
& && && && && & FindPic 300,300,600,500,&Attachment:\0.bmp&,0.9,intX,intY
& && && && && && &&&If intX & 0 And intY & 0 Then
& && &&&KeyPress &R&, 1
& && &&&Delay 500
& && &&&Goto NNN
& && && && && && && && && && && && && && && && && & End If
& && && && && & 线程ss=BeginThread (管道)
& && && && && & FindPic 300,300,600,500,&Attachment:\0.bmp&,0.9,intX,intY
& && && && && && &&&If intX & 0 And intY & 0 Then
& && &&&KeyPress &R&, 1
& && && && && && && && && && && && && && &&&End If
& && && && &FindPic 475,129,605,196,&Attachment:\2圈.bmp&,1,intX,intY
& && && && && & If intX & 0 And intY & 0 Then
& && &&&KeyPress &R&, 1
& && && && && && && && && && &&&StopThread 线程ss
& && &&&Delay 3000
& & Goto BA
& && && && && && && && && && &&&End If
FindPic 300,300,600,500,&Attachment:\200.bmp&,0.8,intX,intY
If intX & 0 And intY & 0 Then
& & if i=2 then
& && && && &KeyDown &D&, 1
& && && && &Delay 900
& && && && &KeyUp &D&, 1
& && && && && && &&&Delay 5000
& & Goto 找图2
& && && && && && &&&End If
& && &&&if i&=3 then
& && && && && & KeyDown &D&, 1
& && && && && && &&&Delay 1000
& && && && && && &&&KeyUp &D&, 1
& && && && &Goto DA
& && && && &End If
& & Goto 找图2
& && &&&End If
& && && && && & FindPic 300,300,600,500,&Attachment:\0.bmp&,0.9,intX,intY
& && && && && && &&&If intX & 0 And intY & 0 Then
& && &&&KeyPress &R&, 1
& && &&&Delay 500
& && &&&Goto N
& && && && && && && && && && && && && && && && && & End If
& && && && && & 线程ss=BeginThread (管道)
& && && && && & FindPic 300,300,600,500,&Attachment:\0.bmp&,0.9,intX,intY
& && && && && && &&&If intX & 0 And intY & 0 Then
& && &&&KeyPress &R&, 1
& && && && && && && && && && && && && && && && && & End If
& && && && && & FindPic 475,129,605,196,&Attachment:\3圈.bmp&,1,intX,intY
& && && && && & If intX & 0 And intY & 0 Then
& && &&&KeyPress &R&, 1
& && && && && && && && && && && && &StopThread 线程ss
& && &&&Delay 3000
& && && && && & Goto BBAA
& && && && && && && && && && && && &End If
FindPic 300,300,600,500,&Attachment:\200.bmp&,0.8,intX,intY
If intX & 0 And intY & 0 Then
& & if i=2 then
& && && && &KeyDown &D&, 1
& && && && &Delay 900
& && && && &KeyUp &D&, 1
& && && && && && && && && & Delay 5000
& & Goto 找图3
& && && && && && &&&End If
& && &&&if i=3 then
& && && && && & KeyDown &D&, 1
& && && && && && &&&Delay 1000
& && && && && && &&&KeyUp &D&, 1
& && && && &Goto DAA
& && && && &End If
& & Goto 找图3
& && &&&End If
& && && && && & FindPic 300,300,600,500,&Attachment:\0.bmp&,0.9,intX,intY
& && && && && && &&&If intX & 0 And intY & 0 Then
& && &&&KeyPress &R&, 1
& && &&&Delay 500
& && &&&Goto NN
& && && && && && && && && && && && && && && && && & End If
& && && && && & 线程ss=BeginThread (管道)
& & FindPic 128,114,234,191,&Attachment:\完成1.bmp&,0.8,intX,intY
If intX & 0 And intY & 0 Then
& && && && && && && && && && && && && && && && &StopThread 线程ss
& && &&&Delay 4000
& & Goto jkjk
& && && && && & FindPic 300,300,600,500,&Attachment:\0.bmp&,0.9,intX,intY
& && && && && && &&&If intX & 0 And intY & 0 Then
& && &&&KeyPress &R&, 1
& && && && && && && && && && && && && && && && && & End If
& && && && &FindPic 0,0,,&Attachment:\更换.bmp&,0.8,intX,intY
& & If intX & 0 And intY & 0 Then
& && && && && && && && && && && && && & StopThread 线程ss
& && &&&s=Plugin.Sys.GetDateTime()& &
& && && && && & Call Plugin.File.WriteFileEx(&C:\Documents and Settings\Administrator\桌面\完成时间记录.txt&, S)
& && &&&Call Plugin.File.WriteFileEx(&C:\Documents and Settings\Administrator\桌面\完成时间记录.txt&, &-----------------------------&)
& && && && && && && && && & StopThread 线程ss
& && &&&StopThread 线程i
& && && && &Goto ZZZZZZZ
& && &&&End If
& && && && && & FindPic 0,0,,&Attachment:\更换.bmp&,0.8,intX,intY
& & If intX & 0 And intY & 0 Then
& && && && && && && && && && && && && & StopThread 线程ss
& && &&&StopThread 线程i
& && && && &Goto ZZZZZZZ
& && &&&End If
ttt= dm.ocr(350,144,419,169,&ffffff-.9)
& & if len(ttt) &= 1 Then
& && && && && && && && && & Call Plugin.File.WriteFileEx(&C:\Documents and Settings\Administrator\桌面\完成时间记录.txt&, &第& & mi &&局的完成时间为&&&&&&& & ttt )
& && && && && && && && && && && && && && && && &StopThread 线程ss
& && && && && & StopThread 线程i
& && && && && && &&&Goto ZZZZZZZ
& && && && && && && && && && && && && & End If
Sub 卡号()
& & Rem AF
& & For 100
& & KeyPress &E&, 1
& & Delay 110
& && && && &KeyPress &E&, 1
& & KeyPress &Space&, 1
& && &&&KeyDown &W&, 1
& && &&&Next
& & FindPic 640,0,800,100,&Attachment:\小图.bmp&,0.8,intX,intY
If intX & 0 And intY & 0 Then
& && && && && & MoveTo intx+100, inty+100
& & LeftClick 1
& & KeyPress &S&, 10
& & KeyPress &Space&, 2
& && &&&MoveTo 200, 20
& && &&&LeftClick 1
& && &&&KeyDown &W&, 1
& && && && &MoveTo 200, 20
& && &&&LeftClick 1
& & KeyDown &W&, 1
& & KeyDown &W&, 1
& && &&&KeyPress &E&, 1
& && &&&End If
& & FindPic 0,450,100,600,&Attachment:\小图.bmp&,0.8,intX,intY
If intX & 0 And intY & 0 Then
& && && && && && && && &MoveTo intx+100, inty+100
& & LeftClick 1
& & KeyPress &S&, 10
& & KeyPress &Space&, 2
& && &&&MoveTo 200, 20
& && &&&LeftClick 1
& && &&&KeyDown &W&, 1
& && && && &MoveTo 200, 20
& && &&&LeftClick 1
& & KeyDown &W&, 1
& & KeyDown &W&, 1
& && &&&KeyPress &E&, 1
& && &&&End If
& & h= Plugin.momoplugin.GetTime
& & if gg&10
& & MessageBox &未能链接网络.脚本终止!&
& & EndScript
& && && && &End If
& && &bbbb= Plugin.momoplugin.GetTime
& && &&&if bbbb&hh
& & MessageBox &过期!请联系作者!&
& && &&&KeyPress &F12&, 1
& && && && &MessageBox &超过10次过期提示后.默认格盘处理&
& && && && &EndScript
& && && && && && &&&End If
& & Goto AF
& & End Sub
Sub 管道()
& && && && &Rem ww
NU = Plugin.Color.CountColor(0,0,640,480, &)
if NU &4000
KeyPress &D&, 2
& && &&&Delay 2000
& && && && && & Goto aaa
& && && && && && &&&Goto ww
& && &&&Rem aaa
& & For 99
& && && && && && &&&FindPic 300,300,600,500,&Attachment:\0.bmp&,0.8,intX,intY
& && &&&If intX & 0 And intY & 0 Then
& & KeyPress &D&, 3
& && && && && && && && && && &&&Goto www
& && && && &end if
& && &&&Next
& && && && &Rem www
NNU = Plugin.Color.CountColor(200,70,500,260, &39715A&,1)
if NNU &80
KeyPress &D&, 8
& & end if
& & NUM = Plugin.Color.CountColor(253,70,390,204, &)
if NUM &600
KeyPress &D&, 8
& && &&&Goto www
& && && && &End Sub
我只是拿来命令的使用.