简单的自动发博客的小程序——rpa

完成了一个比较简单的自动发博客的rpa程序

Dim hWeb,bRet,dTime,sRet,dictScrollPostion
hWeb = WebBrowser.Create("chrome","https://www.cnblogs.com/",30000,{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200,"sBrowserPath":"","sStartArgs":""})
UiElement.Wait(@ui"图像<img>4","show",10000,{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200,"bWaitDOMReady":true})
bRet = UiElement.Exists(@ui"图像<img>",{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200,"bWaitDOMReady":true})
TracePrint(Not bRet)
If Not bRet 
Mouse.Action(@ui"链接<a>_登录","left","click",10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [],"sSimulate": "simulate", "bMoveSmoothly": false})
Delay(1000)
Mouse.Action(@ui"按钮<button>_登录","left","click",10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [],"sSimulate": "simulate", "bMoveSmoothly": false})
End If
Mouse.Action(@ui"图像<img>1","left","click",10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [],"sSimulate": "simulate", "bMoveSmoothly": false})
dTime = Time.Now()
formatTime=Time.Format(dTime,"yyyy.mm.dd")
Keyboard.InputText(@ui"输入控件<input>",formatTime,true,1,10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 300, "bSetForeground": true, "sSimulate": "message", "bValidate": false, "bClickBeforeInput": true})
Keyboard.InputText(@ui"多行文本<textarea>",formatTime,true,1,10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 300, "bSetForeground": true, "sSimulate": "message", "bValidate": false, "bClickBeforeInput": true})
WebBrowser.SetScroll(hWeb,{"ScrollLeft": 0,"ScrollTop": 778},{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200})
// WebBrowser.SetScroll(hWeb,{"ScrollLeft": 0,"ScrollTop": 0},{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200})
Mouse.Action(@ui"文本<span>_发布","left","click",10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [],"sSimulate": "simulate", "bMoveSmoothly": false})