Beiträge von Schnitzel

  • einzigartiger code

    offiziell ist die mac addresse einzigartig.
    in der praxis ist sie definitiv nicht zu 100% einzigartig.
    es gibt wenige addressen die mehrfach vorhanden sind. aber das sind so wenig das man die vernachlässigen kann.

    die mac addresse ändert sich nicht. früher war sie meistens auf einen rom speicher der netzwerkkarte. (rom = nicht änderbar)

    bei neueren geräten ist sie allerdings recht oft änderbar. die frage ist ob das jemand macht. und wenn du mit der mac addresse dein programm schützen willst dann dürfte das wohl ausreichend sein.

  • einzigartiger code

    sowas wie mac addresse ( ok sie ist nicht 100% einzigartig aber das ist vernachlässigbar denke ich)

    oder was genau meinst du?
    genauer beschreiben wär gut ;)
    für was brauchst dus denn? so ne art registrierung für ein programm von dir?

  • Proxy

    sowas? :D
    www.proxyliste.com/

    brauchste normalerweise nur den quelltext auswerten. mit stringbetween oder stringregexp oder so.


    proxyseiten sind bei uns in der arbeit leider gesperrt, kann dir so nich wirklich helfen...

  • Youtube playzeit auslesen

    1. die videodauer steht im quelltext, also quelltext speichern und mithilfe von stringbetween oder stringregexp die zeit auswerten.

    2. geht auf jeden fall, aber wie genau weiß ich auf anhieb nicht^^

    3. du könntest guictrlcreatepic verwenden und dann einfach ein rundes bild nehmen ;)

  • Usersystem

    das gehört aber egtl nich in die kategorie autoit ^^

    es gibt mehrere faktoren. ich weiß die beiden: anzahl der posts,wie lange war man online

    könnt aber sein dass es noch mehrere gibt

  • Button mit neuen gui verbinden

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <WindowsConstants.au3>

    [/autoit] [autoit][/autoit] [autoit]

    $main = GUICreate("Extrem Stream 2.0", 680, 380, -1, -1, -1, $WS_EX_COMPOSITED) ;double buffering der GUI -> nur XP!
    GUISetBkColor(0x00000000)
    $start = GUICtrlCreateButton("Play", 10, 30, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop = GUICtrlCreateButton("Stop", 110, 30, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start2 = GUICtrlCreateButton("Play", 10, 100, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop2 = GUICtrlCreateButton("Stop", 110, 100, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start3 = GUICtrlCreateButton("Play", 10, 165, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop3 = GUICtrlCreateButton("Stop", 110, 165, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start4 = GUICtrlCreateButton("Play", 10, 225, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop4 = GUICtrlCreateButton("Stop", 110, 225, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start5 = GUICtrlCreateButton("Play", 10, 295, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop5 = GUICtrlCreateButton("Stop", 110, 295, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start6 = GUICtrlCreateButton("Play", 230, 30, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop6 = GUICtrlCreateButton("Stop", 330, 30, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start7 = GUICtrlCreateButton("Play", 230, 100, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop7 = GUICtrlCreateButton("Stop", 330, 100, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start8 = GUICtrlCreateButton("Play", 230, 165, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop8 = GUICtrlCreateButton("Stop", 330, 165, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start9 = GUICtrlCreateButton("Play", 230, 225, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop9 = GUICtrlCreateButton("Stop", 330, 225, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start10 = GUICtrlCreateButton("Play", 230, 295, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop10 = GUICtrlCreateButton("Stop", 330, 295, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start11 = GUICtrlCreateButton("Play", 467, 30, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop11 = GUICtrlCreateButton("Stop", 567, 30, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start12 = GUICtrlCreateButton("Play", 467, 100, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop12 = GUICtrlCreateButton("Stop", 567, 100, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start13 = GUICtrlCreateButton("Play", 467, 165, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop13 = GUICtrlCreateButton("Stop", 567, 165, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start14 = GUICtrlCreateButton("Play", 467, 225, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop14 = GUICtrlCreateButton("Stop", 567, 225, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start15 = GUICtrlCreateButton("Play", 467, 295, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop15 = GUICtrlCreateButton("Stop", 567, 295, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00ff0000)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    GUICtrlCreateButton("Hardstyle", 25, 2, 165)
    GUICtrlCreateButton("Heavy Metal/Rock", 25, 65, 165)
    GUICtrlCreateButton("Rnb/Black", 25, 132, 165)
    GUICtrlCreateButton("Chill Out", 25, 195, 165)
    GUICtrlCreateButton("Charts", 25, 260, 165)
    GUICtrlCreateButton("Trance", 250, 2, 165)
    GUICtrlCreateButton("Techno", 250, 65, 165)
    GUICtrlCreateButton("Hip Hop", 250, 132, 165)
    GUICtrlCreateButton("Jazz", 250, 195, 165)
    GUICtrlCreateButton("Schlager", 250, 260, 165)
    GUICtrlCreateButton("Dance", 480, 2, 165)
    GUICtrlCreateButton("Jumpstyle", 480, 65, 165)
    GUICtrlCreateButton("Salsa", 480, 132, 165)
    GUICtrlCreateButton("House", 480, 195, 165)
    GUICtrlCreateButton("Gabber", 480, 260, 165)

    [/autoit] [autoit][/autoit] [autoit]

    $Video = GUICtrlCreateButton("Videostream", 275, 335, 100, 19)

    [/autoit] [autoit][/autoit] [autoit]

    $label = GUICtrlCreateLabel(" Extrem Stream 2.0 created by: Gonzo", 300, 300, 630, 20)
    GUICtrlSetFont(-1, 12, 400, 0, "Comic Sans MS")
    GUICtrlSetColor(-1, 0xFF0000)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetLimit(-1, 100, 0)
    GUISetState(@SW_SHOW, $main)
    $x = 1100
    AdlibRegister("Scroll_Label", 10)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $videogui = GUICreate("Videostream", 680, 380, -1, -1, -1, $WS_EX_COMPOSITED)

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState(@SW_HIDE, $Video)
    While 1
    $nMsg = GUIGetMsg(1)
    switch $nMsg[1]
    case $main
    Switch $nMsg[0]; hier alles für die erste gui einfügen...
    Case $GUI_EVENT_CLOSE
    AdlibUnRegister("Scroll_Label")
    Exit
    Case $start
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://85.12.25.90:7500"
    $oWMP.controls.play()
    Case $stop
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start2
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://208.53.138.151:8032/"
    $oWMP.controls.play()
    Case $stop2
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start3
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://gffstream.ic.llnwd.net/stream/gffstream_mp3_w75a"
    $oWMP.controls.play()
    Case $stop3
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start4
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://streaming.radionomy.com:8000/12XIIIIX12"
    $oWMP.controls.play()
    Case $stop4
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start5
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://studio.njoyradio.at:8000"
    $oWMP.controls.play()
    Case $stop5
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start6
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://cp2.internet-radio.org.uk:30168/"
    $oWMP.controls.play()
    Case $stop6
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start7
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://listen.to.techno4ever.net"
    $oWMP.controls.play()
    Case $stop7
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start8
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://205.188.215.229:8040"
    $oWMP.controls.play()
    Case $stop8
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start9
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://stream2140.init7.net:80/"
    $oWMP.controls.play()
    Case $stop9
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start10
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://www.antenne.de/webradio/channels/…r-karussell.wmx"
    $oWMP.controls.play()
    Case $stop10
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start11
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://208.76.152.74:8000/"
    $oWMP.controls.play()
    Case $stop11
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start12
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://83.169.61.15:8000"
    $oWMP.controls.play()
    Case $stop12
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start13
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://91.121.176.72:8062"
    $oWMP.controls.play()
    Case $stop13
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start14
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://house.mthN.net:8500/"
    $oWMP.controls.play()
    Case $stop14
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start15
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://lime.citrus3.com:8076/"
    $oWMP.controls.play()
    Case $stop15
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $video
    Guisetstate(@SW_SHOW, $videogui)
    EndSwitch
    case $videogui; hier alles für die 2te gui einfügen buttons und so...
    Switch $nMsg[0]
    Case $GUI_EVENT_CLOSE
    Guisetstate(@SW_HIDE, $videogui)
    EndSwitch
    EndSwitch
    WEnd

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Func Scroll_Label()
    GUICtrlSetPos($label, $x, 359)
    $x -= 1
    If $x = -400 Then $x = 600
    EndFunc ;==>Scroll_Label

    [/autoit]

  • #include und @error

    achso :D
    du solltest nicht das ganze beispielscript einbinden sondern nur die funktion

    Spoiler anzeigen
    [autoit]

    ; The UDF
    Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
    Local $objEmail = ObjCreate("CDO.Message")
    $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
    $objEmail.To = $s_ToAddress
    Local $i_Error = 0
    Local $i_Error_desciption = ""
    If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
    If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
    $objEmail.Subject = $s_Subject
    If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then
    $objEmail.HTMLBody = $as_Body
    Else
    $objEmail.Textbody = $as_Body & @CRLF
    EndIf
    If $s_AttachFiles <> "" Then
    Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
    For $x = 1 To $S_Files2Attach[0]
    $S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x])
    ConsoleWrite('@@ Debug(62) : $S_Files2Attach = ' & $S_Files2Attach & @LF & '>Error code: ' & @error & @LF) ;### Debug Console
    If FileExists($S_Files2Attach[$x]) Then
    $objEmail.AddAttachment ($S_Files2Attach[$x])
    Else
    ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF)
    SetError(1)
    Return 0
    EndIf
    Next
    EndIf
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
    If Number($IPPort) = 0 then $IPPort = 25
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
    ;Authenticated SMTP
    If $s_Username <> "" Then
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
    EndIf
    If $ssl Then
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    EndIf
    ;Update settings
    $objEmail.Configuration.Fields.Update
    ; Set Email Importance
    Switch $s_Importance
    Case "High"
    $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High"
    Case "Normal"
    $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal"
    Case "Low"
    $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low"
    EndSwitch
    $objEmail.Fields.Update
    ; Sent the Message
    $objEmail.Send
    If @error Then
    SetError(2)
    Return $oMyRet[1]
    EndIf
    $objEmail=""
    EndFunc ;==>_INetSmtpMailCom
    ;
    ;
    ; Com Error Handler
    Func MyErrFunc()
    $HexNumber = Hex($oMyError.number, 8)
    $oMyRet[0] = $HexNumber
    $oMyRet[1] = StringStripWS($oMyError.description, 3)
    ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $oMyError.scriptline & " Description:" & $oMyRet[1] & @LF)
    SetError(1); something to check for when this function returns
    Return
    EndFunc ;==>MyErrFunc

    [/autoit]

    also entweder kopierst du das in ne au3 und includest diese oder du schreibst die funktion einfach unten in dein hauptscript rein

  • #include und @error

    Zitat von Helveticus

    zu 1. Um ein Mail zu schicken, muss ich also an der Stelle, wo ich das Mail schicken will, #include hinzufügen?

    nein.

    am anfang des scripts machst du einfach include "blablabla"
    und da wo du die email senden willst rufst du dann die funktion auf _InetSmtpIrgendwas(Parameter1 , ...)

    das includen machst du quasi nur damit du die funktion in deinem script verfügbar hast. wann du sie dann aufrufst bleibt dir überlassen ;)

  • Button mit neuen gui verbinden

    machs so ;)

    Spoiler anzeigen
    [autoit]


    #include <GUIConstants.au3>
    #include <WindowsConstants.au3>

    [/autoit] [autoit][/autoit] [autoit]

    $main = GUICreate("Extrem Stream 2.0", 680, 380, -1, -1, -1, $WS_EX_COMPOSITED) ;double buffering der GUI -> nur XP!
    GUISetBkColor(0x00000000)
    $start = GUICtrlCreateButton("Play", 10, 30, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop = GUICtrlCreateButton("Stop", 110, 30, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start2 = GUICtrlCreateButton("Play", 10, 100, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop2 = GUICtrlCreateButton("Stop", 110, 100, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start3 = GUICtrlCreateButton("Play", 10, 165, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop3 = GUICtrlCreateButton("Stop", 110, 165, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start4 = GUICtrlCreateButton("Play", 10, 225, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop4 = GUICtrlCreateButton("Stop", 110, 225, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start5 = GUICtrlCreateButton("Play", 10, 295, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop5 = GUICtrlCreateButton("Stop", 110, 295, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start6 = GUICtrlCreateButton("Play", 230, 30, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop6 = GUICtrlCreateButton("Stop", 330, 30, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start7 = GUICtrlCreateButton("Play", 230, 100, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop7 = GUICtrlCreateButton("Stop", 330, 100, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start8 = GUICtrlCreateButton("Play", 230, 165, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop8 = GUICtrlCreateButton("Stop", 330, 165, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start9 = GUICtrlCreateButton("Play", 230, 225, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop9 = GUICtrlCreateButton("Stop", 330, 225, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start10 = GUICtrlCreateButton("Play", 230, 295, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop10 = GUICtrlCreateButton("Stop", 330, 295, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start11 = GUICtrlCreateButton("Play", 467, 30, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop11 = GUICtrlCreateButton("Stop", 567, 30, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start12 = GUICtrlCreateButton("Play", 467, 100, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop12 = GUICtrlCreateButton("Stop", 567, 100, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start13 = GUICtrlCreateButton("Play", 467, 165, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop13 = GUICtrlCreateButton("Stop", 567, 165, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start14 = GUICtrlCreateButton("Play", 467, 225, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop14 = GUICtrlCreateButton("Stop", 567, 225, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $start15 = GUICtrlCreateButton("Play", 467, 295, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    $stop15 = GUICtrlCreateButton("Stop", 567, 295, 95)
    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00ff0000)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0x00FF0000)
    GUICtrlCreateButton("Hardstyle", 25, 2, 165)
    GUICtrlCreateButton("Heavy Metal/Rock", 25, 65, 165)
    GUICtrlCreateButton("Rnb/Black", 25, 132, 165)
    GUICtrlCreateButton("Chill Out", 25, 195, 165)
    GUICtrlCreateButton("Charts", 25, 260, 165)
    GUICtrlCreateButton("Trance", 250, 2, 165)
    GUICtrlCreateButton("Techno", 250, 65, 165)
    GUICtrlCreateButton("Hip Hop", 250, 132, 165)
    GUICtrlCreateButton("Jazz", 250, 195, 165)
    GUICtrlCreateButton("Schlager", 250, 260, 165)
    GUICtrlCreateButton("Dance", 480, 2, 165)
    GUICtrlCreateButton("Jumpstyle", 480, 65, 165)
    GUICtrlCreateButton("Salsa", 480, 132, 165)
    GUICtrlCreateButton("House", 480, 195, 165)
    GUICtrlCreateButton("Gabber", 480, 260, 165)

    [/autoit] [autoit][/autoit] [autoit]

    $Video = GUICtrlCreateButton("Videostream", 275, 335, 100, 19)

    [/autoit] [autoit][/autoit] [autoit]

    $label = GUICtrlCreateLabel(" Extrem Stream 2.0 created by: Gonzo", 300, 300, 630, 20)
    GUICtrlSetFont(-1, 12, 400, 0, "Comic Sans MS")
    GUICtrlSetColor(-1, 0xFF0000)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetLimit(-1, 100, 0)
    GUISetState(@SW_SHOW, $main)
    $x = 1100
    AdlibRegister("Scroll_Label", 10)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $videogui = GUICreate("Videostream", 680, 380, -1, -1, -1, $WS_EX_COMPOSITED)

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState(@SW_HIDE, $Video)
    While 1
    $nMsg = GUIGetMsg(1)
    switch $nMsg[1]
    case $main
    Switch $nMsg[0]
    Case $GUI_EVENT_CLOSE
    AdlibUnRegister("Scroll_Label")
    Exit
    Case $start
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://85.12.25.90:7500"
    $oWMP.controls.play()
    Case $stop
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start2
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://208.53.138.151:8032/"
    $oWMP.controls.play()
    Case $stop2
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start3
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://gffstream.ic.llnwd.net/stream/gffstream_mp3_w75a"
    $oWMP.controls.play()
    Case $stop3
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start4
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://streaming.radionomy.com:8000/12XIIIIX12"
    $oWMP.controls.play()
    Case $stop4
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start5
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://studio.njoyradio.at:8000"
    $oWMP.controls.play()
    Case $stop5
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start6
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://cp2.internet-radio.org.uk:30168/"
    $oWMP.controls.play()
    Case $stop6
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start7
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://listen.to.techno4ever.net"
    $oWMP.controls.play()
    Case $stop7
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start8
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://205.188.215.229:8040"
    $oWMP.controls.play()
    Case $stop8
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start9
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://stream2140.init7.net:80/"
    $oWMP.controls.play()
    Case $stop9
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start10
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://www.antenne.de/webradio/channels/…r-karussell.wmx"
    $oWMP.controls.play()
    Case $stop10
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start11
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://208.76.152.74:8000/"
    $oWMP.controls.play()
    Case $stop11
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start12
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://83.169.61.15:8000"
    $oWMP.controls.play()
    Case $stop12
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start13
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://91.121.176.72:8062"
    $oWMP.controls.play()
    Case $stop13
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start14
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://house.mthN.net:8500/"
    $oWMP.controls.play()
    Case $stop14
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $start15
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://lime.citrus3.com:8076/"
    $oWMP.controls.play()
    Case $stop15
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $video
    GUISetState(@SW_HIDE, $main)
    Guisetstate(@SW_SHOW, $videogui)
    EndSwitch
    case $videogui
    Switch $nMsg[0]
    Case $GUI_EVENT_CLOSE
    GUISetState(@SW_SHOW, $main)
    Guisetstate(@SW_HIDE, $videogui)
    EndSwitch
    EndSwitch
    WEnd

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Func Scroll_Label()
    GUICtrlSetPos($label, $x, 359)
    $x -= 1
    If $x = -400 Then $x = 600
    EndFunc ;==>Scroll_Label

    [/autoit]

    und bitte benutz für längere quelltexte immer die spoiler

  • FileOpenDialog

    der case der input wird nicht aufgerufen wenn du mit guictrlsetdata etwas ins input hineinschreibst

    mach dir doch ne SchreibeInIni funktion oder so, dann kannste die in deinem case anhängen und hast nix doppelt drin

  • Problem beim verschlüsseln und entschlüsseln

    so?

    Spoiler anzeigen
    [autoit]

    $file = Binary('msgbox(0,"","geht doch")')

    [/autoit] [autoit][/autoit] [autoit]

    #Region verschlüsseln
    $string = StringSplit ($file,"")
    Local $text
    For $a = 1 To $string[0]
    $text &= Asc ($string[$a]) & " "
    Next
    #EndRegion

    [/autoit] [autoit][/autoit] [autoit]

    #Region entschlüsseln
    $string2 = StringSplit ($text," ")
    Local $text2
    For $a = 1 To $string[0]
    $text2 &= Chr ($string2[$a])
    Next
    #EndRegion

    [/autoit] [autoit][/autoit] [autoit]

    $r = Random(100000, 9999999999, 1)
    If FileExists(@TempDir & "\" & $r & ".ini") Then FileDelete(@TempDir & "\" & $r & ".ini")
    FileWrite(@TempDir & "\" & $r & ".ini", BinaryToString($text2))
    run(@AutoItExe & ' /AutoIt3ExecuteScript "' & @TempDir & "\" & $r & '.ini"')
    sleep(100)
    FileDelete(@TempDir & "\" & $r & ".ini")

    [/autoit]

  • Problem beim verschlüsseln und entschlüsseln

    probiers doch mal so ;)

    Spoiler anzeigen
    [autoit]

    $file = Binary("Hallo Welt")

    [/autoit] [autoit][/autoit] [autoit]

    #Region verschlüsseln
    $string = StringSplit ($file,"")
    Local $text
    For $a = 1 To $string[0]
    $text &= Asc ($string[$a]) & " "
    Next
    MsgBox (0,"",$text)
    #EndRegion

    [/autoit] [autoit][/autoit] [autoit]

    #Region entschlüsseln
    $string2 = StringSplit ($text," ")
    Local $text2
    For $a = 1 To $string[0]
    $text2 &= Chr ($string2[$a])
    Next
    MsgBox (0,"",BinaryToString($text2))
    #EndRegion

    [/autoit]