Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal _
lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory _
As String, ByVal nShowCmd As Long) As Long
'function to open the webpage.

Const GWL_HWNDPARENT = -8
Const HWND_DESKTOP = 0
Declare Function SetWindowLong Lib "user32" Alias _
"SetWindowLongA" (hwnd As Long, nIndex As Long, _
dwNewLong As Long) As Long
' a function to make the program minmize right.
'$include "setup.inc"


DECLARE SUB LAUNCH
DECLARE SUB FILTER (KEY AS WORD)

CREATE Form AS QFORM
Caption = "Launch IT!"
Width = screen.width
Height = 57
top = 0
left = 0
borderstyle = 2
DELBORDERICONS = 2
CREATE CoolBtn1 AS QCOOLBTN
Caption = "GO!"
Left = 453
Top = 0
Width = 100
Height = 20
Align = 4
onclick = launch
END CREATE
CREATE Edit1 AS QEDIT
Text = ""
Left = 0
Top = 0
Width = 453
'Height = 40
Align = 5
ONKEYPRESS = FILTER
END CREATE
END CREATE
setwindowlong(form.handle, GWL_HWNDPARENT, _
HWND_DESKTOP) 'calling the minimize function.
setwindowlong(application.handle, _
GWL_HWNDPARENT, form.handle)
Form.ShowModal

SUB LAUNCH
FORM.WINDOWSTATE = 1

IF UCASE$(EDIT1.TEXT) = "ABOUT" THEN
SHOWMESSAGE "ABOUT"
EXIT SUB
END IF

IF UCASE$(LEFT$(EDIT1.TEXT, 7)) = "HTTP://" THEN
rediff = ShellExecute(FORM.HANDLE, "Open", EDIT1.TEXT, "", "", 1)

ELSE
IF UCASE$(LEFT$(EDIT1.TEXT, 6)) = "FTP://" THEN
rediff = ShellExecute(FORM.HANDLE, "Open", EDIT1.TEXT, "", "", 1)
END IF
rediff = ShellExecute(FORM.HANDLE, "Open", "http://"+EDIT1.TEXT, "", "", 1)
END IF
END SUB

SUB FILTER (KEY AS WORD)
SELECT CASE KEY
CASE 13
LAUNCH

CASE 27
FORM.CLOSE

END SELECT
END SUB