Misaka10013'blogs

最近和##谐##词越来越多了，我好几篇文章都被##锁了，啧啧啧，以后就是满屏马赛克。3.1版本更新，更新了点小内容。一个是应某人要求的自动评论后删除评论的功能，听说只要评论就有分，所以评论后删除评论更保险点。另一个是在每个点击坐标和间隔时间上加了随机数，让点击的位置和时间间隔更加不均匀，模拟人的操作。

Delay 2000
Dim screenX,screenY,deviceID,first=25
screenX = GetScreenX()
screenY = GetScreenY()
deviceID = GetDeviceID()
TracePrint ""&screenX&"*"&screenY&chr(10)
call messagebox ("御坂脚##本，启动！")

Dim yisepinci,fengxiang,shanpingjia,i,b,d,c,c1//如果为1则执行评价功能,b为设置评论次数//
yisepinci = 1 //评价开关//
fengxiang = 1 //分享开关//
shanpingjia = 0 //删除评论开关，默认关，且只有再启动自动#评论的情况下才能使用//
b = 1
d = 1
c1 = Int((5 - 1+1) * Rnd() + 1)//产生一个5至1之间的随机数//
Touch 1239+c1,365+c1, 100//点中间学习图标//
Delay 1000+c1*100
Touch 147+c1,375+c1, 100//再点推荐//
Delay 1000+c1*100
While first>0
	call messagebox ("准备点击文章")
	TracePrint "准备点击文章"
	Call dianwen()
	first = first - 1
    TouchDown 1010+c1,350+c1,1
    TouchMove 500+c1,370+c1,1,400
    TouchUp 1
	Delay 3000+c1*100
Wend
//----------------//
Sub dianwen()
    

	Touch 631+c1,345+c1, 100//点击文章，进入文章//
	Delay 1000+c1*100
	TracePrint "进入文章"//进入文章内部后慢慢下滑10S，点击收藏，点击评论归零，长按第一个评论，复制，点击，粘贴，发布，点击左上角返回//
	call messagebox ("进入文章")
	Delay 1000+c1*100
	call messagebox ("下滑10次")
	TracePrint "缓慢下滑10次"
	For i = 1 To 10 Step 1//缓慢下滑10次//
		TouchDown 1013+c1,366+c1, 1
		TouchMove 643+c1,371+c1, 1, 400
		TouchUp 1
	call messagebox ("滑动一次")
		Delay 2000+c1*100
	Next
	call messagebox ("点击收藏")
	Touch 1244+c1,113+c1, 100
	Delay 1000+c1*100
    If yisepinci = 1 And b < 5 Then 
    	Call pingjia()
    	b=b+1
    End If
    If shanpingjia = 1 And yisepinci = 1 Then 
    	Call shanping()
    End If
    Delay 1000+c1*100
    If fengxiang = 1 And d < 5 Then 
    	Call fx()
    	d=d+1
    End If
	call messagebox ("返回主界面")//返回主界面，完成一次文章查看//
	Touch 76+c1,676+c1, 100
	Delay 2000+c1*100

	
End Sub

//----------------//
Sub messagebox(box)
    TracePrint box
    ShowMessage box
    Delay 1500+c1*100
End Sub

//---删除评价子程序---//
Sub shanping()
	
	call messagebox ("向下滑动一次")
	TouchDown 1013+c1,366+c1, 1
	TouchMove 643+c1,371+c1, 1, 400
	TouchUp 1
	call messagebox ("点击评论，回到第一个评论位置")
	Touch 1249+c1,207+c1, 100
	Delay 1000+c1*100
	Call messagebox("寻找我并获得相对坐标")
    Dim intX, intY,backword
    backword=FindColor(0, 0, 0, 0, "EAEDF0",0, 1, intX, intY)//当需要函数返回值时需要加括号
    If backword > -1 Then
        Call messagebox("尝试删除评论")
        Call messagebox(intX)
        Delay 1000+c1*100
	    Touch intX + 93, intY - 505, 100
	    Delay 1000+c1*100
	    Touch 695 + c1, 121 + c1, 100
	    Delay 1000+c1*100
    Else
        call messagebox ("没有找到我的评论")
    End If
	
End Sub

//---评论子程序---//
Sub pingjia()
	

	call messagebox ("点击评论，回到第一个评论位置")
	Touch 1249+c1,207+c1, 100
	Delay 1000+c1*100
	call messagebox ("点击输入框，获得光标")
	Touch 1249+c1,500+c1, 100
	Delay 1000+c1*100
	c = Int((5 - 1+1) * Rnd() + 1)//产生一个5至1之间的随机数//
	Select Case c//判断随机数//
    Case 2
    	InputText "祖国更美好！"//情况1
    Case 3
    	InputText "创建美丽文明中国！"//情况2
    Case 4
    	InputText "共同创新，共建未来！"//情况2
    Case 5
    	InputText "建设人类命运共同体的光明前景！"//情况2
    Case Else
    	InputText "祝愿祖国目前繁荣昌盛，国泰民安！"//否则
    End Select
	Delay 1000+c1*100
	call messagebox ("点击发表")
	Touch 1167+c1,53+c1, 100
	Delay 1000+c1*100
	
End Sub

//---分享子程序---//
Sub fx()
	
	messagebox ("点击分享")//点击分享，点分享到学##习##强国，点击群，点发送//
	Touch 1244+c1,50+c1, 100
	Delay 1000+c1*100
	messagebox ("点分享到学习##强国")//点分享到学习##强国//
	Touch 880+c1,633+c1, 100
	Delay 1000+c1*100
	messagebox ("点击群")//点击群//
	Touch 470+c1,355+c1, 100
	Delay 1000+c1*100
	messagebox ("点发送")//点发送，坐标未确定//
	Touch 775+c1,145+c1, 100
	Delay 2000+c1*100
	
End Sub

御坂世界

学习强国脚本v.3.1