Global $Path = "C:\KSFE2010"
Func Meta()
RUN("C:\PROGRAM FILES\COMPREHENSIVE META ANALYSIS VERSION 2\
COMPREHENSIVE META ANALYSIS V2.EXE")
  WinWait ("Comprehensive meta analysis - [Data]")
  WinWaitActive ("Comprehensive meta analysis - [Data]")  
  WinSetState("Comprehensive meta analysis-[Data]","", @SW_MAXIMIZE)
Sleep(500)
$handle = WinGetHandle("Comprehensive meta analysis - [Data]", "")
DllCall("user32.dll", "int", "SetParent", "hwnd", $handle, "hwnd", 
        WinGetHandle($RMainGUI))
Sleep(300)
DllCall("user32.dll","long","SetWindowLong","hwnd",$handle,"int",-16,long",BitOR($WS_POPUP, $WS_CHILD, $WS_VISIBLE, $WS_CLIPSIBLINGS))
   GUISetState()
   WinMove($handle, "", $ML, $MT, $MW, $MH)
   Sleep(1000)
   Send ("!F")                                                                                                                           
   Sleep (500)                                                                                                                              
   Send ("^o")                                                                                                                           
   Sleep (500)                                                                                                                              
   Send ($Path & "\META.cma")      
   Sleep (1500)     
   Send ("{ENTER}")                                                                                                                      
   Sleep(1000)  
   $oExcel = ObjCreate("Excel.Application")
   $oExcel.visible = 0
   $book = $oExcel.Workbooks.Open($Path & "\META.XLS")   
  FOR $I = 1 TO N    
MouseClickDrag ("left", 50+$W+$ML-10, 100+$H+$MT-10, 1000, 500, 0)                                                                                        
    Sleep( 500)     
    Send ("^x")                                                                                                                           
    Sleep (500)                                                                                                                              
    ClipPut ("") 
    $sh = $oExcel.Worksheets($I)
    $sh.Activate
    $MaPlage = $sh.Range("A1").CurrentRegion
    $introws = $sh.Range("A1").CurrentRegion.Rows.Count
    $intcols = $sh.Range("A1").CurrentRegion.Columns.Count
    $sh.Range($sh.Cells(1, 1), $sh.Cells($introws, $intcols)).Copy 
	MouseClick ("Left", 50+$W+$ML-10, 100+$H+$MT-10, 2)
    Sleep(1000) 
	Send ("^v")                                                                                                                       
    Sleep(1000)                                                                                                                             
    ;Run analyses                                                                                                                       
    Send ("!t")                                                                                                                       
    Sleep( 500)   	
	Send ("{RIGHT} {RIGHT}")
	Sleep(500)
    Send ("{ENTER}")  	
	Sleep(1500)
    MouseClick ("Left", 10+$W+$ML-10, 80+$H+$MT-10, 2)                                                                                                     
	;Info clear  
    Send ("!V")                                                                                                                       
    Sleep( 1000)     
    Send ("{HOME}")
	Sleep(500)    
    Send ("{DOWN 5}")
	Sleep(1000)    
    Send ("{ENTER}")
	Sleep(500)  
	;Fixed and Random  
    MouseClick ("Left", 10+$W+$ML-10, 80+$H+$MT-10, 2)                                                                                                     
	Sleep(1500)
	Send ("{TAB} {TAB}")
	Sleep(500)
	Send ("{RIGHT}")
	Sleep(1000)
	Send ("{RIGHT}")
	Sleep(1000)
    Send ("{ENTER}")
	Sleep(500)  
  ;Effect measure   
   If $I = 1 Then  
    Send ("!V")                                                                                                                       
    Sleep( 1000)    
    Send ("{RIGHT}")
	Sleep(1000)  
    Send ("{ENTER}")
	Sleep(1000)  
    Send ("{RIGHT}")
	Sleep(1000)  
	MH RR      
    Send ("{HOME}")
	Sleep(500)    
	    Send ("{DOWN 7}")
	Sleep(2000)    
    Send ("{ENTER}")
Sleep(500) 
 EndIf
    MouseClick ("Left", 10+$W+$ML-10, 80+$H+$MT-10, 2)                                                                                                     
    Send ("!o")                                                                                                                       
    Sleep( 1000)     
    Send ("{DOWN 2}")
	Sleep(1000)    
    Send ("{RIGHT}")
	Sleep(1000)
    Send ("{DOWN}")
	Sleep(1000)
    Send ("{ENTER}")
	Sleep(500) 
    Send ("!o")                                                                                                                       
    Sleep( 1000)     
    Send ("{DOWN 2}")
	Sleep(1000)    
    Send ("{RIGHT}")
	Sleep(1000)
    Send ("{HOME}")
	Sleep(1000)
    Send ("{DOWN 2}")
	Sleep(1000)    
    Send ("{ENTER}")
	Sleep(500) 
    Send ("!o")                                                                                                                       
    Sleep( 1000)     
    Send ("{DOWN 3}")
	Sleep(1000)    
    Send ("{RIGHT}")
	Sleep(1000)
    Send ("{HOME}")
	Sleep(1000)
    Send ("{DOWN}")
	Sleep(1000)    
    Send ("{ENTER}")
	Sleep(500) 
MouseClick ("Left", 10+$W+$ML-10, 80+$H+$MT-10, 2)                                                                                                     
Sleep( 500)                                                                                                                             
Send ("!E")                                                                                                                       
Sleep( 500)    
Send ("{DOWN 2}")
Sleep(500)  
Send ("{ENTER}")  
Sleep( 500)   
$X = ClipGet()                                                                                                                        
Sleep( 500)                                                                                                                             
$Text   = StringSplit($X, @CRLF)
Sleep( 500)
For $II = 2 To $Text[0]-1
	If ($Text[$II] <> " ") Then
	IniWrite ($PATH & "\AUTO.ini", $I & "_1", $II, $Text[$II]) 
     IniWrite ($PATH & "\AUTO2.ini", $I,  "TABLE1", $Text[$II])	EndIf
	Next
Send ("!V")
Sleep( 1000)
Send ("{DOWN}")
Sleep(1000)   
Send ("{ENTER}")  
Sleep( 500)  
MouseClickDrag ("left", 100+$W+$ML-10, 100+$H+$MT-10, 1200, 600, 0)                                                                                     
Sleep( 500)                                                                                                                             
Send ("^c")                                                                                                                         
Sleep( 500)                                                                                                                             
$X = ClipGet()                                                                                                                        
Sleep( 500)                                                                                                                             
Send ("{ENTER}")  
$Text   = StringSplit($X, @CRLF)
For $II = 2 To $Text[0]-1
	If ($Text[$II] <> " ") Then
		IniWrite ($PATH & "\AUTO.ini", $I & "_2",  $II, $Text[$II]) 
		IniWrite ($PATH & "\AUTO2.ini", $I,  "TABLE2", $Text[$II]) 
    	EndIf
Next
	;Go to Daten                                                                                                                       
    Send ("!F")                                                                                                                       
    Sleep( 1000)   	
    Send ("{DOWN 2}")
	Sleep(500)
    Send ("{ENTER}")  	
	Sleep(500)
 NEXT  
 Terminate()
EndFunc