qiyewechatApp/UI/企业微信脚本文件/企业微信加人.Q

[General]
SyntaxVersion=2
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
MacroID=ca0114b5-3966-47b6-842e-f063112d0a3d
Description=企业微信加人1.0.1
Enable=1
AutoRun=0
[Repeat]
Type=0
Number=1
[SetupUI]
Type=1
QUI=Form1
[Relative]
SetupOCXFile=
[Comment]

[UIPackage]
UEsDBBQAAgAIAGaNl1BKRfljzQMAAAgmAAAJABEAVUlQYWNrYWdlVVQNAAe306Fet9OhXrfToV7tWUtPU0EUPrfl0RYsLUKBClIeKhoTdW+MlkA0QTS0ujAxsWBV4qWQtpi68yf4Dwy/QE2MMUZ3RhNjfCTGNS5cuZGobIyt39wHHRoId2YuXJvwNYeBtnO/mTPnOfjJxMcP0eWlx/GvVINT5KdyJUhN3HuaJQYiRD7r73KlUrHfruyirvAX0mCdITvrRkgzJAgJQEKQPZAWSCskbB49tUGi1rzyrhrrFlM0j1eREjRGOYx5uksiiMFi7GdpW3w38bv/Qarni+bH76eD5nuX6BwdJ3kESNNsft8WvPbIfzZKaZpQWEHI4u+yfEeUPw19L1CWJilDcxhF0U4+gz9qxV6n8xqs0fbf/0l2sXMYn8/PKbgfsfknFOZrpAbV+ap48ujdN5X9C7jstsyXjTvV+OdbV/M5PTM7VrKsk6Fp0iXXEEb8a7HqFKf8Pi7+XaZZKkBkVxCR2L+f458Ca4au0wXoQRfMvXb8b7We6ZS/geNPg7+EvK9w/pro/hu58x9F9aFD8pIr6ZDgb+L2X+VP4hxm6LY4v1Evtwnov7nm/GcU9c/q84AAf4DMGp7HVTjFKtUfmhXnq+aP1Y11bjz2fCqRyuQKiVQ2P3tjm/hVcQWRJ4/4k8VPGbD422n5lFP7C3L2PwHfE/e69fYfsZ7nlD+0of+nsI5b0INYNuyG/+8lFoed87dw/GdQ/S8YOSAPyWENYlkohv0HyezLnfK3cvzj2HtOLf4I5z8Wr06u7V9H9r2JNTC952TivzB/eN35Z6D/ItbA9JA0zsHOBFXb2Bwj0H+MqvdeTvjbOP6k8XzT/5zwbWB/Wocgf4TjV4Vq/amK5GKxOJ9TnS9fwdd7/5KG5ReN2lfG+oz4I+x/Uc7+LoK/BHYdVbgMwhL87TX8rP5axL5lbmG6Jfj5+3Lz/kne/kKwIJs7vsl3duL+SWT/LF/a/1fwov9k8dKuG93oPxMY+8l5/u0kb/vPGLnbfw4YfuB8/13kbf/J1jq05n8733/2kLv9Zy/GYQH9xzn+17+ePnz+8+ib75+WPq+MlWay+rGSXmBSerby9uX7Vy/KtJ2o/PmhNJ+d5TXINPrXexLzvc6/Xvevbtw/DGLsE7C/fVS9f3Cj/zxoPdMpfy+5238esHzaKX8fudt/jmA8IsC/n9ztP9nzhgT4+8nb/jNB1f7Ti/pzgNv/pHH2c9C9Ltv/CfMPcvzLNXPuWwFFg1s7ub9ShWr893p+veMs7O2O9O2D6f+i9jdEfP/F+q4CXllkAfE1xCXsf5hc7f+0QxgPC8S/ssuXJqL75/EPUEsBAhcLFAACAAgAZo2XUEpF+WPNAwAACCYAAAkACQAAAAAAAAAAAACAAAAAAFVJUGFja2FnZVVUBQAHt9OhXlBLBQYAAAAAAQABAEAAAAAFBAAAAAA=


[Script]

//每次操作暂停时间/根据电脑流畅度配置
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