Function endFunction(path, number)
	File.Write(path, number)
	EndScript
End Function


// 转账按钮界面的所有操作都包装在这个函数里
Function transfer(jpgStorePath, pngStorePath, path, number, itemNumber)
	// 有没有头像的转账按钮位置不同，所以只能通过颜色来判断位置
	Dim transferPointX, transferPointY
	// 转账按钮界面的下边界
	Dim borderX, borderY
	// 转账按钮界面的性别颜色

	Dim blueX, blueY, redX, redY, greenX, greenY, gender
	// 操作太过频繁的颜色
	Dim color7, color8
	// 账号存在异常的颜色
	Dim color4, color5
	// 操作上限颜色
	Dim color6

	// 今天操作太频繁了，请改天再来
	color6=CmpColor(13, 1263, "626262", 1.0)
	If color6 > -1 Then
		TracePrint "今天操作太频繁了，请改天再来"
		SnapShot pngStorePath & CStr(number) & "-" & CStr(itemNumber) & "-今日操作过多" & ".png"
		Tap 545, 751
		Call endFunction(path, number)
	End If

	// 性别这里总共有三种颜色，绿色代表公司，粉红代表女，蓝色代表男
	// 蓝色
	FindColor 27, 585, 709, 1268, "FA9B25", 0, 1.0, blueX, blueY
	If blueX > -1 And blueY > -1 Then
		gender = "man"
	End If
	// 粉红色
	FindColor 27, 585, 709, 1268, "7E59F6", 0, 1.0, redX, redY
	If redX > -1 And redY > -1 Then
		gender = "woman"
	End If
	// 绿色
	FindColor 27, 585, 709, 1268, "A1B112", 0, 1.0, greenX, greenY
	If greenX > -1 And greenY > -1 Then
		gender = "company"
	End If

	// 截图
	FindColor 27, 585, 709, 1268, "FFFFFF", 3, 1.0, borderX, borderY
	If borderX > -1 And borderY > -1 Then
		SnapShot pngStorePath & CStr(number) & "-" & CStr(itemNumber) & "-" & gender & ".png", 27, 585, 709, borderY
	End If

	// 点击：转账
	FindColor 15, 516, 40, 972, "E98E10", 0, 1.00, transferPointX, transferPointY
	TracePrint "transferPointX="&transferPointX&", transferPointY="&transferPointY
	If transferPointX > -1 And transferPointY > -1 Then
		TracePrint "transferPointX="&transferPointX&", transferPointY="&transferPointY
		Tap transferPointX, transferPointY
		Delay 1000
	End If

	TracePrint "点击转账结束"

	// 点击转账后，如果出现：操作太过频繁，请稍后再试
	color7 = CmpColor(13, 1263, "626262", 1.0)
	color8 = CmpColor(136, 574, "FFFFFF", 1.0)
	If color7 > -1 And color8 > -1 Then
		TracePrint "操作太频繁"
		SnapShot pngStorePath & CStr(number) & "-" & CStr(itemNumber) & "-操作太过频繁" & ".png"
		Tap 548, 758
		Delay 1000

		// 开始返回一层
		Tap 45, 97
		Delay 1000

		Call endFunction(path, number)
	End If

	TracePrint "操作太过频繁验证通过"

	// 点击转账后，如果账号存在异常
	color4 = CmpColor(13, 1263, "626262", 1.0)
	color5 = CmpColor(168, 788, "FFFFFF", 1.0)
	If color4 > -1 And color5>-1 Then
		TracePrint "账号存在异常"
		SnapShot pngStorePath & CStr(number) & "-" & CStr(itemNumber) & "-账号存在异常.png"
		Tap 548, 759
		Delay 1000

		// 开始返回一层
		Tap 45, 97
		Delay 1000
	Else
		TracePrint "进入克服网络延迟"
		// 克服网络延迟，循环等待
		Dim b=0, returnColor
		While b = 0
			returnColor = CmpColor(547, 508, "FFFFFF", 1.0)
			If returnColor > -1 Then
				b=1
			End If
			Delay 1000
		Wend

		// 有个提示：对方长时间没用支付宝，把这个提示叉掉
		Tap 682, 179
		Delay 1000
		TracePrint "叉掉点击验证"
		// 去掉点击验证
		Dim verifyX, verifyY
		FindColor 0, 236, 717, 258, "E98E10", 0, 1.0, verifyX, verifyY
		If verifyX > -1 And verifyY > -1 Then
			verifyX = verifyX - 2
		End If
		TracePrint "准备截图"
		SnapShot jpgStorePath & CStr(number) & "-" & CStr(itemNumber) & "-verify.jpg", 0, 224, verifyX, 273

		// 开始返回（两层）
		Tap 35, 92
		Delay 1000
		Tap 35, 92
		Delay 1000
		TracePrint "返回两层"
	End If
