Originally Posted by selman99
Ich habe aber das System verändert D:
Ist nun viel einfacher geworden.
old
Code:
$count_effect = 0
$count_id = 0
If (GUICtrlRead($PS) = 1) Then
IniWrite(@WindowsDir & "\IDChanger.ini", "ID", "0_old", "2000001")
IniWrite(@WindowsDir & "\IDChanger.ini", "ID", "0_new", "2000008")
IniWrite(@WindowsDir & "\IDChanger.ini", "Effect", "0_old", "20101")
IniWrite(@WindowsDir & "\IDChanger.ini", "Effect", "0_new", "20107")
$count_effect = 1
$count_id = 1
EndIf
If (GUICtrlRead($PS) = 4) Then
IniWrite(@WindowsDir & "\IDChanger.ini", "ID", "0_old", "1")
IniWrite(@WindowsDir & "\IDChanger.ini", "ID", "0_new", "1")
IniWrite(@WindowsDir & "\IDChanger.ini", "Effect", "0_old", "1")
IniWrite(@WindowsDir & "\IDChanger.ini", "Effect", "0_new", "1")
EndIf
If (GUICtrlRead($CS) = 1) Then
IniWrite(@WindowsDir & "\IDChanger.ini", "ID", "1_old", "2000002")
IniWrite(@WindowsDir & "\IDChanger.ini", "ID", "1_new", "2000009")
IniWrite(@WindowsDir & "\IDChanger.ini", "Effect", "1_old", "20201")
IniWrite(@WindowsDir & "\IDChanger.ini", "Effect", "1_new", "20207")
$count_effect = 2
$count_id = 2
EndIf
If (GUICtrlRead($CS) = 4) Then
IniWrite(@WindowsDir & "\IDChanger.ini", "ID", "1_old", "1")
IniWrite(@WindowsDir & "\IDChanger.ini", "ID", "1_new", "1")
IniWrite(@WindowsDir & "\IDChanger.ini", "Effect", "1_old", "1")
IniWrite(@WindowsDir & "\IDChanger.ini", "Effect", "1_new", "1")
EndIf
Code:
Func SetIds()
Start("IDChanger.ini")
Set("2000001","2000008",$PS,2,"20101","20107")
Set("2000002","2000009",$CS,2,"20201","20207")
End()
MsgBox(0, "Successfully changed", "The Options got saved", 2)
EndFunc ;==>
Code:
$File = ""
$Count_Ids = 0
$Count_Effects = 0
func Start($iniFile)
$File = $iniFile
FileDelete($File)
FileDelete("IDChanger.log")
FileWrite("IDChanger.log","Started to write the IDs")
EndFunc
func End()
IniWrite($File, "Effect", "Count",$Count_Effects)
IniWrite($File, "ID", "Count",$Count_Ids)
IniWrite($File, "Global", "Changed", "1")
IniWrite($File, "Global", "Autostart", "1")
FileWrite("IDChanger.log",@CRLF&"Ended up")
EndFunc
func Set($id_old,$id_new,$hCheckbox,$isEffect,$id_old2=0,$id_new2=0)
If GUICtrlRead($hCheckbox) = 1 Then
If $isEffect = 0 Then
AddId($id_new,$id_old)
FileWrite("IDChanger.log",@CRLF&"Mode 0 : "&$id_new& " -> "&$id_old)
Elseif $isEffect = 1 Then
AddEffect($id_new,$id_old)
FileWrite("IDChanger.log",@CRLF&"Mode 1 : "&$id_new& " -> "&$id_old)
Else
AddId($id_new,$id_old)
AddEffect($id_new2,$id_old2)
FileWrite("IDChanger.log",@CRLF&"Mode 2 : "&$id_new& " -> "&$id_old&@CRLF&$id_new& " -> "&$id_old)
endif
Else
FileWrite("IDChanger.log",@CRLF&"Delele")
RemoveId()
RemoveEffect()
EndIf
EndFunc
func AddId($oldid,$newid)
IniWrite($File, "ID",$Count_Ids&"_old", $oldid)
IniWrite($File, "ID",$Count_Ids&"_new", $newid)
$Count_Ids += 1
EndFunc
func AddEffect($oldeffect,$neweffect)
IniWrite($File, "Effect",$Count_Effects&"_old",$oldeffect)
IniWrite($File, "Effect",$Count_Effects&"_new",$neweffect)
$Count_Effects += 1
EndFunc
func RemoveId()
IniWrite($File, "ID",$Count_Ids&"_old", "1")
IniWrite($File, "ID",$Count_Ids&"_new", "1")
EndFunc
func RemoveEffect()
IniWrite($File, "Effect",$Count_Effects&"_old","1")
IniWrite($File, "Effect",$Count_Effects&"_new","1")
EndFunc
|