Beiträge von Oscar

  • Aktuelles datum in ein bild schreiben

    Dann nimmst Du _GDIPlus_GraphicsDrawStringEx und einen Brush:

    Spoiler anzeigen
    [autoit]


    #include <Array.au3>
    #include <Date.au3>
    #include <GDIPlus.au3>
    #include <ScreenCapture.au3>
    #include <WinAPI.au3>

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

    _GDIPlus_Startup()
    $hBitmap1 = _ScreenCapture_Capture('')
    $hImage1 = _GDIPlus_BitmapCreateFromHBITMAP($hBitmap1)
    $hGraphic = _GDIPlus_ImageGetGraphicsContext($hImage1)

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

    $hBrush = _GDIPlus_BrushCreateSolid(0xFFFF0000) ; ARGB
    $hFormat = _GDIPlus_StringFormatCreate()
    $hFamily = _GDIPlus_FontFamilyCreate('Arial')
    $hFont = _GDIPlus_FontCreate($hFamily, 20)
    $tLayout = _GDIPlus_RectFCreate(@DesktopWidth / 2 - 200, @DesktopHeight / 2, 300, 50)
    _GDIPlus_GraphicsDrawStringEx($hGraphic, _Now(), $hFont, $tLayout, $hFormat, $hBrush)

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

    _GDIPlus_ImageSaveToFile($hImage1, @ScriptDir & '\GDIPlus_Image.png')

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

    _GDIPlus_FontDispose($hFont)
    _GDIPlus_FontFamilyDispose($hFamily)
    _GDIPlus_StringFormatDispose($hFormat)
    _GDIPlus_BrushDispose($hBrush)
    _GDIPlus_GraphicsDispose($hGraphic)
    _GDIPlus_ImageDispose($hImage1)
    _WinAPI_DeleteObject($hBitmap1)
    _GDIPlus_Shutdown()

    [/autoit]

  • Aktuelles datum in ein bild schreiben

    So:

    Spoiler anzeigen
    [autoit]


    #include <Date.au3>
    #include <GDIPlus.au3>
    #include <ScreenCapture.au3>
    #include <WinAPI.au3>

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

    _GDIPlus_Startup()
    $hBitmap1 = _ScreenCapture_Capture('')
    $hImage1 = _GDIPlus_BitmapCreateFromHBITMAP($hBitmap1)
    $hGraphic = _GDIPlus_ImageGetGraphicsContext($hImage1)
    _GDIPlus_GraphicsDrawString($hGraphic, _Now(), @DesktopWidth / 2 - 200, @DesktopHeight / 2, 'Arial', 20)
    _GDIPlus_ImageSaveToFile($hImage1, @ScriptDir & '\GDIPlus_Image.jpg')

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

    _GDIPlus_GraphicsDispose($hGraphic)
    _GDIPlus_ImageDispose($hImage1)
    _WinAPI_DeleteObject($hBitmap1)
    _GDIPlus_Shutdown()

    [/autoit]

  • Fehler

    Offenbar läßt square7.de nicht jeden UserAgent auf die Dateien zugreifen.
    Wenn Du es so änderst, dann geht es:

    [autoit]


    HttpSetUserAgent('Firefox')
    $ErrCode = InetGet("http://jurax.square7.de/Pictures/Avatar2multi.jpg", "Avatar2multi.jpg")
    MsgBox(0,0,$ErrCode)

    [/autoit]

  • Txt / Excel Spalten in Zeilen konvertieren

    Ich habe mal ein Script geschrieben, was das macht, was Du haben willst:

    Spoiler anzeigen
    [autoit]


    #include <Array.au3>
    #include <Excel.au3>
    Opt('WinTitleMatchMode', 2)
    $oExcel = _ExcelBookOpen(@ScriptDir & '\Adressen.xls')
    $aData = _ExcelReadSheetToArray($oExcel)
    ;~ _ArrayDisplay($aData)
    $hFile = FileOpen(@ScriptDir & '\Adressen.txt', 2)
    If $hFile = -1 Then Exit
    For $row = 1 To $aData[0][0] - 7 Step 7
    $sData = ''
    For $i = 0 To 3
    $sData &= $aData[$row + $i][1] & ', '
    Next
    FileWriteLine($hFile, StringTrimRight($sData, 2))
    Next
    FileClose($hFile)
    _ExcelBookClose($oExcel)
    WinClose('Microsoft Excel')

    [/autoit]

  • RegEx Problem

    meinst Du so:

    [autoit]


    $sString = "a: 123, b: 456"
    $aArray = StringRegExp($sString, '(\d{1,4})', 3)
    For $iii = 0 To UBound($aArray) - 1
    MsgBox(0, "", $aArray[$iii])
    Next

    [/autoit]

  • Schnitzel hat Geburtstag

    Herzlichen Glückwunsch zum Geburtstag, Schnitzel!

    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    Bei Deinem Usernamen fällt mir immer mein Besuch in der Pyramide in Burgdorf ein:
    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.
    Ein echtes Riesen-Schnitzel! Man muss schon mächtig viel Hunger haben oder zu zweit daran essen. :)

    Feiere noch schön und bleib gesund.

  • IDEEE

    Was soll das hier in "Jobbörse"?
    Willst Du wirklich so ein Programm in Auftrag geben? Dann poste die Anforderungen an das Programm und was Du als Bezahlung anbietest.

    Anderenfalls gehört das nicht hierher, sondern nach "Hilfe & Unterstützung"!

  • Mehrere Adlibs gleichzeitig

    Ja, genau!
    Du musst also Deine Funktionen so umschreiben, dass bei jedem Aufruf immer nur ein Schritt ausgeführt wird. Die For...Next-Schleife und die Sleeps raushauen.
    Genaugenommen brauchst Du auch nur eine Funktion, die Du mit AdlibRegister aufrufst. Dort veränderst Du dann für die Label jeweils einen Wert und beim nächsten Aufruf wird dann der nächste Schritt ausgeführt usw...

  • Nutzung eines PCs anhand von Mausbewegung protokollieren

    Willst Du eine echte Protokollierung, also von wann bis wann genutzt, oder reicht eine Zeitangabe (z.B. 5 Stunden/Tag)?

    Bei ersterem müsstest Du definieren, wie groß die Auflösung sein soll, sprich: ob bereits das bloße anstupsen der Maus protokolliert werden soll oder ob erst dann ein Eintrag stattfindet, wenn die Maus eine zeitlang bewegt wird (z.B. min. 10 sek. oder so).
    Wenn die Zeitangabe reicht, dann wäre das ein relativ kurzes Script.

  • tcp problem :)

    Nein, wenn Du im Router eine Port-Weiterleitung eingerichtet hast, musst Du bei TCPListen die lokale IP-Adresse des Servers (z.B. @IPAdress1) eintragen.
    Der Client braucht weder @IPAdress noch _GetIP (_GetIP liefert die WAN-IP des Clients), sondern die WAN-IP-Adresse des Servers.

  • Probleme mit dem Slider

    Das Problem hat weniger mit der Laufschrift zu tun, als viel mehr mit dem Befehl GUISetState.
    Diesen sollte man erst benutzen, nachdem man alle Controls für die GUI erstellt hat. Also so (GUISetState nach unten verschoben):

    Spoiler anzeigen
    [autoit]


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

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

    GUICreate("Extrem Stream 1.0", 220, 400, -1, -1, -1, $WS_EX_COMPOSITED) ;double buffering der GUI -> nur XP!
    $start = GUICtrlCreateButton("Play", 10, 30, 95)
    GUICtrlSetFont(-1, 12, 400, 0, "Comic Sans MS")
    $stop = GUICtrlCreateButton("Stop", 110, 30, 95)
    GUICtrlSetFont(-1, 12, 400, 0, "Comic Sans MS")
    $start2 = GUICtrlCreateButton("Play", 10, 100, 95)
    GUICtrlSetFont(-1, 12, 400, 0, "Comic Sans MS")
    $stop2 = GUICtrlCreateButton("Stop", 110, 100, 95)
    GUICtrlSetFont(-1, 12, 400, 0, "Comic Sans MS")
    $start3 = GUICtrlCreateButton("Play", 10, 165, 95)
    GUICtrlSetFont(-1, 12, 400, 0, "Comic Sans MS")
    $stop3 = GUICtrlCreateButton("Stop", 110, 165, 95)
    GUICtrlSetFont(-1, 12, 400, 0, "Comic Sans MS")
    $start4 = GUICtrlCreateButton("Play", 10, 225, 95)
    GUICtrlSetFont(-1, 12, 400, 0, "Comic Sans MS")
    $stop4 = GUICtrlCreateButton("Stop", 110, 225, 95)
    GUICtrlSetFont(-1, 12, 400, 0, "Comic Sans MS")
    $start5 = GUICtrlCreateButton("Play", 10, 295, 95)
    GUICtrlSetFont(-1, 12, 400, 0, "Comic Sans MS")
    $stop5 = GUICtrlCreateButton("Stop", 110, 295, 95)
    GUICtrlSetFont(-1, 12, 400, 0, "Comic Sans MS")
    GUICtrlCreateButton("Hardstyle", 25, 2, 165)
    GUICtrlCreateButton("Heavy Metal/Rock", 25, 65, 165)
    GUICtrlCreateButton("Rmb/Black", 25, 132, 165)
    GUICtrlCreateButton("Chill Out", 25, 195, 165)
    GUICtrlCreateButton("Charts", 25, 260, 165)
    $Slider1 = GUICtrlCreateSlider(4, 340, 210, 25)
    $label = GUICtrlCreateLabel(" Extrem Stream 1.0 created by: Gonzo", 201, 378, 600, 20)
    GUICtrlSetFont(-1, 12, 400, 0, "Comic Sans MS")
    GUICtrlSetColor(-1, 0xFF0000)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    GUICtrlSetData($Slider1, 50)
    GUICtrlSetLimit(-1, 100, 0)
    GUISetState(@SW_SHOW)
    $x = 201
    AdlibRegister("Scroll_Label", 30)
    #cs
    $oWMP = ObjCreate ("WMPLayer.ocx")
    $oWMP.URL = "http://85.12.25.90:7500"
    $oWMP.controls.play()
    #ce
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    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 $Slider1
    SoundSetWaveVolume(GUICtrlRead($Slider1))
    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 $Slider1
    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 $Slider1
    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 $Slider1
    Case $start5
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.URL = "http://rs20.stream24.org:8000/stream"
    $oWMP.controls.play()
    Case $stop5
    $oWMP = ObjCreate("WMPLayer.ocx")
    $oWMP.controls.stop()
    Case $Slider1
    EndSwitch

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

    WEnd

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

    Func Scroll_Label()
    GUICtrlSetPos($label, $x, 378)
    $x -= 1
    If $x = -610 Then $x = 201
    EndFunc ;==>Scroll_Label

    [/autoit]