[Suche] Account datenbank

NewDawn · 9. Juni 2011

Hi leute , ich such jemand der lust und zeit hätte eine account datenbank zu coden

als beispiel hab ich das ganze mal als jpg gemacht :

der sinn der sache ich möchte gern eine übersicht all meiner id's pw's proxy's usw in einem programm haben und nicht jedesmal alles per hand aufschreiben bzw in eine text datei ablegen

die spalten sollten erweiterbar sein (neue menüpunkte hinzufügbar)
die größe der spalten sollte sich dem am längsten geschrieben (zb lange charnamen) anpassen
wenn möglich sollten die spalten farblich zum hervorheben sein (wichtige zb rot , andere grün , blau etc)
es sollte autosave haben (oder bei exit druck direkt speichern)

mfg newdawn

Sro_JuNkey · 9. Juni 2011

excel? ist doch unnötig sowas zu programmieren.

**wamborambo** · 9. Juni 2011

ja ich würd dir excel oder Access empfehlen

NewDawn · 9. Juni 2011

also soll ich quasi nur für eine account datenbank excel downloaden -> instalieren und das auf jedem pc ? wobei es einfacher wär ein kleines tool zu schreiben was vieleicht 10mb groß ist und auch auf nem usb stick läuft ?

quelle vom orginal programm inklusive source

http://www.autoitscript.com/fo…c/124096-simple-database/

vieleicht ist doch jemand so lieb und würde das ding für mich umschreiben
mfg newdawn

seeenseee · 9. Juni 2011

hab mich mal dran gesetzt... ist jetzt zwar 93mb groß, aber damit kannst viel mehr sachen machen und dürfte eigentliche alles abdecken was du brauchen könntest.
kannst auch auf stick ziehen -> portable

falls ich was nicht passt, kann ich's gerne nicht änden :p
http://www.chip.de/downloads/O…ce-Portable_16743616.html

x10 · 9. Juni 2011

das kannst du auch selber schnell ändern, lad dir autoit und änder die namen, das wars doch schon^^ dann suchste noch in google wie du es fabrlich hervorheben kannst. glaub mir du lernst was udn kannst es deinen wünschen anpassen

Awesome · 9. Juni 2011

Ich weiß nicht ob Sie dir gefällt.
Sollte aber alles klappen

Spoiler anzeigen

