;
; AutoIt Version: 3.0
; Language:       English
; Platform:       Win9x/NT
; Author:         Jonathan Bennett (jon@hiddensoft.com)
;
; Script Function:
;   Opens Notepad, types in some text and then quits.
;
FileChangeDir("C:\J\ESI_Scripting")
;
Dim $bDebug
;$bDebug="True"
Dim $DWidth
Dim $DHeight
;
$DWidth=@DesktopWidth
$DHeight=@DesktopHeight
; Run Script...
Run("WScript.exe " & chr(34) & "GoHere.vbs" & chr(34) & " " & $CmdLine[1])
;
winwaitactive("","has been stopped",4)
If $bDebug="True" Then
	msgbox(4096,"@DesktopHeight",$DHeight,5)
	msgbox(4096,"@DesktopWidth",$DWidth,5)
EndIf
;
If $DHeight=1200 Then
	MOUSECLICK("Main",143,1139) ; landscape
Else
	MOUSECLICK("Main",117,1532) ; portrait
EndIf
;
winwaitactive("","has been stopped",6)
;
If $DHeight=1200 Then
	MOUSECLICK("Main",143,1139) ; landscape
Else
	MOUSECLICK("Main",117,1532) ; portrait
EndIf
;