End Function

// 点击联系人电话
Function clickPhone(jpgStorePath, pngStorePath, path, positionX, positionY, number)

	TracePrint "进入clickPhone"
	TracePrint "positionX=" & positionX & ", positionY=" & positionY
	// 统计多少次之后出现：今日操作过多
	Dim count

	// 如果有多条记录，就要进入选择界面
	Dim color1=CmpColor(13, 1263, "666666", 0.9)
	If color1 > -1 Then
		TracePrint "对应多个支付宝"
		// 截取选择界面
		Dim leftTopX, leftTopY, rightBottomX, rightBottomY, itemColor, isSwipe, barColor
		FindColor 0, 108, 694, 1259, "FFFFFF", 0, 1.00, leftTopX, leftTopY
		FindColor 0, 108, 694, 1259, "FFFFFF", 2, 1.00, rightBottomX, rightBottomY
		If leftTopX > -1 And leftTopY > -1 And rightBottomX > -1 And rightBottomY > -1 Then
			SnapShot pngStorePath & CStr(number) & "-itemList.png", leftTopX, leftTopY, rightBottomX, rightBottomY

			// 有些手机号对应9个支付宝，而界面只能容纳7个，如果多于6个item，itemColor这个位置就是纯白色
			itemColor = CmpColor(669, 1263, "FFFFFF", 1.0)
			If itemColor > -1 Then
				isSwipe = True
			End If
			// 选择记录，每个记录的单元格是恒定不变的，大概是x:620，y:151
			Dim itemNumber, itemHeight, clickX, clickY
			itemNumber = (rightBottomY - leftTopY) / 151
			itemNumber = CInt(itemNumber)
			itemHeight = (rightBottomY - leftTopY) / itemNumber
			clickX = (rightBottomX - leftTopX) / 2
			TracePrint "itemNumber = " & itemNumber
			For i = 0 To itemNumber - 1 Step 1
				TracePrint "i = " & i
				// 如果不是第一次点，item界面是要重新点击才能获取的
				If Not (i = 0) Then
					TracePrint "如果不是第一次点，item界面是要重新点击才能获取的"
					Tap positionX, positionY
					Delay 1000
				End If

				// 点击item
				clickY = leftTopY + i * itemHeight + itemHeight / 2
				Tap clickX, clickY
				Delay 1000

				Call transfer(jpgStorePath, pngStorePath, path, number, i)
				count = count + 1
			Next

			If isSwipe = True Then
				For i = 0 To 6 Step 1
					TracePrint "i = " & i+7

					TracePrint "如果不是第一次点，item界面是要重新点击才能获取的"
					Tap positionX, positionY
					Delay 1000

					Swipe 364, 1000, 364, 500
					Delay 1000

					// 点击item
					clickY = leftTopY + i * itemHeight + itemHeight / 2
					Tap clickX, clickY
					Delay 1000

					Call transfer(jpgStorePath, pngStorePath, path, number, i+7)
					count = count + 1
				Next
			End If

		End If
	Else
		TracePrint "对应单个支付宝"

		Call transfer(jpgStorePath, pngStorePath, path, number, 0)
		count = count + 1

	End If

	clickPhone=count

