The current browser does not support JavaScript, please set your browser to allow JavaScript
File Name:&&&& 永恒之家QQ堂通用多开器.rar
File Size:&&&&246.19 KB
Username:&&&&qiannao
&&&&&&&& If miss used, please
Upload Time:&&&& 00:00:00
You are not logged in!&&&&&&&Not sign up?
As a result of the anti-hotlinking system, browser prohibit cookies will not be able to download and slower, please use the download tool for high-speed download.
Tips:,Have you a QianNao cloud computer!
Disclaimer: QianNao
download content is uploaded, if it involves violation of your copyright or illegal content, pleaseDelete it immediately.
Account &:&&
Password&:&&
Remember me&&&&&
Not registered
&Sign Up&&
&Registry Complete我自己写的QQ堂刷分脚本，分享给大家 _ 脚本开发源码 - 按键精灵论坛
腾讯微博：
软件版本：2014.03软件大小：71.2M更新时间：10-25
软件版本：3.1.7软件大小：52.1M更新时间：12-12
软件版本：1.2.4软件大小：29.2M更新时间：10-28
软件版本：1.1.0软件大小：12.3M更新时间：12-29
查看: 1519|回复: 17
本帖最后由 QQ 于
17:12 编辑 [hide=d30]Dim J,XDimEnv DaHao,XiaoHaoJ = 0X=0'获取屏幕分辨率px = Plugin.Sys.GetScRX()py = Plugin.Sys.GetScRY()'----------读取输入框文本信息----------Q堂目录位置 = Form1.QTWeiZhiInputBox1.Textwai挂位置 = Form1.WgWeiZhiInputBox1.Text大号账号 = Form1.DaHaoInputBox1.Text大号密码 = Form1.DaMiInputBox1.Text小号账号 = Form1.XiaoHaoInputBox1.Text小号密码 = Form1.XiaoMiInputBox2.Text'----------读取输入框文本信息----------'---------------防快调整----------------//拖延几秒完成一局If Form1.BossComboBox1.ListIndex = 0 Then 拖延几秒完成一局 = 0ElseIf Form1.BossComboBox1.ListIndex = 1 Then拖延几秒完成一局=1000ElseIf Form1.BossComboBox1.ListIndex = 2 Then拖延几秒完成一局=2000End If//拖延几秒按开始If Form1.KaiShiComboBox1.ListIndex = 0 Then 拖延几秒按开始 = 0ElseIf Form1.KaiShiComboBox1.ListIndex = 1 Then拖延几秒按开始 = 1000ElseIf Form1.KaiShiComboBox1.ListIndex = 2 Then拖延几秒按开始 = 2000ElseIf Form1.KaiShiComboBox1.ListIndex = 3 Then拖延几秒按开始 = 3000End If'---------------防快调整----------------'---------------喂宠设置----------------If Form1.DaChongComboBox2.ListIndex = 0 Then 大号喂养 = 0ElseIf Form1.DaChongComboBox2.ListIndex = 1 Then大号喂养 = 1End IfIf Form1.XiaoChongComboBox1.ListIndex = 0 Then 小号喂养 = 0ElseIf Form1.XiaoChongComboBox1.ListIndex = 1 Then小号喂养=1End If'---------------喂宠设置----------------'-------------以下是选择大号体力药水位置------------- If Form1.WeiZhi1ComboBox3.ListIndex = 0 Then WeiZhi1 = 0ElseIf Form1.WeiZhi1ComboBox3.ListIndex = 1 ThenWeiZhi1=1ElseIf Form1.WeiZhi1ComboBox3.ListIndex = 2 ThenWeiZhi1=2ElseIf Form1.WeiZhi1ComboBox3.ListIndex = 3 ThenWeiZhi1=3ElseIf Form1.WeiZhi1ComboBox3.ListIndex = 4 ThenWeiZhi1=4ElseIf Form1.WeiZhi1ComboBox3.ListIndex = 5 ThenWeiZhi1=5ElseIf Form1.WeiZhi1ComboBox3.ListIndex = 6 ThenWeiZhi1=6ElseIf Form1.WeiZhi1ComboBox3.ListIndex = 7 ThenWeiZhi1=7ElseIf Form1.WeiZhi1ComboBox3.ListIndex = 8 ThenWeiZhi1=8ElseIf Form1.WeiZhi1ComboBox3.ListIndex = 9 ThenWeiZhi1=9ElseIf Form1.WeiZhi1ComboBox3.ListIndex = 10 ThenWeiZhi1=10ElseIf Form1.WeiZhi1ComboBox3.ListIndex = 11 ThenWeiZhi1=11End If'-------------以上是选择大号体力药水位置------------- '-------------以下是选择小号体力药水位置-------------If Form1.WeiZhi2ComboBox1.ListIndex = 0 Then WeiZhi2 = 0ElseIf Form1.WeiZhi2ComboBox1.ListIndex = 1 ThenWeiZhi2=1ElseIf Form1.WeiZhi2ComboBox1.ListIndex = 2 ThenWeiZhi2=2ElseIf Form1.WeiZhi2ComboBox1.ListIndex = 3 ThenWeiZhi2=3ElseIf Form1.WeiZhi2ComboBox1.ListIndex = 4 ThenWeiZhi2=4ElseIf Form1.WeiZhi2ComboBox1.ListIndex = 5 ThenWeiZhi2=5ElseIf Form1.WeiZhi2ComboBox1.ListIndex = 6 ThenWeiZhi2=6ElseIf Form1.WeiZhi2ComboBox1.ListIndex = 7 ThenWeiZhi2=7ElseIf Form1.WeiZhi2ComboBox1.ListIndex = 8 ThenWeiZhi2=8ElseIf Form1.WeiZhi2ComboBox1.ListIndex = 9 ThenWeiZhi2=9ElseIf Form1.WeiZhi2ComboBox1.ListIndex = 10 ThenWeiZhi2=10ElseIf Form1.WeiZhi2ComboBox1.ListIndex = 11 ThenWeiZhi2=11End If'-------------以上是选择小号体力药水位置-------------Event Form1.DaChongComboBox2.SelectChangeIf Form1.DaChongComboBox2.ListIndex = 0 Then Form1.WeiZhi1ComboBox3.Enabled=False ElseIf Form1.DaChongComboBox2.ListIndex = 1 ThenForm1.WeiZhi1ComboBox3.Enabled = TrueEnd IfEnd EventEvent Form1.XiaoChongComboBox1.SelectChangeIf Form1.XiaoChongComboBox1.ListIndex = 0 Then Form1.WeiZhi2ComboBox1.Enabled = FalseElseIf Form1.XiaoChongComboBox1.ListIndex = 1 ThenForm1.WeiZhi2ComboBox1.Enabled = TrueEnd IfEnd Event //查看是否更新按钮Event Form1.Button1.ClickRunApp "/" End Event//点击下载视频教程Event Form1.Button2.ClickRunApp "/down/index/"End Event//一键关闭所有Q堂按钮Event Form1.Button3.ClickCall Plugin.Window.CloseEx(DaHao)Call Plugin.Window.CloseEx(XiaoHao)KeyPress "F12",1End EventDim a(11)a(0) = "111|416"a(1) = "174|414"a(2) = "235|408"a(3) = "301|409"a(4) = "115|472"a(5) = "180|475"a(6) = "237|469"a(7) = "302|477"a(8) = "117|533"a(9) = "174|533"a(10) = "232|537"a(11) = "301|537"SwArr1 = Split(a(WeiZhi1),"|")SwArr2 = Split(a(WeiZhi2),"|")cw1x = CLng(SwArr1(0))cw1y = CLng(SwArr1(1))cw2x = CLng(SwArr2(0))cw2y = CLng(SwArr2(1))IsFile1 = Plugin.File.IsFileExit(Q堂目录位置 & "\Client.exe")IsFile2 = Plugin.File.IsFileExit(wai挂位置 & "\刷分专用挂.exe")If IsFile1 = False and IsFile2=False Then MessageBox "“Q堂目录位置”和“刷分专用挂位置”都填错了喔~，如果您试了很多次都填不对，请联系作者QQ或者观看视频教程！"EndScriptElseIf IsFile1 = False ThenMessageBox "“Q堂目录位置”填错了喔~，如果您试了很多次都填不对，请联系作者QQ或者观看视频教程！"EndScriptElseIf IsFile2 = False ThenMessageBox "“刷分专用挂位置”填错了喔~，如果您试了很多次都填不对，请联系作者QQ或者观看视频教程！"EndScriptEnd IfHwnd11 = Plugin.window.find(0, "QQ堂 4.3 Beta1 Build1 ")Hwnd22 = Plugin.window.find(0, "完美QQ堂4.3辅助 ")If Hwnd11
0 and Hwnd220 Then MessageBox "检测到您打开了QQ堂和wai挂，请关掉这两个后再启动本辅助！"EndScriptElseIf Hwnd11
0 ThenMessageBox "检测到您打开了QQ堂，请关掉QQ堂后再启动本辅助！"EndScriptElseIf Hwnd22
0 ThenMessageBox "检测到您打开了wai挂，请关掉wai挂后再启动本辅助！"EndScriptEnd IfMessageBox "辅助已启动成功！请在本提示窗口中点“确定”后就不要操作电脑了喔~！"PutAttachment Q堂目录位置,"Atl.dll"PutAttachment Q堂目录位置,"Atlvv.dll"PutAttachment Q堂目录位置 & "\map", "field24_4.map"Rem 重启'---以下是打开大号并且判断是否打开了大号----RunApp Q堂目录位置 & "\Client.exe"Delay 3000DoDaHao = Plugin.Window.Find(0, "QQ堂 4.3 Beta1 Build1 ")If DaHao
0 Then Delay 100Call Plugin.Window.Move(DaHao, 0, 0)Call Plugin.Window.SetText(DaHao, "[大号]"&大号账号)Delay 100Exit Do End IfDelay 500Loop'---以上是打开大号并且判断是否打开了大号----Delay 2000'---以下是打开小号并且判断是否打开了小号----RunApp Q堂目录位置 & "\Client.exe"Delay 3000DoXiaoHao = Plugin.Window.Find(0, "QQ堂 4.3 Beta1 Build1 ")If DaHao
0 Then Delay 100Call Plugin.Window.Move(XiaoHao, 0, 0)Call Plugin.Window.SetText(XiaoHao, "[小号]"&小号账号)Call Plugin.Window.Active(DaHao)//激活大号窗口Delay 100Exit Do End IfDelay 500Loop'---以上是打开小号并且判断是否打开了小号----'--------------------以下是登录大号---------------------------Delay 1000'以下是判断大号是否到了登录场面Do FindPic 0,0,px,py,"Attachment:\登录界面.bmp",1,intX,intYIf intX > 0 And intY > 0 Then Delay 100Exit doEnd IfDelay 500LoopDelay 1000'以上是判断大号是否到了登录场面Delay 500Call Plugin.Bkgnd.LeftClick(DaHao, 671, 229)//单击账号输入处Delay 100For 25Call Plugin.Bkgnd.KeyPress(DaHao, 8)//去掉之前的账号NextDelay 1000Call Plugin.Bkgnd.SendString(DaHao, 大号账号)//输入大号账号Delay 800Call Plugin.Bkgnd.KeyPress(DaHao, 9)//按TAB键Delay 200Call Plugin.Bkgnd.SendString(DaHao, 大号密码)//输入大号密码Delay 800Call Plugin.Bkgnd.KeyPress(DaHao, 13)//按回车登录Delay 500'以下判断是否到了区域选择界面Do FindPic 0,0,px,py,"Attachment:\判断区域.bmp",1,intX1,intY1If intX1 > 0 And intY1 > 0 Then Exit DoEnd IfDelay 500Loop'以上判断是否到了区域选择界面Delay 500'以下判断是否"区域选择"选择框DoFindPic 0, 0, px, py, "Attachment:\区域选择.bmp", 1, xzqyx, xzqyyIf xzqyx > 0 and xzqyy > 0 Then Exit DoElse Call Plugin.bkgnd.LeftClick(DaHao, 466, 537)//单击“区域选择”End IfDelay 500Loop'以上判断是否"区域选择"选择框Delay 1000sRect = Plugin.Window.GetClientRect(DaHao)XQArr = Split(sRect, "|")XQX = CLng(XQArr(0))XQY = CLng(XQArr(1))FindPic 0, 0, px, py, "Attachment:\东部电信.bmp", 1, dx1, dy1FindPic 0, 0, px, py, "Attachment:\南部电信.bmp", 1, dx2, dy2FindPic 0, 0, px, py, "Attachment:\西部电信.bmp", 1, dx3, dy3FindPic 0, 0, px, py, "Attachment:\北部网通.bmp", 1, dx4, dy4If Form1.QuYuComboBox1.ListIndex = 0 ThenCall plugin.bkgnd.LeftClick (DaHao,dx1-XQX,dy1-XQY)ElseIf Form1.QuYuComboBox1.ListIndex = 1 ThenCall plugin.bkgnd.LeftClick (DaHao,dx2-XQX,dy2-XQY)ElseIf Form1.QuYuComboBox1.ListIndex = 2 ThenCall plugin.bkgnd.LeftClick (DaHao,dx3-XQX,dy3-XQY)ElseIf Form1.QuYuComboBox1.ListIndex = 3 ThenCall plugin.bkgnd.LeftClick (DaHao,dx4-XQX,dy4-XQY)End IfDelay 500Call Plugin.bkgnd.LeftClick(DaHao,612,502)//点击确定Delay 500Call plugin.bkgnd.LeftClick(DaHao,555,77)//点击自由频道Delay 500Call Plugin.Bkgnd.LeftClick(DaHao, 488, 485)//大号进区Delay 500'以下是判断是否进入了大厅DoFindPic 0, 0, px, py, "Attachment:\大厅判断.bmp", 1, DaTinX, DaTinYIf DaTinX > 0 and DaTinY > 0 Then Exit DoEnd IfDelay 500Loop '以上是判断是否进入了大厅'---------以下是修改大号方向键------------Delay 500Call Plugin.Bkgnd.KeyPress(DaHao, 121)//大号按F10修改方向键Delay 1000Call Plugin.Bkgnd.LeftClick(DaHao, 297,149)//单击上方向Delay 500Call Plugin.Bkgnd.KeyPress(DaHao, 87)Delay 500Call Plugin.Bkgnd.LeftClick(DaHao, 302,213)//单击下方向Delay 500Call Plugin.Bkgnd.KeyPress(DaHao, 83)Delay 500Call Plugin.Bkgnd.LeftClick(DaHao, 233,188)//单击左方向Delay 500Call Plugin.Bkgnd.KeyPress(DaHao, 65)Delay 500Call Plugin.Bkgnd.LeftClick(DaHao, 358, 186)//单击右方向Delay 500Call Plugin.Bkgnd.KeyPress(DaHao, 68)Delay 500Call Plugin.Bkgnd.LeftClick(DaHao, 356, 503)//确定设置页面Delay 1000'---------以上是修改大号方向键------------'以下是大号拒绝所有人邀请Call Plugin.Bkgnd.LeftClick(DaHao, 634, 508)Delay 300Call Plugin.Bkgnd.SendString(DaHao, "/refuse")Delay 500Call Plugin.Bkgnd.KeyPress(DaHao, 13)'以上是大号拒绝所有人邀请Delay 1000'以下是判断大号wai挂是否打开RunApp wai挂位置&"\刷分专用挂.exe"Do 大号wai挂 = Plugin.Window.Find(0, "完美QQ堂4.3辅助 " )If 大号wai挂0 Then Delay 100Exit Do End IfDelay 500loop'以上是判断大号wai挂是否打开Delay 500'以下是大号wai挂若打开将执行的命令大号wai挂子窗口 = Plugin.Window.FindEx(大号wai挂, 0, "CPageControl", "")'点击碰我者死碰我者死 = Plugin.Window.FindEx(大号wai挂子窗口, 0, "Button", "9.碰我就死")Delay 100Call Plugin.Bkgnd.LeftClick(碰我者死, 1, 1)Delay 100'点击屏蔽ReadyGo屏蔽ReadyGo = Plugin.Window.FindEx(大号wai挂子窗口, 0, "Button", "45.屏蔽ReadyGo")Delay 100Call Plugin.Bkgnd.LeftClick(屏蔽ReadyGo, 1, 1)Delay 100'点击BOSS弱血BOSS弱血 = Plugin.Window.FindEx(大号wai挂子窗口, 0, "Button", "86.Boss弱血")Delay 100Call Plugin.Bkgnd.LeftClick(BOSS弱血, 1, 1)Delay 100'点击卡BOOS卡BOSS = Plugin.Window.FindEx(大号wai挂子窗口, 0, "Button", "83.卡Boss")Delay 100Call Plugin.Bkgnd.LeftClick(卡BOSS, 1, 1)Delay 1000Call Plugin.Window.CloseEx(大号wai挂)//关闭大号wai挂'--------------------以上是登录大号---------------------------'--------------------以下是登录小号---------------------------Delay 1000Call Plugin.Window.Active(XiaoHao)//激活小号窗口Delay 500Call Plugin.Bkgnd.LeftClick(XiaoHao, 671, 229)//单击账号输入处Delay 100For 25Call Plugin.Bkgnd.KeyPress(XiaoHao, 8)//去掉之前的账号NextDelay 1000Call Plugin.Bkgnd.SendString(XiaoHao, 小号账号)//输入小号账号Delay 800Call Plugin.Bkgnd.KeyPress(XiaoHao, 9)//按TAB键Delay 200Call Plugin.Bkgnd.SendString(XiaoHao, 小号密码)//输入小号密码Delay 800Call Plugin.Bkgnd.KeyPress(XiaoHao, 13)//按回车登录Delay 500'以下是判断是否到了区域选择界面Do FindPic 0,0,px,py,"Attachment:\判断区域.bmp",1,intX1s,intY1sIf intX1s > 0 And intY1s > 0 Then Exit DoEnd IfDelay 500Loop'以上是判断是否到了区域选择界面Delay 500'以下是判断是否"区域选择"选择框DoFindPic 0, 0, px, py, "Attachment:\区域选择.bmp", 1, xzqyx1, xzqyy1If xzqyx1 > 0 and xzqyy1 > 0 Then Exit DoElse Call Plugin.bkgnd.LeftClick(XiaoHao, 466, 537)//单击“区域选择”End IfDelay 500Loop'以上是判断是否"区域选择"选择框Delay 1000sRect = Plugin.Window.GetClientRect(XiaoHao)XQArr1 = Split(sRect, "|")XQX1 = CLng(XQArr1(0))XQY1 = CLng(XQArr1(1))FindPic 0, 0, px, py, "Attachment:\东部电信.bmp", 1, dx11, dy11FindPic 0, 0, px, py, "Attachment:\南部电信.bmp", 1, dx21, dy21FindPic 0, 0, px, py, "Attachment:\西部电信.bmp", 1, dx31, dy31FindPic 0, 0, px, py, "Attachment:\北部网通.bmp", 1, dx41, dy41If Form1.QuYuComboBox1.ListIndex = 0 Then Call plugin.bkgnd.LeftClick (XiaoHao,dx11-XQX1,dy11-XQY1)ElseIf Form1.QuYuComboBox1.ListIndex = 1 ThenCall plugin.bkgnd.LeftClick (XiaoHao,dx21-XQX1,dy21-XQY1)ElseIf Form1.QuYuComboBox1.ListIndex = 2 ThenCall plugin.bkgnd.LeftClick (XiaoHao,dx31-XQX1,dy31-XQY1)ElseIf Form1.QuYuComboBox1.ListIndex = 3 ThenCall plugin.bkgnd.LeftClick (XiaoHao,dx41-XQX1,dy41-XQY1)End IfDelay 100Call Plugin.bkgnd.LeftClick(XiaoHao,612,502)//点击确定Delay 500Call plugin.bkgnd.LeftClick(XiaoHao,555,77)//点击自由频道Delay 500Call Plugin.Bkgnd.LeftClick(XiaoHao, 488, 485)//小号进区Delay 500'以下是判断是否进入了大厅DoFindPic 0, 0, px, py, "Attachment:\大厅判断.bmp", 1, DaTinX1, DaTinY1If DaTinX1 > 0 and DaTinY1 > 0 Then Exit DoEnd IfDelay 500Loop '以上是判断是否进入了大厅'以下是修改小号方向键Delay 500Call Plugin.Bkgnd.KeyPress(XiaoHao, 121)//小号按F10修改方向键Delay 1000Call Plugin.Bkgnd.LeftClick(XiaoHao, 358, 186)//单击右方向Delay 500Call Plugin.Bkgnd.KeyPress(XiaoHao, 68)Delay 500Call Plugin.Bkgnd.LeftClick(XiaoHao, 356, 503)//确定设置页面Delay 1000'以上是修改小号方向键'以下是判断小号wai挂是否打开RunApp wai挂位置&"\刷分专用挂.exe"Do 小号wai挂 = Plugin.Window.Find(0, "完美QQ堂4.3辅助 " )If 小号wai挂0 Then Delay 100Exit Do End IfDelay 500loop'以上是判断小号wai挂是否打开Delay 500'以下是小号wai挂若打开将执行的命令小号wai挂子窗口 = Plugin.Window.FindEx(小号wai挂, 0, "CPageControl", "")'点击碰我者死碰我者死1 = Plugin.Window.FindEx(小号wai挂子窗口, 0, "Button", "9.碰我就死")Delay 100Call Plugin.Bkgnd.LeftClick(碰我者死1, 1, 1)Delay 100'点击屏蔽ReadyGo屏蔽ReadyGo1 = Plugin.Window.FindEx(小号wai挂子窗口, 0, "Button", "45.屏蔽ReadyGo")Delay 100Call Plugin.Bkgnd.LeftClick(屏蔽ReadyGo1, 1, 1)Delay 100'点击BOSS弱血BOSS弱血1 = Plugin.Window.FindEx(小号wai挂子窗口, 0, "Button", "86.Boss弱血")Delay 100Call Plugin.Bkgnd.LeftClick(BOSS弱血1, 1, 1)Delay 100'点击卡BOOS卡BOSS1 = Plugin.Window.FindEx(小号wai挂子窗口, 0, "Button", "83.卡Boss")Delay 100Call Plugin.Bkgnd.LeftClick(卡BOSS1, 1, 1)Delay 1000Call Plugin.Window.CloseEx(小号wai挂)//关闭小号wai挂'--------------------以上是登录小号---------------------------Delay 2000Call Plugin.Window.Active(DaHao)//激活大号窗口Delay 1000Call Plugin.Bkgnd.KeyPress(DaHao, 118)//按F7Delay 2000Call Plugin.Bkgnd.LeftClick(DaHao, 572,112)//单击房间属性Delay 500'以下是房间属性 Call Plugin.Bkgnd.LeftClick(DaHao, 678,124)//单击房间密码输入框Delay 500Call Plugin.Bkgnd.SendString(DaHao, "Hj@Tinllloo")//输入房间密码Delay 500Call Plugin.Bkgnd.KeyPress(DaHao, 13)//确定房间属性Delay 700Call Plugin.Bkgnd.LeftClick(DaHao, 572,112)//单击房间属性Delay 500Call Plugin.Bkgnd.SendString(DaHao, "Tin")//输入房名'以上是房间属性Delay 500 Call Plugin.Bkgnd.KeyPress(DaHao, 13)//确定房间属性Delay 3500'以下是检测是否有人进入房间sRect3 = Plugin.Window.GetClientRect(DaHao)Arr3 = Split(sRect3, "|")JianCeX = CLng(Arr3(0))JianCeY = CLng(Arr3(1))RtColor22 = Plugin.Color.GetPixelColor(JianCeX + 148, JianCeY + 92, 0)Call Plugin.Color.ColorToRGB(RtColor22, R, G, B)If R > 96 and R
113 and B < 143 Then Else Call Plugin.Bkgnd.LeftClick(DaHao, 751,555)//点离开Delay 1000Call 重新建房1（）Delay 500 End If'以上是检测是否有人进入房间Rem 选择地图Delay 1000Call Plugin.Bkgnd.LeftClick(DaHao, 578,148)//单击选择地图Delay 1000Call Plugin.Bkgnd.LeftClick(DaHao, 549,475)//单击野外Delay 1000Call Plugin.Bkgnd.LeftClick(DaHao, 617,492)//往下拉Delay 1000Call Plugin.Bkgnd.LeftClick(DaHao, 617, 492)//再往下拉Delay 1000Call Plugin.Bkgnd.LeftClick(DaHao, 525, 411)//选择鸟语花香地图Delay 1000Call Plugin.Bkgnd.LeftClick(DaHao, 517,562)//在选择地图里单击确定Delay 1500Call Plugin.Bkgnd.LeftClick(DaHao, 623,245)//大号选择毛毛人物Delay 1000Call Plugin.Bkgnd.LeftClick(DaHao, 386,584)//单击输入框 Delay 5000Call Plugin.Bkgnd.SendString(DaHao, "/in " &小号账号)//大号在输入框内输入小号QQDelay 6000Call Plugin.Bkgnd.KeyPress(DaHao, 13)//按回车发送邀请Delay 1000Call Plugin.Bkgnd.KeyPress(XiaoHao, 13)//小号接受邀请Delay 1000call Plugin.Window.Active(XiaoHao)'激活小号窗口Delay 1000'以下是判断小号是否设置了自动准备Do FindPic 0,0,px,py,"Attachment:\自动准备判断.bmp",1,intX4,intY4If intX4 > 0 And intY4 > 0 Then Delay 100Exit Do Else Call Plugin.Bkgnd.LeftClick(XiaoHao, 386,584)//单击输入框Delay 100Call Plugin.Bkgnd.SendString(XiaoHao, "/ar")Delay 200Call Plugin.Bkgnd.KeyPress(XiaoHao, 13)End IfDelay 600Loop'以上是判断小号是否设置了自动准备Delay 2000Call Plugin.Bkgnd.KeyPress(XiaoHao, 116)//小号取消准备Delay 1000Call Plugin.Bkgnd.LeftClick(XiaoHao, 623,245)//小号选择毛毛人物Delay 2000Call Plugin.Bkgnd.KeyPress(XiaoHao, 116)//小号准备Delay 1000Call Plugin.Window.Active(DaHao)//激活大号窗口'开始刷分Rem 刷分Do Delay 1000Call Plugin.Bkgnd.KeyPress(DaHao, 116)Delay 4010Call Plugin.bkgnd.keypress(XiaoHao, 13)Delay 500Call Plugin.Window.SendString(XiaoHao, "现在是第" & X + 1 & "局")Delay 500Call Plugin.bkgnd.keypress(XiaoHao, 13)Delay 1000Call Plugin.Window.Active(XiaoHao)'激活小号窗口Delay 1000Delay 500Call 出错判断（）Call 判断大小号窗口是否存在()Call 判断小号是否掉线（）Delay 1600KeyDown "D", 1Delay 1000KeyUp "D", 1Delay 500Call Plugin.Window.Active(DaHao)'激活大号窗口Delay 500Delay 1000Call 出错判断（）Call 判断大小号窗口是否存在()Call 判断大号是否掉线（） Delay 1600Delay 1200Delay 拖延几秒完成一局KeyDown "A", 1Delay 1000KeyUp "A", 1Delay 20KeyDown "D", 1Delay 1000KeyUp "D", 1Delay 3000KeyDown "A", 1Delay 500KeyUp "A", 1Delay 20KeyDown "W", 1Delay 1000KeyUp "W", 1Delay 20KeyDown "S", 1Delay 600KeyUp "S", 1Delay 20KeyDown "D", 1Delay 1500KeyUp "D", 1Delay 12000Delay 拖延几秒按开始j = j + 1X = X + 1If j = 160 Then j = 0Call 大号喂养宠物（）Call 小号喂养宠物（）If 大号喂养 = 1 and 小号喂养 = 1 Then Call 重新建房2（）ElseIf 大号喂养 = 1 and 小号喂养 = 0 ThenCall 重新建房2（）ElseIf 大号喂养 = 0 and 小号喂养 = 1 ThenCall Plugin.Bkgnd.LeftClick(DaHao, 386,584)'单击输入框 Delay 500Call Plugin.Bkgnd.SendString(DaHao, "/in "&小号账号)'大号在输入框内输入小号QQDelay 500Call Plugin.Bkgnd.KeyPress(DaHao, 13)'按回车发送邀请Delay 1000Call Plugin.Bkgnd.KeyPress(XiaoHao, 13)'小号接受邀请Delay 3000End ifEnd Ifloop//刷分结束'--------------------------以下是子程序部分----------------------------Sub 重新建房1（）Rem 重来Delay 1000Call Plugin.Bkgnd.KeyPress(DaHao, 118)//按F7Delay 2000Call Plugin.Bkgnd.LeftClick(DaHao, 572,112)//单击房间属性Delay 500Call Plugin.Bkgnd.KeyPress(DaHao, 13)//确定房间属性Delay 3500' 检测是否有人进入房间sRect4 = Plugin.Window.GetClientRect(DaHao)Arr4 = Split(sRect4, "|")JianCeX1 = CLng(Arr4(0))JianCeY1 = CLng(Arr4(1))RtColor11 = Plugin.Color.GetPixelColor(JianCeX1 + 148, JianCeY1 + 92, 0)Call Plugin.Color.ColorToRGB(RtColor11, R, G, B)If R > 96 and R
113 and B < 143 Then goto 选择地图Else Call Plugin.Bkgnd.LeftClick(DaHao, 751,555)//点离开Delay 1000Goto 重来End If'检测是否有人进入了房间End SubSub 重新建房2（）Rem 重来2Delay 1000Call Plugin.Bkgnd.KeyPress(DaHao, 118)'按F7Delay 2000Call Plugin.Bkgnd.LeftClick(DaHao, 572,112)'单击房间属性Delay 500Call Plugin.Bkgnd.KeyPress(DaHao, 13)'确定房间属性Delay 3500'以下是检测是否有人进入房间sRect5 = Plugin.Window.GetClientRect(DaHao)Arr5 = Split(sRect5, "|")JianCeX2 = CLng(Arr5(0))JianCeY2 = CLng(Arr5(1))RtColor111 = Plugin.Color.GetPixelColor(JianCeX2 + 148, JianCeY2 + 92, 0)Call Plugin.Color.ColorToRGB(RtColor111, R, G, B)If R > 96 and R
113 and B < 143 Then Delay 1000Call Plugin.Bkgnd.LeftClick(DaHao, 578,148)//单击选择地图Delay 1000Call Plugin.Bkgnd.LeftClick(DaHao, 517,562)//在选择地图里单击确定Delay 500Call Plugin.Bkgnd.LeftClick(DaHao, 386,584)//单击输入框 Delay 500Call Plugin.Bkgnd.SendString(DaHao, "/in "&小号账号)//大号在输入框内输入小号QQDelay 500Call Plugin.Bkgnd.KeyPress(DaHao, 13)//按回车发送邀请Delay 1000Call Plugin.Bkgnd.KeyPress(XiaoHao, 13)//小号接受邀请Delay 3000goto 刷分Else Call Plugin.Bkgnd.LeftClick(DaHao, 751,555)//点离开Delay 1000Goto 重来2End IfEnd SubSub 判断大号是否掉线（）FindPic 0,0,px,py,"Attachment:\交易中心.bmp",1,intX8,intY8If intX8 > 0 And intY8 > 0 ThenDelay 2000Do//大号循环找区域FindPic 0,0,px,py,"Attachment:\判断区域.bmp",1,intX8,intY8If intX8 > 0 And intY8 > 0 ThenExit DoElse Call Plugin.Bkgnd.LeftClick(DaHao, 748,559)//大号点离开退出End IfDelay 2000Loop//大号循环找区域Delay 2000Call Plugin.Bkgnd.LeftClick(DaHao, 488, 485)//前面区域已找到，大号进区Delay 2000Call Plugin.Window.Active(XiaoHao)//激活小号窗口来找图Delay 2000'----------------------------------------------------------Do//小号循环找区域FindPic 0,0,px,py,"Attachment:\判断区域.bmp",1,intX9,intY9If intX9 > 0 And intY9 > 0 ThenExit DoElse Call Plugin.Bkgnd.LeftClick(XiaoHao, 748,559)//小号点离开退出End IfDelay 2000Loop//小号循环找区域Delay 2000Call Plugin.Bkgnd.LeftClick(XiaoHao, 488, 485)//前面区域已找到，小号进区Delay 2000Call Plugin.Window.Active(DaHao)//激活大号窗口Delay 100Call Plugin.Msg.Tips("已检测到在刷分过程掉线，1分钟后重建房间，请勿理会！")Delay 60000Call 重新建房2（） End IfEnd Sub'------------------------以上判断大号，以下判断小号------------------------------Sub 判断小号是否掉线（）FindPic 0,0,px,py,"Attachment:\交易中心.bmp",1,intX10,intY10If intX10 > 0 And intY10 > 0 ThenDelay 2000Do//小号循环找区域FindPic 0,0,px,py,"Attachment:\判断区域.bmp",1,intX11,intY11If intX11 > 0 And intY11 > 0 ThenExit DoElse Call Plugin.Bkgnd.LeftClick(XiaoHao, 748,559)//小号点离开退出End IfDelay 2000Loop//小号循环找区域Delay 2000Call Plugin.Bkgnd.LeftClick(XiaoHao, 488, 485)//前面区域已找到，小号进区Delay 2000Call Plugin.Window.Active(DaHao)//激活大号窗口来找图Delay 2000'----------------------------------------------------------Do//大号循环找区域FindPic 0,0,px,py,"Attachment:\判断区域.bmp",1,intX12,intY12If intX12 > 0 And intY12 > 0 ThenExit DoElse Call Plugin.Bkgnd.LeftClick(DaHao, 748,559)//大号点离开End IfDelay 2000Loop//大号循环找区域Delay 2000Call Plugin.Bkgnd.LeftClick(DaHao, 488, 485)//前面区域已找到，大号进区Delay 2000Call Plugin.Window.Active(DaHao)//激活大号窗口Delay 100Call Plugin.Msg.Tips("已检测到在刷分过程掉线，1分钟后重建房间，请勿理会！")Delay 60000Call 重新建房2（） End IfEnd Sub'---------------------以下喂养宠物-----------------------------Sub 大号喂养宠物（）If 大号喂养 = 1 Then Delay 1500 Call Plugin.Bkgnd.LeftClick(DaHao, 624, 12)//点击宠物之家Delay 1000Call Plugin.Bkgnd.LeftClick(DaHao, 347, 432)//点击同意Delay 2000Call Plugin.Bkgnd.LeftClick(DaHao, 136, 361)//点击背包Delay 1000Call Plugin.Bkgnd.LeftClick(DaHao, 299, 583)//点击最后一页Delay 1500Do sRect = Plugin.Window.GetClientRect(DaHao)Arr1 = Split(sRect, "|")XX = CLng(Arr1(0))YY = CLng(Arr1(1))RtColor = Plugin.Color.GetPixelColor(XX + 246, YY + 332, 0)Call Plugin.Color.ColorToRGB(RtColor, R, G, B)If R > 93 and R
90 and B < 120 Then Call Plugin.Bkgnd.RightClick(DaHao, cw1x, cw1y)//右键点击体力药水位置Delay 600Call Plugin.Bkgnd.LeftClick(DaHao, 347, 432)//点击同意Else Exit doEnd IfDelay 800Loop Delay 1000//判断大号是否携带FindPic 0, 0, px, py, "Attachment:\携带.bmp", 1, xx1, yy1If xx1 > 0 and yy1 > 0 Then Delay 100Call plugin.bkgnd.LeftClick (DaHao,296,196) End If//判断大号是否携带Delay 500Call Plugin.Bkgnd.LeftClick(DaHao, 305, 120)//点击关闭页面Delay 2000End IfEnd SubSub 小号喂养宠物（）If 小号喂养 = 1 Then Call plugin.window.Active (XiaoHao)//激活小号窗口Delay 1500Call Plugin.Bkgnd.LeftClick(XiaoHao, 624, 12)//点击宠物之家Delay 1000Call Plugin.Bkgnd.LeftClick(XiaoHao, 347, 432)//点击同意Delay 2000Call Plugin.Bkgnd.LeftClick(XiaoHao, 136, 361)//点击背包Delay 1000Call Plugin.Bkgnd.LeftClick(XiaoHao, 299, 583)//点击最后一页Delay 1500Do sRect1 = Plugin.Window.GetClientRect(XiaoHao)Arr2 = Split(sRect1, "|")XX1 = CLng(Arr2(0))YY1 = CLng(Arr2(1))RtColor1 = Plugin.Color.GetPixelColor(XX1 + 246, YY1 + 332, 0)Call Plugin.Color.ColorToRGB(RtColor1, R, G, B)If R > 93 and R
90 and B < 120 Then Call Plugin.Bkgnd.RightClick(XiaoHao, cw2x, cw2y)//右键点击体力药水位置Delay 600Call Plugin.Bkgnd.LeftClick(XiaoHao, 347, 432)//点击同意Else Exit doEnd IfDelay 800Loop Delay 1000//判断小号是否携带FindPic 0, 0, px, py, "Attachment:\携带.bmp", 1, xx2, yy2If xx2 > 0 and yy2 > 0 Then Delay 100Call plugin.bkgnd.LeftClick (XiaoHao,296,196) End If//判断小号是否携带Delay 500Call Plugin.Bkgnd.LeftClick(XiaoHao, 305, 120)//点击关闭页面Delay 2000Call plugin.window.Active (DaHao)//激活大号窗口End IfEnd Sub'---------------------以上喂养宠物------------------------------Sub 判断大小号窗口是否存在()sWindow1 = Plugin.Window.IsWindow(DaHao)Delay 500sWindow2 = Plugin.Window.IsWindow(XiaoHao)Delay 500If swindow1 = 0 or swindow2 = 0 Then Call Plugin.Window.CloseEx(DaHao)//关闭大号Delay 500Call Plugin.Window.CloseEx(XiaoHao)//关闭小号Delay 100Call Plugin.Msg.Tips("已检测到大或小号Q堂窗口被卡掉，2分钟后重新登录，请勿理会！")Delay 120000Goto 重启End IfEnd SubSub 出错判断（）ChuCuo = Plugin.window.find(0, "程序错误")If ChuCuo
0 Then Call Plugin.Window.CloseEx(DaHao)//关闭大号Call Plugin.Window.CloseEx(DaHao)//关闭大号Delay 500Call Plugin.Window.CloseEx(XiaoHao)//关闭小号Call Plugin.Window.CloseEx(XiaoHao)//关闭小号Delay 100Call Plugin.Msg.Tips("辅助已检测到弹出了“程序错误”窗口，现已关闭了Q堂，2分钟后重新登录刷分，请勿理会！")Delay 120000Goto 重启End IfEnd Sub[/hide]
asdsadasdasdasdsa
hao a ,辛苦啦
看看看看看看看看看看
huangxiaochuan
学有所成学有所成勋章，新手步入按键学堂的第一枚勋章按键精灵开发者4级可通过提升认证等级来升级勋章：黄瓜勋章（永久）体验商业小精灵活动的奖励体验先锋勋章新版本体验先锋纪念勋章（360天）
想象之中，别人与我没有不同
看看顺便支持下
DDDDDDDDDDDDDDDDDDDDDDD
按键精灵开发者2级可通过提升认证等级来升级勋章：
这个必须要看看
来学习 学习
求刷啊求刷啊求刷啊求刷啊
看看是什么！！！
哈哈。。小时候最喜欢滴游戏 还记得为了找挂 几乎所有有挂的地方都被我搜罗了个遍
按键精灵开发者2级可通过提升认证等级来升级勋章：
我就看看·~~~
心亡则忘_°
DDDDDDDDDDDDD
觅风[胜者为王
看看去啊 好吗？}