C

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include<ButtonConstants.au3>
Global $sDBFile = @ScriptDir & "\Datenbank.txt"
Global $sHeader = "ID:|Passwort:|Email:|Charname:|Proxy IP:|Proxy ID:|Proxy PW:"
Global $iEdit = -1
$frmMain = GUICreate("Datenbank", 738, 383, -1, -1)
$Label1 = GUICtrlCreateLabel("Suchen:", 16, 16, 51, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$txtSuchen = GUICtrlCreateInput("", 88, 16, 553, 21)
GUICtrlSetBkColor(-1, 0x9DB9EB)
GUICtrlSetCursor(-1, 2)
$ListView1 = GUICtrlCreateListView($sHeader, 16, 48, 705, 297)
Global $hLVHandle = GUICtrlGetHandle($ListView1)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 4, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 5, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 6, 100)
$cmdSuchen = GUICtrlCreateButton("Suchen", 648, 16, 75, 25)
$cmdHinzu = GUICtrlCreateButton("Hinzufügen", 24, 352, 123, 25)
$cmdDelete = GUICtrlCreateButton("Löschen", 176, 352, 123, 25)
$cmdSave = GUICtrlCreateButton("Speichern", 328, 352, 123, 25)
$cmdEdit = GUICtrlCreateButton("Bearbeiten",328+152,352,123,25)
GUISetState(@SW_SHOW)
$bearbeiten = GUICreate("Bearbeiten",875,120,-1,-1)
Global $aHeader = StringSplit($sHeader, '|') ; Überschriften-Array
Global $aNew[$aHeader[0]] ; Array für die Input-IDs
For $i = 1 To $aHeader[0]
GUICtrlCreateLabel($aHeader[$i], 4 + ($i - 1) * 125, 15, 110, 20) ; Überschriften-Label erstellen
$aNew[$i - 1] = GUICtrlCreateInput("", 2 + ($i - 1) * 125, 30, 121, 21, Default, $WS_EX_STATICEDGE) ; Eingabefelder erstellen
GUICtrlSetBkColor(-1, 0xA6CAF0)
Next
Global $addNew = GUICtrlCreateButton("Eintrag speichern", 1, 65, 120, 25, $BS_DEFPUSHBUTTON) ; Button zum speichern
GUISetState(@SW_HIDE)
$frmAdd = GUICreate("Hinzufügen", 429, 180, -1, -1)
$Label1 = GUICtrlCreateLabel("ID:", 8, 8)
$txtVorname = GUICtrlCreateInput("", 64, 8, 121, 21)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$Label2 = GUICtrlCreateLabel("Passwort:", 224, 8)
$txtNachname = GUICtrlCreateInput("", 304, 8, 121, 21)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$Label3 = GUICtrlCreateLabel("Email:", 8, 48)
$txtStrasse = GUICtrlCreateInput("", 64, 48, 121, 21)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$Label4 = GUICtrlCreateLabel("Charname:", 224, 48)
$txtHausnummer = GUICtrlCreateInput("", 304, 48, 121, 21)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$Label5 = GUICtrlCreateLabel("Proxy IP:", 8, 88)
$txtPLZ = GUICtrlCreateInput("", 64, 88, 121, 21, $ES_AUTOHSCROLL)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$Label6 = GUICtrlCreateLabel("Proxy ID:", 224, 88)
$txtOrt = GUICtrlCreateInput("", 304, 88, 121, 21)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$Label7 = GUICtrlCreateLabel("Proxy PW:", 8, 128)
$txtTele = GUICtrlCreateInput("", 64, 128, 121, 21, $ES_AUTOHSCROLL)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$cmdHinzu2 = GUICtrlCreateButton("Hinzufügen", 352, 128, 75, 25, $WS_GROUP)
GUISetState(@SW_HIDE)
$irs = IniReadSection("Datenbank.ini", "Datenbank")
If Not @error Then
For $i = 0 To $irs[0][0] - 1
$read = IniRead("Datenbank.ini", "Datenbank", $i, '')
If $read <> '' Then GUICtrlCreateListViewItem($read, $ListView1)
Next
EndIf
If FileExists($sDBFile) Then Load()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $cmdHinzu
GUISetState(@SW_SHOW, $frmAdd)
Case $cmdHinzu2
$lvtext = GUICtrlRead($txtVorname) & "|" & GUICtrlRead($txtNachname) & "|" & GUICtrlRead($txtStrasse) & "|" & GUICtrlRead($txtHausnummer) & "|" & GUICtrlRead($txtPLZ) & "|" & GUICtrlRead($txtOrt) & "|" & GUICtrlRead($txtTele)
GUICtrlCreateListViewItem($lvtext, $ListView1)
GUISetState(@SW_HIDE, $frmAdd)
Case $addNew
NewItem()
Save()
Case $cmdSave
Save()
Case $cmdSuchen
$suchterm = GUICtrlRead($txtSuchen)
$gefunden = _GUICtrlListView_FindInText($ListView1, $suchterm)
_GUICtrlListView_ClickItem($ListView1, $gefunden)
Case $cmdEdit
GUISetState(@SW_SHOW, $bearbeiten)
Edit()
Case $cmdDelete
_GUICtrlListView_DeleteItemsSelected($hLVHandle)
Save()
EndSwitch
WEnd
Func Save() ; Datenbank-Datei speichern
Local $sItem
Local $iCount = _GUICtrlListView_GetItemCount($hLVHandle) - 1 ; Anzahl der Listview-Einträge holen
Local $hFile = FileOpen($sDBFile, 2) ; Datei zum speichern (überschreiben) öffnen
If $hFile <> -1 Then ; wenn das öffnen erfolgreich war, dann...
For $i = 0 To $iCount ; Schleife, um alle Listview-Einträge durchzugehen
$sItem = _GUICtrlListView_GetItemTextString($hLVHandle, $i) ; die Werte aus dem Listview-Eintrag holen
FileWriteLine($hFile, $sItem) ; und in die Datei schreiben
Next
FileClose($hFile) ; Datei schließen
EndIf
EndFunc ;==>Save
Func Load() ; Datenbank-Datei laden
Local $sItem
Local $hFile = FileOpen($sDBFile, 0) ; Datei zum lesen öffnen
If $hFile <> -1 Then ; wenn das öffnen erfolgreich war, dann...
_GUICtrlListView_BeginUpdate($hLVHandle) ; Listview sperren
While True ; Endlosschleife
$sItem = FileReadLine($hFile) ; Zeile aus der Datei lesen
If @error Then ExitLoop ; wenn das Ende der Datei erreicht ist, dann Endlosschleife verlassen
GUICtrlCreateListViewItem($sItem, $ListView1) ; mit den eingelesenen Daten einen neuen Listview-Eintrag erstellen
WEnd
_GUICtrlListView_EndUpdate($hLVHandle) ; Listview wieder freigeben
FileClose($hFile) ; Datei schließen
EndIf
EndFunc ;==>Load
Func Edit() ; Funktion zum bearbeiten eines Listview-Eintrags im "Eintrag bearbeiten"-Fenster
$iEdit = _GUICtrlListView_GetSelectionMark($hLVHandle) ; auslesen, welcher Listview-Eintrag markiert (bei mehreren, den obersten) ist
If $iEdit > -1 Then
Local $aItem = _GUICtrlListView_GetItemTextArray($hLVHandle, $iEdit) ; die Einträge aus dem Listview in ein Array holen
For $i = 1 To $aItem[0]
GUICtrlSetData($aNew[$i - 1], $aItem[$i]) ; und in die entsprechenden Eingabefelder schreiben
Next
EndIf
EndFunc ;==>Edit
Func NewItem() ; Funktion zum auslesen der Eingabefelder (Neuer Eintrag bzw. Eintrag bearbeiten)
Local $sItem = ""
For $i = 0 To UBound($aNew) - 1 ; Schleife, um alle Eingabefelder durchzugehen
If $iEdit > -1 Then ; wenn $iEdit > -1 (Eintrag bearbeiten), dann...
_GUICtrlListView_SetItemText($hLVHandle, $iEdit, GUICtrlRead($aNew[$i]), $i) ; den Eintrag aus dem Eingabefeld ins Listview schreiben
Else ; sonst $iEdit = -1 (neuer Eintrag)
$sItem &= GUICtrlRead($aNew[$i]) & "|" ; den Eintrag aus dem Eingabefeld erstmal in einer Variablen ($sItem) speichern
EndIf
GUICtrlSetData($aNew[$i], "") ; das entsprechende Eingabefeld leeren
Next
If $iEdit > -1 Then ; wenn $iEdit > -1 (Eintrag bearbeiten), dann...
$iEdit = -1
GUISetState(@SW_HIDE, $bearbeiten) ; "Neuer Eintrag"-Fenster verstecken
GUISetState(@SW_ENABLE, $frmMain) ; Hauptfenster wieder aktivieren
Sleep(300)
WinActivate($frmMain) ; und in den Vordergrund holen
Else ; sonst $iEdit = -1 (neuer Eintrag)
GUICtrlSetState($aNew[0], $GUI_FOCUS) ; den Focus wieder auf das erste Eingabefeld setzen, für weitere Eingaben
GUICtrlCreateListViewItem(StringTrimRight($sItem, 1), $ListView1) ; mit den Werten aus $sItem einen neuen Listview-Eintrag hinzufügen
EndIf
EndFunc ;==>NewItem

