qiyewechatApp/UI/企业微信脚本文件/企业微信.txt

//每次操作暂停时间/根据电脑流畅度配置
DelayTime=100

//点击坐标，根据屏幕截图查看坐标位置1920*1080
screenX通讯录 = 25
screenY通讯录 = 155

screenX新联系人 = 125
screenY新联系人 = 100

screenX添加 = 1876
screenY添加 = 40

screenX输入框 = 900
screenY输入框 = 430

screenX添加请求 = 1083
screenY添加请求 = 536

screenX确认 = 960
screenY确认 = 569

screenX未找到 = 1090
screenY未找到 = 570

screenX关闭 = 1140
screenY关闭 = 352

//获取当前机器的方便率/色率
Dev = Plugin.Sys.GetScDep()
ScreenW = Plugin.Sys.GetScRX() 
ScreenH = Plugin.Sys.GetScRY()
TracePrint "屏幕分辨率：" + CStr(Dev) + "宽：" + CStr(ScreenW) + "高：" + CStr(ScreenH)

//适配分辨率1600*900
If ScreenW = 1600 AND ScreenH = 900 Then 
	screenX通讯录 = 25
	screenY通讯录 = 155
		
	screenX新联系人 = 125
	screenY新联系人 = 100
		
	screenX添加 = 1550
	screenY添加 = 40
		
	screenX输入框 = 800
	screenY输入框 = 340
		
	screenX添加请求 = 930
	screenY添加请求 = 450
		
	screenX确认 = 800
	screenY确认 = 480
		
	screenX未找到 = 934
	screenY未找到 = 482
		
	screenX关闭 = 978
	screenY关闭 = 263
End If


startTwo(1)

Function startTwo(code)
	s=Plugin.Sys.GetOSType()    
	If s <= 5 OR (ScreenW = 1920 AND ScreenH = 1080) OR (ScreenW = 1600 AND ScreenH = 900) Then 
		startOne (code)
		TracePrint ScreenW&ScreenH
	Else 
		MessageBox "您的操作系统版本是wind10，并且分辨率不一致,暂不支持自动识别分辨率,请手动切换分辨率至1600*900或1920*1080《桌面-右键-设置分辨率》" 
	End If 	
End Function





Function startOne(code)

	//不符合分辨率，更改为脚本开发环境下的分辨率
	If (ScreenW = 1920 AND ScreenH = 1080) OR (ScreenW = 1600 AND ScreenH = 900) Then
		TracePrint "符合分辨率"	
	Else 
		Call Plugin.Sys.SetSc(1920, 1080, 32)
	End If
	//待企业微信添加好友的手机号
	//文件选择框
	filepath = Plugin.File.SelectFile()
	MessageBox "导入文件："+filepath
	a = Plugin.lxj_Office.lxj_ExcelOpen(filepath, 0)
	d = Plugin.lxj_Office.lxj_ExcelLastR(1)
	If d > 0 Then 
		i=1
		For d			 
			b = Plugin.lxj_Office.lxj_ExcelRead(1, i, 1, a)
			Call Plugin.Msg.HideScrTXT()   
    		//延迟半秒等待刷新完毕   
    		Delay DelayTime      
    		Call Plugin.Msg.ShowScrTXT(100, 100, 1024, 300, "执行进度：" + CStr(d) + "/" + CStr(i) + ",正在添加号码：" + CStr(b), "0000FF")
    		Delay DelayTime
			Call Plugin.Msg.Tips("执行进度："+CStr(d)+"/"+CStr(i)+",正在添加号码："+CStr(b))
			getWechat (b)
			i=i+1
		Next		
	End If
		
	c = Plugin.lxj_Office.lxj_ExcelClose()//关闭表格
	
	//脚本执行完回复用户的分辨率
	Call Plugin.Sys.SetSc(ScreenW, ScreenH, Dev)
End Function

//使用接口获取微信号码数据
Function getWechatPhoneJson()
	url4="http://192.168.10.54:7000/wechatlist"	
	data = Url.Get(url4)
	getWechatPhoneJson = data
End Function



Function getWechat(phone)
	//设置粘贴板
	Call Plugin.Sys.SetCLB(phone)
	//点击通讯录
	Delay DelayTime
	MoveTo screenX通讯录, screenY通讯录
	Delay 500
	LeftClick 1
	
	//点击联系人
	Delay DelayTime
	MoveTo screenX新联系人, screenY新联系人
	Delay DelayTime
	LeftClick 1
	
	//点击添加
	Delay DelayTime
	MoveTo screenX添加, screenY添加
	Delay DelayTime
	LeftClick 1
	
	//点击输入框
	Delay DelayTime
	MoveTo screenX输入框, screenY输入框
	Delay DelayTime
	LeftClick 1
	
	
	//粘贴
	KeyDown "Ctrl", 1
	Delay DelayTime
	KeyDown "V", 1
	Delay DelayTime
	KeyUp "V", 1
	Delay DelayTime
	KeyUp "Ctrl", 1
	Delay DelayTime
	KeyDown "Enter", 1
	Delay DelayTime
	KeyUp "Enter", 1
	
	//添加好友
	Delay DelayTime
	MoveTo screenX添加请求, screenY添加请求
	Delay 500
	LeftClick 1
	
	//确认
	Delay DelayTime
	MoveTo screenX确认, screenY确认
	Delay 500
	LeftClick 1
	
	Delay DelayTime
	MoveTo screenX未找到, screenY未找到
	Delay DelayTime
	LeftClick 1
	
	//关闭
	Delay DelayTime
	MoveTo screenX关闭, screenY关闭
	Delay DelayTime
	LeftClick 1
End Function

Event Form1.Button1.Click

End Event