QQ名片自动点赞

Call head() ‘默认启用头
Sub head()
	Tap 64, 92 ‘点击头像
	Delay 1000
	Tap 60,231 ‘进入名片
	Delay 1000
	Tap 615,427 ‘进入赞
	Delay 1000
	TouchDown 500,485, 1 ‘去除统计头
	TouchDown 0,0, 2
	TouchMove 500,150, 1, 1
	TouchUp 1
	TouchUp 2
End Sub

Dim hd=1
Dim dz=1
Do While hd=1 ‘点赞当屏
	Dim i=360
	For 6 ‘6个人一屏
		For 10 ‘每个人点赞10次
			Tap 600,i
		Next
		i=i+173
	Next
	TouchDown 500,1269, 1 ‘滑动一屏
	TouchDown 0,0, 2
	TouchMove 500,237, 1, 1
	TouchUp 1
	TouchUp 2
	Delay 1000
	If CmpColorEx("262|1200|FBF9F9,292|1211|C6C6C6,283|1230|FBF9F9,274|1229|C6C6C6", 0.9) = 1 Then 
		ShowMessage "点击显示更多",1000,32,8
		Tap 377,1226
	ElseIf CmpColorEx("118|1159|E0DFDE,126|1183|FBF9F9,329|1258|FBF9F9,286|1217|A6A6A6,488|1216|A6A6A6,557|1233|FBF9F9", 0.9) = 1 Then
		ShowMessage "不需要滑动了",1000,32,8
		hd=0
	End If
Loop