Alles anzeigen

Tarek · 9. Juni 2011

NewDawn schrieb:

also soll ich quasi nur für eine account datenbank excel downloaden -> instalieren und das auf jedem pc ? wobei es einfacher wär ein kleines tool zu schreiben was vieleicht 10mb groß ist und auch auf nem usb stick läuft ?

quelle vom orginal programm inklusive source

http://www.autoitscript.com/fo…c/124096-simple-database/

vieleicht ist doch jemand so lieb und würde das ding für mich umschreiben
mfg newdawn

Alles anzeigen

So ziemlich jeder Windows PC hat office vorinstalliert.

seeenseee · 9. Juni 2011

Tarek schrieb:

So ziemlich jeder Windows PC hat office vorinstalliert.

FALLS ein windows pc office vorinstalliert hat, dann ist es eine testversion, aber es ist nicht üblich, dass eine windows version automatisch office hat!

Brando · 9. Juni 2011

Tarek schrieb:

So ziemlich jeder Windows PC hat office vorinstalliert.

richtig, so ziemlich bzw. fast jeder.
Aber wenn nicht kommt er nicht an seine Passwörter.
Deshalb hat er schon recht mit seinem Tool.

S3cret · 9. Juni 2011

Ist dir die Sicherheit der Daten egal oder warum soll es AutoIt sein?
Gibt zwar mittlerweile gute Möglichkeiten soetwas zu schüzen aber für Leute die sich damit auskennen stellt es kein Problem dar an die Daten zu kommen.

