你的位置：
分享个QQ飞车的源码
09:09:33 |
来源: 按键精灵资源站
{:3_51:}{:3_51:}高手勿喷，新手作品，纯属娱乐
Path = (&E:\QQ号.txt&)
Text = Plugin.File.ReadFileEx(Path)
a = split(Text, &|&)
b = UBound(a)
& & c = a(i)
& & d = split(c, &,&)
& & e = d(k + 1)
& & Call Lib.API.运行程序(&D:\Download\QQ飞车动态下载版\QQSpeedLauncher.exe&)
& & Delay 2000
FindPic 0,0,,&Attachment:\1.bmp&,0.9,intX,intY
If intX & 0 And intY & 0 Then
MoveTo intX + 130, intY + 15
LeftDoubleClick 1
& & //调用写入账号
& & Call 账号()
& & Delay 200
& & KeyPress &Tab&, 1
& & Call Lib.键盘.KeyList(e,0,0)
& & Delay 200
& & KeyPress &Enter&, 1
& & Delay 25000
& & Call 循环()
& & i = i + 1
Sub 账号()
SayString d(k)
Sub 循环()
FindPic 0,0,,&Attachment:\2.bmp&,0.9,intX,intY
If intX & 0 And intY & 0 Then
MoveTo intX + 30, intY + 10
LeftClick 1
FindPic 0,0,,&Attachment:\3.bmp&,0.9,intX,intY
If intX & 0 And intY & 0 Then
MoveTo intX + 5, intY + 5
LeftClick 1
FindPic 0,0,,&Attachment:\4.bmp&,0.9,intX,intY
If intX & 0 And intY & 0 Then
MoveTo intX + 5, intY + 5
LeftClick 1
Delay 1500
FindPic 0,0,,&Attachment:\6.bmp&,0.9,intX,intY
If intX & 0 And intY & 0 Then
MoveTo intX + 5, intY + 8
LeftDoubleClick 1
Delay 1000
LeftDoubleClick 1
FindPic 0,0,,&Attachment:\9.bmp&,0.9,intX,intY
If intX & 0 And intY & 0 Then
MoveTo intX + 5, intY + 15
LeftClick 1
FindPic 0,0,,&Attachment:\8.bmp&,0.9,intX,intY
If intX & 0 And intY & 0 Then
MoveTo intX, intY
LeftClick 1
KeyPress &BackSpace&, 1
Delay 1000
FindPic 0,0,,&Attachment:\10.bmp&,0.9,intX,intY
If intX & 0 And intY & 0 Then
MoveTo intX + 50, intY + 20
LeftClick 1
FindPic 0,0,,&Attachment:\8.bmp&,0.9,intX,intY
If intX & 0 And intY & 0 Then
MoveTo intX + 10, intY + 10
LeftClick 1
FindPic 0,0,,&Attachment:\11.bmp&,0.9,intX,intY
If intX & 0 And intY & 0 Then
MoveTo intX + 10, intY + 10
LeftClick 1