PCDVD數位科技討論區

PCDVD數位科技討論區 (https://www.pcdvd.com.tw/index.php)
-   七嘴八舌異言堂 (https://www.pcdvd.com.tw/forumdisplay.php?f=12)
-   -   請問如何快速打開多個網頁 (https://www.pcdvd.com.tw/showthread.php?t=1134188)

h12200 2017-09-14 10:22 PM

用 vba 匯入的話,大約0.2秒而己,不慢啊

bingjunin 2017-09-15 07:12 PM

在google搜尋說明檔之後,小弟發現樓上二位網兄所賜教的確就是小弟所想要的,
小弟電腦程度很差,英文也不好,不過小弟會慢慢的摸熟它。
目前覺得 autohotkey 不錯用,因為它對沒有電腦基礎者較簡單且有中文化版本,
雖然看了許久還是不知道怎麼寫看似這麼簡單的語法,但心裡還是充滿著無限欣慰,
太感謝樓上二位網兄的指教了,衷心萬分感謝您們,謝謝了。

shival 2017-09-15 08:16 PM

引用:
作者bingjunin
在google搜尋說明檔之後,小弟發現樓上二位網兄所賜教的確就是小弟所想要的,
小弟電腦程度很差,英文也不好,不過小弟會慢慢的摸熟它。
目前覺得 autohotkey 不錯用,因為它對沒有電腦基礎者較簡單且有中文化版本,
雖然看了許久還是不知道怎麼寫看似這麼簡單的語法,但心裡還是充滿著無限欣慰,
太感謝樓上二位網兄的指教了,衷心萬分感謝您們,謝謝了。


autohotkey 無腦的寫法、找個厲害一點的教你弄一下字串取代之類的可以寫得帥一點
考慮滑鼠沒停在連結上的錯誤動況、自已調整firefox連結開啟順序、時間...等,我也只
是用多少學多少的人而已。(在「Yahoo!奇摩股市 - 上市漲幅排行 - Mozilla Firefox」
網頁有效、滑鼠移到連結上按F1啟動)

#IfWinActive, Yahoo!奇摩股市 - 上市漲幅排行 - Mozilla Firefox
F1::
Sendplay {Click right}
Send, a
Send, ^{LButton}
Sleep, 500
Send, !d
Sleep, 500
Send, ^v
Sleep, 500
Send, {Left}{Left}{Left}{Left}{Left}{Left}{Left}{Backspace}{Backspace}{t}{a}{Enter}
Return
#IfWinActive

bingjunin 2017-09-15 11:10 PM

引用:
作者shival
autohotkey 無腦的寫法、找個厲害一點的教你弄一下字串取代之類的可以寫得帥一點
考慮滑鼠沒停在連結上的錯誤動況、自已調整firefox連結開啟順序、時間...等,我也只
是用多少學多少的人而已。(在「Yahoo!奇摩股市 - 上市漲幅排行 - Mozilla Firefox」
網頁有效、滑鼠移到連結上按F1啟動)

#IfWinActive, Yahoo!奇摩股市 - 上市漲幅排行 - Mozilla Firefox
F1::
Sendplay {Click right}
Send, a
Send, ^{LButton}
Sleep, 500
Send, !d
Sleep, 500
Send, ^v
Sleep, 500
Send, {Left}{Left}{Left}{Left}{Left}{Left}{Left}{Backspace}{Backspace}{t}{a}{Enter}
Return
#IfWinActive

老實說小弟覺得大哥您的等級已很好了,
小弟只能恨自己程度太差。
還有請問大哥這該存檔,感恩不盡。

bingjunin 2017-09-15 11:44 PM

已超過5分鐘了,
小弟再看一次才發現少打了<如何>二字。


請問大哥這該如何存檔,感恩不盡。

shival 2017-09-16 09:19 AM

引用:
作者bingjunin
已超過5分鐘了,
小弟再看一次才發現少打了<如何>二字。


請問大哥這該如何存檔,感恩不盡。


把下面的文字存成abc.ahk點下去就可以用了(前提是你有裝autohotkey)、後來
想到如果你預設輸入法是中文,那移到網址列輸入{t}{a}字串大概會錯誤,是這
樣可考慮加一個切換成英數輸入的快速鍵...

#IfWinActive, Yahoo!奇摩股市 - 上市漲幅排行 - Mozilla Firefox
F1::
Sendplay {Click right}
Send, a
Send, ^{LButton}
Sleep, 500
Send, !d
Sleep, 500
Send, ^v
Sleep, 500
Send, {Left}{Left}{Left}{Left}{Left}{Left}{Left}{Backspace}{Backspace}{t}{a}{Enter}
Return
#IfWinActive

shival 2017-09-16 09:38 AM

改這樣,預設中文也沒關係...寫好一點要找會寫程式排除其他沒考慮的錯誤狀況
這只是當機器人一樣操作而已

#IfWinActive, Yahoo!奇摩股市 - 上市漲幅排行 - Mozilla Firefox
F1::
Sendplay {Click right}
Send, a
Send, ^{LButton}
Sleep, 500
Send, !d
Sleep, 500
Send, ^v
Sleep, 500
Send, {Left}{Left}{Left}{Left}{Left}{Left}{Left}{Backspace}{Backspace}{ASC 116}{ASC 97}{Enter}
Return
#IfWinActive

bingjunin 2017-09-16 12:31 PM

2個附加檔案
非常感謝大哥的賜教,
剛剛一大哥所說方法存成 abc.ahk,
然後按著F1,動作有點慢了點結果圖01,

然後小弟重新再來,這次按快了點結果成了圖02,
小弟不知錯在哪個地方,還請大哥指教,非常感謝您的不吝指導。

shival 2017-09-16 12:58 PM

#IfWinActive, Yahoo!奇摩股市 - 上市漲幅排行 - Mozilla Firefox ; 表示只對這視窗標題才有效
F1:: ; 按F1啟動巨集(設定成指標移到你要開的連結)
Sendplay {Click right} ; 按右鍵取得連結
Send, a ; 同上
Send, ^{LButton} ; ctrl+click開新分頁
Sleep, 500 ; 停0.5秒,電腦快減少、取消也可以
Send, !d ; firefox快速鍵,移到網址列
Sleep, 500 ; 略
Send, ^v ; 貼上先前取得連結
Sleep, 500 ;
Send, {Left}{Left}{Left}{Left}{Left}{Left}{Left}{Backspace}{Backspace}{ASC 116}{ASC 97}{Enter} ; 修改先前取得連結...
Return ; 結束
#IfWinActive

可以自已一步一步檢查看看,看是網址列有問題還是連結沒copy到(好像是),可考慮改成
Send {Click right}或在下一行中間加個sleep, 100之類...

Crazynut 2017-09-16 05:17 PM

程式除錯一般要設立中斷偵錯點。尤其是這種連續執行的,一但出錯,你很難一眼看出錯在哪一行。

早期的程式一般使用pause,按任意鍵繼續。分段執行,等確定無誤之後,再回頭將所有的pause刪除。

VB我不熟,照理說應該也會有類似的手段吧。


所有的時間均為GMT +8。 現在的時間是05:35 AM.

vBulletin Version 3.0.1
powered_by_vbulletin 2024。