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