看板 Soft_Job
Sub OpenAndScrollChrome() '啟動Chrome瀏覽器 Shell "C:\Program Files\Google\Chrome\Application\chrome.exe" '等待Chrome開啟 Application.Wait (Now + TimeValue("00:00:05")) '模擬下箭頭鍵 Application.SendKeys "{DOWN 5}", True '等待30秒 Application.Wait (Now + TimeValue("00:00:30")) '關閉當前網頁(Ctrl+W) Application.SendKeys "^{w}", True End Sub ----- Sent from JPTT on my iPhone -- Every man for himself and God against them all. -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.36.125.121 (臺灣) ※ 文章網址: https://www.ptt.cc/bbs/Soft_Job/M.1694518580.A.7F3.html
brucetu: 喔09/12 20:47
neo5277: 酷耶來試試看09/12 23:25
lchcoding: 推,難得有程式碼可以看...09/13 10:38
B0988698088: 所以他的問題是少一個true?09/13 11:01
kero961240: 想詢問 down 5的意思是什麼呢09/13 12:10
Kroner: 哈囉!關節痛真的超痛欸,我之前也遇過類似情況,後來去看醫生吃推薦UC2,效果不錯喔! 09/13 12:10
TSMCfabXX: 重複次數09/13 12:18
neo5277: 原來是這樣的思路09/13 15:21
erpp: 感謝大神,但是試了還是不行09/13 19:04
femlro: 哪裡不行?09/13 19:27
Chricey: 哇勒,UC2 這個東西真的是太讚了 09/13 19:27
erpp: down5那邊不行,網頁無法往下09/13 20:54
試試看 For i = 1 To 5 Application.SendKeys "{DOWN}", True Application.Wait (Now + TimeValue("00:00:01")) Next i Chrome要是目前活動窗口 不然指令會被送到別的地方
Firstshadow: 改Application.SendKeys "{PGDN 5}", True勒?09/14 01:24
peter98: 此id必噓09/14 04:38
※ 編輯: femlro (114.36.125.121 臺灣), 09/14/2023 12:22:37