NewDawn · 9. Juni 2011

da das ganze eh nur auf meinem pc's läuft und jeder benutzer pw gesichert ist ist mir das daher eigentlich mit der sicherheit egal

es geht ja nicht nur um silkroad sondern auch um zb steam accounts cabal oder andere games ist halt schön alles in einem zu haben
office habe ich leider nicht auf meinem pc (hab windows 7 extrem drako edition mit ultimate lizens ohne office )

autoit dacht ich mir weil da die ganze "basis" schon vorgecoded ist (man muss sich ja nicht mehr arbeit machen als nötig)
da ich mich aber leider nicht mit c++ bzw autoit auskenn frag ich hier

------------------------
awesom das ist genau das was ich mir vorgestellt habe , ein bug hab ich jedoch gefunden . wenn man einen eintrag bearbeitet kommt man netmehr aus dem bearbeiten fenster raus ohne das ganze prog. zu schliesen
ansonsten super thx

kann man die datenbank.txt auch direkt in C:\ speichern lassen ? (fals ja was muss ich dazu abändern)

Awesome · 9. Juni 2011

Um den Pfad der datenbank.txt zu ändern, musst du in Zeile 8 folgendes ändern:

Code

Global $sDBFile = @ScriptDir & "\Datenbank.txt"

zu z.B. für C:\Programme\Sicherheit\

Code

Global $sDBFile = "C:\Programme\Sicherheit\Datenbank.txt"

Neuer Code, sollte nun klappen das wenn man Bearbeitet, er nicht das ganze Programm schließt

Spoiler anzeigen

