#x::Ext:=1;Send, {LAlt Down};send {PGDN};send {lalt up};Sleep, 100#z:: ;Run www.autohotkey.comSetTitleMatchMode 2Num:=0Err:=0Ext:=0tt=FileDelete ,D:\temp.txtLoop{times:=0MouseClick, left, 335, 190,2clipboard=Loop{if(Ext=1)breakSleep, 500send ^cSleep 100 ;;;;;;;;发指令需要时间important!!!if( StrLen(Clipboard)<1){times:=times+1if(times>=20){MsgBox 选择销售单超时;breakreturn}}elsebreak}if(Ext=1){MsgBox 强制退出Ext:=0break}if (tt=Clipboard){MsgBox 数据处理完成tt=break}tt=%Clipboard%;send #c;Sleep 500 ;;;;;;;;发指令需要时间important!!!;-------------------------------------------- {FileDelete ,D:\temp.txt;send ^c ;;;;;Sleep 100 ;;;;FileAppend,%Clipboard%, D:\temp.txtFileAppend,;, D:\temp.txtMouseClick, Left ,570,235,2sleep 200send ^aSleep 100send ^cSleep 100FileAppend,%Clipboard%, D:\temp.txtFileAppend,;, D:\temp.txtMouseClick, Left ,1580,235,2sleep 200send ^aSleep 100send ^cSleep 100FileAppend,%Clipboard%, D:\temp.txtFileAppend,;, D:\temp.txtMouseClick, Left ,335,280,2sleep 200send ^aSleep 100send ^cSleep 100FileAppend,%Clipboard%, D:\temp.txtFileAppend,;, D:\temp.txtMouseClick, Left ,570,190,2sleep 200send ^aSleep 100send ^cSleep 100FileAppend,%Clipboard%, D:\temp.txtFileAppend,`n, D:\temp.txt;msgbox 销售单数据已经拷贝入D:\temp.txt，请点击下面的单据统计销售件数 };--------------------------------------------MouseClick, Left ,765,390,1Sleep, 200;send #v;Sleep 100 ;;;;;;;;;;--------------------------------------------{send ^aSleep 100send ^cttt=%Clipboard%FileAppend,%Clipboard%, D:\temp.txt;FileAppend,`n, D:\temp.txtIfWinExist 四川科伦每天销售发货明细{WinActivateWinWaitActivesend ^+lSleep 1000}else{MsgBox,四川科伦每天销售发货明细没打开Err:=1 return} };--------------------------------------------;if(Err=0){WinMinimize,四川科伦每天销售发货明细;};break;;;;;;;;不管是否成功都需要退出一个循环!!!Num:=Num+1if(Num>=50){MsgBox 销售单达到了50条，请确认break}Send, {LAlt Down}send {PGDN}send {lalt up}Sleep, 100}return#c::SetTitleMatchMode 2;IfWinActive,UFIDA NewCentury{FileDelete ,D:\temp.txtsend ^c ;;;;Sleep 100 ;;;;FileAppend,%Clipboard%, D:\temp.txtFileAppend,;, D:\temp.txtMouseClick, Left ,570,235,2sleep 200send ^aSleep 100send ^cSleep 100FileAppend,%Clipboard%, D:\temp.txtFileAppend,;, D:\temp.txtMouseClick, Left ,1580,235,2sleep 200send ^aSleep 100send ^cSleep 100FileAppend,%Clipboard%, D:\temp.txtFileAppend,;, D:\temp.txtMouseClick, Left ,335,280,2sleep 200send ^aSleep 100send ^cSleep 100FileAppend,%Clipboard%, D:\temp.txtFileAppend,;, D:\temp.txtMouseClick, Left ,570,190,2sleep 200send ^aSleep 100send ^cSleep 100FileAppend,%Clipboard%, D:\temp.txtFileAppend,`n, D:\temp.txt;msgbox 销售单数据已经拷贝入D:\temp.txt，请点击下面的单据统计销售件数};else;msgbox,UFIDA NewCentury 没激活return#v::SetTitleMatchMode 2;IfWinActive,UFIDA NewCentury{send ^aSleep 100send ^cttt=%Clipboard%FileAppend,%Clipboard%, D:\temp.txt;FileAppend,`n, D:\temp.txtIfWinExist 四川科伦每天销售发货明细{WinActivateWinWaitActivesend ^+l}else{MsgBox,四川科伦每天销售发货明细没打开Err:=1 } };else;msgbox,UFIDA NewCentury 没激活return
