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 ()
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
$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 ###
$check = Ping("www.autoit.de")
If @error = 0 Then
Else
MsgBox(0, "Error", "!! Achtung !! Kein Internet verfügbar!", 5)
Exit
EndIf
$s = 0
do
$s = $s + 10
sleep(1000)
guictrlsetdata($Progress1 , $s)
until $s = 100
sleep(1000)
_sound()
guisetstate(0)
Dim $nCurCol = -1
Dim $nSortDir = 1
Dim $bSet = 0
Dim $nCol = -1
Dim $nr, $aDaten,$aKalenderdaten
Dim $version = "1.0.2"
dim $Status
Local $INI = @ScriptDir & "\data\daten.ini"
Local $INI1 = @ScriptDir & "\data\Kalenderdaten.ini"
Global $aDaten = IniReadSection($INI, "daten")
Global $Listview1,$hGui,$lb_Daten
Global $lastNum = IniRead($INI, "Numbers", "last", 9999)
Global $aKalenderdaten = IniReadSection($INI1, "Kalenderdaten")
Global $Listview2,$hGui,$lb_Kalenderdaten
Global $lastNum1 = IniRead($INI1, "Numbers", "last", 0)
$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 ###
$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 ###
$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 ###
$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 ###
$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 ###
$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 ###
_FillListView()
GUISetState(@SW_SHOW, $hGui)
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
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)
$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
Func _sound()
$snd = _SoundOpen("C:\WINDOWS\Media\notify.wav")
_SoundPlay($snd)
EndFunc
Func _sound_1()
$snd = _SoundOpen("C:\WINDOWS\Media\recycle.wav")
_SoundPlay($snd)
EndFunc
#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
Versionsquellcode Timer
Spoiler anzeigen
#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>
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
Dim $nCurCol= -1
Dim $nSortDir = 1
Dim $bSet = 0
Dim $nCol = -1
Dim $nr, $kalenderdaten
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)
$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 ###
_FillListView()
GUISetState(@SW_SHOW,$hGui)
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
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