用户注册



邮箱:

密码:

用户登录


邮箱:

密码:
记住登录一个月忘记密码?

发表随想


还能输入:200字
云代码 - 其他代码库

baidubrowser

2015-08-28 作者: menbo举报

[其他]代码库

RunApp "com.baidu.browser.apps"
 
//      Tap 210,916  //咨询
//      Call 咨询()
//      Call srollbottom(10)
//      Call ranDelayT()
//      Call srolltop(10)
//      KeyPress "Back"
//      Call ranDelayT()
//      Call homepage()
 Call Function ranDelayT(0,10000)
  
  
  
  
  
  
  
  
  
  
  
  
  
  
If CmpColorEx("73|348|00ECA7,81|354|00ECA7,43|393|9A9A9A,88|390|898989",0.9)=1 Then
 TracePrint "wweew"
 
    Tap 64,345
 Call ranDelayT()
 
End If
 
 Call srollbottom(10)
 
 
//返回首页
Function homepage
    Tap 65,916
End Function
 
//随机延迟
Function ranDelayT(minDelay,maxDelay)
    Dim ranDelay
 
    Randomize
    ranDelay = Int(maxDelay * Rnd())+minDelay/1000
 
    TracePrint ranDelay
    Delay ranDelay
    End If
End Function
 
 
//随机点击
Function MainRan
    Randomize
    dim caseid=Int (7 * Rnd())
    Select Case caseid
        Case 0, 1  //网页导航
        Tap 64, 345
        Delay 2000
        Call browseEX()
 
        Case 2
        Tap 217, 357
        Delay 2000
        Call browseEX()
         
        Case 3
        Tap 210,916  //咨询
        Delay 2000
        Call 咨询()
        Call browseEX()
         
        Case 4
        Tap 336,919 //星球
        Delay 2000
        Call browseEX()
         
        Case 5
        Tap 473,914 //我的
        Delay 2000
        Call browseEX()
         
        Case 6
        Tap 334,344 //百度影视
        Delay 2000
        Call browseEX()
         
        Case 7
        Tap 474, 343
        Delay 2000
        Call browseEX()//小说
    End Select
End Function
 
 
//上滚动
Function srollbottom(times)
  TracePrint "bot"
    Randomize
    Dim srollbot=int(times*Rnd())+1
    For srollbot
    TouchDown 291, 610,1
    TouchMove 291, 318,1,1000
    TouchUp
    Next
End Function
 
 
//下滚动
Function srolltop(times)
    Randomize
    Dim srolltop_t=int(times*Rnd())+1
    For srolltop_t
    TouchDown 291, 318,1
    TouchMove 291, 610,1,1000
    TouchUp
    Next
End Function
 
 
//咨询窗口逻辑
Function 咨询   
            Tap 210,916  //咨询
        Dim i=1
     Do Until i = 2
      
         Call srollbottom(10)
                  Dim intX,intY
    FindMultiColor 363,413,532,654,"B9B9B9","-11|-5|696969,13|-4|5D5D5D",0,0.8,intX,intY
    If intX > -1 And intY > -1 Then
    Tap intX,intY
    i=2
    TracePrint "naaaa"
    End If
    Loop
 
End Function
 
//平常浏览
Function normalbrowse(times)
    Call srollbottom(times)
    Call ranDelayT()
    Call srolltop(times)
End Function
 
 
 
//平常浏览加强版
Function browseEX 
        Call srollbottom(10)
        Call ranDelayT()
        Call srolltop(10)
        KeyPress "Back"
        Call ranDelayT()
        Call homepage()
End Function


网友评论    (发表评论)


发表评论:

评论须知:

  • 1、评论每次加2分,每天上限为30;
  • 2、请文明用语,共同创建干净的技术交流环境;
  • 3、若被发现提交非法信息,评论将会被删除,并且给予扣分处理,严重者给予封号处理;
  • 4、请勿发布广告信息或其他无关评论,否则将会删除评论并扣分,严重者给予封号处理。


扫码下载

加载中,请稍后...

输入口令后可复制整站源码

加载中,请稍后...