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