Q宠企鹅自动学习脚本

随地大小变

本脚本为按键精灵编译，全模拟键鼠操作，不用担心TX降你级什么的，本来想用AUTOIT编的，但按键精灵位图识别好用，弄起来方便点
现功能为：企鹅饿了自动买食喂养，脏了自动买了洗，不停的自动学习，心情不好不学习就点击它逗它加心情，够了又学习，并输出记录到桌面QQ.TXT。我已测试1周，马上学大学课了。





现只支持1400*900屏幕分辨率，32位颜色质量（我自己是这样的.....）企鹅是公的（我的是公的.....）

编译好的EXE程序下载  18999112.RAR[/url]  

希望大家能一起修改完善本脚本，能支持其它分辨率，支持母的，再来个自动打工版，学习打工双修版什么的.....

还有编译要用到的些位图也在 18999112.RAR 里

脚本源码：

Hwnd = Plugin.Window.Find(0, "CV[1][1]")
sWindow = Plugin.Window.IsWindow(Hwnd)
While sWindow=1
    Delay 6000
    FindPic 1239,870,1439,899,"Attachment:\托盘脏.bmp",0.7,qX,qY
    FindPic 1239,870,1439,899,"Attachment:\托盘脏2.bmp",0.7,qXx,qYy
    If qX > 0 And qY > 0 Then
        Call 洗澡()
    ElseIf qXx > 0 And qYy > 0 Then
        Call 洗澡()
    End If
    FindPic 1239,870,1439,899,"Attachment:\托盘.bmp",1,zX,zY
    Delay 300
    FindPic 1239,870,1439,899,"Attachment:\托盘.bmp",1,zXx,zYy
    If zX > 0 And zY > 0 and zXx > 0 And zYy > 0 Then
        Call 学习()
    End if
    FindPic 1239,870,1439,899,"Attachment:\托盘饿.bmp",0.7,eX,eY
    Delay 300
    FindPic 1239,870,1439,899,"Attachment:\托盘饿.bmp",0.7,eXx,eYy
    If eX > 0 And eY > 0 and eXx > 0 And eYy > 0 Then
        Call 喂食()
    End if
Wend

Sub 学习
    FindPic 1239,870,1439,899,"Attachment:\托盘.bmp",1,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX+7, intY+10
        RightClick 1
    End if
    Delay 1000
    FindPic 1239,700,1439,869,"Attachment:\喂养宠物.bmp",1,intX,intY
    if intX > 0 And intY > 0 Then
        MoveTo intX+26, intY+6
    End If
    Delay 1000
    FindPic 1135,700,1439,899,"Attachment:\学习.bmp",1,intX,intY
    if intX > 0 And intY > 0 Then
        MoveTo intX+26, intY+6
        LeftClick 1
        Delay 5000
        Hwnd = Plugin.Window.Find(0, "CV[1][1]")
        Call Plugin.Window.Move(Hwnd, 1155, 650)
        Hwnd = Plugin.Window.Find(0, "res&#92lugins\QuickWorudy\QuickWorudy.swf")
        Call Plugin.Window.Move(Hwnd, 1079, 442)
        MoveTo 1235, 575
        Delay 500
        LeftClick 1
        Delay 5000
        Hwnd = Plugin.Window.Find(0, "res&#92lugins\QuickWorudy\QuickWorudy.swf")
        Call Plugin.Window.Move(Hwnd, 1079, 442)
        MoveTo 1363, 457
        Delay 500
        LeftClick 1
    End If
    Delay 5000
    FindPic 1239,870,1439,899,"Attachment:\托盘.bmp",1,intX,intY
    If intX > 0 And intY > 0 Then
        Hwnd = Plugin.Window.Find(0, "QQ.txt - 记事本")
        Call Plugin.Window.CloseEx(Hwnd)
        sDate = Plugin.Sys.GetDateTime()
        fileLen=Plugin.File.GetFileLength("C:\Documents and Settings\Administrator\桌面\QQ.txt")   
        handle=Plugin.File.OpenFile("C:\Documents and Settings\Administrator\桌面\QQ.txt")   
        Call Plugin.File.SeekFile(handle,fileLen)   
        Call Plugin.File.WriteFile(handle,sDate)   
        Call Plugin.File.WriteLine(handle,"宠物不高兴了，逗它")   
        Call Plugin.File.CloseFile(handle)   
        RunApp "C:\Documents and Settings\Administrator\桌面\QQ.txt"
        For 5
            Hwnd = Plugin.Window.Find(0, "CV[1][1]")
            Call Plugin.Window.Move(Hwnd, 1155, 650)
            MoveTo 1230, 750
            LeftClick 1
            Delay 1000
            LeftClick 1
            Delay 1000
            LeftClick 1
            Delay 1000
            Hwnd = Plugin.Window.Find(0, "CV[1][1]")
            Call Plugin.Window.Move(Hwnd, 1155, 650)
            MoveTo 1230, 760
            LeftClick 1
            Delay 1000
            LeftClick 1
            Delay 1000
            LeftClick 1
            Delay 1000
            Hwnd = Plugin.Window.Find(0, "CV[1][1]")
            Call Plugin.Window.Move(Hwnd, 1155, 650)
            MoveTo 1230, 770
            LeftClick 1
            Delay 1000
            LeftClick 1
            Delay 1000
            LeftClick 1
            Delay 1000
        Next
        Call 学习()
    Else
        Hwnd = Plugin.Window.Find(0, "QQ.txt - 记事本")
        Call Plugin.Window.CloseEx(Hwnd)
        sDate = Plugin.Sys.GetDateTime()
        fileLen=Plugin.File.GetFileLength("C:\Documents and Settings\Administrator\桌面\QQ.txt")   
        handle=Plugin.File.OpenFile("C:\Documents and Settings\Administrator\桌面\QQ.txt")   
        Call Plugin.File.SeekFile(handle,fileLen)   
        Call Plugin.File.WriteFile(handle,sDate)   
        Call Plugin.File.WriteLine(handle,"宠物开始学习")   
        Call Plugin.File.CloseFile(handle)   
        RunApp "C:\Documents and Settings\Administrator\桌面\QQ.txt"
    End if