End Function

Function getNumber(path)
	Dim str, number
	str = File.Read(path)
	If IsNull(str) Then
		File.Write(path, 1)
	End If
	str = File.Read(path)
	number = CInt(str)
	TracePrint "number = " & number
	getNumber=number
End Function

Function main()
	// 等待Toast消失
	Delay 3000

	Dim pathRecordNumber="/sdcard/recordNumber.txt"
	Dim pathCountLimit="/sdcard/countLimit.txt"
	Dim jpgStorePath="/sdcard/dump/"
	Dim pngStorePath="/sdcard/dump/withoutOCR/"
	Dim isDirExist=Dir.Exist(jpgStorePath)
	TracePrint "jpg isDirExist = " & isDirExist
	If isDirExist=0 Then
		TracePrint "jpg路径不存在，创建之"
		Dir.Create (jpgStorePath)
	Else
		TracePrint "jpg存储路径已经存在"
	End If
	isDirExist = Dir.Exist(pngStorePath)
	TracePrint "png isDirExist = " & isDirExist
	If isDirExist=0 Then
		TracePrint "png路径不存在，创建之"
		Dir.Create (pngStorePath)
	Else
		TracePrint "png存储路径已经存在"
	End If


	Dim number=getNumber(pathRecordNumber)
	// 统计点多少次之后出现：今日操作过多
	Dim totalCount=getNumber(pathCountLimit)

	// 每个联系人条目的高度是128
	Dim positionX, positionY, height, phoneListItemLeftTopX, phoneListItemLeftTopY
	height = 128

	Dim a=1
	While a=1

		// 根据滑动条检测是否滑动到底了
		// 如果滑动到底了，做完最后七个测试，然后退出大循环
		Dim color3 = CmpColor(710, 1273, "FFFFFF", 1.0)
		If color3 > -1 Then
			// do nothing
		Else
			a = 2
			TracePrint "滑动到底了"
		End If

		// 由于swipe需要一定的时间，而滑动条的显示时间又过短，所以swipe之后的delay只用了0.1秒，可能会发生swipe没完成就开始点击的情况，所以这里补足延迟时间，让swipe的惯性滑动充分完成
		Delay 2000

		// 找到可点击的位置
		FindColor 527, 224, 676, 600, "E98E10", 0, 1.0, positionX, positionY
		If positionX > -1 And positionY > -1 Then
			positionX = positionX - 100
			TracePrint "positionY = " & positionY
			// 截取列表界面
			SnapShot pngStorePath & CStr(number) & "-phoneList.png"
			// 每次点8个listItem
			For i = 0 To 7 Step 1
				Touch positionX, positionY, 2000
				// 找到条目的左上角
				FindColor 0, 227, 11, 1277, "DDDDDD", 0, 1.0, phoneListItemLeftTopX, phoneListItemLeftTopY
				If phoneListItemLeftTopX > -1 And phoneListItemLeftTopY > -1 Then
					// 截取联系人电话
					SnapShot jpgStorePath & CStr(number) & "-phoneNumber.jpg", 140, phoneListItemLeftTopY, 351, phoneListItemLeftTopY+59
					Delay 1000

					totalCount = totalCount + clickPhone(jpgStorePath, pngStorePath, pathRecordNumber, positionX, positionY, number)
					TracePrint "totalCount = " & totalCount
					File.Write(pathCountLimit, totalCount)
					TracePrint number
					number = number + 1
					positionY = positionY + height

				End If
			Next
		End If

		Swipe 364, 732, 364, (732 - 400)
		Delay 100

	Wend

	File.Write(pathRecordNumber, number)
End Function

