方法/步驟

1/4分步閱讀

打開要復(fù)制的論文網(wǎng)站文章列表,。

2/4

運(yùn)行按鍵精靈

編寫腳本

Delay 500

LeftClick 1

Delay 500

LeftClick 1

KeyPress "F2", 1

// 定義 復(fù)制 粘貼 正文,，,，是 子程序fzzw 里的一部分

Sub fzzw1

// 復(fù)制 正文

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

// 定義 復(fù)制 一 頁

Sub fzzw

Rem xyy

Delay 400

//不能點(diǎn)到字上面，選中前面的文字

MoveTo X11 + 100, Y11 + 456

Delay 150

LeftClick 1

Delay 180

LeftClick 1

Delay 180

LeftClick 1

Delay ys2

// 下拉網(wǎng)頁 回6個(gè)

MouseWheel - 100

Delay ys2

MouseWheel 6

Delay ys6

// 找 當(dāng)前頁面 的 紅色

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

// 復(fù)制 粘貼 正文

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

// 點(diǎn)擊 下一頁

MoveTo X21 + 16, Y21 + 6

Delay 50

LeftClick 1

Delay wlys

Goto xyy

End if

//否則找 橫線 選中后面的文字

If X21

Delay 80

// 關(guān)閉 網(wǎng)頁

Call gbweb

Delay 80

End if

End Sub

//定義 關(guān)閉網(wǎng)頁

//定義 關(guān)閉網(wǎng)頁

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

// 以下 為 電腦 及網(wǎng)絡(luò) 延時(shí)

ys2 = 200 //電腦 延時(shí) (默認(rèn) 200 )

ys6 = 600 //電腦 延時(shí) (默認(rèn) 600 )

wlys = 3000 //網(wǎng)絡(luò) 延時(shí) (默認(rèn) 3000 )

//復(fù)制文件名

//復(fù)制文件名

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

///復(fù)制第一頁///////////////////////////

//不能點(diǎn)到字上面,，選中前面的文字

MoveTo X11 + 100, Y11 + 456

Delay 150

LeftClick 1

Delay 180

LeftClick 1

Delay 180

LeftClick 1

Delay ys2

// 下拉網(wǎng)頁 回6個(gè)

MouseWheel - 100

Delay ys2

MouseWheel 6

Delay ys6

// 找 當(dāng)前頁面 的 紅色

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

// 復(fù)制 粘貼 正文

Call fzzw1

// 點(diǎn)擊 下一頁

MoveTo X21 + 16, Y21 + 6

Delay 50

LeftClick 1

Delay wlys

// 復(fù)制第二頁,，，及以后頁

Call fzzw

End if

//否則找 橫線 選中后面的文字

If X21

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

// 復(fù)制 粘貼 正文

Call fzzw1

Delay 80

// 關(guān)閉 網(wǎng)頁

Call gbweb

Delay 80

End If

End if

/////以上是 復(fù)制第一頁//////////////////

3/4

在左上角打開WORD 約400像素

在左下角打開新建文件的文件夾列表,， 約400像素

4/4

調(diào)試按鍵精靈,，即可復(fù)制。