Break On
$System = CreateObject("Kixtart.System")

;create form
$Form = $System.Form()
$Form.BackColor = 212,208,200
$Form.FontSize = 8,25
$Form.Height = 187
$Form.Left = 225
$Form.Text = "example"
$Form.Top = 110
$Form.Width = 187

;create pulldown menu
$ComboBox = $Form.Controls.ComboBox()
$ComboBox.DropDownWidth = 121
$ComboBox.FontSize = 8,25
$ComboBox.Height = 21
$ComboBox.Left = 30
$ComboBox.Sorted = "False"
$ComboBox.Text = "Select app to start"
$ComboBox.Top = 30
$ComboBox.Width = 121
$ComboBox.AddItem ("Notepad")
$ComboBox.AddItem ("Int. expl.")

;create button
$Button = $Form.Controls.Button()
$Button.FontSize = 8,25
$Button.Height = 28
$Button.Left = 30
$Button.Text = "Start selected app"
$Button.Top = 75
$Button.Width = 110
$Button.OnClick = "Button_Click()"

$Form.Show
While $Form.Visible
   $=Execute($Form.DoEvents())
Loop
Exit 1

Function Button_Click()
	$app = $comboBox.text
	Select
		Case $app = "Select app to start"
			$rc = MessageBox("No app selected.","Error",16,0)
		Case $app = "Notepad"
			Shell "notepad.exe"
		Case $app = "Int. expl."
			Shell "iexplore.exe"
	EndSelect
EndFunction

Quote:

---

Code:

---

Run( "Notepad.exe" )
Sleep 1
SetFocus( "Untitled - Notepad" )
$ReturnCode = SendKeys("Hello World")
Sleep( 2 )
$ReturnCode = SendKeys("~{F4}Y")

---

---