Function touchNumber(number)
	If number = 1 Then
		Tap 200, 914
	ElseIf number = 2 Then
		Tap 359, 908
	ElseIf number = 3 Then
		Tap 522, 909
	ElseIf number = 4 Then
		Tap 199, 1014
	ElseIf number = 5 Then
		Tap 361, 1015
	ElseIf number = 6 Then
		Tap 520, 1013
	ElseIf number = 7 Then
		Tap 199, 1121
	ElseIf number = 8 Then
		Tap 361, 1122
	ElseIf number = 9 Then
		Tap 519, 1122
	ElseIf number = 0 Then
		Tap 361, 1222
	End If
End Function

Function inputNumber(pageCount)
	TracePrint "开始输入数字"
	TracePrint "pageCount="&CStr(pageCount)
	// 点击数字键盘
	Tap 155, 1221
	Delay 500
	Dim number(3),i=3
	While pageCount > 0
		TracePrint "循环"
		number(i) = pageCount Mod 10
		TracePrint "number(i)="&CStr(number(i))
		pageCount = pageCount \ 10
		TracePrint "pageCount="&CStr(pageCount)
		i=i-1
	Wend
	For i = 0 To 3
		Call touchNumber(number(i))
		Delay 500
	Next
End Function

Function inputSuffix()
	// 点击返回
	Tap 188, 1221
	Delay 500
	// 点击.号
	Tap 485, 1223
	Delay 500
	// 点击t
	Tap 323, 905
	Delay 500
	// 点击x
	Tap 216, 1115
	Delay 500
	// 点击t
	Tap 323, 905
	Delay 500
	// 点击enter
	Tap 665, 1226
	Delay 500
	KeyPress "Back"
	Delay 1000
End Function

Log.Open
Dim b=1, pageCount=1004
While b = 1

	Dim color
	Dim a=1
	Delay 1000
	// 点击导入联系人APP
	Tap 114, 139
	Delay 1000
	// 点击批量导入联系人
	Tap 87, 203
	Delay 1000
	// 删除原来的网址输入新网址
	Tap 697, 293
	Delay 1000
	For i = 1 To 8
		Tap 664, 1120
		Delay 500
	Next
	Call inputNumber(pageCount)
	Call inputSuffix()

	pageCount = pageCount + 1
	Delay 3000
	// 点击开始导入
	Tap 73, 458
	Delay 500


	While a = 1
		color = CmpColor(662, 1239, "646464", 1.0)
		If color>-1 Then
			a = 1
		Else
			a=2
		End If
		Delay 1000
	Wend

	Delay 1000
	KeyPress "Back"
	KeyPress "Back"
	Delay 1000
	KeyPress "Home"
	Delay 3000


	// 点击支付宝
	Tap 279, 146
	// 等待支付宝加载完成
	a=1
	While a = 1
		color = CmpColor(44, 706, "E98E10", 1.0)
		If color > -1 Then
			a = 2
		Else a=1
		End If
		Delay 1000
	Wend
	// 点击手机联系人
	Tap 358, 723
	Delay 2000

	// 这个操作是为了让联系人加载好
	KeyPress "Home"
	Delay 2000
	// 点击支付宝
	Tap 279, 146
	Delay 3000

	Call main()

	Delay 1000
	KeyPress "Back"
	Delay 2000
	KeyPress "Home"
	Delay 3000

	// 点击导入联系人APP
	Tap 105, 133
	Delay 1000
	// 点击批量删除联系人
	Tap 110, 297
	Delay 1000
	// 点击确定
	Tap 582, 774
	Delay 500

	TracePrint "开始判断是否删除完成"
	a=1
	While a = 1
		TracePrint "进入循环"
		color = CmpColor(662, 1239, "646464", 1.0)
		If color > -1 Then
			TracePrint "color=646464"
			a = 1
		Else
			TracePrint "color!=646464"
			a=2
		End If
		Delay 1000
	Wend

	Delay 1000
	KeyPress "Home"
	Delay 3000

Wend
Log.Close


//Log.Open
//	Call main()
//Log.Close