[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