Dim 当前时间,中文时间格式,当前小时,hweb="",ipid="",开始时间=-99999999
Do
当前时间=Time.Now()
当前小时=当前时间
中文时间格式=Time.Format(当前时间,"yyyy年-mm月-dd日 hh时:mm分:ss秒")
If 当前时间 - 开始时间 >= 1 * 60 * 60
hWeb = WebBrowser.Create("chrome","http://www.nmc.cn/publish/forecast/ASD/rizhao.html",30000,
{"bContinueOnError":true,"iDelayAfter":10000,"iDelayBefore":300,"sBrowserPath":'''C:\Program Files\Google\Chrome\Application\chrome.exe''',"sStartArgs":""})
Keyboard.Press("F11", "press", [],{"iDelayAfter": 5000, "iDelayBefore": 300, "sSimulate": "simulate"})
Mouse.Wheel(1,"down", [],{"iDelayAfter":1000, "iDelayBefore":500})
WebBrowser.ScreenShot(hWeb,'''E:\RPA场景\RPA进\网页截图\天气预报截图.jpeg''',{"x": 900, "y": 1000, "width": 0, "height": 0},
{"bContinueOnError":false,"iDelayAfter":1000,"iDelayBefore":200})
Keyboard.Press("F11", "press", [],{"iDelayAfter": 1000, "iDelayBefore": 500, "sSimulate": "simulate"})
Mouse.Move(1421, 12, false,{"iDelayAfter": 500, "iDelayBefore": 300})
Mouse.Click("left", "click", [],{"iDelayAfter": 1000, "iDelayBefore": 300})
hWeb = WebBrowser.Create("chrome","http://www.xinhuanet.com/whxw.htm",30000,
{"bContinueOnError":true,"iDelayAfter":10000,"iDelayBefore":300,"sBrowserPath":'''C:\Program Files\Google\Chrome\Application\chrome.exe''',"sStartArgs":""})
Keyboard.Press("F11", "press", [],{"iDelayAfter": 5000, "iDelayBefore": 300, "sSimulate": "simulate"})
WebBrowser.ScreenShot(hWeb,'''E:\RPA场景\RPA进\网页截图\新华社通讯截图.jpeg''',{"x": 900, "y": 1000, "width": 0, "height": 0},
{"bContinueOnError":true,"iDelayAfter":1000,"iDelayBefore":300})
Keyboard.Press("F11", "press", [],{"iDelayAfter": 1000, "iDelayBefore": 300, "sSimulate": "simulate"})
Mouse.Move(1421, 12, false,{"iDelayAfter": 500, "iDelayBefore": 300})
Mouse.Click("left", "click", [],{"iDelayAfter": 500, "iDelayBefore": 300})
iPID = App.Run('''D:\Program Files (x86)\WXWork\WXWork.exe''', 1, 3)
Mouse.Move(123, 35, false,{"iDelayAfter": 1000, "iDelayBefore": 300})
Mouse.Click("left", "click", [],{"iDelayAfter": 1000, "iDelayBefore": 300})
Rem 测试期间下方请中文输入“刘鹏”后调试,上线请根据发布的群名称填写。
Keyboard.Input("刘鹏",{"iDelayAfter": 1000, "iDelayBefore": 300, "sSimulate": "message"})
Keyboard.Press("Enter", "press", [],{"iDelayAfter": 1000, "iDelayBefore": 300, "sSimulate": "simulate"})
Keyboard.Input("天气+新闻|RPA通讯(1次/时)",{"iDelayAfter": 1000, "iDelayBefore": 300, "sSimulate": "message"})
Keyboard.Press("Enter", "press", ["Ctrl"],{"iDelayAfter": 1000, "iDelayBefore": 300, "sSimulate": "simulate"})
Clipboard.SetImage('''E:\RPA场景\RPA进\网页截图\天气预报截图.jpeg''')
Keyboard.Press("V", "press", ["Ctrl"],{"iDelayAfter": 1000, "iDelayBefore": 300, "sSimulate": "simulate"})
Clipboard.SetImage('''E:\RPA场景\RPA进\网页截图\新华社通讯截图.jpeg''')
Keyboard.Press("V", "press", ["Ctrl"],{"iDelayAfter": 1000, "iDelayBefore": 300, "sSimulate": "simulate"})
Keyboard.Press("Enter", "press", [],{"iDelayAfter": 1000, "iDelayBefore": 300, "sSimulate": "simulate"})
开始时间=Time.Timer()
TracePrint($PrevResult)
End If
Loop