百度贴吧按键精灵脚本制作

作者 : 超级管理员 本文共3840个字,预计阅读时间需要10分钟 发布时间: 2021-08-4 共354人阅读
//进入百度贴吧
RunApp "com.baidu.tieba"
//找到登陆的地方,点击输入框,点击账号密码登陆,点击登陆
Function 找登录()
    Delay 5000
    Dim intX,intY
    FindPic 0,0,0,0,"Attachment:登陆.png","000000",0,0.9,intX,intY
    If intX > -1 And intY > -1 Then
        ShowMessage "找到登陆,坐标:" & intX & "," & intY
        Delay 1000
        TracePrint intX & "," & intY
        Tap intX, intY
        Delay 3000
        登陆贴吧()
    Else 
        ShowMessage "用户已经登陆,现在在首页位置"
        //查找 进吧
        If 当前是在进吧页面() Then 
            进入贴吧()
        Else 
            查找进吧()	
        End If
    End If
End Function
//判断当前页面是否在进吧页面
Function 当前是在进吧页面()
    Dim intX,intY
    FindPic 62,1766,399,1916,"Attachment:当前在进吧页面.png","000000",0,0.9,intX,intY
    If intX > -1 And intY > -1 Then
        当前是在进吧页面 = True
    Else 
        当前是在进吧页面 = False
    End If
End Function
//查找进吧
Function 查找进吧()
    Dim intX,intY
    FindPic 41,1765,1032,1904,"Attachment:进吧.png","000000",0,0.9,intX,intY
    If intX > -1 And intY > -1 Then
        ShowMessage "查找进吧"
        TracePrint "进吧坐标:" & intX & "," & intY
        Tap intX, intY
        Delay 2000
        进入贴吧()
    End If	
End Function
//进入小鱼儿科技贴吧
Function 进入贴吧()
    Dim intX,intY
    FindPic 0,0,0,0,"Attachment:小鱼儿科技贴吧.png","000000",0,0.9,intX,intY
    If intX > -1 And intY > -1 Then
        ShowMessage "小鱼儿科技贴吧"
        TracePrint "小鱼儿科技贴吧:" & intX & "," & intY
        Tap intX, intY
        Delay 2000
        //点击发帖类型
        选择发帖类型()
    End If	
End Function
//选择发帖类型
Function 选择发帖类型()
    Dim intX,intY
    FindPic 884,1566,1031,1716,"Attachment:选择发帖类型.png","000000",0,0.9,intX,intY
    If intX > -1 And intY > -1 Then
        ShowMessage "选择发帖类型"
        TracePrint "选择发帖类型:" & intX & "," & intY
        Tap intX, intY
        Delay 2000
        主题贴()
    End If
End Function
//投票贴
Function 投票贴()
End Function
//视频贴
Function 视频贴()
    Dim intX,intY
    FindPic 903,840,1012,962,"Attachment:视频贴.png","000000",0,0.9,intX,intY
    If intX > -1 And intY > -1 Then
        TracePrint intX
        TracePrint intY
    End If
End Function
//连载贴
Function 连载贴()
    Dim intX,intY
    FindPic 899,1026,1021,1150,"Attachment:连载贴.png","000000",0,0.9,intX,intY
    If intX > -1 And intY > -1 Then
        TracePrint intX
        TracePrint intY
    End If
End Function
//直播贴
Function 直播贴()
    Dim intX,intY
    FindPic 906,1215,1014,1331,"Attachment:直播贴.png","000000",0,0.9,intX,intY
    If intX > -1 And intY > -1 Then
        TracePrint intX
        TracePrint intY
    End If	
End Function
//主题帖
Function 主题贴()
    Dim intX,intY
    FindPic 906,1402,1009,1518,"Attachment:主题帖.png","000000",0,0.9,intX,intY
    If intX > -1 And intY > -1 Then 
        ShowMessage "主题帖"
        TracePrint "主题帖:" & intX & "," & intY
        Tap intX, intY
        Delay 2000
        主站贴标题() 
        Delay 2000
        发表()
    End If	
End Function
//主站贴标题
Function 主站贴标题()
    //点击标题
    Tap 251, 298 
    Delay 500
    标题() 
    Delay 1000
    //点击内容区域
    Tap 80, 431 
    Delay 500
    主站贴内容()
    
    
End Function
//点击发表
Function 发表()
    Dim intX,intY
    FindPic 0,0,0,0,"Attachment:发表.png","000000",0,0.9,intX,intY
    If intX > -1 And intY > -1 Then
        ShowMessage "发表"
        TracePrint "发表:" & intX & "," & intY
        Tap intX, intY
        Delay 2000
    End If
