qq巧遇卡引流脚本源码

qq巧遇卡引流脚本源码

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

运行环境：分辨率：1366x768 色深：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