用户注册



邮箱:

密码:

用户登录


邮箱:

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

发表随想


还能输入: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、请勿发布广告信息或其他无关评论,否则将会删除评论并扣分,严重者给予封号处理。


扫码下载

加载中,请稍后...

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

加载中,请稍后...