论文拷贝技巧？

方法/步骤

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

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

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

调试按键精灵，即可复制。