End sub

Sub 洗澡()
    FindPic 1239,870,1439,899,"Attachment:\托盘脏.bmp",0.7,qX,qY
    FindPic 1239,870,1439,899,"Attachment:\托盘脏2.bmp",0.7,qXx,qYy
    If qX > 0 And qY > 0 Then
        MoveTo qX+7, qY+10
        RightClick 1
    ElseIf qXx > 0 And qYy > 0 Then
        MoveTo qXx+7, qYy+10
        RightClick 1
    End if
    Delay 1000
    FindPic 1239,700,1439,869,"Attachment:\喂养宠物.bmp",1,intX,intY
    if intX > 0 And intY > 0 Then
        MoveTo intX+26, intY+6
    End If
    Delay 1000
    FindPic 1135,700,1439,899,"Attachment:\清洁.bmp",1,intX,intY
    if intX > 0 And intY > 0 Then
        MoveTo intX+26, intY+6
        LeftClick 1
        Delay 5000
        Hwnd = Plugin.Window.Find(0, "CV[1][1]")
        Call Plugin.Window.Move(Hwnd, 1155, 650)
        Hwnd = Plugin.Window.Find(0, "res&#92lugins\QuickFeed\QuickFeed.swf")
        Call Plugin.Window.Move(Hwnd, 1079, 416)
        MoveTo 1335, 430
        Delay 500
        LeftClick 1
        Delay 5000
        Hwnd = Plugin.Window.Find(0, "res&#92lugins\QuickFeed\QuickFeed.swf")
        Call Plugin.Window.Move(Hwnd, 1079, 416)
        MoveTo 1225, 625
        Delay 500
        LeftClick 1
        Delay 5000
        Hwnd = Plugin.Window.Find(0, "res&#92lugins\QuickFeed\QuickFeed.swf")
        Call Plugin.Window.Move(Hwnd, 1079, 416)
        MoveTo 1185, 590
        Delay 500
        LeftClick 1
        Delay 5000
        Hwnd = Plugin.Window.Find(0, "res&#92lugins\QuickFeed\QuickFeed.swf")
        Call Plugin.Window.Move(Hwnd, 1079, 416)
        MoveTo 1195, 500
        Delay 500
        LeftClick 1
        Delay 5000
        Hwnd = Plugin.Window.Find(0, "res&#92lugins\QuickFeed\QuickFeed.swf")
        Call Plugin.Window.Move(Hwnd, 1079, 416)
        MoveTo 1365, 460
        Delay 500
        LeftClick 1
        Hwnd = Plugin.Window.Find(0, "QQ.txt - 记事本")
        Call Plugin.Window.CloseEx(Hwnd)
        sDate = Plugin.Sys.GetDateTime()
        fileLen=Plugin.File.GetFileLength("C:\Documents and Settings\Administrator\桌面\QQ.txt")   
        handle=Plugin.File.OpenFile("C:\Documents and Settings\Administrator\桌面\QQ.txt")   
        Call Plugin.File.SeekFile(handle,fileLen)   
        Call Plugin.File.WriteFile(handle,sDate)   
        Call Plugin.File.WriteLine(handle,"宠物脏了，洗澡！")   
        Call Plugin.File.CloseFile(handle)   
        RunApp "C:\Documents and Settings\Administrator\桌面\QQ.txt"
    End If
