-
Posts
13 -
Joined
-
Last visited
About denysrom
- Birthday 06/21/1990
Profile Information
-
Location
Madrid
-
Interests
Hacker ist not a Crime
denysrom's Achievements

Seeker (1/7)
1
Reputation
-
When I give I connect not connected and not otherwise activate the other $filedelete & $filestatus
-
Not doing this program can help me ?
-
I want to make this software and fail #include #include #include #include #include #include #include $Form1 = GUICreate("FileZilla by C0dex", 643, 631, 192, 124) $Nick = GUICtrlCreateInput("Nick", 8, 8, 169, 25) GUICtrlSetFont(-1, 9, 800, 0, "Palatino Linotype") GUICtrlSetColor(-1, 0xFF0000) $password = GUICtrlCreateInput("Password", 192, 8, 169, 25, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD)) GUICtrlSetFont(-1, 9, 800, 0, "Palatino Linotype") GUICtrlSetColor(-1, 0xFF0000) $Server = GUICtrlCreateInput("Server", 384, 8, 169, 25) GUICtrlSetFont(-1, 9, 800, 0, "Palatino Linotype") GUICtrlSetColor(-1, 0xFF0000) $connect = GUICtrlCreateButton("Connect", 560, 8, 75, 25) GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype") $Group1 = GUICtrlCreateGroup("Update File :", 8, 48, 625, 57) GUICtrlSetFont(-1, 9, 800, 0, "Palatino Linotype") $up = GUICtrlCreateInput("Upload", 16, 72, 169, 25) $Filedirectory= GUICtrlCreateInput("File Directory Server", 200, 72, 201, 25) $upload = GUICtrlCreateButton("Upload", 416, 72, 83, 25) GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype") $dir = GUICtrlCreateButton("Chosen Dir", 528, 72, 91, 25) GUICtrlSetFont(-1, 9, 800, 0, "Palatino Linotype") $Group2 = GUICtrlCreateGroup("Delete a File", 8, 112, 345, 65) GUICtrlSetFont(-1, 9, 800, 0, "Palatino Linotype") $del = GUICtrlCreateInput("Delete Directory Server", 24, 136, 233, 25) $delete = GUICtrlCreateButton("Delete", 264, 136, 75, 25) GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype") $Group3 = GUICtrlCreateGroup("Server File Status", 360, 120, 273, 57) GUICtrlSetFont(-1, 9, 800, 0, "Palatino Linotype") $Input4 = GUICtrlCreateInput("Path of server", 368, 144, 185, 25) $Button5 = GUICtrlCreateButton("Refresh", 560, 144, 67, 25) GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype") $TreeView1 = GUICtrlCreateTreeView(8, 184, 625, 441) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $connect $nick=GUICtrlRead($Nick) $password=GUICtrlRead($password) $server=GUICtrlRead($server) $oFTP=_FTP_Open ("oFTP") $cFTP=_FTP_Connect ($oFTP,$server,$nick,$password) Case $dir Local $message = "Press Ctrl or Shift to choose multiple files." Local $var = FileOpenDialog($message, @DocumentsCommonDir & "\", "*.*") If @error Then MsgBox(4096, "", "No File chosen") Else Global $DirForUpdate = StringReplace($var, "|", @CRLF) MsgBox(4096, "", "You chose " & $var) EndIf GUICtrlSetData($Up,$DirForUpdate) Case $upload $Fdir=GUICtrlRead($Filedirectory) $pFTP=_FTP_FilePut($cFTP,GUICtrlRead($Up),$Fdir) Case $delete $s_RemoteFile=GUICtrlRead($Del) _FTP_FileDelete($cFTP, $Filedirectory) EndSwitch WEnd Tanks
-
AoRaToS reacted to a post in a topic: s!mpL3 LAN Messenger
-
Sorry for so many questions but I am new in AutoiT
-
What can I do to start my radio?
-
Tank`s Man ! Ist very Nice software !
- 247 replies
-
A nice day to all .. I came back with a problem I built this program and fail to radio when pressed PLAY When I press the radio Pro FM radio playing but the problem is that it does not work give me a help ? #include #include #include #include #include #include #RequireAdmin #NoTrayIcon $IE = _IECreateEmbedded () Global $html , $oWMP Local $GUI_DISABLED $Form1 = GUICreate("Browser v2.1 |c0DEX|", 1025, 830, 195, 118) GUISetBkColor(0xFF0000) $Label1 = GUICtrlCreateLabel("URL", 8, 8, 36, 25) GUICtrlSetFont(-1, 11, 800, 0, "Palatino Linotype") $Input1 = GUICtrlCreateInput("", 48, 8, 585, 24, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE)) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") $Button1 = GUICtrlCreateButton("Go", 640, 8, 91, 25, -1, $WS_EX_STATICEDGE) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Button2 = GUICtrlCreateButton("Home", 736, 8, 91, 25, -1, $WS_EX_STATICEDGE) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Button3 = GUICtrlCreateButton("ABOUT", 928, 8, 91, 25, -1, $WS_EX_STATICEDGE) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Button4 = GUICtrlCreateButton("EXIT", 832, 8, 91, 25, -1, $WS_EX_STATICEDGE) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label2 = GUICtrlCreateLabel("Clock", 8, 800, 48, 24) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") $Input2 = GUICtrlCreateInput("", 56, 800, 121, 21) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlSetState($Input2,$GUI_DISABLE) $Radio = GUICtrlCreateGroup("Radio", 184, 776, 833, 49) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $PROFM = GUICtrlCreateRadio("PROFM", 192, 800, 113, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Slider1 = GUICtrlCreateSlider(856, 788, 150, 30) $Label3 = GUICtrlCreateLabel("Volume:", 768, 800, 60, 20) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlCreateGroup("", -90, -99, 1, 1) $Radio1 = GUICtrlCreateRadio("MaximaFM", 360, 800, 113, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Radio2 = GUICtrlCreateRadio("KisFM", 544, 800, 81, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Radio3 = GUICtrlCreateRadio("RadioMilos", 640, 800, 113, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Url = GUICtrlCreateObj($IE, 8, 40, 1009, 737) GUISetState(@SW_SHOW) _IENavigate($IE,"http://www.google.ro") While 1 $nMsg = GUIGetMsg() GUICtrlSetData($Input2,@HOUR & ":" & @MIN & ":" & @SEC) Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 $html = GUICtrlRead($Input1) _IENavigate($IE,$html) Case $Button2 _IENavigate($IE,"http://www.google.es") Case $Button3 MsgBox(4096, "info", "Created by C0dex ...Hellshare60@gmail.com", 10) Case $Button4 Exit(-1) Case $Slider1 $Slider1= SoundSetWaveVolume(10) Case $Radio $oWMP = ObjCreate("WMPlayer.ocx") $oWMP.URL= "http://www.wdr.de/wdrlive/media/einslive.asx" $oWMP.Controls.Play EndSwitch WEnd
-
Tanks ! :bye: :bye: :bye:
-
YES MAS !!! TANKSSSSSSSSSSSS !!! Y LOVE YOU AutoiT !
-
man...When I give the $ Button1 and write in $ INPUT1 www.google.es to protect my source in $ edit1
-
When I give the $ Button1 and write in $ INPUT1 www.google.es to protect my source in $ edit1
-
Not know how to activate $Button1 Help pls ..
-
I want to make a View Source pls help #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <IE.au3> #include <Inet.au3> $Form1 = GUICreate("Viewe Source", 425, 476, 192, 124) GUISetBkColor(0xFF0000) $Input1 = GUICtrlCreateInput("", 64, 8, 353, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE)) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Label1 = GUICtrlCreateLabel("Http://", 8, 8, 53, 23, -1, BitOR($WS_EX_STATICEDGE,$GUI_WS_EX_PARENTDRAG)) GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS") $Edit1 = GUICtrlCreateEdit("", 8, 40, 409, 393) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Button1 = GUICtrlCreateButton("View Source", 8, 440, 91, 25, -1, $WS_EX_STATICEDGE) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Button2 = GUICtrlCreateButton("About", 120, 440, 91, 25, -1, $WS_EX_STATICEDGE) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Button3 = GUICtrlCreateButton("Info", 240, 440, 91, 25, -1, $WS_EX_STATICEDGE) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Button4 = GUICtrlCreateButton("Exit", 344, 440, 75, 25, -1, $WS_EX_STATICEDGE) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 $sStr = BinaryToString(InetRead($Input1, 1)) FileWrite(@DesktopDir &"\source.txt", $sStr) Case $Button2 MsgBox(4096, "Credit", "Created by C0dex \ Email = Hellshare60@gmail.com", 10) Case $Button3 MsgBox(4096, "Info", "Hellshare60@gmail.com| PM", 10) Case $Button4 Exit(-1) EndSwitch WEnd