|
楼主 |
发表于 2021-6-23 19:59
|
显示全部楼层
- rem ---------参数01---------
- CreateObject("Wscript.Shell")
- set ws=wscript.createobject("wscript.shell")
- ws.appactivate "QQ"
- ws.run "https://amos.alicdn.com/getcid.aw?spm=a360q.8274423.0.0.71584c9a1M9Qng&v=3&groupid=0&s=1&charset=utf-8&uid=参数1&site=cnalichn&fromid=cnalichn旺旺账号"
- '写入信息到剪切板
- Msg = "参数11"
- ws.Run "mshta vbscript:ClipboardData.SetData("&chr(34)&"text"&chr(34)&"," &Chr(34)& Msg &Chr(34)& ")(close)",0,True
- ws.appactivate "QQ"
- '粘贴文字
- wscript.sleep 1500
- ws.sendKeys "^v"
- wscript.sleep 2000
- Set ws= Nothing
复制代码 改成上面代码试试 |
|