End Sub

Sub 喂食()
    FindPic 1239,870,1439,899,"Attachment:\托盘饿.bmp",0.7,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX+7, intY+10
        RightClick 1
    End if
    Delay 1000
    FindPic 1239,700,1439,869,"Attachment:\喂养宠物.bmp",1,intX,intY
    if intX > 0 And intY > 0 Then
        MoveTo intX+26, intY+6
    End If
    Delay 1000
    FindPic 1135,700,1439,899,"Attachment:\喂食.bmp",1,intX,intY
    if intX > 0 And intY > 0 Then
        MoveTo intX+26, intY+6
        LeftClick 1
        Delay 5000
        Hwnd = Plugin.Window.Find(0, "CV[1][1]")
        Call Plugin.Window.Move(Hwnd, 1155, 650)
        Hwnd = Plugin.Window.Find(0, "res&#92lugins\QuickFeed\QuickFeed.swf")
        Call Plugin.Window.Move(Hwnd, 1079, 416)
        MoveTo 1335, 430
        Delay 500
        LeftClick 1
        Delay 5000
        Hwnd = Plugin.Window.Find(0, "res&#92lugins\QuickFeed\QuickFeed.swf")
        Call Plugin.Window.Move(Hwnd, 1079, 416)
        MoveTo 1225, 625
        Delay 500
        LeftClick 1
        Delay 5000
        Hwnd = Plugin.Window.Find(0, "res&#92lugins\QuickFeed\QuickFeed.swf")
        Call Plugin.Window.Move(Hwnd, 1079, 416)
        MoveTo 1185, 590
        Delay 500
        LeftClick 1
        Delay 5000
        Hwnd = Plugin.Window.Find(0, "res\Plugins\QuickFeed\QuickFeed.swf")
        Call Plugin.Window.Move(Hwnd, 1079, 416)
        MoveTo 1195, 500
        Delay 500
        LeftClick 1
        Delay 5000
        Hwnd = Plugin.Window.Find(0, "res\Plugins\QuickFeed\QuickFeed.swf")
        Call Plugin.Window.Move(Hwnd, 1079, 416)
        MoveTo 1365, 460
        Delay 500
        LeftClick 1
        Hwnd = Plugin.Window.Find(0, "QQ.txt - 记事本")
        Call Plugin.Window.CloseEx(Hwnd)
        sDate = Plugin.Sys.GetDateTime()
        fileLen=Plugin.File.GetFileLength("C:\Documents and Settings\Administrator\桌面\QQ.txt")   
        handle=Plugin.File.OpenFile("C:\Documents and Settings\Administrator\桌面\QQ.txt")   
        Call Plugin.File.SeekFile(handle,fileLen)   
        Call Plugin.File.WriteFile(handle,sDate)   
        Call Plugin.File.WriteLine(handle,"宠物饿了，吃东西")   
        Call Plugin.File.CloseFile(handle)   
        RunApp "C:\Documents and Settings\Administrator\桌面\QQ.txt"
    End If
End Sub

晴川

这个东西好啊，我帮你传到论坛上来大家下载。

QQ企鹅自动养.part05.rar

QQ企鹅自动养.part04.rar

QQ企鹅自动养.part03.rar

QQ企鹅自动养.part02.rar

QQ企鹅自动养.part01.rar

随地大小变

3 Q U 晴师，但你传的现在不能用了

TX更新了Q宠企鹅，脚本坐标有变，我已对帖子重新编辑

以后TX再有更新，有兴趣的朋友可自己用按键精灵更改脚本