C

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include<ButtonConstants.au3>
Global $sDBFile = @ScriptDir & "\Datenbank.txt"
Global $sHeader = "ID:|Passwort:|Email:|Charname:|Proxy IP:|Proxy ID:|Proxy PW:"
Global $iEdit = -1
$frmMain = GUICreate("Datenbank", 738, 383, -1, -1)
$Label1 = GUICtrlCreateLabel("Suchen:", 16, 16, 51, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$txtSuchen = GUICtrlCreateInput("", 88, 16, 553, 21)
GUICtrlSetBkColor(-1, 0x9DB9EB)
GUICtrlSetCursor(-1, 2)
$ListView1 = GUICtrlCreateListView($sHeader, 16, 48, 705, 297)
Global $hLVHandle = GUICtrlGetHandle($ListView1)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 4, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 5, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 6, 100)
$cmdSuchen = GUICtrlCreateButton("Suchen", 648, 16, 75, 25)
$cmdHinzu = GUICtrlCreateButton("Hinzufügen", 24, 352, 123, 25)
$cmdDelete = GUICtrlCreateButton("Löschen", 176, 352, 123, 25)
$cmdSave = GUICtrlCreateButton("Speichern", 328, 352, 123, 25)
$cmdEdit = GUICtrlCreateButton("Bearbeiten", 328 + 152, 352, 123, 25)
GUISetState(@SW_SHOW)
$bearbeiten = GUICreate("Bearbeiten", 880, 124, -1, -1, BitOR(0x00000080, 0x00000010))
Global $aHeader = StringSplit($sHeader, '|') ; Überschriften-Array
Global $aNew[$aHeader[0]] ; Array für die Input-IDs
For $i = 1 To $aHeader[0]
GUICtrlCreateLabel($aHeader[$i], 4 + ($i - 1) * 125, 15, 110, 20) ; Überschriften-Label erstellen
$aNew[$i - 1] = GUICtrlCreateInput("", 2 + ($i - 1) * 125, 30, 121, 21, Default, $WS_EX_STATICEDGE) ; Eingabefelder erstellen
GUICtrlSetBkColor(-1, 0xA6CAF0)
Next
Global $addNew = GUICtrlCreateButton("Eintrag speichern", 1, 65, 120, 25, $BS_DEFPUSHBUTTON) ; Button zum speichern
Global $addClose = GUICtrlCreateButton("Schließen", 125, 65, 120, 25, $BS_DEFPUSHBUTTON) ; Button zum speichern
GUISetState(@SW_HIDE)
$frmAdd = GUICreate("Hinzufügen", 429, 180, -1, -1)
$Label1 = GUICtrlCreateLabel("ID:", 8, 8)
$txtVorname = GUICtrlCreateInput("", 64, 8, 121, 21)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$Label2 = GUICtrlCreateLabel("Passwort:", 224, 8)
$txtNachname = GUICtrlCreateInput("", 304, 8, 121, 21)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$Label3 = GUICtrlCreateLabel("Email:", 8, 48)
$txtStrasse = GUICtrlCreateInput("", 64, 48, 121, 21)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$Label4 = GUICtrlCreateLabel("Charname:", 224, 48)
$txtHausnummer = GUICtrlCreateInput("", 304, 48, 121, 21)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$Label5 = GUICtrlCreateLabel("Proxy IP:", 8, 88)
$txtPLZ = GUICtrlCreateInput("", 64, 88, 121, 21, $ES_AUTOHSCROLL)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$Label6 = GUICtrlCreateLabel("Proxy ID:", 224, 88)
$txtOrt = GUICtrlCreateInput("", 304, 88, 121, 21)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$Label7 = GUICtrlCreateLabel("Proxy PW:", 8, 128)
$txtTele = GUICtrlCreateInput("", 64, 128, 121, 21, $ES_AUTOHSCROLL)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$cmdHinzu2 = GUICtrlCreateButton("Hinzufügen", 352, 128, 75, 25, $WS_GROUP)
GUISetState(@SW_HIDE)
$irs = IniReadSection("Datenbank.ini", "Datenbank")
If Not @error Then
For $i = 0 To $irs[0][0] - 1
$read = IniRead("Datenbank.ini", "Datenbank", $i, '')
If $read <> '' Then GUICtrlCreateListViewItem($read, $ListView1)
Next
EndIf
If FileExists($sDBFile) Then Load()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $cmdHinzu
GUISetState(@SW_SHOW, $frmAdd)
Case $cmdHinzu2
$lvtext = GUICtrlRead($txtVorname) & "|" & GUICtrlRead($txtNachname) & "|" & GUICtrlRead($txtStrasse) & "|" & GUICtrlRead($txtHausnummer) & "|" & GUICtrlRead($txtPLZ) & "|" & GUICtrlRead($txtOrt) & "|" & GUICtrlRead($txtTele)
GUICtrlCreateListViewItem($lvtext, $ListView1)
GUISetState(@SW_HIDE, $frmAdd)
Case $addNew
NewItem()
Save()
Case $addClose
GUISetState(@SW_HIDE, $bearbeiten) ; "Neuer Eintrag"-Fenster verstecken
GUISetState(@SW_ENABLE, $frmMain) ; Hauptfenster wieder aktivieren
Sleep(300)
WinActivate($frmMain) ; und in den Vordergrund holen
Case $cmdSave
Save()
Case $cmdSuchen
$suchterm = GUICtrlRead($txtSuchen)
$gefunden = _GUICtrlListView_FindInText($ListView1, $suchterm)
_GUICtrlListView_ClickItem($ListView1, $gefunden)
Case $cmdEdit
GUISetState(@SW_SHOW, $bearbeiten)
Edit()
Case $cmdDelete
_GUICtrlListView_DeleteItemsSelected($hLVHandle)
Save()
EndSwitch
WEnd
Func Save() ; Datenbank-Datei speichern
Local $sItem
Local $iCount = _GUICtrlListView_GetItemCount($hLVHandle) - 1 ; Anzahl der Listview-Einträge holen
Local $hFile = FileOpen($sDBFile, 2) ; Datei zum speichern (überschreiben) öffnen
If $hFile <> -1 Then ; wenn das öffnen erfolgreich war, dann...
For $i = 0 To $iCount ; Schleife, um alle Listview-Einträge durchzugehen
$sItem = _GUICtrlListView_GetItemTextString($hLVHandle, $i) ; die Werte aus dem Listview-Eintrag holen
FileWriteLine($hFile, $sItem) ; und in die Datei schreiben
Next
FileClose($hFile) ; Datei schließen
EndIf
EndFunc ;==>Save
Func Load() ; Datenbank-Datei laden
Local $sItem
Local $hFile = FileOpen($sDBFile, 0) ; Datei zum lesen öffnen
If $hFile <> -1 Then ; wenn das öffnen erfolgreich war, dann...
_GUICtrlListView_BeginUpdate($hLVHandle) ; Listview sperren
While True ; Endlosschleife
$sItem = FileReadLine($hFile) ; Zeile aus der Datei lesen
If @error Then ExitLoop ; wenn das Ende der Datei erreicht ist, dann Endlosschleife verlassen
GUICtrlCreateListViewItem($sItem, $ListView1) ; mit den eingelesenen Daten einen neuen Listview-Eintrag erstellen
WEnd
_GUICtrlListView_EndUpdate($hLVHandle) ; Listview wieder freigeben
FileClose($hFile) ; Datei schließen
EndIf
EndFunc ;==>Load
Func Edit() ; Funktion zum bearbeiten eines Listview-Eintrags im "Eintrag bearbeiten"-Fenster
$iEdit = _GUICtrlListView_GetSelectionMark($hLVHandle) ; auslesen, welcher Listview-Eintrag markiert (bei mehreren, den obersten) ist
If $iEdit > -1 Then
Local $aItem = _GUICtrlListView_GetItemTextArray($hLVHandle, $iEdit) ; die Einträge aus dem Listview in ein Array holen
For $i = 1 To $aItem[0]
GUICtrlSetData($aNew[$i - 1], $aItem[$i]) ; und in die entsprechenden Eingabefelder schreiben
Next
EndIf
EndFunc ;==>Edit
Func NewItem() ; Funktion zum auslesen der Eingabefelder (Neuer Eintrag bzw. Eintrag bearbeiten)
Local $sItem = ""
For $i = 0 To UBound($aNew) - 1 ; Schleife, um alle Eingabefelder durchzugehen
If $iEdit > -1 Then ; wenn $iEdit > -1 (Eintrag bearbeiten), dann...
_GUICtrlListView_SetItemText($hLVHandle, $iEdit, GUICtrlRead($aNew[$i]), $i) ; den Eintrag aus dem Eingabefeld ins Listview schreiben
Else ; sonst $iEdit = -1 (neuer Eintrag)
$sItem &= GUICtrlRead($aNew[$i]) & "|" ; den Eintrag aus dem Eingabefeld erstmal in einer Variablen ($sItem) speichern
EndIf
GUICtrlSetData($aNew[$i], "") ; das entsprechende Eingabefeld leeren
Next
If $iEdit > -1 Then ; wenn $iEdit > -1 (Eintrag bearbeiten), dann...
$iEdit = -1
GUISetState(@SW_HIDE, $bearbeiten) ; "Neuer Eintrag"-Fenster verstecken
GUISetState(@SW_ENABLE, $frmMain) ; Hauptfenster wieder aktivieren
Sleep(300)
WinActivate($frmMain) ; und in den Vordergrund holen
Else ; sonst $iEdit = -1 (neuer Eintrag)
GUICtrlSetState($aNew[0], $GUI_FOCUS) ; den Focus wieder auf das erste Eingabefeld setzen, für weitere Eingaben
GUICtrlCreateListViewItem(StringTrimRight($sItem, 1), $ListView1) ; mit den Werten aus $sItem einen neuen Listview-Eintrag hinzufügen
EndIf
EndFunc ;==>NewItem

Alles anzeigen

Awesome · 10. Juni 2011

close.

Wenns wieder geöffnet werden soll eine PN an mich.

Awesome

Teilen