Beiträge von DFPWare

  • Autoit Dropdownliste

    Zitat

    die Hilfedatei hab ich schon angeschaut aber irgendwie hab ich da nie etwas zu meinem Problem gefunden ... ?(

    Das liegt daran, dass in der hilfe nur die befehle erklärt sind

    komplexe programme werden dort nicht gezeigt;)

  • Input-Feld & Text Konvertieren

    okay dann hab ich da jetzt nochmal ne frage:

    wie bekomme ich das hin, dass das ausgerechnet wird?

    ja ich weiß, dass "12+3" nicht nur aus Zahlen besteht, das ist mein Problem ;)


    [autoit]

    GUICreate("",100,100)
    $button = GUICtrlCreateButton("Rechnen",10,10)
    $input = GUICtrlCreateInput("12+3",10,50)
    GUISetState()
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $button
    _rechnen()
    EndSwitch
    WEnd
    Func _rechnen()
    $read = GUICtrlRead($input)
    $output = Number($read)
    MsgBox(0,"",$output)
    EndFunc

    [/autoit]

  • Input-Feld & Text Konvertieren

    So, da mir im chat keiner antwortet ;( schreibe ich jetzt hier nen Thema!

    ich habe 2 fragen(vielleicht werdens ja noch mehr ;))

    1.) Wie kann man es machen, dass wenn ich in ein input-Feld klicke der Text sofort markiert wird?

    2.) Wie kann man einen Text (==> in anführungszeichen), der nur aus Zahlen besteht in eine Zahl konvertieren? (wie in Visual Basic "Cint()")

    Danke

    DFPWare

  • [ Quicktip #2 ] ObjCreate(shell.application)

    Hey Leute

    ich habe hier mal ein paar Funktionen aufgelistet, die mit der shell application von Windows ein paar lustige dinge macht;)

    ich hab die adresse zu noch mehr funktionen oben in ein kommentar geschrieben.

    Ich weiß jetzt nicht ob euch das soo viel hilft, aber mit ObjCreate kann man auf viele Sachen zugreifen und das ist jetzt mal ein Beispiel

    Ich habe Windows 7 und bin mir nicht ganz sicher, ob alle Funktionen auf älteren Windows Systemen funktionieren

    Eine Frage habe ich noch: kennt jemand weitere Beiträge zu diesem Thema? Ich will mich da gerne mal etwas mit beschäftigen :D

    DFPWare

    PS: achja das skript;)

    Spoiler anzeigen
    [autoit]

    #cs********************************************************
    ***http://msdn.microsoft.com/en-us/library/gg537740.aspx***
    ***********************************************************
    #ce
    $oShell = ObjCreate("shell.application")
    ;~ $oShell.CascadeWindows
    ;~ $oShell.Explore("C:")
    ;~ $oShell.FileRun
    ;~ $retVar = $oShell.GetSystemInformation("ProcessorSpeed")
    ;~ MsgBox(0,"",$retVar)
    ;~ $oShell.Open(@ProgramFilesDir) ;ist irgendwie das selbe, wie Explore oO
    ;~ $oShell.MinimizeAll
    ;~ $oShell.SetTime
    ;~ $oShell.ShutdownWindows
    ;~ $oShell.TileHorizontally
    ;~ $oShell.TileVertically
    ;~ $oShell.TrayProperties
    ;~ $oShell.WindowSwitcher

    [/autoit]

  • Radio-Streamer

    Hey Leute
    ich habe hier mal ein kleines Programm geschrieben, mit dem man über den Windows Media Player Radiosender streamen, also hören kann;)
    Das design ist nicht das tollste aber es soll halt funktionieren;)
    Hier das Skript:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <ComboConstants.au3>

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

    Const $url1Live = 'http://www.wdr.de/wdrlive/media/einslive.asx'
    Const $urlFFN = 'http://player.ffn.de/tunein_ffn.asx'
    Const $urlNDR = 'http://ndr-ndr1niedersachsen-hi-wma.wm.llnwd.net/ndr_ndr1niedersachsen_hi_wma'
    Const $urlWDR2 = 'mms://gffstream-wm-w24a.wm.llnwd.net/gffstream_wm_w24b'
    Const $url1Livediggi = 'http://gffstream.ic.llnwd.net/stream/gffstream_einslive_a'
    Const $urlTEST = 'http://listen.technobase.fm/tunein-dsl-pls'

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

    $oWMP = ObjCreate ( "WMPLayer.ocx" )
    $oWMP.URL = $url1Live
    $oWMP.controls.stop()

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

    GUICreate("Radio",260,180)
    $bStart = GUICtrlCreateButton("Start",20,20,100,40)
    $bStop = GUICtrlCreateButton("Stop",140,20,100,40)
    $combo = GUICtrlCreateCombo("",20,80,220,60,$CBS_DROPDOWNLIST)
    GUICtrlSetData($combo,"1Live|1Live diggi|WDR2|FFN|NDR|Technobase","1Live")
    $slider = GUICtrlCreateSlider(20,120,220,60)
    GUICtrlSetData($slider,$oWMP.settings.volume())
    GUISetState()

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $bStart
    $oWMP.controls.play()
    Case $bStop
    $oWMP.controls.stop()
    Case $slider
    $oWMP.settings.volume = GUICtrlRead($slider)
    Case $combo
    $oWMP.controls.stop()
    Switch GUICtrlRead($combo)
    Case '1Live'
    $oWMP.URL = $url1Live
    Case 'FFN'
    $oWMP.URL = $urlFFN
    Case 'NDR'
    $oWMP.URL = $urlNDR
    Case 'WDR2'
    $oWMP.URL = $urlWDR2
    Case '1Live diggi'
    $oWMP.URL = $url1Livediggi
    Case 'Technobase'
    $oWMP.URL = $urlTEST
    EndSwitch
    $oWMP.controls.play()
    EndSwitch
    WEnd

    [/autoit]

  • Grafiken auf andere PCs im Netzwerk

    also bei uns an der schule haben wir soein netzwerk programm mit dem man auf dem lehrerpc gucken kann was die schüler machen, den bildschirm sperren, die eingabe sperren, usw...
    aber das kostet geld;)
    vielleicht habt ihr sowas ja auch an der schule und du weißt es nur nich ;)