Hallo
Ich hab ja einige Serials von games und so und die setups bereits auf dem pc raufkopiert und crack beigelegt
und für jeden serial hab ich ein eigenes .doc gehabt jetzt hab ich mir gestern überlegt wie ich das ändern kann dann bin ich auf die idee gekommen das einfach in einer gui anzeigen zu lassen das ich das auch schöner hab und heute ist das script bereits fertig und stell es nun bereit
das script benötigt eine Serials.ini dort sind die Serials abgespeichert
man kann soviele Sectionen machen wie man will!
ist die ini nicht vorhanden erstellt er eine neue mit den grund informationen falls manche angaben nicht angegeben sind muss am ende trozdem die anzahl erreicht werden von | im schlüssel da das programm sonst abstürzt!
Spoiler anzeigen
;----------------------------------------------------------------------------------------------------
;----------------------------------------------------------------------------------------------------
;----------------------------------------------------------------------------------------------------
;----------------------------------------------------------------------------------------------------
;Teil01 (Allgemein)
;----------------------------------------------------------------------------------------------------
;----------------------------------------------------------------------------------------------------
Opt("CaretCoordMode", 1)
Opt("ExpandEnvStrings", 0)
Opt("ExpandVarStrings", 0)
Opt("GUICloseOnESC", 1)
Opt("GUICoordMode", 1)
Opt("GUIDataSeparatorChar", "|")
Opt("GUIOnEventMode", 0)
Opt("GUIResizeMode", 0)
Opt("GUIEventOptions", 0)
Opt("MouseClickDelay", 10)
Opt("MouseClickDownDelay", 10)
Opt("MouseClickDragDelay", 250)
Opt("MouseCoordMode", 1)
Opt("MustDeclareVars", 0)
Opt("PixelCoordMode", 1)
Opt("SendAttachMode", 0)
Opt("SendCapslockMode", 1)
Opt("SendKeyDelay", 5)
Opt("SendKeyDownDelay", 1)
Opt("TCPTimeout", 100)
Opt("TrayAutoPause", 0)
Opt("TrayIconDebug", 1)
Opt("TrayIconHide", 0)
Opt("TrayMenuMode", 0)
Opt("TrayOnEventMode", 0)
Opt("WinDetectHiddenText", 0)
Opt("WinSearchChildren", 1)
Opt("WinTextMatchMode", 1)
Opt("WinTitleMatchMode", 1)
Opt("WinWaitDelay", 250)
;----------------------------------------------------------------------------------------------------
#include <EditConstants.au3>
#Include <File.au3>
#include <GuiConstantsEx.au3>
#include <GuiListView.au3>
#include <ListviewConstants.au3>
#include <WindowsConstants.au3>
;----------------------------------------------------------------------------------------------------
$INI_Pfad_01 = @ScriptDir & "\Serials.ini"
;----------------------------------------------------------------------------------------------------
Global $GUI_01_Button_01
Global $GUI_01_Combo_01, $GUI_01_Combo_02, $GUI_01_Combo_03
Global $GUI_01_Input_01, $GUI_01_Input_02
Global $GUI_01_ListView_01
Global $GUI_01_ReadCombo_01, $GUI_01_ReadCombo_02
Global $String_Split_01, $INI_ReadSection_01
;----------------------------------------------------------------------------------------------------
;----------------------------------------------------------------------------------------------------
;----------------------------------------------------------------------------------------------------
;----------------------------------------------------------------------------------------------------
;Teil02 (Programm)
;----------------------------------------------------------------------------------------------------
;----------------------------------------------------------------------------------------------------
If FileExists ("Serials.ini") = 1 Then
Else
MsgBox (16 + 262144, "Fehler", "Die ''Serials.ini'' ist nicht Vorhanden!" & @CRLF & "''Serials.ini'' wurde erstellt" & @CRLF & "''Serials.ini'' wurde mit Informationen beschrieben!" & @CRLF & "Programm wird beendet!")
_FileCreate ($INI_Pfad_01)
IniWriteSection ($INI_Pfad_01, "Art", "", "")
IniWrite ($INI_Pfad_01, "Art", "Programmname", "Programmname - Programmversion|Serial-Info|Serial-Code|Aktivierung|Ablaufdatum|Quelle")
Exit
EndIf
$GUI_01 = GUICreate ("Serials", 800, 340, -1, -1)
$GUI_01_Combo_01 = GUICtrlCreateCombo ("", 5, 5, 790, 20, 0x0003)
$GUI_01_Combo_02 = GUICtrlCreateCombo ("", 5, 30, 790, 20, 0x0003)
$GUI_01_Combo_03 = GUICtrlCreateCombo ("", 5, 55, 790, 20, 0x0003)
$GUI_01_ListView_01 = GUICtrlCreateListView ("Programmart|Serial-Info|Serial-Code|Aktivierung|Ablaufdatum|Quelle", 5, 85, 790, 140)
$GUI_01GetHandle_ListView_01 = GUICtrlGetHandle ($GUI_01_ListView_01)
$GUI_01_Label_01 = GUICtrlCreateLabel ("Serial-Info:", 5, 232, 70, 17)
$GUI_01_Label_02 = GUICtrlCreateLabel ("Serial-Code:", 5, 257, 70, 17)
$GUI_01_Label_03 = GUICtrlCreateLabel ("Aktivierung:", 5, 282, 70, 17)
$GUI_01_Input_01 = GUICtrlCreateInput ("", 65, 230, 730, 20, 0x0800)
$GUI_01_Input_02 = GUICtrlCreateInput ("", 65, 255, 730, 20, 0x0800)
$GUI_01_Input_03 = GUICtrlCreateInput ("", 65, 280, 730, 20, 0x0800)
$GUI_01_Button_01 = GUICtrlCreateButton ("Auslesen (markierung)", 5, 305, 392, 30)
$GUI_01_Button_02 = GUICtrlCreateButton ("Exit", 402, 305, 393, 30)
_GUICtrlListView_SetColumnWidth ($GUI_01_ListView_01, 0, 130)
_GUICtrlListView_SetColumnWidth ($GUI_01_ListView_01, 1, 130)
_GUICtrlListView_SetColumnWidth ($GUI_01_ListView_01, 2, 130)
_GUICtrlListView_SetColumnWidth ($GUI_01_ListView_01, 3, 130)
_GUICtrlListView_SetColumnWidth ($GUI_01_ListView_01, 4, 130)
_GUICtrlListView_SetColumnWidth ($GUI_01_ListView_01, 5, 130)
_GUICtrlListView_RegisterSortCallBack($GUI_01_ListView_01)
GUISetState (@SW_SHOW, $GUI_01)
_Load_01 ()
While True
Switch GUIGetMsg ()
Case $GUI_EVENT_CLOSE
Exit
Case $GUI_01_Button_01
_Auslesen_01 ()
Case $GUI_01_Button_02
Exit
Case $GUI_01_Combo_01
_Combo_01 ()
Case $GUI_01_Combo_02
_Combo_02 ()
Case $GUI_01_Combo_03
_Combo_03 ()
Case $GUI_01_ListView_01
_GUICtrlListView_SortItems($GUI_01_ListView_01, GUICtrlGetState($GUI_01_ListView_01))
EndSwitch
WEnd
;----------------------------------------------------------------------------------------------------
Func _Load_01 ()
GUICtrlSetData ($GUI_01_Combo_01, "")
$INI_ReadSectionNames_01 = IniReadSectionNames ($INI_Pfad_01)
For $Anzahl_01 = 1 To $INI_ReadSectionNames_01[0] Step 1
GUICtrlSetData ($GUI_01_Combo_01, $INI_ReadSectionNames_01[$Anzahl_01])
Next
EndFunc
Func _Auslesen_01 ()
$GCLV_GIC_01 = _GUICtrlListView_GetItemCount ($GUI_01GetHandle_ListView_01)
For $Anzahl_01 = 0 To $GCLV_GIC_01 Step 1
If _GUICtrlListView_GetItemSelected ($GUI_01GetHandle_ListView_01, $Anzahl_01) = True Then
$GCLV_GIT_01 = _GUICtrlListView_GetItemText ($GUI_01GetHandle_ListView_01, $Anzahl_01, 1)
$GCLV_GIT_02 = _GUICtrlListView_GetItemText ($GUI_01GetHandle_ListView_01, $Anzahl_01, 2)
$GCLV_GIT_03 = _GUICtrlListView_GetItemText ($GUI_01GetHandle_ListView_01, $Anzahl_01, 3)
GUICtrlSetData ($GUI_01_Input_01, $GCLV_GIT_01)
GUICtrlSetData ($GUI_01_Input_02, $GCLV_GIT_02)
GUICtrlSetData ($GUI_01_Input_03, $GCLV_GIT_03)
EndIf
Next
EndFunc
Func _Combo_01 ()
_GUICtrlListView_DeleteAllItems ($GUI_01GetHandle_ListView_01)
GUICtrlSetData ($GUI_01_Input_01, "")
GUICtrlSetData ($GUI_01_Input_02, "")
GUICtrlSetData ($GUI_01_Input_03, "")
GUICtrlSetData ($GUI_01_Combo_02, "")
$INI_ReadSection_01 = IniReadSection ($INI_Pfad_01, GUICtrlRead ($GUI_01_Combo_01))
For $Anzahl_01 = 1 To $INI_ReadSection_01[0][0] Step 1
GUICtrlSetData ($GUI_01_Combo_02, $INI_ReadSection_01[$Anzahl_01][0])
Next
EndFunc
Func _Combo_02 ()
_GUICtrlListView_DeleteAllItems ($GUI_01GetHandle_ListView_01)
GUICtrlSetData ($GUI_01_Input_01, "")
GUICtrlSetData ($GUI_01_Input_02, "")
GUICtrlSetData ($GUI_01_Input_03, "")
GUICtrlSetData ($GUI_01_Combo_03, "")
$INI_ReadSection_01 = IniReadSection ($INI_Pfad_01, GUICtrlRead ($GUI_01_Combo_01))
For $Anzahl_01 = 1 To $INI_ReadSection_01[0][0] Step 1
$String_Split_01 = StringSplit ($INI_ReadSection_01[$Anzahl_01][1], "|")
If $INI_ReadSection_01[$Anzahl_01][0] = GUICtrlRead ($GUI_01_Combo_02) Then
GUICtrlSetData ($GUI_01_Combo_03, $String_Split_01[1])
EndIf
Next
EndFunc
Func _Combo_03 ()
_GUICtrlListView_DeleteAllItems ($GUI_01GetHandle_ListView_01)
GUICtrlSetData ($GUI_01_Input_01, "")
GUICtrlSetData ($GUI_01_Input_02, "")
GUICtrlSetData ($GUI_01_Input_03, "")
$INI_ReadSection_01 = IniReadSection ($INI_Pfad_01, GUICtrlRead ($GUI_01_Combo_01))
For $Anzahl_01 = 1 To $INI_ReadSection_01[0][0] Step 1
$String_Split_01 = StringSplit ($INI_ReadSection_01[$Anzahl_01][1], "|")
If $INI_ReadSection_01[$Anzahl_01][0] = GUICtrlRead ($GUI_01_Combo_02) And $String_Split_01[1] = GUICtrlRead ($GUI_01_Combo_03) Then
GUICtrlCreateListViewItem ($String_Split_01[1] & "|" & $String_Split_01[2] & "|" & $String_Split_01[3] & "|" & $String_Split_01[4] & "|" & $String_Split_01[5] & "|" & $String_Split_01[6], $GUI_01_ListView_01)
EndIf
Next
EndFunc
Spoiler anzeigen
Version:
- 0.1.1.0
Spoiler anzeigen
Updates:
Spoiler anzeigen
Download:
- 0.1.1.0 = Aktuell
Bitte um Meinungen, Update Ideen, Vorschläge, Änderungen, etc.
