网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
vba吧 关注：17,012贴子：66,434
  • 4回复贴，共1页

有偿帮实现个功能

背景:工作需要每20分钟，截图一次。截图范围电脑全屏，目前是按图中按键截图。然后发指定微信群。
要求
1截图
2发指定微信群
3因为公司电脑不能安装软件所以想通过vba实现


有需要联系，已私


excelhome论坛上有人愿意接的


直接下个按键精灵就能实现了


While True
AppActivate "edge", True '需要截屏的窗口标题
SendKeys "{PRTSC}"
Application.Wait Now() + TimeValue("0:0:10")
AppActivate "x群", True '把群聊天双击为独立窗口
SendKeys "^v"
Application.Wait Now() + TimeValue("0:20:0")
Wend


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 4回复贴，共1页
分享到: