使用者589655489622021-04-21 21:53:49方法/步驟
1/4分步閱讀
開啟要複製的論文網站文章列表。
2/4
執行按鍵精靈
編寫指令碼
Delay 500
LeftClick 1
Delay 500
LeftClick 1
KeyPress “F2”， 1
// 定義 複製 貼上 正文，，是 子程式fzzw 裡的一部分
Sub fzzw1
// 複製 正文
Delay 500
RightClick 1
Delay 200
MoveR 35， 35
Delay 200
LeftClick 1
Delay 200
//貼上 正文
Delay 200
MoveTo X12， Y12 + 200
Delay 40
LeftClick 1
Delay 40
KeyDown “Ctrl”， 1
Delay 40
KeyPress “v”， 1
Delay 40
KeyUp “Ctrl”， 1
Delay 40
KeyPress “BackSpace”， 64
Delay 50
KeyPress “Enter”， 1
Delay 100
End Sub
// 定義 複製 一 頁
Sub fzzw
Rem xyy
Delay 400
//不能點到字上面，選中前面的文字
MoveTo X11 + 100， Y11 + 456
Delay 150
LeftClick 1
Delay 180
LeftClick 1
Delay 180
LeftClick 1
Delay ys2
// 下拉網頁 回6個
MouseWheel - 100
Delay ys2
MouseWheel 6
Delay ys6
// 找 當前頁面 的 紅色
FindColor 500，110，1360，850，“0000FF”，X20，Y20
If X20 > 0 Then
Delay 600
MoveTo X20 - 200， Y20 + 8
Delay 80
KeyDown “Shift”， 1
Delay 200
LeftClick 1
Delay 200
KeyUp “Shift”， 1
Delay 100
// 複製 貼上 正文
Call fzzw1
End If
Delay 100
// 找 下一頁 否則找 橫線 選中後面的文字
FindPic 540，110，1060，850，“Attachment：\211xyy。bmp”，0。98，X21，Y21
If X21 > 0 And Y21 > 0 Then
// 點選 下一頁
MoveTo X21 + 16， Y21 + 6
Delay 50
LeftClick 1
Delay wlys
Goto xyy
End if
//否則找 橫線 選中後面的文字
If X21 < 0 Then
Delay 80
// 關閉 網頁
Call gbweb
Delay 80
End if
End Sub
//定義 關閉網頁
//定義 關閉網頁
Sub gbweb
FindPic 500，50，1330，230，“Attachment：\571gbweb。bmp”，0。9，X57，Y57
If X57 > 0 And Y57 > 0 Then
MoveTo X57+5， Y57+5
Delay 40
LeftClick 1
End If
Delay 100
End Sub
// 以下 為 電腦 及網路 延時
ys2 = 200 //電腦 延時 （預設 200 ）
ys6 = 600 //電腦 延時 （預設 600 ）
wlys = 3000 //網路 延時 （預設 3000 ）
//複製檔名
//複製檔名
MouseWheel -3
Delay 600
FindPic 360，20，660，500，“Attachment：\11nxzdwz。bmp”，0。9，X11，Y11
If X11 > 0 And Y11 > 0 Then
MoveTo X11 + 300， Y11 + 84
Delay 180
LeftClick 1
Delay 180
LeftClick 1
Delay 180
LeftClick 1
End If
KeyDown “Ctrl”， 1
Delay 40
KeyPress “C”， 1
Delay 40
KeyUp “Ctrl”， 1
Delay ys2
//貼上檔名
FindPic 30，30，460，600，“Attachment：\121worddw。bmp”，0。9，X12，Y12
If X12 > 0 And Y12 > 0 Then
Delay 40
MoveTo X12， Y12 + 200
Delay 40
LeftClick 1
Delay 40
KeyDown “
KeyPress ”v“， 1
Delay 40
KeyUp ”Ctrl“， 1
Delay 40
KeyPress ”BackSpace“， 64
Delay 50
KeyPress ”Enter“， 3
Delay 100
End If
///複製第一頁///////////////////////////
//不能點到字上面，選中前面的文字
MoveTo X11 + 100， Y11 + 456
Delay 150
LeftClick 1
Delay 180
LeftClick 1
Delay 180
LeftClick 1
Delay ys2
// 下拉網頁 回6個
MouseWheel - 100
Delay ys2
MouseWheel 6
Delay ys6
// 找 當前頁面 的 紅色
FindColor 500，100，1300，650，”0000FF“，X20，Y20
Delay 600
// 找 下一頁 否則找 橫線 選中後面的文字
FindPic 500，100，1300，650，”Attachment：\211xyy。bmp“，0。98，X21，Y21
If X21 > 0 And Y21 > 0 Then
MoveTo X20 - 230， Y20 + 8
Delay 80
KeyDown ”Shift“， 1
Delay 200
LeftClick 1
Delay 200
KeyUp ”Shift“， 1
Delay 100
// 複製 貼上 正文
Call fzzw1
// 點選 下一頁
MoveTo X21 + 16， Y21 + 6
Delay 50
LeftClick 1
Delay wlys
// 複製第二頁，，及以後頁
Call fzzw
End if
//否則找 橫線 選中後面的文字
If X21 < 0 Then
FindPic 540，110，1060，850，”Attachment：\221dw。bmp“，0。9，X22，Y22
If X22 > 0 And Y22 > 0 Then
MoveTo X22， Y22
Delay 100
KeyDown ”Shift“， 1
Delay 200
LeftClick 1
Delay 200
KeyUp ”Shift“， 1
Delay 80
// 複製 貼上 正文
Call fzzw1
Delay 80
// 關閉 網頁
Call gbweb
Delay 80
End If
End if
/////以上是 複製第一頁//////////////////
3/4
在左上角開啟WORD 約400畫素
在左下角開啟新建檔案的資料夾列表， 約400畫素
4/4
除錯按鍵精靈，即可複製。