GEOSofts

#cs
   This AutoIt script file was generated by Project Express 4.0.7.0 Feb 04 / 2009
   AutoIt Compiler Version: 		3.3.0.0
   Language:		English (US)
   Platform: 		All
   Author: 		George Gedye
   Company: 		GEOSoft
   E-Mail:		geog AT mvps DOT org
   ;
   Project Name: 		Dell
   Project Description: 		Open Dell Service Manual pages
   To Do List: 
   ;								
#ce

Global $Gw = @DesktopWidth-20, $Gh = @DesktopHeight -40, $sInput = "Enter the model number"
$oEmbeded = ObjCreate("Shell.Explorer.2")
$sURL = "http://support.dell.com/support/edocs/systems/ins"
$Frm_Main = GUICreate("Dell Manuals", $Gw, $Gh,10,0)
$In_Model = GUICtrlCreateInput($sInput, 10,10,145,24)
$Btn_Go = GUICtrlCreateButton("Go", 165, 10, 30, 24, 1)
$obj_page = GUICtrlCreateObj ($oEmbeded, 0, 40, $Gw, $Gh -40)
GUICtrlSetFont($In_Model, 9)
GUICtrlSetState($in_Model, 256)
GUISetState()

While 1
   $Msg = GUIGetMsg()
   Switch($Msg)
      Case -3
         ExitLoop
      Case $Btn_Go
         $sModel = GUICtrlRead($In_Model)
         If $sModel = $sInput Then
            GUICtrlSetState($in_Model, 256)
            ContinueLoop
         EndIf
         $sModel = StringRegExpReplace($sModel, ".*(\d{4}).*", "$1")
         If NOT @Extended Then
            GUICtrlSetData($in_Model, $sInput)
            GUICtrlSetState($in_Model, 256)
            ContinueLoop
         EndIf
         $oEmbeded.navigate($sURL & $sModel & "/en/sm/")
   EndSwitch
Wend