File: C:/xampp/htdocs/dropfile/php/uploads/Dropai2Tif2.au3
#include <GUIConstants.au3>
#include <Misc.au3>
#include <guilistbox.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GraphGDIPlus.au3>
#include <MsgBoxConstants.au3>
#include <Array.au3>
#include <String.au3>
;#include <MathY.au3>
#include <Date.au3>
#Include <File.au3>
;#include <_sql.au3>
#include <INet.au3>
#include "Process_CPUUsage.au3"
Global $Paused
HotKeySet("^`", "Terminate")
Global $bHotKeyPressed=False
Func _EscPressed()
$bHotKeyPressed=True
EndFunc
Local $hSplash, $sSplashText
Local $sProcess, $aProcUsage, $fUsage
Local $aGraph, $hGUI, $iMax = 10,$s
_Singleton("RBC") ;$WS_EX_ACCEPTFILES = 16
;Local $guiArr[] = ['hGUI1','hGUI2','hGUI3','hGUI4','hGUI5']
;_ArrayDisplay($guiArr,"guiarray")
#Region ### START Koda GUI section ### Form=C:\Program Files\Koda 1.7.01\Forms\QuickFTP\FNTConvert.kxf
$Form1 = GUICreate("Ai to Tiff", 241, 323, 202, 202, -1, $WS_EX_ACCEPTFILES)
$Tab1 = GUICtrlCreateTab(6, 7, 228, 208)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Convert")
$Label1 = GUICtrlCreateLabel("Drop data here!", 51, 35, 119, 17)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
$Label3 = GUICtrlCreateLabel("Status: Waiting...", 71, 248, 85, 17)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Progress1 = GUICtrlCreateProgress(51, 271, 127, 17)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
$Label5 = GUICtrlCreateList("", 10, 50, 160, 160);Label("1.)", 127, 160, 19, 17)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x808080)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
;$process = GUICtrlCreateButton("Kill", 175, 150, 47, 20)
;GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
;$TabSheet2 = GUICtrlCreateTabItem("About")
;$Label4 = GUICtrlCreateLabel("Developed by motionman95, 2009, All Rights Reserved.", 15, 286, 274, 17)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $GUI_EVENT_DROPPED
$s=$s+1
$File = @GUI_DragFile
;If StringRegExp($File, "^.+\.(?i)((txt)|(OTF))$") Then
;MsgBox(0, "", $File & @CRLF & "Is a font file.")
GUICtrlSetData($Label5, $File, 1)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;$charsO = FileRead( $File)
msgbox(0,"chr",$File,1)
$pdf_in=$File&"\";;;;;;;;;;��|1
;$swop=("C:\adfs\swop\");;
;$swop=("P:\swop\");;
$pdf_out=$File&"\ok\"
DirCreate($pdf_out)
$hold=$File&"\hold\"
DirCreate($hold)
$error=$File&"\error\"
DirCreate($error)
$rename=$File&"\ok\rename\"
DirCreate($rename)
$MyVar1=($pdf_in)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$pFileList11=_FileListToArray($MyVar1, '*.pdf',1)
if not @Error=4 then
$fa1=$pFileList11[0]
Else
$fa1=0
endif
sleep(500)
$pFileList21=_FileListToArray($MyVar1, '*.pdf',1)
if not @Error=4 then
$fb1=$pFileList21[0]
Else
$fb1=0
endif
while $fa1<$fb1
$pFileList11=_FileListToArray($MyVar1, '*.pdf',1)
$fa1=$pFileList11[0]
sleep(500)
$pFileList21=_FileListToArray($MyVar1, '*.pdf',1)
$fb1=$pFileList21[0]
wend
sleep(500)
$pFileList=_FileListToArray($MyVar1, '*.pdf',1)
;_ArraySort($FileList, 0, 1, 0, 0)
;_ArrayDisplay($FileList,"filelist")
if not @Error=4 then
$p=0
$i=1
Opt("WinTitleMatchMode", 2)
Opt("MouseCoordMode",2)
sleep(1000)
for $j=1 to $pFileList[0] step 1
$rr1=($pdf_in&$pFileList[$j])
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$Dwidth=''
$Dheight=''
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$DwidthAR= _StringBetween($pFileList[$j], "_", "x")
;_ArrayDisplay($Dwidth, "wigth")
if not @error=1 Then
$Dwidth=$DwidthAR[0]
;$Dwidth=42
$by10=$Dwidth*10
msgbox(0,"",$by10,1)
;msgbox(0,"ibNumber",IsInt($by10))
if $by10==0 then
msgbox(0,"2",$Dwidth,1)
sleep(2000)
filemove($rr1,$error)
sleep(1000)
;msgbox(0,$rr1,$error)
;filemove($rr1,$error)
ContinueLoop
endif
else
$Dwidth=''
endif
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$rr2=($pdf_out&$pFileList[$j])
$rr3=("C:\adfs\Xout\"&$pFileList[$j])
$pdfName=StringTrimRight($pFileList[$j],4)
Filecopy($rr1,"C:\adfs\pTrans3\*.*")
sleep(2000)
$command = "python C:\Python33\PDFlib911\bind\python\PMpdfResizeC.py"
Run($command, "", @SW_MAXIMIZE)
sleep(2000)
filemove($rr1,$hold&"*.*")
sleep(1000)
filedelete("C:\adfs\hold\*.*")
sleep(1000)
filemove("C:\adfs\Xout\*.*",$pdf_out&"*.*")
sleep(1000)
;filemove($pdf_in&"*.pdf",$pdf_out&"*.*")
sleep(2000)
;; 128 ai action loop
sleep(500)
msgbox(0,"","cycle",1)
;msgbox(0,"wait end",$rr1&","&$pdf_out&$rr2)
;FileDelete($rr1)
sleep(1000)
;Filemove($rr1,"C:\adfs\hold\*.*")
;FileDelete($rr1)
next ;;80
;; 80 pstill for loop
endif ;;71
;;;odf if
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$FileList11=_FileListToArray($MyVar1, '*.ai',1)
if not @Error=4 then
$fa1=$FileList11[0]
Else
$fa1=0
endif
sleep(500)
$FileList21=_FileListToArray($MyVar1, '*.ai',1)
if not @Error=4 then
$fb1=$FileList21[0]
Else
$fb1=0
endif
while $fa1<$fb1
$FileList11=_FileListToArray($MyVar1, '*.ai',1)
$fa1=$FileList11[0]
sleep(500)
$FileList21=_FileListToArray($MyVar1, '*.ai',1)
$fb1=$FileList21[0]
wend
sleep(500)
$FileList=_FileListToArray($MyVar1, '*.ai',1)
;_ArraySort($FileList, 0, 1, 0, 0)
; _ArrayDisplay($FileList,"filelist")
if not @Error=4 then
$p=0
$i=1
Opt("WinTitleMatchMode", 2)
Opt("MouseCoordMode",2)
sleep(1000)
for $j=1 to $FileList[0] step 1
$rr1=($pdf_in&$FileList[$j])
$aiName=StringTrimRight($FileList[$j],3)
;msgbox(0,"",$FileList[$j])
$Dwidth=''
$Dheight=''
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$DwidthAR= _StringBetween($FileList[$j], "_", "x")
;_ArrayDisplay($Dwidth, "wigth")
if not @error=1 Then
$Dwidth=$DwidthAR[0]
;$Dwidth=42
$by10=$Dwidth*10
msgbox(0,"",$by10,1)
;msgbox(0,"ibNumber",IsInt($by10))
if $by10==0 then
msgbox(0,"2",$Dwidth,1)
sleep(2000)
filemove($rr1,$error)
sleep(1000)
;msgbox(0,$rr1,$error)
;filemove($rr1,$error)
ContinueLoop
endif
else
$Dwidth=''
endif
$DheightAR= _StringBetween($FileList[$j], "x", "_")
;_ArrayDisplay($Dheight, "height")
if not @error=1 Then
$Dheight=$DheightAR[0]
else
$Dheight=''
endif
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;msgbox(0,$Dwidth[0],$Dheight[0])
$size1=FileGetSize($rr1)
msgbox(0,"wait for size",$size1 ,1)
sleep(2000)
$size2=FileGetSize($rr1)
sleep(1000)
msgbox(0,"wait for size",$size2 ,1)
while $size1<>$size2
msgbox(0,"wait for size2",$size2 ,1)
$size1=FileGetSize($rr1)
sleep(5000)
$size2=FileGetSize($rr1)
sleep(500)
wend
winactivate("[TITLE:Adobe Illustrator CC 2018; CLASS:illustrator]", "")
;msgbox(0,"adobe","ative")
;winactivate("[TITLE:Adobe Illustrator CC 2018; CLASS:illustrator]", "")
;sleep(1000)
MouseClick("left",87,361,1)
sleep(1200)
;send("!f")
;sleep(500)
;send("^o")
sleep(500)
send("!n")
sleep(500)
ClipPut($pdf_in)
sleep(500)
send("^v")
sleep(500)
send("{enter}")
sleep(500)
ClipPut($FileList[$j])
sleep(500)
send("^v")
sleep(500)
;msgbox(0,"","wait 178")
send("{enter}")
sleep(5000)
;while not WinExists("[TITLE:�w��; CLASS:illustrator]", "")
; sleep(1500)
; MsgBox(0,"","no response 191",1)
while WinExists("[TITLE:Adobe Illustrator; CLASS:#32770]", "�������~")
sleep(1000)
send("{enter}")
MsgBox(0,"","mistake",1)
wend
;WEnd
$re=0
while WinExists ("AAdobe Illustrator CC 2018 (�S���^��)", "")
sleep(1000)
$re=$re+1
MsgBox(0,$re,"no response open",1)
; if $re>5 Then
; exitloop
;endif
WEnd
$re=0
while not WinExists ("[TITLE:�w��; CLASS:illustrator]", "")
sleep(1000)
$re=$re+1
MsgBox(0,$re,"no response open",1)
if $re>10 Then
sleep(1000)
while WinExists("[TITLE:�i��; CLASS:#32770]", "")
ExitLoop
wend
endif
wend
;sleep(3000)
msgbox(0,"","wait progress 204",1)
while WinExists("[TITLE:�i��; CLASS:#32770]", "")
sleep(2500)
MsgBox(0,"","wait Illustratore progress",1)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
while WinExists("Adobe Illustrator", "�������v��")
sleep(1500)
MsgBox(0,"","unknow image",1)
winactivate("Adobe Illustrator", "�������v��")
send("{enter}")
; MouseClick(271,290,2)
;ControlClick("", "�T�w","[CLASS:Button; INSTANCE:1]")
WEnd
while WinExists("[TITLE:�r��; CLASS:#32770]", "")
sleep(1500)
MsgBox(0,"","no font progress loop",1)
winactivate("[TITLE:�r��; CLASS:#32770]", "")
;send("{enter}")
ControlClick("�r��","","left", 63,134,1)
;ControlClick("", "�T�w","[CLASS:Button; INSTANCE:1]")
WEnd
while WinExists("Adobe Illustrator", "OS_ViewContainer") ;;;
sleep(1500)
MsgBox(0,"","image link 233 in progress")
winactivate("Adobe Illustrator", "OS_ViewContainer") ;;;
sleep(500)
send("{tab}")
sleep(500)
send("{tab}")
sleep(500)
send("{enter}")
sleep(500)
msgbox(0,"","wait 423")
exitloop 2
; MouseClick(271,290,2)
;ControlClick("", "�T�w","[CLASS:Button; INSTANCE:1]")
WEnd
while WinExists("[TITLE:Adobe Illustrator; CLASS:#32770]", "")
sleep(1500)
MsgBox(0,"","no image link 433 in progress")
sleep(500)
winactivate("[TITLE:Adobe Illustrator; CLASS:#32770]", "")
sleep(500)
send("{tab}")
sleep(500)
send("{tab}")
sleep(500)
send("{enter}")
sleep(2000)
filemove($rr1,$error)
sleep(1000)
msgbox(0,$rr1,$error)
;filemove($rr1,$error)
exitloop 2
;ControlClick("", "�T�w","[CLASS:Button; INSTANCE:1]")
WEnd
wend
sleep(4500)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
while WinExists("[TITLE:�r��; CLASS:#32770]", "")
sleep(1500)
MsgBox(0,"","no font",1)
winactivate("[TITLE:�r��; CLASS:#32770]", "")
;send("{enter}")
MouseClick("left",63,329,1)
;ControlClick("", "�T�w","[CLASS:Button; INSTANCE:1]")
sleep(1500)
send("^w")
sleep(2000)
filemove($rr1,$error)
sleep(1000)
;msgbox(0,$rr1,$error)
;filemove($rr1,$error)
ContinueLoop 2
WEnd
while WinExists("Adobe Illustrator", "OS_ViewContainer") ;;;
sleep(1500)
MsgBox(0,"","image link 268",1)
winactivate("Adobe Illustrator", "OS_ViewContainer") ;;;
sleep(1000)
send("{tab}")
sleep(500)
send("{tab}")
sleep(500)
send("{enter}")
sleep(2000)
filemove($rr1,$error)
sleep(1000)
;msgbox(0,$rr1,$error)
;filemove($rr1,$error)
ContinueLoop 2
; MouseClick(271,290,2)
;ControlClick("", "�T�w","[CLASS:Button; INSTANCE:1]")
WEnd
while WinExists("[TITLE:�r��; CLASS:#32770]", "")
sleep(1500)
MsgBox(0,"","no font",1)
winactivate("[TITLE:�r��; CLASS:#32770]", "")
;send("{enter}")
MouseClick("left",63,329,1)
;ControlClick("", "�T�w","[CLASS:Button; INSTANCE:1]")
sleep(1500)
send("^w")
sleep(2000)
filemove($rr1,$error)
sleep(1000)
;msgbox(0,$rr1,$error)
;filemove($rr1,$error)
ContinueLoop 2
WEnd
while WinExists("Adobe Illustrator", "�������v��")
sleep(1500)
MsgBox(0,"","unknow image",1)
winactivate("Adobe Illustrator", "�������v��")
send("{enter}")
; MouseClick(271,290,2)
;ControlClick("", "�T�w","[CLASS:Button; INSTANCE:1]")
WEnd
while WinExists("[TITLE:Adobe Illustrator; CLASS:#32770]", "")
sleep(1500)
MsgBox(0,"","no image link 300")
winactivate("[TITLE:Adobe Illustrator; CLASS:#32770]", "")
sleep(1000)
sleep(500)
send("{tab}")
sleep(500)
send("{tab}")
sleep(500)
send("{tab}")
sleep(500)
send("{enter}")
sleep(500)
exitloop 2
;ControlClick("", "�T�w","[CLASS:Button; INSTANCE:1]")
WEnd
while WinExists("[TITLE:�r��; CLASS:#32770]", "")
sleep(1500)
MsgBox(0,"","no font",1)
winactivate("[TITLE:�r��; CLASS:#32770]", "")
;send("{enter}")
MouseClick("left",63,329,1)
;ControlClick("", "�T�w","[CLASS:Button; INSTANCE:1]")
sleep(1500)
send("^w")
sleep(2000)
filemove($rr1,$error)
sleep(1000)
;msgbox(0,$rr1,$error)
;filemove($rr1,$error)
ContinueLoop 2
WEnd
;winactivate("[TITLE:Adobe Illustrator CS6; CLASS:illustrator]", "")
sleep(5000)
MsgBox(0,"","wait 319 open complete",1)
while WinExists("[TITLE:Adobe Illustrator; CLASS:#32770]", "�ɮפw�g�l�a�B�L�k�״_�C")
sleep(500)
MsgBox(0,"","wait bad file",1)
winactivate("[TITLE:Adobe Illustrator; CLASS:#32770]", "�ɮפw�g�l�a�B�L�k�״_�C")
sleep(1000)
ControlClick("", "�T�w","[CLASS:Button; INSTANCE:1]")
;send("{enter}")
filedelete($rr1)
sleep(500)
exitloop 2
wend
$aProcUsage = _ProcessUsageTracker_Create("Illustrator.exe")
If @error Then Exit ConsoleWrite("Error calling _ProcessUsageTracker_Create(): " & @error & ", @extended = " & @extended & @CRLF)
Sleep(1500)
;$hSplash=SplashTextOn("Process CPU Usage Information", "", 360, 20 + 60, Default, Default, 16, Default, 12)
$cpuCount=0
; Start loop
Do
$sSplashText=""
$fUsage = _ProcessUsageTracker_GetUsage($aProcUsage)
If @error Then
ConsoleWrite("Error from _ProcessUsageTracker_GetUsage(): " & @error & ", @extended = " &@extended & @CRLF)
ExitLoop
EndIf
msgbox(0,"wait cpu ",$fUsage,2)
;$sSplashText &= "'"&$sProcess&"' CPU usage: " & $fUsage & " %" & @CRLF
;$sSplashText &= @CRLF & "[Esc] exits"
$cpuCount=$cpuCount+1
if $cpuCount>100 Then
msgbox(0,"","tif cpu ",1)
sleep(1000)
exitloop 2
endif
;ControlSetText($hSplash, "", "[CLASS:Static; INSTANCE:1]", $sSplashText)
Sleep(500)
Until ($fUsage<14)
_ProcessUsageTracker_Destroy($aProcUsage)
msgbox(0,"wait cpu 2",$fUsage,2)
;WinWait("[TITLE:Adobe Illustrator; CLASS:#32770]", "OS_ViewContainer")
;sleep(2000)
while WinExists("[TITLE:Adobe Illustrator; CLASS:#32770]", "")
sleep(500)
MsgBox(0,"","wait Illustratore",1)
winactivate("[TITLE:Adobe Illustrator; CLASS:#32770]", "")
sleep(500)
send("{enter}")
sleep(500)
wend
sleep(2000)
winactivate("[TITLE:�w��; CLASS:illustrator]", "")
sleep(1500)
;;;;;;;;fit artboard
;send("!o")
;sleep(500)
;send("a")
;sleep(500)
;send("b")
;sleep(1000)
;;;;;;;;;;;;;;;;get width
;send("^{F12}")
send("!f")
sleep(500)
send("r")
sleep(500)
send("{down}")
sleep(500)
send("{down}")
sleep(500)
send("{down}")
sleep(500)
send("{down}")
sleep(500)
send("{enter}")
sleep(500)
clipput("C:\automate\getArtboard.js")
sleep(500)
send("^v");;get 0.25 pt line
sleep(1000)
send("!o")
sleep(3000);;;get widthn0.25
while WinExists("���O�Xĵ�i","")
WinActivate("���O�Xĵ�i","")
$Text=ControlGetText("���O�Xĵ�i", "","Static2")
$width=round($Text,1)
sleep(500)
send("{enter}")
sleep(500)
$Text2=ControlGetText("���O�Xĵ�i", "","Static2")
$height=round($Text2,1)
sleep(500)
send("{enter}")
sleep(500)
;$Value=StringSplit($Text," ")
MsgBox(0,$width,$height,1)
wend
$ratioP=100;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
if ($Dwidth<>'' and abs($Dwidth-$width)>0.6 ) then
$ratio=$Dwidth/$width
MsgBox(0,"ratio",$ratio,1)
$ratioP=$ratio*100
sleep(2000)
WinActivate ("[TITLE:�w��; CLASS:illustrator]", "")
sleep(1000)
send("^!a")
sleep(1000)
send("{space}s")
sleep(1000)
send("{enter}")
sleep(3000)
WinActivate("�Y��","")
sleep(1000)
send($ratioP)
sleep(1000)
send("{enter}")
;wend
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$aProcUsage = _ProcessUsageTracker_Create("Illustrator.exe")
If @error Then Exit ConsoleWrite("Error calling _ProcessUsageTracker_Create(): " & @error & ", @extended = " & @extended & @CRLF)
Sleep(1500)
;$hSplash=SplashTextOn("Process CPU Usage Information", "", 360, 20 + 60, Default, Default, 16, Default, 12)
$cpuCount=0
; Start loop
Do
$sSplashText=""
$fUsage = _ProcessUsageTracker_GetUsage($aProcUsage)
If @error Then
ConsoleWrite("Error from _ProcessUsageTracker_GetUsage(): " & @error & ", @extended = " &@extended & @CRLF)
ExitLoop
EndIf
msgbox(0,"wait cpu scale",$fUsage,2)
;$sSplashText &= "'"&$sProcess&"' CPU usage: " & $fUsage & " %" & @CRLF
;$sSplashText &= @CRLF & "[Esc] exits"
$cpuCount=$cpuCount+1
if $cpuCount>100 Then
msgbox(0,"","exit",1)
sleep(1000)
exitloop
endif
;ControlSetText($hSplash, "", "[CLASS:Static; INSTANCE:1]", $sSplashText)
Sleep(500)
Until ($fUsage<6)
_ProcessUsageTracker_Destroy($aProcUsage)
msgbox(0,"wait cpu scale 2",$fUsage,2)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
sleep(3000)
WinActivate ("[TITLE:�w��; CLASS:illustrator]", "")
sleep(1000)
send("!o")
sleep(1500)
send("aa")
sleep(1500)
send("{enter}")
sleep(1000)
send("s")
endif
sleep(1000)
send("{space}v")
sleep(500)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$rr2=($aiName&"~"&$width*$ratioP*0.01&"~"&$height*$ratioP*0.01&"~.tif")
msgBox(0,$rr2,$rr2,1)
winactivate("[TITLE:�w��; CLASS:illustrator]", "")
sleep(1500)
send("!f")
sleep(500)
send("e")
sleep(500)
send("{down}")
sleep(500)
send("{enter}")
sleep(700)
send("!t")
sleep(500)
send("t")
sleep(500)
send("t")
sleep(700)
send("!n")
sleep(500)
clipput($pdf_out&$rr2)
sleep(500)
send("^v")
sleep(500)
;send("!s")
;ControlClick("�x�s - CGATS", "�x�s", "[CLASS:Button; INSTANCE:1]")
send("!u")
sleep(700)
ControlClick("��s","��s","[CLASS:Button; INSTANCE:5]")
sleep(3000)
$re=0
while not WinExists("[TITLE:TIFF �ﶵ; CLASS:#32770]", "")
sleep(1500)
$re=$re+1
MsgBox(0,$re,"no responde",1)
if $re>20 Then
exitloop
endif
WEnd
sleep(500)
WinActivate("[TITLE:TIFF �ﶵ; CLASS:#32770]", "")
sleep(500)
;send("!l")
sleep(500)
send("!c")
sleep(700)
send("c")
sleep(700)
;send("{tab}")
;sleep(700)
;send("{tab}")
;sleep(700)
$area=$width*$height
;MsgBox(0,"area",$area,1)
send("!r")
sleep(700)
if($width>150 or $height>150) then ;;72dpi
; sleep(1000)
send("{up}")
sleep(700)
send("{up}")
sleep(700)
send("{down}")
sleep(700)
send("{down}")
sleep(700)
send("{down}")
clipput("100")
sleep(1000)
send("^v")
;sleep(500)
send("{enter}")
sleep(500)
send("{enter}")
sleep(500)
elseif ($width>42 or $height>42) Then ;;150 dpi
;sleep(1000)
send("{up}")
sleep(700)
send("{up}")
sleep(700)
send("{down}")
sleep(700)
send("{down}")
sleep(700)
send("{down}")
clipput("150")
sleep(1000)
send("^v")
sleep(500)
send("{enter}")
sleep(500)
send("{enter}")
sleep(500)
Else
; sleep(1000) ;300dpi
send("{up}")
sleep(700)
send("{up}")
sleep(700)
send("{down}")
sleep(700)
send("{down}")
sleep(700)
send("{down}")
clipput("300")
sleep(1000)
send("^v")
sleep(500)
send("{enter}")
sleep(500)
send("{enter}")
sleep(500)
endif
sleep(5000)
$aProcUsage = _ProcessUsageTracker_Create("Illustrator.exe")
If @error Then Exit ConsoleWrite("Error calling _ProcessUsageTracker_Create(): " & @error & ", @extended = " & @extended & @CRLF)
Sleep(1500)
;$hSplash=SplashTextOn("Process CPU Usage Information", "", 360, 20 + 60, Default, Default, 16, Default, 12)
$cpuCount=0
; Start loop
Do
$sSplashText=""
$fUsage = _ProcessUsageTracker_GetUsage($aProcUsage)
If @error Then
ConsoleWrite("Error from _ProcessUsageTracker_GetUsage(): " & @error & ", @extended = " &@extended & @CRLF)
ExitLoop
EndIf
msgbox(0,"wait cpu tif",$fUsage,2)
;$sSplashText &= "'"&$sProcess&"' CPU usage: " & $fUsage & " %" & @CRLF
;$sSplashText &= @CRLF & "[Esc] exits"
$cpuCount=$cpuCount+1
if $cpuCount>100 Then
msgbox(0,"","exit",1)
sleep(1000)
exitloop
endif
;ControlSetText($hSplash, "", "[CLASS:Static; INSTANCE:1]", $sSplashText)
Sleep(500)
Until ($fUsage<6)
_ProcessUsageTracker_Destroy($aProcUsage)
msgbox(0,"wait cpu tif 2",$fUsage,2)
msgbox(0,"wait",$rr2,1)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;get width
;$aiName2=StringTrimRight($rr2,4)
;$rr2=($aiName&"_"&$width&"_"&$height&".ai")
;$aiName2=StringTrimRight($rr2,4)
;msgbox(0,"name2",$rr2)
winactivate("[TITLE:�w��; CLASS:illustrator]", "")
sleep(1000)
send("{space}v")
sleep(500)
MouseClick("left",253,78,2)
sleep(500)
send("^w")
sleep(500)
;winactivate("[TITLE:CMYK; CLASS:#32770]", "")
;MouseClick("left",100,78,1)
;sleep(500)
;MouseClick("left",100,78,2)
;sleep(1000)
;send("^w")
;sleep(1000)
send("n")
sleep(2500)
;send("c")
;sleep(2000)
;FileDelete($rr3)
;sleep(1500)
;filecopy($rr1,$pdf_out&$rr2)
filemove($rr1,$hold)
;filemove($pdf_in&"*.ai",$pdf_out&"*.*")
sleep(2000)
;; 128 ai action loop
sleep(500)
;msgbox(0,"check","here 2")
;msgbox(0,"wait 370",$rr1&","&$pdf_out&$rr2)
;; 119 ai file loop
msgbox(0,"","cycle",1)
;msgbox(0,"wait end",$rr1&","&$pdf_out&$rr2)
;FileDelete($rr1)
sleep(1000)
;Filemove($rr1,"C:\adfs\hold\*.*")
;FileDelete($rr1)
next ;;80
;; 80 pstill for loop
endif ;;71
;; 71 pstill if file loop
;msgbox(0,"measute:",$measureL&"_"&$measurea&"_"&$measureb);
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;c100;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;endif of agraph
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Case $process
; MsgBox(0, "ss", $s)
$s=0
EndSwitch
WEnd
;Func DensitySp38()
;ConsoleWrite("ID: "&@GUI_DRAGID & " File: "&@GUI_DRAGFILE &" Drop: "&@GUI_DROPID&@CRLF)
;EndFunc
Func Terminate()
;ProcessClose("Wscript.exe")
Exit 0
EndFunc