qq巧遇卡引流脚本源码

脚本附件：重新发牌.bmp, 开始聊天.bmp, 点击 输入框.bmp, 章鱼.bmp

运行环境：分辨率：1366×768 色深：32位 操作系统：Microsoft Windows XP 按键精灵版本：9.50.11632

@tgb78952013/1/18

Dim t   UserVar shuru="t" "这里是输入的内容"      Call a   Call b   Call c    SayString shuru       Delay 1000   Call e   Call f   Call h   Sub a //寻找章鱼头像       FindPic 0,0,1024,768,"Attachment:\章鱼.bmp",0.9,intX,intY       If intX > 0 And intY > 0 Then           MoveTo intX, intY           LeftClick 1                      Delay 2100       End If   End Sub   Sub b //点击开始聊天       FindPic 0,0,1024,768,"Attachment:\开始聊天.bmp",0.9,intX,intY       If intX > 0 And intY > 0 Then            MoveTo intX, intY           LeftClick 1                     Delay 2500       End If   End Sub   Sub c //点击文本框       MoveTo 610, 536       Delay 200       LeftClick 1       Delay 500   End Sub      Sub e //发送文本       KeyPress "Ctrl", 1       Delay 200       KeyPress "Enter", 1       Delay 200       KeyUp "Enter", 1       KeyUp "Ctrl", 1       Delay 700   End Sub   Sub f //关闭       MoveTo 931, 137       LeftClick 1   End Sub   Sub h       FindPic 0,0,1024,768,"Attachment:\重新发牌.bmp",0.9,intX,intY   If intX > 0 And intY > 0 Then   MoveTo intX, intY       Delay 200       LeftClick 1       Delay 1000      End If            End Sub