Navigate Explorer by C0dex

[Codexxx]

Salut Baieti am programmat acuma cateva zile un mic BROWSER si am decis sa va las si voua sursa

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ProgressConstants.au3>
#include <IE.au3>

$IE = _IECreateEmbedded ()

Global $html
Const $urlFFN = 'http://melos.ro:8803'


$oWMP = ObjCreate ( "WMPLayer.ocx" )

$Form1 = GUICreate(" Navigate Explorer by C0dex", 1038, 824, 177, 115)
$MenuItem2 = GUICtrlCreateMenu("About")
$MenuItem5 = GUICtrlCreateMenuItem("Info", $MenuItem2)
$MenuItem6 = GUICtrlCreateMenuItem("_Autoit_", $MenuItem2)
$MenuItem1 = GUICtrlCreateMenu("Menu")
$MenuItem3 = GUICtrlCreateMenuItem("Credit", $MenuItem1)
$MenuItem4 = GUICtrlCreateMenuItem("Exit", $MenuItem1)
GUISetBkColor(0xFFFFFF)
$Label1 = GUICtrlCreateLabel("Http://", 8, 8, 53, 26)
GUICtrlSetFont(-1, 12, 800, 0, "Palatino Linotype")
$Input1 = GUICtrlCreateInput("www.google.ro", 64, 8, 881, 25, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
GUICtrlSetFont(-1, 9, 800, 0, "Palatino Linotype")
$Button1 = GUICtrlCreateButton("GO", 952, 8, 75, 25)
GUICtrlSetFont(-1, 9, 800, 0, "Palatino Linotype")
GUICtrlSetCursor (-1, 0)
$Url = GUICtrlCreateObj($IE, 8, 40, 1020, 708)
$Group1 = GUICtrlCreateGroup("Radio", 8, 752, 105, 41)
GUICtrlSetFont(-1, 9, 800, 0, "Palatino Linotype")
$Checkbox1 = GUICtrlCreateCheckbox("Radio Milos", 16, 768, 89, 17)
GUICtrlSetFont(-1, 9, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFF0000)
$Button2 = GUICtrlCreateButton("Home", 872, 760, 75, 33)
GUICtrlSetFont(-1, 9, 800, 0, "Palatino Linotype")
GUICtrlSetCursor (-1, 0)
$Button3 = GUICtrlCreateButton("Exit", 952, 760, 75, 33)
GUICtrlSetFont(-1, 9, 800, 0, "Palatino Linotype")
GUICtrlSetCursor (-1, 0)
$Button4 = GUICtrlCreateButton("Stop Radio", 200, 760, 75, 33)
GUICtrlSetFont(-1, 9, 800, 0, "Palatino Linotype")
GUICtrlSetCursor (-1, 0)
$Button5 = GUICtrlCreateButton("Play Radio", 120, 760, 75, 33)
GUICtrlSetFont(-1, 9, 800, 0, "Palatino Linotype")
GUICtrlSetCursor (-1, 0)
GUIStartGroup()
$Input2 = GUICtrlCreateInput("", 288, 764, 169, 25, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
GUICtrlSetFont(-1, 9, 800, 0, "Palatino Linotype")
GUIStartGroup()
$Progress1 = GUICtrlCreateProgress(480, 768, 382, 17)
GUISetState(@SW_SHOW)


_IENavigate($IE,"http://www.google.ro")

Dim $Form1_AccelTable[1][2] = [["{Enter}", $Button1]]
GUISetAccelerators($Form1_AccelTable)

Local $inicio = 0
         Local $final = 50
         Local $espera = 10


While 1
	$nMsg = GUIGetMsg()
	GUICtrlSetData($Input2,@HOUR & ":" & @MIN & ":" & @SEC)
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

		Case $MenuItem3
			;MsgBox features: Title=Yes, Text=Yes, Buttons=OK, Icon=Warning
		MsgBox(48,"!","Contact" & @CRLF & "Hellshare60@gmail.com" & @CRLF & "___________________" & @CRLF & "@2013")

	    Case $MenuItem4
		Exit(-1)


		Case $MenuItem5
		;MsgBox features: Title=Yes, Text=Yes, Buttons=OK, Icon=Question
         MsgBox(32,"Info","Created by C0dex " & @CRLF & "Programming  AutoiT..")

		Case $MenuItem6
			ShellExecute("http://www.autoitscript.com/site/autoit/")

		Case $Button1
			Do


			GUICtrlSetData($Progress1, $inicio)
			$inicio = $inicio + 1
			Sleep($espera)
		Until $inicio = 100
		GUICtrlSetData($Progress1,0)

			$html = GUICtrlRead($Input1)
			_IENavigate($IE,$html)

		Case $Button2
			_IENavigate($IE,"http://www.google.ro")

		Case $Button3
			Exit(-1)


		Case $Button4
			$oWMP.controls.stop()

		Case $Button5
			If GUICtrlRead($Checkbox1) = "1" Then
			Global $oWMP= ObjCreate("WMPLayer.ocx")
			$oWMP.URL = "http://melos.ro:8803"
			$oWMP.controls.play
		EndIf


	EndSwitch
WEnd

Salutarii