1、打开要复制的论文网站文章列表。
2、运行按键精灵编写脚本Delay 500LeftClick 1Delay 500LeftClick 1KeyPress "F2", 1// 定义 复制 粘贴 正文，，是 子程序fzzw 里的一部分Sub fzzw1 // 复制 正文Delay 500RightClick 1Delay 200MoveR 35, 35Delay 200LeftClick 1Delay 200 //粘贴 正文 Delay 200 MoveTo X12, Y12 + 200 Delay 40 LeftClick 1Delay 40KeyDown "Ctrl", 1Delay 40KeyPress "v", 1Delay 40KeyUp "Ctrl", 1Delay 40KeyPress "BackSpace", 64Delay 50KeyPress "Enter", 1Delay 100End Sub// 定义 复制 一 页Sub fzzwRem xyy Delay 400 //不能点到字上面，选中前面的文字 MoveTo X11 + 100, Y11 + 456 Delay 150LeftClick 1Delay 180LeftClick 1Delay 180LeftClick 1Delay ys2// 下拉网页 回6个MouseWheel - 100Delay ys2MouseWheel 6Delay 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 ifEnd Sub//定义 关闭网页//定义 关闭网页Sub gbwebFindPic 500,50,1330,230,"Attachment:\571gbweb.bmp",0.9,X57,Y57If X57 > 0 And Y57 > 0 ThenMoveTo X57+5, Y57+5Delay 40LeftClick 1End IfDelay 100End Sub// 以下 为 电脑 及网络 延时 ys2 = 200 //电脑 延时 (默认 200 ) ys6 = 600 //电脑 延时 (默认 600 ) wlys = 3000 //网络 延时 (默认 3000 )//复制文件名//复制文件名MouseWheel -3 Delay 600FindPic 360,20,660,500,"Attachment:\11nxzdwz.bmp",0.9,X11,Y11If X11 > 0 And Y11 > 0 Then MoveTo X11 + 300, Y11 + 84 Delay 180 LeftClick 1 Delay 180 LeftClick 1 Delay 180 LeftClick 1End IfKeyDown "Ctrl", 1Delay 40KeyPress "C", 1Delay 40KeyUp "Ctrl", 1Delay 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 40KeyDown "KeyPress "v", 1Delay 40KeyUp "Ctrl", 1Delay 40KeyPress "BackSpace", 64Delay 50KeyPress "Enter", 3Delay 100 End If ///复制第一页/////////////////////////// //不能点到字上面，选中前面的文字 MoveTo X11 + 100, Y11 + 456 Delay 150LeftClick 1Delay 180LeftClick 1Delay 180LeftClick 1Delay ys2// 下拉网页 回6个MouseWheel - 100Delay ys2MouseWheel 6Delay ys6// 找 当前页面 的 红色FindColor 500,100,1300,650,"0000FF",X20,Y20Delay 600// 找 下一页 否则找 横线 选中后面的文字FindPic 500,100,1300,650,"Attachment:\211xyy.bmp",0.98,X21,Y21If 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 IfEnd if/////以上是 复制第一页//////////////////
3、在左上角打开WORD 约400像素在左下角打开新建文件的文件夹列表，约400像素
4、调试按键精灵，即可复制。
