1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. Alizame

Beiträge von Alizame

  • Spektrum (musik) GDI+

    • Alizame
    • 18. Juni 2010 um 21:14

    kp irgendwie gig das bei mir nicht!kannste aber mit ESC beenden!^^

    Edit: ich weiß wodran es lag!OPT vergessen!editiere es gleich!

  • Spektrum (musik) GDI+

    • Alizame
    • 18. Juni 2010 um 21:08

    ich habe XP-Fans Script gesehen und dachte nur:" cool!sowas kann ich doch bestimmt auch hinkriegen!muss mir nur genau angucken wie das dort läuft!" (ok die "_Tower" funktion ist fast komplett übernommen 8) )
    gesagt getan.
    es ist aber wirklich nichts im gegensatz zu XP-Fans script! einfach nur ne kleine übung....
    hier script, ihr benötigt aber den anhang wg. bass.dll/bass.au3 etc.! :

    Spoiler anzeigen
    [autoit]

    #include <Bass.au3>
    #include <BassConstants.au3>
    #include <BassTags.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <GDIplus.au3>
    #include <WinAPI.au3>
    #include <Misc.au3>
    $fftstruct = DllStructCreate('float[128]')
    OnAutoItExitRegister("OnAutoItExit")

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

    _BASS_STARTUP(@ScriptDir & '\BASS.dll')
    _Bass_Tags_Startup('BassTags.dll')
    _BASS_Init(0, -1, 44100, 0, '')

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

    If @error Then
    MsgBox(0, 'Error', 'Sound konnte nicht Initialisiert werden!')
    Exit
    EndIf
    $file = FileOpenDialog('Bitte wählen Sie eine Sounddatei aus!', '', 'MP3 Datei (*.mp3)')
    If @error Then
    Exit
    EndIf
    $Form1 = GUICreate("Form1", 1280, 700)
    $Label1 = GUICtrlCreateLabel("", 0, 0, 461, 28)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
    GUISetBkColor(0x000000)
    GUISetState()
    ;~ GuiSetOnEvent(-3,"OnAutoItExit",$Form1)
    HotKeySet("{ESC}","OnAutoItExit")
    _GDIPlus_Startup()
    $distance = 7
    $hGraphic = _GDIPlus_GraphicsCreateFromHWND($Form1)
    $hBitmap = _GDIPlus_BitmapCreateFromGraphics(1280, 700, $hGraphic)
    $Buffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)
    $Pen1 = _GDIPlus_PenCreate(0xFF00FF00)
    $hBrush1 = _GDIPlus_BrushCreateSolid(0xFFFFF2FF)
    $hBrush2 = _GDIPlus_BrushCreateSolid(0xFFFFF2FF)

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

    Global $hFormat = _GDIPlus_StringFormatCreate()
    Global $hFamily = _GDIPlus_FontFamilyCreate('Arial')
    Global $hFont = _GDIPlus_FontCreate($hFamily, 20, 1, 2)
    Global $tLayout1 = _GDIPlus_RectFCreate(100, 70, 500, 35)
    Global $tLayout2 = _GDIPlus_RectFCreate(100, 105, 500, 35)

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

    $MusicHandle = _BASS_StreamCreateFile(False, $file, 0, 0, 0)
    $song_length = _BASS_ChannelGetLength($MusicHandle, $BASS_POS_BYTE)
    $ID3Title = _Bass_Tags_Read($MusicHandle, '%IFV1(%TRCK,%TRCK. )%IFV2(%ARTI,%ICAP(%ARTI), Nichts) - %IFV2(%TITL,%ICAP(%TITL) , Nichts )')
    $MusicHandle = _BASS_StreamCreateFile(False, $file, 0, 0, 0)
    $ID3Album = _Bass_Tags_Read($MusicHandle, '%IFV1(%ALBM,%IUPC(%ALBM))')
    GUICtrlSetData($Label1,$ID3Title&" - "&$ID3Album)
    _BASS_ChannelPlay($MusicHandle, 0)
    $mal = 8
    If @error Then
    Exit
    EndIf

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

    While Sleep(1)
    _Tower()
    WEnd

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

    Func OnAutoItExit()
    _BASS_Stop()
    _BASS_Free()
    _GDIPlus_Shutdown()
    AdlibUnRegister()
    Exit
    EndFunc ;==>OnAutoItExit

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

    Func _Tower()
    _GDIPlus_GraphicsClear($Buffer, 0xFF000000)
    $level = 300
    _GDIPlus_PenSetWidth($Pen1, 19)
    _BASS_ChannelGetData($MusicHandle, DllStructGetPtr($fftstruct), $BASS_DATA_FFT256)
    For $i = 1 To 63 Step 1
    If $i > 5 Then $level = 500
    _GDIPlus_GraphicsDrawLine($Buffer, 20 * $i, 400*$mal, 20 * $i, 400 - DllStructGetData($fftstruct, 1, $i) * $level*$mal, $Pen1)
    _GDIPlus_GraphicsSetSmoothingMode($Buffer, 2)
    Next
    _GDIPlus_GraphicsDrawImageRect($hGraphic, $hBitmap, 0,0,1280,1200)
    _GDIPlus_GraphicsSetSmoothingMode($hGraphic, 2)
    EndFunc ;==>_Tower

    [/autoit]

    Edit:\\ habe nun eine neue version die nen bissel anders aussieht!

    Dateien

    spektrum.rar 149,29 kB – 372 Downloads spektrum2.rar 150,61 kB – 356 Downloads spektrum3.rar 121,65 kB – 356 Downloads
  • Alles Gute, L3viathan

    • Alizame
    • 18. Juni 2010 um 13:47

    alles gute nachträglich!

  • Ratatoui grüßt die ganze AutoIt Community ...

    • Alizame
    • 17. Juni 2010 um 22:07

    ich denke baujahr ist nicht gemeint :D

  • Test schreibeen

    • Alizame
    • 17. Juni 2010 um 22:03

    es wird ein curveball-bot würde ich sagen!

  • Joystick

    • Alizame
    • 17. Juni 2010 um 21:52

    bei microsoft könnten infos stehen,
    sonst musst du disassemblen (kp was das ist, habe ich im netzt gefunden!^^)

    Edit:
    ich habe keine einzige funktion in der dll selbst gefunden!
    microsoft ist einfach zu fies!

  • Funktionstest: _MonitorToggle !

    • Alizame
    • 17. Juni 2010 um 20:55

    seins hat aber nur 16 zeilen insgesamt, und ist sogar so aufgebaut das ich das verstehe!!das was du uns zegst hat 25 (vllt-3 wg autor)

  • Funktionstest: _MonitorToggle !

    • Alizame
    • 17. Juni 2010 um 18:40

    jo läuft bei mir ( XP SP3 32bit)

    eine frage aber noch: macht der eig. die beleuchtung auch aus?

  • Joystick

    • Alizame
    • 17. Juni 2010 um 18:37

    wie möchtest du denn ein event (tastenanschlag) herausbekommen?gibt es da ne *.dll datei?

  • Joystick

    • Alizame
    • 17. Juni 2010 um 18:25

    Ich möchte dich auf die Forenregeln hinweisen?
    trotzdem brauchst du irgendwas was dir zurückgibt was gerade gedrückt wurde. dann musst du nur

    [autoit]

    Send("{2}")

    [/autoit]

    schreiben wenn dasundas passiert.

    um ein event auszulesen musst du warscheinlich in einer endlosschleife einen DllCall benutzen?

  • C++ Scriptsprache mit DirectX

    • Alizame
    • 16. Juni 2010 um 20:26

    cool!schwarze gui!

  • Guisetonevent

    • Alizame
    • 15. Juni 2010 um 14:36

    also so:

    Spoiler anzeigen
    [autoit]

    $Programname = 0

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

    Opt("GUIOnEventMode", 1)
    $Form1 = GUICreate($Programname & " Installer", 310, 217, 346, 263)
    $Start = GUICtrlCreateButton("starten", 160, 152, 129, 49, 0)
    GUICtrlSetOnEvent(-1, "_Start")
    GUISetState(@SW_SHOW)

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

    While 1
    Sleep(10)
    WEnd

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

    Func _Start()
    ToolTip("start")
    EndFunc

    [/autoit]
  • Real Dektop Tools [Leute gesucht & in bearbeitung]

    • Alizame
    • 15. Juni 2010 um 14:31
    [autoit]

    FileInstall

    [/autoit]
  • Doppelter Programmstart verhindern?

    • Alizame
    • 15. Juni 2010 um 14:23

    daran hab ich ja garnicht gedacht monkey!^^

  • Doppelter Programmstart verhindern?

    • Alizame
    • 15. Juni 2010 um 13:40

    oder (schlechtere variante)

    [autoit]

    If ProcessExists(@ScriptName) Then Exit
    ;nicht getestet!

    [/autoit]
  • Open World Browser

    • Alizame
    • 14. Juni 2010 um 21:22

    sieht gut aus, aber:

    4mal hintereinander nen neuen beitrag?! WTF?! findeste den bearbeiten button nicht?

  • kurze frage zu Fileinstall

    • Alizame
    • 14. Juni 2010 um 20:34

    er kopiert es schon bei GO (F5)
    aber richtig in die .exe einbinden tut er erst wenn du es kompilierst!

  • Frage zu den Variablen

    • Alizame
    • 13. Juni 2010 um 18:57

    ich hoffe es wird kein bot!forenregeln wirste ja hoffentlich gelesen haben jetzt, oder??

    [autoit]

    $var += 10
    ;oder
    $var = $var + 10

    [/autoit]
  • Audio Meter (Peak, VU, Stereoscope und Korrelationsgradmesser)

    • Alizame
    • 12. Juni 2010 um 10:21

    ist gut!
    aber wofür ist dieses krikelkrakel rechts?

  • Listview mit iteminput?

    • Alizame
    • 10. Juni 2010 um 19:01

    danke!

    ich lasse den thread mal offen!vllt kommen ja noch mehr lösungen rein (es gibt auch so eine komische EditLabel funktion, die finde ich aber doof)

    Edit\\ bugfix deine funktion unterstützt irgendwie nur 1 listview!ich brauche aber 2 (oben vergessen zu sagen)(oder GUIRegisterMsg akzeptiert da nur eins^^)

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™