养生 装修 购物 美食 感冒 便秘 营销 加盟 小吃 火锅 管理 创业 搭配 减肥 培训 旅游

批量快速复制论文的方法

时间:2024-10-12 01:23:14

批量复制论文工作量太大,也过于烦琐,而所要做的工作又是基本一致辞的。利用按键精灵可以快速准确的复制。。

工具/原料

能上网的电脑

安装按键精灵

方法/步骤

1、打开要复制的论文网站文章列表。

2、运酚祯馄嫱行按键精灵编写脚本Delay500LeftClick1Delay500LeftClick1KeyPress"F2",1//定义复制粘贴正文,,是惺绅寨瞀子程序fzzw里的一部分Subfzzw1 //复制正文Delay500RightClick1Delay200MoveR35,35Delay200LeftClick1Delay200//粘贴正文Delay200MoveToX12,Y12+200Delay40LeftClick1Delay40KeyDown"Ctrl",1Delay40KeyPress"v",1Delay40KeyUp"Ctrl",1Delay40KeyPress"BackSpace",64Delay50KeyPress"Enter",1Delay100EndSub//定义复制一页SubfzzwRemxyyDelay400 //不能点到字上面,选中前面的文字MoveToX11+100,Y11+456Delay150LeftClick1Delay180LeftClick1Delay180LeftClick1Delayys2//下拉网页回6个MouseWheel-100Delayys2MouseWheel6Delayys6//找当前页面的红色FindColor500,110,1360,850,"0000FF",X20,Y20IfX20>0ThenDelay600MoveToX20-200,Y20+8Delay80KeyDown"Shift",1Delay200LeftClick1Delay200KeyUp"Shift",1Delay100//复制粘贴正文Callfzzw1EndIfDelay100//找下一页否则找横线选中后面的文字FindPic540,110,1060,850,"Attachment:\211xyy.bmp",0.98,X21,Y21IfX21>0AndY21>0Then//点击下一页MoveToX21+16,Y21+6Delay50LeftClick1DelaywlysGotoxyyEndif//否则找横线选中后面的文字IfX21<0ThenDelay80//关闭网页CallgbwebDelay80EndifEndSub//定义关闭网页//定义关闭网页SubgbwebFindPic500,50,1330,230,"Attachment:\571gbweb.bmp",0.9,X57,Y57IfX57>0AndY57>0ThenMoveToX57+5,Y57+5Delay40LeftClick1EndIfDelay100EndSub//以下为电脑及网络延时ys2=200//电脑延时(默认200)ys6=600//电脑延时(默认600)wlys=3000//网络延时(默认3000)//复制文件名//复制文件名MouseWheel-3Delay600FindPic360,20,660,500,"Attachment:\11nxzdwz.bmp",0.9,X11,Y11IfX11>0AndY11>0ThenMoveToX11+300,Y11+84Delay180LeftClick1Delay180LeftClick1Delay180LeftClick1EndIfKeyDown"Ctrl",1Delay40KeyPress"C",1Delay40KeyUp"Ctrl",1Delayys2//粘贴文件名FindPic30,30,460,600,"Attachment:\121worddw.bmp",0.9,X12,Y12IfX12>0AndY12>0ThenDelay40MoveToX12,Y12+200Delay40LeftClick1Delay40KeyDown"KeyPress"v",1Delay40KeyUp"Ctrl",1Delay40KeyPress"BackSpace",64Delay50KeyPress"Enter",3Delay100EndIf///复制第一页/////////////////////////// //不能点到字上面,选中前面的文字MoveToX11+100,Y11+456Delay150LeftClick1Delay180LeftClick1Delay180LeftClick1Delayys2//下拉网页回6个MouseWheel-100Delayys2MouseWheel6Delayys6//找当前页面的红色FindColor500,100,1300,650,"0000FF",X20,Y20Delay600//找下一页否则找横线选中后面的文字FindPic500,100,1300,650,"Attachment:\211xyy.bmp",0.98,X21,Y21IfX21>0AndY21>0ThenMoveToX20-230,Y20+8Delay80KeyDown"Shift",1Delay200LeftClick1Delay200KeyUp"Shift",1Delay100//复制粘贴正文Callfzzw1//点击下一页MoveToX21+16,Y21+6Delay50LeftClick1Delaywlys//复制第二页,,及以后页CallfzzwEndif//否则找横线选中后面的文字IfX21<0ThenFindPic540,110,1060,850,"Attachment:\221dw.bmp",0.9,X22,Y22IfX22>0AndY22>0ThenMoveToX22,Y22Delay100KeyDown"Shift",1Delay200LeftClick1Delay200KeyUp"Shift",1Delay80//复制粘贴正文Callfzzw1Delay80//关闭网页CallgbwebDelay80EndIfEndif/////以上是复制第一页//////////////////

3、在左上角打开WORD约400像素在左下角打开新建文件的文件夹列表,约400像素

4、调试按键精灵,即可复制。

© 一点知识