?
作品展示：
一、背景需求：
本學期制作了 “育兒知識（家園小報）”合并A4內容
【辦公類-22-08】周計劃系列（4）“育兒知識（家園小報）“ （2024年調整版本）-CSDN博客文章瀏覽閱讀977次，點贊25次，收藏12次。【辦公類-22-08】周計劃系列（4）“育兒知識（家園小報）“ （2024年調整版本）
https://blog.csdn.net/reasonsummer/article/details/136284529
育兒知識（家園小報）上傳的UIBOT設置與“信息窗主題知識）”是一樣的，但文件名中提取標題的字符位置略有不同。
?
?
二、制作過程：——批量上傳“育兒知識”
?
1、工具準備
??
?
?二、代碼解析
?
?
?
Dim sRet,sName,arrayRet,iRet,標題,bRet,第,temp,）,橫,時間1,尾,（,杠,年月,上傳日期
Rem 進入教育教學頁面 頁面90%Rem 獲取所有圖片名稱
圖片名稱=File.DirFileOrFolder('''D:\test\02辦公類\91周計劃4份_2024年中4班\03 育兒知識\05jpg上傳''',"fileandfolder",{"hasPath":true})
TracePrint(圖片名稱)
長度=Len(圖片名稱)// TracePrint(長度)Rem 提取每個路徑的內容
For 份 = 0 To 長度-1 step 1
TracePrint(份)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})Rem 寫入圖片唯一路徑
Mouse.Action(@ui"內聯框架<iframe>","left","click",10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [],"sSimulate": "simulate", "bMoveSmoothly": false})
Mouse.Action(@ui"窗口3","left","click",10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [],"sSimulate": "simulate", "bMoveSmoothly": false})
Keyboard.Input(圖片名稱[份],{"iDelayAfter": 100, "iDelayBefore": 100, "sSimulate": "message"})Mouse.Action(@ui"窗口_打開(O)","left","click",10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [],"sSimulate": "simulate", "bMoveSmoothly": false})
Delay(1000)
Rem 獲取標題 2024年2月 育兒知識
// TracePrint(第)年=InStr(圖片名稱[份]," 2024",1,false)
月=InStr(圖片名稱[份],"月",1,false)
// TracePrint(）)年月=SubStr(圖片名稱[份],年+1,月-年+1-1)// TracePrint(年月)標題 = 年月+" 育兒知識"TracePrint(標題)年2=SubStr(圖片名稱[份],年+1,年+1)時間 = 年月+"01日"
If 時間="2024年02月01日" 時間 = 年月+"19日"
End If
TracePrint(時間)
// TracePrint(（)
// TracePrint(杠)Keyboard.InputText(@ui"輸入控件<input>_2023-04-3015:35",時間,true,20,10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 500, "bSetForeground": true, "sSimulate": "message", "bValidate": false, "bClickBeforeInput": false})
Keyboard.InputText(@ui"輸入控件<input>",標題,true,20,10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 500, "bSetForeground": true, "sSimulate": "message", "bValidate": false, "bClickBeforeInput": false})Delay(1000)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})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})Delay(10000)Next三、運行展示：
20240302Uibot 批量上傳圖片（育兒知識家園小報）
?
上傳結果，發布時間都是選擇每月第一天（2月是按照實際開學日計算）
?
感悟：
花了4分半鐘上傳7張主題說明圖片，高效快捷，精準。
?
)
