全民K歌引流脚本源码

资源介绍：

使用要求：手机/安卓模拟器/分辨率720*1280

资源作者：

杀死书生

资源代码：

Dim intX,intY,intX1,intY1,intX2,intY2,intX3,intY3,intX4,intY4,intX5,intY5,intX6,intY6,juli,找到起点,起点x,起点y,延迟时间,在线观众界面,私信页面,聊天窗口,输入是否激活,未知错误
 
juli = 69
 
未知错误 = 0
 
找到起点 = 0
 
私信页面 = 0
 
聊天窗口 = 0
 
延迟时间 = 800
 
输入是否激活 = 0
 
在线观众界面 = 0
 
For 9999
 
    If 找到起点 = 0 Then
 
        FindPic 326,129, 397,195, "Attachment:起点.png", "000000", 0, 0.9, intX1, intY1  //找到起点
 
        If intX1 > -1 And intY1 > -1 Then
 
            找到起点 = 1
 
            TracePrint "起点坐标是："&intX1,intY1
         
            //Tap intX1 + 2, intY1 + 2
     
            起点x = intX1 + 2
     
            起点y = intY1 + 2
     
        End If
    End If
         
     
    //检测界面 
     
     
    //在线观众界面 
                     
    FindPic 326,129, 397,195, "Attachment:起点.png", "000000", 0, 1.0, intX2, intY2  
  
    If intX2 > -1 And intY2 > -1 Then
      
        在线观众界面 = 1
         
    Else
     
        在线观众界面 = 0
      
    End If   
          
    // 私信页面
 
    FindPic 374,766, 461,800, "Attachment:私信.png", "000000", 0, 0.9, intX3, intY3   
     
    If intX3 > -1 And intY3 > -1 Then
      
        私信页面 = 1
         
    Else
     
        私信页面 = 0
      
    End If
            
    //聊天窗口
     
    FindPic 686,43, 714,88, "Attachment:聊天窗口.png", "000000", 0, 0.9, intX4, intY4
     
    If intX4 > -1 And intY4 > -1 Then 
             
        聊天窗口 = 1        
         
    Else
          
        聊天窗口 = 0
         
    End If
         
    //输入是否激活
         
    FindPic 666,1233, 698,1264, "Attachment:发送信息.png", "000000", 0, 0.9, intX5, intY5
         
    If intX5 > -1 And intY5 > -1 Then 
                 
        输入是否激活 = 1        
             
    Else
              
        输入是否激活 = 0
             
    End If
 
     
    If 在线观众界面 = 1 Then
     
        TracePrint "进入在线观众界面"
             
        Tap 起点x,起点y
             
        Delay 延迟时间        
     
    ElseIf 私信页面 = 1 Then
     
        TracePrint "私信页面"
         
        Tap intX3, intY3
     
    ElseIf 聊天窗口 = 1 Then
     
        TracePrint "聊天窗口"
     
        If 输入是否激活 = 1 Then
     
            TracePrint "输入是否激活"
         
            Tap 269,1255  //激活输入
             
            InputText "你好！很喜欢你的歌声，可以做朋友么？我想认识你，我的威：*******" //这只是个例子。
         
            Tap intX5, intY5  //发送消息
                 
            Delay 延迟时间
                                 
            //限制发送
         
            FindPic 389,588, 451,627, "Attachment:限制发送.png", "000000", 0, 0.9, intX6, intY6
         
            If intX6 > -1 And intY6 > -1 Then 
                 
             
                // 限制发送停止运行 
         
                未知错误 = 11
     
                For i = 1 To 10
         
                    未知错误 = 未知错误 - 1
         
                    ShowMessage "您每日私信已超限制，请明天再试或更换账号，" & 未知错误 & "秒后停止运行！"
         
                    Delay 1000
             
                Next
         
                EndScript     
             
            Else
             
                Tap 32,67 //返回在线人数列表
                 
                Delay 延迟时间
         
                Tap 564, 110 //关闭弹窗 
             
                起点y = 起点y + juli
                 
                Delay 延迟时间
             
            End If
             
        End If
  
    End If
     
Next