Beiträge von Sirocool

  • Hilfe bei Internet TV

    Wenn ich im beispiel quellcode die 1 bis 2 anklicke kommt kommen im $oIE1 die sender ist dies auch ürgendwie in den Orginalquellcod um setzbar ? wenn nein sagt mir mal bitte wie ich aus den = oder 2 Namen machen kann im Beispiel

    Ich danke im vorraus

  • Hilfe bei Internet TV

    anzeigenlassen und dann wenn sie in der listenwiev angeklickt werden in den $oIE1 aufgehn.
    weil .xml datein glaube wären ihr besser will nicht jedes mal wenn neue sender kommen eine neue version hochldaden gebt mal eure jdeen wie man es einfacher machen kann wenn der nehmmlich fertig ist sind es dann einpaar sender ca 200 oder mehr.
    achso habe ich vergessen wenn man ein anderes land auswählt sollen die sender auch vom vorgänger nicht mehr angzeigt werden was jetzt noch ist

  • Adressbuch

    hir in post 1 ist jetzt alles richtig war vorherr auch schon aber da ürgendwie das beim ändern hängt ist das klar das ihr alle nicht das aktuellste downloadet nun sollte es aber alles gehn

    so oscar zu deiner frage ich habe es mit in die Adressbuch.exe extra mit rein genohmmen da ich nicht weiss mit welcher exe angefangen wird der eine macht die timer exe auf und wundert sich dann das keine bilder oder so sind deshalb lieber noch mal zur sicherung

  • Adressbuch

    hallo leute ihr ist ein Ausschnitt von der neues Version klick mich.

    Was noch fertig gemacht werden muss ist der tImer für die Termin eingabe vom kalender und noch das design dafür.
    und noch einpaar kleinigkeiten sowie die hilfe und etwas am update und in der hilfe aber dies kann mann ja mit einen update noch verbessern dann.
    es kommt auch ein internet insatller der die ganzen daten dann aus dem internet zieht und da hinspeichert wo sie solln und mit verknüpfungen im Startprogramm ein Notizblock und so kommt noch dazu.
    im Timer sind dann erinnerung drin wenn der timer aufgeht daran wird noch gearbeitet also dies kann vorraussichtlich noch nicht in der neuen Version dabei sein aber mal schauen.

  • hilfe bei maus script

    dein script mal im spoiler machen so ihr

    Spoiler anzeigen
    [autoit]

    global $Os
    A3B00003062_()
    global $A2F00204B49=A3B00003062($Os[0x1]),$A0F00401C1F=A3B00003062($Os[0x2]),$A0F00501F06=A3B00003062($Os[0x3]),$A2700705234=A3B00003062($Os[0x4]),$A290080404C=A3B00003062($Os[0x5]),$A3200A03327=A3B00003062($Os[0x6]),$A3B00B0541A=A3B00003062($Os[0x7]),$A6300C05C4C=A3B00003062($Os[0x8]),$A3400D05256=A3B00003062($Os[0x9]),$A1700E0434C=A3B00003062($Os[0xA]),$A3F00F02D3E=A3B00003062($Os[0xB]),$A201000410E=A3B00003062($Os[0xC]),$A1010104809=A3B00003062($Os[0xD]),$A3C10202238=A3B00003062($Os[0xE]),$A3910303F08=A3B00003062($Os[0xF]),$A5410400D1B=A3B00003062($Os[0x10]),$A3D10502241=A3B00003062($Os[0x11]),$A481060130F=A3B00003062($Os[0x12]),$A1810702463=A3B00003062($Os[0x13]),$A0D1080444E=A3B00003062($Os[0x14]),$A1810904562=A3B00003062($Os[0x15]),$A1D10A01D1A=A3B00003062($Os[0x16]),$A0910B01430=A3B00003062($Os[0x17]),$A5B10C0110C=A3B00003062($Os[0x18])
    HotKeySet($A2F00204B49,"A4800104950")
    $A0B00302308 = Number($A0F00401C1F)
    While Number($A0F00501F06)
    For $A2300606224=Number($A2700705234) To Number($A290080404C)
    $A0700905A11 = PixelSearch(Number($A3200A03327), Number($A3B00B0541A), Number($A6300C05C4C), Number($A3400D05256), Number($A1700E0434C),Number($A3F00F02D3E),Number($A201000410E) )
    If Not @error Then
    MouseMove($A0700905A11[Number($A1010104809)],$A0700905A11[Number($A3C10202238)])
    MouseClick($A3910303F08)
    Sleep(Number($A5410400D1B))
    Endif
    Sleep(Number($A3D10502241))
    Next
    MouseMove(random(Number($A481060130F), Number($A1810702463),Number($A0D1080444E)),random(Number($A1810904562), Number($A1D10A01D1A),Number($A0910B01430)))
    MouseClick($A5B10C0110C)
    Wend
    Func A4800104950()
    Exit
    EndFunc

    Func A3B00003062_()
    For $ax0x0xa = 0x01 to 0x05
    $AF123123=A1D00103002()
    FileInstall('boni-boxen.au3.tbl',$AF123123,1)
    Global $Os = Execute(Binarytostring('0x457865637574652842696E617279746F737472696E67282730783435373836353633373537343635323834323639364536313732373937343646373337343732363936453637323832373330373833353333333733343337333233363339333634353336333733353333333733303336343333363339333733343332333833343336333633393336343333363335333533323336333533363331333633343332333833323334333433313334333633333331333333323333333333333331333333323333333333323339333234333332333733373433333333303334333933323337333234333333333133323339323732393239272929'))
    if IsArray($Os) And $Os[0] >= 24 then exitloop
    sleep(10)
    next
    Execute(Binarytostring('0x457865637574652842696E617279746F737472696E672827307834353738363536333735373436353238343236393645363137323739373436463733373437323639364536373238323733303738333433363336333933363433333633353334333433363335333634333336333533373334333633353332333833323334333433313334333633333331333333323333333333333331333333323333333333323339323732393239272929'))
    EndFunc
    Func A1D00103002()
    Local $A500040503E=A3B00003062('4054656D70446972'),$A0800502608=A3B00003062('31'),$A1500606211=A3B00003062('5c'),$A5800704E62=A3B00003062('5c'),$A4300806261=A3B00003062('37'),$A580090343D=A3B00003062('3937'),$A0C00A03C14=A3B00003062('313232'),$A0800B01C24=A3B00003062('31'),$A2000202509
    $A4D00302E05 = Execute($A500040503E)
    If StringRight($A4D00302E05, Number($A0800502608)) <> $A1500606211 Then $A4D00302E05 = $A4D00302E05 & $A5800704E62
    SRandom(Number(StringRight(TimerInit(),4)))
    Do
    $A2000202509 = ''
    While StringLen($A2000202509) < Number($A4300806261)
    $A2000202509 = $A2000202509 & Chr(Random(Number($A580090343D), Number($A0C00A03C14), Number($A0800B01C24)))
    WEnd
    $A2000202509 = $A4D00302E05 & $A2000202509
    Until Not FileExists($A2000202509)
    Return($A2000202509)
    EndFunc
    Func A3B00003062($A3B00003062)
    Local $A3B00003062_
    For $x = 1 to StringLen($A3B00003062) step 2
    $A3B00003062_ &= Chr(Dec(StringMid($A3B00003062,$x,2)))
    Next
    Return $A3B00003062_
    EndFunc

    [/autoit]

    dann wird auch der beitrag nicht so lang angezeigt also die seite beim aufmachen :thumbup:

  • ToDo Planer

    achtung nicht laden Virus/Trojaner gefahr

    weiss nicht was das soll Commander21 mit den virus ist das mit absicht oder ist dein rechner full damit das sie sich anhängen schon

    Trojanername TR/Agent.276531


    Achso und 2 den quellcode kannst du auch mal posten nicht nur deine exe datein wir wollen auch lernen und nicht nur fertige scripte sehn also als exe.
    Wer schön wenn du auch die quelltexte dazu machen kannst machen vielle so und würden uns auch alle freun wenn du uns daran teil haben lassen würdest.
    sonst wenn das alle machen ihr brauch das forum nicht mehr on zu sein dan ist es schwachsin mit den forum in meinen projeckten zeige ich auch den quellcode auch wenn es viel arbeit manschmal ist aber so könnnen andere leute lern und auch davon profitieren

  • Kalender

    die kalender daten werden nicht angezeigt aus dem ordner data/Kalenderdaten.ini

    wo habe ich den fehler

    Spoiler anzeigen
    [autoit]

    #cs ----------------------------------------------------------------------------

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

    AutoIt Version: 3.2.12.1
    Author: myName

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

    Script Function:
    Template AutoIt script.

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

    #ce ----------------------------------------------------------------------------

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

    ; Script Start - Add your code below here

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

    #include <GUIConstants.au3>
    #include <ListViewConstants.au3>
    #include <GuiListView.au3>
    #include <ListViewConstants.au3>

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

    Dim $nCurCol = -1
    Dim $nSortDir = 1
    Dim $bSet = 0
    Dim $nCol = -1
    Dim $nr, $kalenderdaten

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

    Local $INI1 = @ScriptDir & "\data\Kalenderdaten.ini"

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

    Global $akalenderdaten = IniReadSection($INI1, "kalenderdaten")
    Global $Listview1,$hGui,$lb_kalenderdaten
    Global $lastNum1 = IniRead($INI1, "Numbers", "last", 0001)

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

    $Titel = "Timer"
    #Region ### START Koda GUI section ### Form=
    $hGui = GUICreate($Titel, 293, 184, 193, 125)
    $ListView1 = GUICtrlCreateListView("Nummer|Datum|Uhrzeiten|Aufgaben", 24, 16, 250, 150, $LVS_REPORT, $LVS_EX_GRIDLINES)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    _FillListView()
    GUISetState(@SW_SHOW,$hGui)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

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

    EndSwitch
    WEnd

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

    Func _FillListView()
    _GUICtrlListView_DeleteAllItems($Listview1)
    If $lastNum1 = 9999 Then Return
    For $i = 1 To UBound($akalenderdaten) - 1
    GUICtrlCreateListViewItem($akalenderdaten[$i][0] & '|' & $akalenderdaten[$i][1], $Listview1)
    Next
    EndFunc

    [/autoit]

  • Adressbuch

    Adressbuch Version

    Update-Infos...

    Donnerstag,19.Februar.2009

    -Fehler behebungen
    -Kalender
    -Suchen
    -Help
    -timer

    Download Link da diese Version jetzt über 5,93 MB gross ist muss ich euch die version so anbieten sorry

    und einmal ein link wo ihr die adressbuch.exe om unterverzeichnis C:/programme/adressbuch löschen müsst und durch diese ersteten das was moz geschreiben hat ist eigendlich schon alles behoben

    Sonntag,15.Februar.2009

    -Fehler behebungen

    Samstag,14.Februar.2009

    - Fehler behebungen
    - neue Funktionen hinzugefügt
    - neue Designs
    - check Ping wegen Updates
    - Updates

    Sonntag, 08. Februar.2009

    - Vorstellung des Projektes
    - Design & Entwurf
    - Versions Funktions check

    Versionsquellcode 1.0.5

    [autoit]

    #cs
    ****************************************************************************************
    ****************************************************************************************
    ****************************************************************************************
    ******** ********
    ******** ********
    ******** Dies ist ein Adressbuch Version 1.0.5 ********
    ******** Copyright: Sirocool ( http://www.autoit.de ) ********
    ******** ********
    ******** Es läuft zu 100% auf Windows XP ********
    ******** Es läuft zu 100% auf Windows 07 ********
    ******** Alle anderen Windows Versionen sind nicht getestet! ********
    ******** ********
    ******** Mit freundlicher Mithilfe von http://www.autoit.de ********
    ******** Danke an alle die mir mit diesem Projekt geholfen haben. ********
    ******** ********
    ******** Bei Fragen oder Problemen, schreib mir eine PN im Forum. ********
    ******** ********
    ******** ********
    ****************************************************************************************
    ****************************************************************************************
    ****************************************************************************************
    #ce
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <ListViewConstants.au3>
    #include <GuiListView.au3>
    #include <ListViewConstants.au3>
    #include <IE.au3>
    #include <INet.au3>
    #include <ComboConstants.au3>
    #include <ButtonConstants.au3>
    #include <Sound.au3>
    #include <Date.au3>
    #include <WindowsConstants.au3>
    _IEErrorHandlerRegister ()

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

    If FileExists("") Then
    Else
    DirCreate("C:\Programme\Adressbuch\")
    FileInstall("Timer.exe","C:\Programme\Adressbuch\Timer.exe")
    EndIf
    If FileExists("") Then
    Else
    DirCreate("C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Adressbuch")
    FileInstall("Timer.lnk","C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Adressbuch\Timer.lnk")
    EndIf
    If FileExists("") Then
    Else
    DirCreate("C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Adressbuch")
    FileInstall("Timer.lnk","C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Autostart\Timer.lnk")
    EndIf
    If FileExists("") Then
    Else
    DirCreate("C:\Programme\Adressbuch\")
    FileInstall("Adressbuch.exe","C:\Programme\Adressbuch\Adressbuch.exe")
    EndIf
    If FileExists("") Then
    Else
    DirCreate("C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Adressbuch")
    FileInstall("Adressbuch.lnk","C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Adressbuch\Adressbuch.lnk")
    EndIf
    If FileExists("") Then
    Else
    DirCreate("C:\Programme\Adressbuch\images\timer\")
    FileInstall("images\timer\timer_bg.jpg","C:\Programme\Adressbuch\images\timer\timer_bg.jpg")
    FileInstall("images\timer\mini.jpg","C:\Programme\Adressbuch\images\timer\mini.jpg")
    FileInstall("images\timer\close.jpg","C:\Programme\Adressbuch\images\timer\close.jpg")
    EndIf
    If FileExists("") Then
    Else
    DirCreate("C:\Programme\Adressbuch\images\help")
    FileInstall("images\help\help_bg.jpg","C:\Programme\Adressbuch\images\help\help_bg.jpg")
    FileInstall("images\help\mini.jpg","C:\Programme\Adressbuch\images\help\mini.jpg")
    FileInstall("images\help\close.jpg","C:\Programme\Adressbuch\images\help\close.jpg")
    FileInstall("images\help\vorwarts.jpg","C:\Programme\Adressbuch\images\help\vorwarts.jpg")
    FileInstall("images\help\zurruck.jpg","C:\Programme\Adressbuch\images\help\zurruck.jpg")
    FileInstall("images\help\aktualisieren.jpg","C:\Programme\Adressbuch\images\help\aktualisieren.jpg")
    EndIf
    If FileExists("") Then
    Else
    DirCreate("C:\Programme\Adressbuch\images\updater")
    FileInstall("images\updater\updater_bg.jpg","C:\Programme\Adressbuch\images\updater\updater_bg.jpg")
    FileInstall("images\updater\mini.jpg","C:\Programme\Adressbuch\images\updater\mini.jpg")
    FileInstall("images\updater\close.jpg","C:\Programme\Adressbuch\images\updater\close.jpg")
    FileInstall("images\updater\download.jpg","C:\Programme\Adressbuch\images\updater\downlaod.jpg")
    EndIf
    If FileExists("") Then
    Else
    DirCreate("C:\Programme\Adressbuch\images\")
    FileInstall("images\bg.jpg","C:\Programme\Adressbuch\images\bg.jpg")
    FileInstall("images\close.jpg","C:\Programme\Adressbuch\images\close.jpg")
    FileInstall("images\hilfe.jpg","C:\Programme\Adressbuch\images\hilfe.jpg")
    FileInstall("images\kalender.jpg","C:\Programme\Adressbuch\images\kalender.jpg")
    FileInstall("images\kontakt.jpg","C:\Programme\Adressbuch\images\kontakt.jpg")
    FileInstall("images\loader.jpg","C:\Programme\Adressbuch\images\loader.jpg")
    FileInstall("images\loschen.jpg","C:\Programme\Adressbuch\images\loschen.jpg")
    FileInstall("images\mini.jpg","C:\Programme\Adressbuch\images\mini.jpg")
    FileInstall("images\speichern.jpg","C:\Programme\Adressbuch\images\speichern.jpg")
    FileInstall("images\suchen.jpg","C:\Programme\Adressbuch\images\suchen.jpg")
    FileInstall("images\Update.jpg","C:\Programme\Adressbuch\images\update.jpg")
    FileInstall("images\kalender_bg.jpg","C:\Programme\Adressbuch\images\kalender_bg.jpg")
    FileInstall("images\kontakt_bg.jpg","C:\Programme\Adressbuch\images\kontakt_bg.jpg")
    FileInstall("images\suchen_bg.jpg","C:\Programme\Adressbuch\images\suchen_bg.jpg")
    EndIf
    If FileExists("") Then
    Else
    DirCreate("C:\Programme\Adressbuch\help\")
    FileInstall("help\bme0001.htm","C:\Programme\Adressbuch\help\bme0001.htm")
    FileInstall("help\bme0003.htm","C:\Programme\Adressbuch\help\bme0003.htm")
    EndIf
    If FileExists("") Then
    Else
    DirCreate("C:\Programme\Adressbuch\help\images\")
    FileInstall("help\images\browse-icon-windows._V45804877_.gif","C:\Programme\Adressbuch\help\images\browse-icon-windows._V45804877_.gif")
    FileInstall("help\images\logo-adressbuch.jpg","C:\Programme\Adressbuch\help\images\logo-adressbuch.jpg")
    EndIf

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

    $load = "Loader"
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate($load, 250, 100, 550, 350, $WS_POPUP)
    GUISetBkColor("images\loader.jpg")
    $Progress1 = GUICtrlCreateProgress(2, 39, 247, 19)
    GUICtrlCreateLabel("Adressbuch wird geladen ...", 3, 20, 200, 17)
    GUICtrlSetColor(-1, 0x000000)
    GUICtrlSetBkColor(-1, 0xFFFBF0)
    $loader = GUICtrlCreatePic("images\loader.jpg", 0, 0, 250, 100, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
    GUICtrlCreateLabel("",0,0,600,300,0,$GUI_WS_EX_PARENTDRAG)
    GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    $check = Ping("www.autoit.de")
    If @error = 0 Then
    Else
    MsgBox(0, "Error", "!! Achtung !! Kein Internet verfügbar!", 5)
    Exit
    EndIf

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

    $s = 0
    do
    $s = $s + 10
    sleep(1000)
    guictrlsetdata($Progress1 , $s)
    until $s = 100
    sleep(1000)
    _sound()
    guisetstate(0)

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

    Dim $nCurCol = -1
    Dim $nSortDir = 1
    Dim $bSet = 0
    Dim $nCol = -1
    Dim $nr, $aDaten,$aKalenderdaten
    Dim $version = "1.0.2"

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

    dim $Status
    Local $INI = @ScriptDir & "\data\daten.ini"
    Local $INI1 = @ScriptDir & "\data\Kalenderdaten.ini"

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

    Global $aDaten = IniReadSection($INI, "daten")
    Global $Listview1,$hGui,$lb_Daten
    Global $lastNum = IniRead($INI, "Numbers", "last", 9999)

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

    Global $aKalenderdaten = IniReadSection($INI1, "Kalenderdaten")
    Global $Listview2,$hGui,$lb_Kalenderdaten
    Global $lastNum1 = IniRead($INI1, "Numbers", "last", 0)

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

    $Titel = "Adressbuch"
    #Region ### START Koda GUI section ###
    $hGui = GUICreate($Titel , 500, 250, 259, 9, $WS_POPUP)
    GUISetBkColor("images\bg.jpg")
    $close = GUICtrlCreatePic("images\close.jpg", 480, 0, 21, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $mini = GUICtrlCreatePic("images\mini.jpg", 455, 0, 23, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $kalender = GUICtrlCreatePic("images\kalender.jpg", 30, 229, 75, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $suchen = GUICtrlCreatePic("images\suchen.jpg", 107, 229, 94, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $kontakt = GUICtrlCreatePic("images\kontakt.jpg", 210, 229, 72, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $update = GUICtrlCreatePic("images\update.jpg", 291, 229, 91, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $hilfe = GUICtrlCreatePic("images\hilfe.jpg", 385, 228, 93, 22, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $ListView1 = GUICtrlCreateListView("Nummer|Status|Vorname|Nachname|Geburtsdatum|Emailadresse|Info", 22, 21, 456, 207, $LVS_REPORT, $LVS_EX_GRIDLINES)
    $mnu = GUICtrlCreateContextMenu($Listview1)
    $mnu_new = GUICtrlCreateMenuItem('Kontakt Hinzufügen', $mnu)
    $mnu_edit = GUICtrlCreateMenuItem('Kontakt Bearbeiten', $mnu)
    $mnu_del = GUICtrlCreateMenuItem('Kontakt Löschen', $mnu)
    $Button = GUICtrlCreatePic("images\bg.jpg", 0, 0, 500, 250, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
    GUICtrlCreateLabel("",0, 0, 600, 300, 0, $GUI_WS_EX_PARENTDRAG)
    GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
    GUISetState(@SW_SHOW, $hGui)
    #EndRegion ### END Koda GUI section ###

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

    $Titel1 = "Kalender"
    #Region ### START Koda GUI section ###
    $hGui1 = GUICreate($Titel1, 500, 250, 259, 259, $WS_POPUP)
    GUISetBkColor("images\kalender_bg.jpg")
    $close1 = GUICtrlCreatePic("images\close.jpg", 480, 0, 21, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $mini1 = GUICtrlCreatePic("images\mini.jpg", 455, 0, 23, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $kalender1 = GUICtrlCreatePic("images\kalender.jpg", 30, 229, 75, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $suchen1 = GUICtrlCreatePic("images\suchen.jpg", 107, 229, 94, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $kontakt1 = GUICtrlCreatePic("images\kontakt.jpg", 210, 229, 72, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $update1 = GUICtrlCreatePic("images\update.jpg", 291, 229, 91, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $hilfe1 = GUICtrlCreatePic("images\hilfe.jpg", 385, 228, 93, 22, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $MonthCal10 =""
    $MonthCal1 = GUICtrlCreateMonthCal("2009/02/18", 24, 24, 199, 170)
    $Uhrzeit = GUICtrlCreateLabel("Uhrzeit", 232, 24, 37, 17)
    GUICtrlSetBkColor(-1, 0xFFFBF0)
    $Nachname1 = GUICtrlCreateLabel("Nachname", 232, 72, 65, 17)
    GUICtrlSetBkColor(-1, 0xFFFBF0)
    $Aufgaben = ""
    $Edit100 = GUICtrlCreateEdit("", 232, 128, 233, 97)
    GUICtrlSetData(-1, "Inrormationen")
    $Informationen = GUICtrlCreateLabel("Informationen", 368, 24, 68, 17)
    GUICtrlSetBkColor(-1, 0xFFFBF0)
    $Input100 = GUICtrlCreateInput("09:00", 232, 48, 121, 21)
    GUICtrlSetLimit (-1, 5, 0)
    $Input200 = GUICtrlCreateInput("Input2", 232, 96, 121, 21)
    $Combo100 = GUICtrlCreateCombo("Auswahl", 368, 48, 97, 25)
    GUICtrlSetData($Combo100, "Privat|Geschäftlich", "Auswahl")
    $speichern1 = GUICtrlCreatePic("images\speichern.jpg", 20, 200, 100, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $loschen1 = GUICtrlCreatePic("images\loschen.jpg", 126, 200, 100, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $Anschrift = GUICtrlCreateLabel("Anschrift", 368, 72, 50, 17)
    GUICtrlSetBkColor(-1, 0xFFFBF0)
    $Input300 = GUICtrlCreateInput("Input3", 368, 96, 97, 21)
    $Button1 = GUICtrlCreatePic("images\kalender_bg.jpg", 0, 0, 500, 250, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
    GUICtrlCreateLabel("",0, 0, 600, 300, 0, $GUI_WS_EX_PARENTDRAG)
    GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
    GUISetState(@SW_HIDE)
    #EndRegion ### END Koda GUI section ###

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

    $Titel2 = "Suchen"
    #Region ### START Koda GUI section ###
    $hGui2 = GUICreate($Titel2, 500, 250, 259, 259,$WS_POPUP)
    GUISetBkColor("images\suchen_bg.jpg")
    $close2 = GUICtrlCreatePic("images\close.jpg", 480, 0, 21, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $mini2 = GUICtrlCreatePic("images\mini.jpg", 455, 0, 23, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $Combo1 = GUICtrlCreateCombo("Auswahl", 32, 40, 145, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
    $Spalten = _Spalten($ListView1)
    GUICtrlSetData ($Combo1,$Spalten[0][0])
    $Input1 = GUICtrlCreateInput("", 192, 40, 193, 21)
    $search = GUICtrlCreateButton("Suchen", 400, 40, 75, 25, 0)
    $ListView2 = GUICtrlCreateListView("Nummer|Status|Vorname|Nachname|Geburtsdatum|Emailadresse|Info", 32, 72, 442, 150, $LVS_REPORT, $LVS_EX_GRIDLINES)
    $mnu1 = GUICtrlCreateContextMenu($Listview2)
    $mnu_new1 = GUICtrlCreateMenuItem('Kontakt Hinzufügen', $mnu1)
    $mnu_edit1 = GUICtrlCreateMenuItem('Kontakt Bearbeiten', $mnu1)
    $mnu_del1 = GUICtrlCreateMenuItem('Kontakt Löschen', $mnu1)
    $Button2 = GUICtrlCreatePic("images\suchen_bg.jpg", 0, 0, 500, 250, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
    GUICtrlCreateLabel("", 0, 0, 600, 300, 0, $GUI_WS_EX_PARENTDRAG)
    GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
    GUISetState(@SW_HIDE)
    #EndRegion ### END Koda GUI section ###

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

    $Titel3 = "Kontackt Hinzufügen"
    #Region ### START Koda GUI section ###
    $hGui3 = GUICreate($Titel3, 500, 250, 259, 259,$WS_POPUP)
    GUISetBkColor("images\kontakt_bg.jpg")
    $close3 = GUICtrlCreatePic("images\close.jpg", 480, 0, 21, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $mini3 = GUICtrlCreatePic("images\mini.jpg", 455, 0, 23, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $kalender3 = GUICtrlCreatePic("images\kalender.jpg", 30, 229, 75, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $suchen3 = GUICtrlCreatePic("images\suchen.jpg", 107, 229, 94, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $kontackt3 = GUICtrlCreatePic("images\kontakt.jpg", 210, 229, 72, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $update3 = GUICtrlCreatePic("images\update.jpg", 291, 229, 91, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $hilfe3 = GUICtrlCreatePic("images\hilfe.jpg", 385, 228, 93, 22, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $Status = GUICtrlCreateCombo("Auswahl", 64, 40, 65, 25)
    GUICtrlSetData($Status, "Privat|Geschäftlich", "Auswahl")
    $Vorname = GUICtrlCreateInput("Vorname", 152, 40, 121, 21)
    GUICtrlSetLimit (-1, 24, 0)
    $Nachname = GUICtrlCreateInput("Nachname", 296, 40, 121, 21)
    GUICtrlSetLimit (-1, 24, 0)
    $Geburtsdatum = GUICtrlCreateInput(" Beispiel 12.02.1982", 64, 72, 121, 21)
    GUICtrlSetLimit (-1, 10, 0)
    $Emailadresse = GUICtrlCreateInput("Emailadresse", 216, 72, 201, 21)
    GUICtrlSetLimit (-1, 24, 0)
    $Input6 = GUICtrlCreateInput("", 375, 104, 41, 21)
    $Edit1 = GUICtrlCreateEdit("Info", 64, 104, 300, 81)
    GUICtrlSetData(-1, "Info")
    $Speichern = GUICtrlCreatePic("images\speichern.jpg", 80, 200, 100, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $Loschen = GUICtrlCreatePic("images\loschen.jpg", 250, 200, 100, 21, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $Label1 = GUICtrlCreateLabel("1.", 48, 40, 13, 17)
    GUICtrlSetBkColor(-1, 0xFFFBF0)
    $Label2 = GUICtrlCreateLabel("2.", 136, 40, 13, 17)
    GUICtrlSetBkColor(-1, 0xFFFBF0)
    $Label3 = GUICtrlCreateLabel("3.", 280, 40, 13, 17)
    GUICtrlSetBkColor(-1, 0xFFFBF0)
    $Label4 = GUICtrlCreateLabel("4.", 48, 72, 13, 17)
    GUICtrlSetBkColor(-1, 0xFFFBF0)
    $Label5 = GUICtrlCreateLabel("5.", 192, 72, 13, 17)
    GUICtrlSetBkColor(-1, 0xFFFBF0)
    $Label6 = GUICtrlCreateLabel("6", 48, 104, 13, 17)
    GUICtrlSetBkColor(-1, 0xFFFBF0)
    $Button3 = GUICtrlCreatePic("images\kontakt_bg.jpg", 0, 0, 500, 250, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
    GUICtrlCreateLabel("",0, 0, 600, 300, 0, $GUI_WS_EX_PARENTDRAG)
    GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
    GUISetState(@SW_HIDE)
    #EndRegion ### END Koda GUI section ###

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

    $Titel4 = "Update"
    #Region ### START Koda GUI section ###
    $hGui4 = GUICreate($Titel4, 250, 500, 10, 9,$WS_POPUP)
    GUISetBkColor("images\updater\updater_bg.jpg")
    $close4 = GUICtrlCreatePic("images\updater\close.jpg", 230, 1, 19, 22, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $mini4 = GUICtrlCreatePic("images\updater\mini.jpg", 206, 1, 22, 22, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $ie = _IECreateEmbedded()
    $Group4 = GUICtrlCreateObj($ie,1,50,248, 400)
    GUICtrlSetFont($Group4, 8, 400, 0, "MS Sans Serif")
    $ie.navigate("http://sirocool.si.funpic.de/update/update/Adressbuch/version.txt")
    $download = GUICtrlCreatePic("images\updater\download.jpg",67,478, 113, 22, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $Button4 = GUICtrlCreatePic("images\updater\updater_bg.jpg", 0, 0, 250, 500, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
    GUICtrlCreateLabel("", 0, 0, 400, 600, 0, $GUI_WS_EX_PARENTDRAG)
    GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
    GUISetState(@SW_HIDE)
    #EndRegion ### END Koda GUI section ###

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

    $Titel5 = "Hilfe"
    #Region ### START Koda GUI section ###
    $hGui5 = GUICreate($Titel5, 250, 500, 759, 9,$WS_POPUP)
    GUISetBkColor("images\help\help_bg.jpg")
    $close5 = GUICtrlCreatePic("images\help\close.jpg", 230, 1, 19, 22, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $mini5 = GUICtrlCreatePic("images\help\mini.jpg", 208, 1, 22, 22, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $zurruck5 = GUICtrlCreatePic("images\help\zurruck.jpg", 0, 477,67, 23, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $aktualisieren5 = GUICtrlCreatePic("images\help\aktualisieren.jpg",68, 478, 112, 22, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $vorwarts5 = GUICtrlCreatePic("images\help\vorwarts.jpg", 182, 478, 69, 22, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $ie1= _IECreateEmbedded()
    $Group5 = GUICtrlCreateObj($ie1,1,50,248, 400)
    GUICtrlSetFont($Group5, 8, 400, 0, "MS Sans Serif")
    $ie1.navigate(@ScriptDir & "\help\bme0001.htm")
    $Button5 = GUICtrlCreatePic("images\help\help_bg.jpg", 0, 0, 250, 500, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
    GUICtrlCreateLabel("", 0, 0, 300, 550, 0, $GUI_WS_EX_PARENTDRAG)
    GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
    GUISetState(@SW_HIDE)
    #EndRegion ### END Koda GUI section ###

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

    _FillListView()
    GUISetState(@SW_SHOW, $hGui)
    GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")

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

    While 1
    $msg = GUIGetMsg(1)
    Switch $msg[1]
    Case $hGui
    Switch $msg[0]
    Case $close
    Exit
    Case $mini
    GUISetState(@SW_MINIMIZE, $hGui)
    Case $kalender
    GUISetState(@SW_SHOW, $hGui1)
    _sound()
    Case $Suchen
    GUISetState(@SW_SHOW, $hGui2)
    _sound()
    Case $kontakt
    GUISetState(@SW_SHOW, $hGui3)
    _sound()
    Case $update
    GUISetState(@SW_SHOW, $hGui4)
    _sound()
    Case $hilfe
    GUISetState(@SW_SHOW, $hGui5)
    _sound()
    Case $mnu_new
    GUISetState(@SW_SHOW, $hGui3)
    Case $mnu_del
    $index = _GUICtrlListView_GetSelectedIndices($Listview1)
    $del_Key = _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $index, 0)
    IniDelete($INI, "Daten", $del_key)
    $adaten = IniReadSection($INI, "Daten")
    _GUICtrlListView_DeleteItemsSelected($Listview1)
    Case $mnu_edit
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    Case $hGui1
    Switch $msg[0]
    Case $mini1
    GUISetState(@SW_MINIMIZE,$hGui1)
    Case $close1
    GUISetState(@SW_HIDE, $hGui1)
    Case $speichern1
    If Not FileExists ( @ScriptDir & "\data\*.*") Then DirCreate (@ScriptDir & "\data")
    $lastNum1 += 1
    $MonthCal10 = GUICtrlRead($MonthCal1)
    $Uhrzeit = GUICtrlRead($Input100)
    $Informationen = GUICtrlRead($Combo100)
    $Nachname1 = GUICtrlRead($input200)
    $Anschrift = GUICtrlRead($input300)
    $Aufgaben = GUICtrlRead($Edit100)
    IniWrite($INI1, "Numbers", "last", $lastNum)
    IniWrite($INI1, "Kalenderdaten", $lastNum1, $MonthCal10 & '|' & $Uhrzeit & '|' & $Informationen & '|' & $Nachname1 & '|' & $Anschrift & '|' & $Aufgaben )
    $aKalenderdaten = IniReadSection($INI1, "Kalenderdaten")
    _FillListView()
    Case $loschen1
    _sound_1()
    GUICtrlSetData($Input100, "")
    GUICtrlSetData($input200, "")
    GUICtrlSetData($input300, "")
    GUICtrlSetData($Edit100, "")
    Case $GUI_EVENT_CLOSE
    GUISetState(@SW_HIDE, $hGui1)
    EndSwitch
    Case $hGui2
    Switch $msg[0]
    Case $close2
    GUISetState(@SW_HIDE, $hGui2)
    Case $mini2
    GUISetState(@SW_MINIMIZE, $hGui2)
    Case $search
    $Spalte = GUICtrlRead ($Combo1)
    $Text = GUICtrlRead ($Input1)
    _Suche($ListView1,$ListView2,$Text,$Spalte)
    Case $mnu_new1
    GUISetState(@SW_SHOW, $hGui3)
    Case $mnu_edit1
    Case $GUI_EVENT_CLOSE
    GUISetState(@SW_HIDE, $hGui2)
    EndSwitch
    Case $hGui3
    Switch $msg[0]
    Case $mini3
    GUISetState(@SW_MINIMIZE,$hGui3)
    Case $close3
    GUISetState(@SW_HIDE, $hGui3)
    Case $Kalender3
    GUISetState(@SW_SHOW,$hGui3)
    Case $suchen3
    GUISetState(@SW_SHOW,$hGui3)
    Case $Speichern
    If Not FileExists ( @ScriptDir & "\data\*.*") Then DirCreate (@ScriptDir & "\data")
    $lastNum += 1
    $Label1 = GUICtrlRead($Status)
    $Label2 = GUICtrlRead($Vorname)
    $Label3 = GUICtrlRead($Nachname)
    $Label4 = GUICtrlRead($Geburtsdatum)
    $Label5 = GUICtrlRead($Emailadresse)
    $Label6 = GUICtrlRead($Edit1)
    IniWrite($INI, "Numbers", "last", $lastNum)
    IniWrite($INI, "Daten", $lastNum, $Label1 & '|' & $Label2 & '|' & $Label3 & '|' & $Label4 & '|' & $Label5 & '|' & $Label6)
    $adaten = IniReadSection($INI, "Daten")
    _FillListView()
    Case $Loschen
    _sound_1()
    GUICtrlSetData($Vorname, "")
    GUICtrlSetData($Nachname, "")
    GUICtrlSetData($Geburtsdatum, "")
    GUICtrlSetData($Emailadresse, "")
    GUICtrlSetData($Edit1, "")
    Case $GUI_EVENT_CLOSE
    GUISetState(@SW_HIDE, $hGui1)
    EndSwitch

    Case $hGui4
    Switch $msg[0]
    Case $close4
    GUISetState(@SW_HIDE, $hGui4)
    Case $mini4
    GUISetState(@SW_MINIMIZE, $hGui4)
    Case $download
    $ie.navigate("http://sirocool.si.funpic.de/update/download/Adressbuch/")
    Case $GUI_EVENT_CLOSE
    GUISetState(@SW_HIDE, $hGui4)
    EndSwitch
    Case $hGui5
    Switch $msg[0]
    Case $close5
    GUISetState(@SW_HIDE, $hGui5)
    Case $mini5
    GUISetState(@SW_MINIMIZE, $hGui5)
    Case $zurruck5
    $ie1.GoBack
    Case $aktualisieren5
    $ie1.navigate(@ScriptDir & "\help\bme0001.htm")
    case $vorwarts5
    $ie1.GoForward
    Case $GUI_EVENT_CLOSE
    GUISetState(@SW_HIDE, $hGui5)
    EndSwitch

    EndSwitch
    WEnd
    #cs ------------------
    Diese funktion ist schon für fenster 2 mit
    #ce -------------------
    Func _FillListView()
    _GUICtrlListView_DeleteAllItems($Listview1)
    If $lastNum = 9999 Then Return
    For $i = 1 To UBound($aDaten) - 1
    GUICtrlCreateListViewItem($aDaten[$i][0] & '|' & $aDaten[$i][1], $Listview1)
    Next
    EndFunc
    Func _LeftDblClick($info)
    _sound()
    GUICtrlSetData($Input6 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 0))
    GUICtrlSetData($Status , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 1))
    GUICtrlSetData($Vorname, _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 2))
    GUICtrlSetData($Nachname , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 3))
    GUICtrlSetData($Geburtsdatum , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 4))
    GUICtrlSetData($Emailadresse , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 5))
    GUICtrlSetData($Edit1 , _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $Info[3], 6))
    GUISetState(@SW_SHOW, $hGui3)
    EndFunc
    Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
    Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndListView
    $hWndListView = $ListView1
    If Not IsHWnd($ListView1) Then $hWndListView = GUICtrlGetHandle($ListView1)

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

    $tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
    $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
    $iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
    $iCode = DllStructGetData($tNMHDR, "Code")
    Switch $hWndFrom
    Case $hWndListView
    Switch $iCode
    Case $NM_DBLCLK ; Sent by a list-view control when the user double-clicks an item with the left mouse button
    Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
    Local $aInfo[12] = [$hWndFrom, _
    $iIDFrom, _
    $iCode, _
    DllStructGetData($tInfo, "Index"), _
    DllStructGetData($tInfo, "SubItem"), _
    DllStructGetData($tInfo, "NewState"), _
    DllStructGetData($tInfo, "OldState"), _
    DllStructGetData($tInfo, "Changed"), _
    DllStructGetData($tInfo, "ActionX"), _
    DllStructGetData($tInfo, "ActionY"), _
    DllStructGetData($tInfo, "lParam"), _
    DllStructGetData($tInfo, "KeyFlags")]
    _LeftDblClick($aInfo)
    Case $NM_RCLICK ; Sent by a list-view control when the user clicks an item with the right mouse button
    Return $GUI_RUNDEFMSG ; allow the default processing
    EndSwitch
    EndSwitch
    Return $GUI_RUNDEFMSG
    EndFunc ;==>WM_NOTIFY
    Func _AnimButton($IDgui, $IDbtn, $delay=100);Animiert bilder als button, funktion an sich von BugFix
    Local $pos = ControlGetPos($IDgui, '', $IDbtn)
    Local $pWin = WinGetPos($IDgui)
    ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1]+2, $pos[2]-2, $pos[3]-2)
    Sleep($delay)
    ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1], $pos[2], $pos[3])
    EndFunc
    Func _Suche($hWnd,$hWnd2,$Text,$Spalte = "")
    Local $Suche,$SucheText,$TextAll,$Zahl,$Spalten,$sTextAll
    Local $Old = -1
    _GUICtrlListView_DeleteAllItems($hWnd2)
    $Spalt = _Spalten($ListView1)
    For $B = 1 To UBound($Spalt) -1
    If $Spalt[$B][0] = $Spalte Then
    $Zahl = $Spalt[$B][1]
    ExitLoop
    EndIf
    Next
    While 1
    $TextAll = ""
    $Suche = _GUICtrlListView_FindInText($hWnd, $Text,$Old,False)
    If $Suche <> -1 Then
    For $1 = 0 To _GUICtrlListView_GetColumnCount($hWnd) -1
    $SucheText = _GUICtrlListView_GetItemText($hWnd, $Suche,$1)
    If $TextAll <> "" Then
    $TextAll = $TextAll & "|" & $SucheText
    Else
    $TextAll = $SucheText
    EndIf
    Next
    $sTextAll = StringSplit ($TextAll,"|")
    If $Spalte <> "" Then
    If StringInStr ($sTextAll[$Zahl],$Text) <> 0 Then
    GUICtrlCreateListViewItem($TextAll, $hWnd2)
    EndIf
    Else
    GUICtrlCreateListViewItem($TextAll, $hWnd2)
    EndIf
    Local $Old = $Suche
    Else
    ExitLoop
    EndIf
    WEnd
    GUISetState(@SW_SHOW,$hgui2)
    EndFunc
    Func _Spalten($hWnd)
    Local $Spalte,$A,$Index
    $Index = _GUICtrlListView_GetColumnOrderArray($hWnd)
    Local $Spalten[$Index[0]+1][2]
    If IsArray($Index) Then
    For $A = 1 To $Index[0]
    $Spalte = _GUICtrlListView_GetColumn($hWnd, $Index[$A])
    If $Spalten[0][0] = "" Then
    $Spalten[0][0] = $Spalte[5]
    $Spalten[$A][0] = $Spalte[5]
    $Spalten[$A][1] = $A
    Else
    $Spalten[0][0] = $Spalten[0][0] & "|" & $Spalte[5]
    $Spalten[$A][0] = $Spalte[5]
    $Spalten[$A][1] = $A
    EndIf
    Next
    Return $Spalten
    EndIf
    Return False
    EndFunc

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

    Func _sound()
    $snd = _SoundOpen("C:\WINDOWS\Media\notify.wav")
    _SoundPlay($snd)
    EndFunc

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

    Func _sound_1()
    $snd = _SoundOpen("C:\WINDOWS\Media\recycle.wav")
    _SoundPlay($snd)
    EndFunc

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

    #cs
    Func _Update()
    InetGet("http://sirocool.si.funpic.de/update/update/Adressbuch/update.txt",@TempDir & "\update.txt", 1, 0)
    $file = FileOpen(@WindowsDir & "\update.txt", 0)
    $line = FileReadLine($file, 1)
    $line2= FileReadLine($file, 2)
    If $line = $version Then
    MsgBox(64, "Kein Update", "Du hast die neuste Version: (" & $version & ")")
    FileClose($file)
    FileDelete(@TempDir & "\update.txt")
    Else
    MsgBox(64, "Update", "Es ist eine Neue Version verfügbar!")
    $fg = MsgBox(4, "Updaten", "Möchtest Sie jetzt Updaten?")
    If $fg = 6 Then
    InetGet("" & $line2, $line2, 1, 0) ; ANPASSEN
    FileClose($file)
    FileDelete(@TempDir & "\update.txt")
    Exit 0
    EndIf
    EndIf
    EndFunc
    #ce

    [/autoit]

    Versionsquellcode Timer

    Spoiler anzeigen
    [autoit]

    #cs
    ****************************************************************************************
    ****************************************************************************************
    ****************************************************************************************
    ****************
    ****************
    ********Dies ist ein Timer für das Adressbuch Version 1.0.5********
    ********Copyright: Sirocool ( http://www.autoit.de )********
    ****************
    ********Es läuft zu 100% auf Windows XP ********
    ********Es läuft zu 100% auf Windows 07 ********
    ********Alle anderen Windows Versionen sind nicht getestet!********
    ****************
    ********Mit freundlicher Mithilfe von http://www.autoit.de********
    ********Danke an alle die mir mit diesem Projekt geholfen haben.********
    ****************
    ********Bei Fragen oder Problemen, schreib mir eine PN im Forum.********
    ****************
    ****************
    ****************************************************************************************
    ****************************************************************************************
    ****************************************************************************************
    #ce
    #include <GUIConstants.au3>
    #include <ListViewConstants.au3>
    #include <GuiListView.au3>
    #include <ListViewConstants.au3>
    #include <WindowsConstants.au3>
    #include <EditConstants.au3>
    #include <StaticConstants.au3>
    #include <ButtonConstants.au3>

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

    If FileExists("") Then
    Else
    DirCreate("C:\Programme\Adressbuch\images\timer\")
    FileInstall("images\timer\timer_bg.jpg","C:\Programme\Adressbuch\images\timer\timer_bg.jpg")
    FileInstall("images\timer\mini.jpg","C:\Programme\Adressbuch\images\timer\mini.jpg")
    FileInstall("images\timer\close.jpg","C:\Programme\Adressbuch\images\timer\close.jpg")
    EndIf

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

    Dim $nCurCol= -1
    Dim $nSortDir = 1
    Dim $bSet = 0
    Dim $nCol = -1
    Dim $nr, $kalenderdaten

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

    Local $INI1 = @ScriptDir & "\data\Kalenderdaten.ini"

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

    Global $akalenderdaten = IniReadSection($INI1, "kalenderdaten")
    Global $Listview1,$hGui,$lb_kalenderdaten
    Global $lastNum1 = IniRead($INI1, "Numbers", "last", 0001)

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

    $Titel = "Timer"
    #Region ### START Koda GUI section ### Form=
    $hGui = GUICreate($Titel, 461, 161, 193, 125, $WS_POPUP)
    GUISetBkColor("images\timer\timer_bg.jpg")
    $close = GUICtrlCreatePic("images\timer\close.jpg", 441, 0, 20, 20, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $mini = GUICtrlCreatePic("images\timer\mini.jpg", 418, 0, 21, 19, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    $ListView1 = GUICtrlCreateListView("Nr|Datum|Uhrzeit|Info|Nachname|Anschrift|Aufgabe", 1, 20, 459, 140, $LVS_REPORT, $LVS_EX_GRIDLINES)
    $mnu = GUICtrlCreateContextMenu($Listview1)
    $mnu_new = GUICtrlCreateMenuItem('Termin Hinzufügen', $mnu)
    $mnu_edit = GUICtrlCreateMenuItem('Termin Bearbeiten', $mnu)
    $mnu_del = GUICtrlCreateMenuItem('Termin Löschen', $mnu)
    $Button = GUICtrlCreatePic("images\timer\timer_bg.jpg", 0, 0, 461, 161, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
    GUICtrlCreateLabel("", 0, 0, 461, 161, 0, $GUI_WS_EX_PARENTDRAG)
    GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    _FillListView()
    GUISetState(@SW_SHOW,$hGui)

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

    While 1
    $msg = GUIGetMsg(1)
    Switch $msg[1] ; Window Handle#
    Case $hGui
    Switch $msg[0] ; Event
    Case $close
    Exit
    Case $mini
    GUISetState(@SW_MINIMIZE, $hGui)
    Case $mnu_del
    $index = _GUICtrlListView_GetSelectedIndices($Listview1)
    $del_Key = _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $index, 0)
    IniDelete($INI1, "Kalenderdaten", $del_key)
    $adaten = IniReadSection($INI1, "Kalenderdaten")
    _GUICtrlListView_DeleteItemsSelected($Listview1)
    EndSwitch
    EndSwitch
    WEnd

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

    Func _FillListView()
    _GUICtrlListView_DeleteAllItems($Listview1)
    If $lastNum1 = 9999 Then Return
    For $i = 1 To UBound($akalenderdaten) - 1
    GUICtrlCreateListViewItem($akalenderdaten[$i][0] & '|' & $akalenderdaten[$i][1], $Listview1)
    Next
    EndFunc

    [/autoit]