End Function
Function 标题()
    KeyPress "Z"
    KeyPress "H"
    KeyPress "E"
    KeyPress "S"
    KeyPress "H"
    KeyPress "I"
    KeyPress "S"
    KeyPress "H"
    KeyPress "E"
    KeyPress "M"
    KeyPress "E"
    KeyPress "T"
    KeyPress "I"
    KeyPress "E"
    KeyPress "B"
    KeyPress "A"
    
    KeyPress "1"
End Function

//主站贴内容
Function 主站贴内容()
    KeyPress "D"
    KeyPress "I"
    KeyPress "Y"
    KeyPress "I"
    KeyPress "G"
    KeyPress "E"
    KeyPress "T"
    KeyPress "I"
    KeyPress "E"
    KeyPress "B"
    KeyPress "A"
    
    KeyPress "1"
End Function
//输入登陆的手机号码
Function 手机号码()
    KeyPress "1"
    KeyPress "7"
    KeyPress "7"
    KeyPress "7"
    KeyPress "5"
    KeyPress "3"
    KeyPress "4"
    KeyPress "5"
    KeyPress "0"
    KeyPress "7"
    KeyPress "0"
End Function
//输入登陆密码 yzd17775345070
Function 输入登陆密码()
    KeyPress "Y"
    KeyPress "Z"
    KeyPress "D"
    手机号码()
End Function
//点击登陆
Function 点击登陆()
    Dim intX,intY
    FindColor 387,1380,754,1470,"F26E4E-101010|FFFFFF-101010|FFFFFF-101010|F26E4E-101010|FFFFFF-101010|FFF7F5-101010",0,0.9,intX,intY
    If intX > -1 And intY > -1 Then
        ShowMessage "账号密码登陆"
        TracePrint "账号密码登陆:" & intX & "," & intY
        Tap intX, intY
        Delay 2000
    End If
End Function
//账号密码登陆
Function 账号密码登陆()
    Dim intX,intY
    FindPic 404,1232,700,1308,"Attachment:账号密码登陆.png","000000",0,0.9,intX,intY
    If intX > -1 And intY > -1 Then
        ShowMessage "账号密码登陆"
        TracePrint "账号密码登陆:" & intX & "," & intY
        Tap intX, intY
        Delay 2000
        //密码输入框获取焦点
        Tap 555,1088
        Delay 2000
        //输入登陆密码
        输入登陆密码() 
        Delay 2000
        点击登陆()
    End If
End Function
//点击下一步
Function 点击下一步()
    Dim intX,intY
    FindPic 283,1056,825,1165,"Attachment:下一步.png","000000",0,0.9,intX,intY
    If intX > -1 And intY > -1 Then
        ShowMessage "点击下一步"
        TracePrint "下一步坐标:" & intX & "," & intY
        Tap intX, intY
        Delay 2000
        //选择账号密码登陆
        账号密码登陆()
    End If
End Function
//输入贴吧账号,输入密码
//点击阅读并同意用户协议
//登陆百度贴吧
Function 登陆贴吧()
    //输入手机号码的位置获取焦点 及点击一下
    Tap 370,877
    //输入账号
    手机号码 
    Delay 3000
    //勾选与用户协议和隐私政策
    Tap 248, 1271
    Delay 3000
    //点击下一步
    点击下一步()
End Function
找登录 
本站所发布的资源均来源于互联网,仅限用于研究学习,不得将软件用于商业或者非法用途,否则一切后果请用户自负!如果侵犯了您的权益请与我们联系!您必须在下载后的24个小时之内,从您的手机和电脑中彻底删除。 如果您喜欢该程序,请支持正版软件,购买注册,得到更好的正版服务。如有侵权请与我们联系处理!
互利网 » 百度贴吧按键精灵脚本制作

常见问题FAQ

免费下载或者VIP会员专享资源能否直接商用?
本站所有资源版权均属于原作者所有,这里所提供资源均只能用于参考学习用,请勿直接商用。若由于商用引起版权纠纷,一切责任均由使用者承担。更多说明请参考 VIP介绍。
提示下载完但解压或打开不了?
最常见的情况是下载不完整:可对比下载完压缩包的与网盘上的容量,若小于网盘提示的容量则是这个原因。这是浏览器下载的bug,建议用百度网盘软件或迅雷下载。 若排除这种情况,可在对应资源底部留言,或联络我们。

发表评论