批量快速复制论文的方法
1、打开要复制的论文网站文章列表。
2、运行按键精灵
编写脚本
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、在左上角打开WORD 约400像素
在左下角打开新建文件的文件夹列表， 约400像素
4、调试按键精灵，即可复制。