API tools faq
paste
Advertisement
Guest User

Untitled

a guest
May 22nd, 2017
106
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 34.74 KB | None | 0 0
raw download clone embed print report
  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ;;                                                     ;;
  3. ;; xfire_games.ini for non-steam player                ;;
  4. ;;                                   by unlmtd.        ;;
  5. ;;                                                     ;;
  6. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  7.  
  8. #NoTrayIcon
  9.  
  10. #include <ButtonConstants.au3>
  11. #include <GUIConstantsEx.au3>
  12. #include <GUIListBox.au3>
  13. #include <GuiComboBox.au3>
  14. #include <GuiStatusBar.au3>
  15. #include <StaticConstants.au3>
  16. #include <WindowsConstants.au3>
  17. #Include <GuiButton.au3>
  18. #include <ComboConstants.au3>
  19.  
  20.  
  21. $ver = "v1.22"
  22.  
  23. If @OSArch = "X86" Then
  24.  
  25.     global $xfire = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Xfire","")
  26.     global $Data = RegRead("HKEY_CLASSES_ROOT\VirtualStore\MACHINE\SOFTWARE\Xfire","CommonDataPath")
  27.     global $Dir = RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\CHANGER\x86", "Dir" , "REG_SZ" , @ScriptDir)
  28.  
  29. ElseIf @OSArch = "X64" Then
  30.  
  31.     global $xfire = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Xfire","")
  32.     global $Data = RegRead("HKEY_CLASSES_ROOT\VirtualStore\MACHINE\SOFTWARE\Wow6432Node\Xfire","CommonDataPath")
  33.     global $Dir = RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\CHANGER\x64", "Dir" , "REG_SZ" , @ScriptDir)
  34.  
  35. Else
  36.  
  37.     Exit
  38.  
  39. EndIf
  40.  
  41. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  42. #Region ## Anfang der FTP-Funktion ##
  43. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  44. Func ftp($ftp_adress,$ftp_login,$ftp_pw,$ftp_type,$ftp_action,$ftp_localfile,$ftp_remotefile)
  45.     FileDelete( @AppDataDir & "\xfire\Change.txt")
  46.     FileWriteLine( @AppDataDir & "\Xfire\Change.txt", $ftp_login)
  47.     FileWriteLine( @AppDataDir & "\Xfire\Change.txt", $ftp_pw)
  48.     FileWriteLine( @AppDataDir & "\Xfire\Change.txt", $ftp_type)
  49.     If $ftp_action = "put" Then
  50.         FileWriteLine( @AppDataDir & "\Xfire\Change.txt", "put "&$ftp_localfile&" "&$ftp_remotefile)
  51.     Elseif $ftp_action = "get" Then
  52.         FileWriteLine( @AppDataDir & "\Xfire\Change.txt", "get "&$ftp_remotefile&" "&$ftp_localfile)
  53.     Else
  54.         MsgBox(64,"Fehler","FTP-Befehl nicht definiert.")
  55.     EndIf
  56.     FileWriteLine( @AppDataDir & "\Xfire\Change.txt", "bye")
  57.     ProcessClose("ftp.exe")
  58.     ProcessWaitClose("ftp.exe")
  59.     ShellExecute("ftp","-s:"&@AppDataDir&"\Xfire\Change.txt "&$ftp_adress,"","open",@SW_HIDE)
  60.     ProcessWaitClose("ftp.exe")
  61.     FileDelete( @AppDataDir & "\Xfire\Change.txt")
  62. EndFunc
  63. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  64. #EndRegion ## Anfang der FTP-Funktion ##
  65. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  66.  
  67. #Region ### START Koda GUI section ### Form=
  68.  
  69. $Form1 = GUICreate("Changer by unlmtd  " & $ver, 618, 411, 297, 125)
  70. $Reset = GUICtrlCreateButton("Reset", 320, 240, 131, 65, $WS_GROUP)
  71. GUICtrlSetFont(-1, 10, 400, 0, "Arial")
  72. GUICtrlSetCursor (-1, 0)
  73. $Update = GUICtrlCreateButton("Update!", 472, 240, 131, 65, $WS_GROUP)
  74. GUICtrlSetFont(-1, 10, 400, 0, "Arial")
  75. GUICtrlSetCursor (-1, 0)
  76. $Restart = GUICtrlCreateButton("Xfire Neustart", 168, 240, 131, 65, $WS_GROUP)
  77. GUICtrlSetFont(-1, 10, 400, 0, "Arial")
  78. GUICtrlSetCursor (-1, 0)
  79. $Sicherung = GUICtrlCreateButton("INI sichern", 16, 240, 131, 65, $WS_GROUP)
  80. GUICtrlSetFont(-1, 10, 400, 0, "Arial")
  81. GUICtrlSetCursor (-1, 0)
  82. $Label1 = GUICtrlCreateLabel("unlmtd.'s xfire_games.ini-Changer  " & $ver, 16, 16, 595, 49)
  83. GUICtrlSetFont(-1, 25, 400, 0, "Arial")
  84. $Umschreiben = GUICtrlCreateButton("Umschreiben...", 16, 112, 587, 57, $WS_GROUP)
  85. GUICtrlSetFont(-1, 10, 400, 0, "Arial")
  86. GUICtrlSetCursor (-1, 0)
  87. $StatusBar1 = _GUICtrlStatusBar_Create($Form1)
  88. StatusbarGetText("Changer.exe", "Zuerst die INI sichern!")
  89. $List1 = GUICtrlCreateCombo("", 16, 80, 585, 25, $CBS_DROPDOWNLIST, $CBS_DROPDOWN)
  90. GUICtrlSetFont(-1, 10, 400, 0, "Arial")
  91. GUICtrlSetData($List1, "Half-Life 2|Half-Life 2: Episode One|Half-Life 2: Episode Two|Half-Life 2: Synergy|Counter-Strike: Source|Counter-Strike 1.6|Team Fortress 2|Killing Floor|Left 4 Dead|Left 4 Dead 2|Garry's Mod|Just Cause 2|Saints Row 2|Serious Sam HD: First Encounter|Empire: Total War|Napoleon: Total War|Portal|Day of Defeat: Source|Age of Chivalry|Zombie Panic! Source|D.I.P.R.I.P. Warm Up|Dystopia" , "Half-Life 2")
  92. $Check = GUICtrlCreateButton("Check", 16, 176, 587, 57, $WS_GROUP)
  93. GUICtrlSetFont(-1, 10, 400, 0, "Arial")
  94. GUICtrlSetCursor (-1, 0)
  95. $Config = GUICtrlCreateButton("Eigene Konfigurationen...", 16, 320, 587, 57, $WS_GROUP)
  96. GUICtrlSetFont(-1, 10, 400, 0, "Arial")
  97. GUICtrlSetCursor (-1, 0)
  98. GUICtrlSetState($List1 , $GUI_DISABLE)
  99. GUICtrlSetState($Config , $GUI_DISABLE)
  100. GUICtrlSetState($Umschreiben , $GUI_DISABLE)
  101. GUISetState(@SW_SHOW)
  102. #EndRegion ### END Koda GUI section ###
  103.  
  104. If ProcessExists ("CH_Update") Then
  105.     ProcessClose ("CH_Update")
  106. EndIf
  107.  
  108. While (1)
  109.     $msg = GUIGetMsg()
  110. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  111.     If GUICtrlRead($List1) = "Half-Life 2" Then
  112.         global $game = "HL2"
  113.         global $ini1 = "4357"
  114.     EndIf
  115.     If GUICtrlRead($List1) = "Half-Life 2: Episode One" Then
  116.         global $game = "HL2EP1"
  117.         global $ini1 = "4822"
  118.     EndIf
  119.     If GUICtrlRead($List1) = "Half-Life 2: Episode Two" Then
  120.         global $game = "HL2EP2"
  121.         global $ini1 = "5154"
  122.     EndIf
  123.     If GUICtrlRead($List1) = "Half-Life 2: Synergy" Then
  124.         global $game = "HL2S"
  125.         global $ini1 = "5354"
  126.         global $ini_1 = "5354_1"
  127.         global $ini_2 = "5354_2"
  128.     EndIf
  129.     If GUICtrlRead($List1) = "Counter-Strike: Source" Then
  130.         global $game = "CSS"
  131.         global $ini1 = "4331"
  132.     EndIf
  133.     If GUICtrlRead($List1) = "Counter-Strike 1.6" Then
  134.         global $game = "CS16"
  135.         global $ini1 = "5"
  136.     EndIf
  137.     If GUICtrlRead($List1) = "Team Fortress 2" Then
  138.         global $game = "TF2"
  139.         global $ini1 = "5134"
  140.     EndIf
  141.     If GUICtrlRead($List1) = "Killing Floor" Then
  142.         global $game = "KF"
  143.         global $ini1 = "5804"
  144.     EndIf
  145.     If GUICtrlRead($List1) = "Left 4 Dead" Then
  146.         global $game = "L4D"
  147.         global $ini1 = "5633"
  148.     EndIf
  149.     If GUICtrlRead($List1) = "Left 4 Dead 2" Then
  150.         global $game = "L4D2"
  151.         global $ini1 = "6003"
  152.     EndIf
  153.     If GUICtrlRead($List1) = "Garry's Mod" Then
  154.         global $game = "gmod"
  155.         global $ini1 = "4593"
  156.         global $ini_1 = "4593_1"
  157.         global $ini_2 = "4593_2"
  158.         global $ini_3 = "4593_3"
  159.     EndIf
  160.     If GUICtrlRead($List1) = "Just Cause 2" Then
  161.         global $game = "JC2"
  162.         global $ini1 = "6172"
  163.     EndIf
  164.     If GUICtrlRead($List1) = "Saints Row 2" Then
  165.         global $game = "SR2"
  166.         global $ini1 = "5677"
  167.     EndIf
  168.     If GUICtrlRead($List1) = "Serious Sam HD: First Encounter" Then
  169.         global $game = "SSHD1"
  170.         global $ini1 = "6018"
  171.     EndIf
  172.     If GUICtrlRead($List1) = "Empire: Total War" Then
  173.         global $game = "ETW"
  174.         global $ini1 = "5730"
  175.     EndIf
  176.     If GUICtrlRead($List1) = "Napoleon: Total War" Then
  177.         global $game = "NTW"
  178.         global $ini1 = "6121"
  179.     EndIf
  180.     If GUICtrlRead($List1) = "Portal" Then
  181.         global $game = "PO"
  182.         global $ini1 = "5153"
  183.     EndIf
  184.     If GUICtrlRead($List1) = "Day of Defeat: Source" Then
  185.         global $game = "DOD"
  186.         global $ini1 = "4653"
  187.     EndIf
  188.     If GUICtrlRead($List1) = "Age of Chivalry" Then
  189.         global $game = "AOC"
  190.         global $ini1 = "5573"
  191.     EndIf
  192.     If GUICtrlRead($List1) = "Zombie Panic! Source" Then
  193.         global $game = "ZPS"
  194.         global $ini1 = "5574"
  195.     EndIf
  196.     If GUICtrlRead($List1) = "D.I.P.R.I.P. Warm Up" Then
  197.         global $game = "DIP"
  198.         global $ini1 = "5575"
  199.     EndIf
  200.     If GUICtrlRead($List1) = "Dystopia" Then
  201.         global $game = "DD"
  202.         global $ini1 = "4634"
  203.         global $ini_1 = "4634_1"
  204.         global $ini_2 = "4634_2"
  205.     EndIf
  206. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  207. Select
  208.     Case $msg = $GUI_EVENT_CLOSE
  209.             Exit
  210.     Case $msg = $Umschreiben
  211.         game()
  212.     Case $msg = $Update
  213.         update()
  214.     Case $msg = $Reset
  215.         reset()
  216.     Case $msg = $Restart
  217.         restart()
  218.     Case $msg = $Sicherung
  219.         save()
  220.     Case $msg = $Check
  221.         check()
  222.     Case $msg = $Config
  223.         $msg = MsgBox (36, "Warnung" , "Dieser Teil der Anwendung wurde noch nicht getestet und kann unter Umständen die xfire_games.ini zerstören! Fortfahren?")
  224.         If $msg = 6 Then
  225.             config()
  226.         EndIf
  227. EndSelect
  228. WEnd
  229. Exit
  230.  
  231.  
  232. Func game()
  233.  
  234.  
  235.  
  236.         If $game = "HL2" Then
  237.             $msg = MsgBox (36, GUICtrlRead($List1), "Wollen sie die Daten ändern?")
  238.                 if $msg = 6 Then
  239.                         $var = IniWrite( $Data & "\xfire_games.ini", "4357", "LauncherDirKey", "HKEY_LOCAL_MACHINE\SOFTWARE\InstallPath")
  240.                         $var = IniWrite( $Data & "\xfire_games.ini", "4357", "LauncherExe", "HL2.exe")
  241.                         $var = IniWrite( $Data & "\xfire_games.ini", "4357", "DetectExe", "HL2.exe")
  242.                         $var = IniDelete( $Data & "\xfire_games.ini", "4357", "InstallHint")
  243.                             $msg = MsgBox (36, GUICtrlRead($List1) & " - Erfolg" , "Die .ini wurde umgeschrieben! Verzeichnis für xfire wählen?")
  244.                                 If $msg = 6 Then
  245.                                     Verzeichnis()
  246.                                 Endif
  247.  
  248.                 EndIf
  249.         ElseIf $game = "HL2EP1" Then
  250.                 $msg = MsgBox (36, GUICtrlRead($List1), "Wollen sie die Daten ändern?")
  251.                 if $msg = 6 Then
  252.                         $var = IniWrite("C:\ProgramData\Xfire\xfire_games.ini", "4822", "LauncherDirKey", "HKEY_LOCAL_MACHINE\SOFTWARE\InstallPath")
  253.                         $var = IniWrite("C:\ProgramData\Xfire\xfire_games.ini", "4822", "LauncherExe", "HL2.exe")
  254.                         $var = IniWrite("C:\ProgramData\Xfire\xfire_games.ini", "4822", "DetectExe", "HL2.exe")
  255.                         $var = IniDelete( $Data & "\xfire_games.ini", "4822", "InstallHint")
  256.                             $msg = MsgBox (36, GUICtrlRead($List1) & " - Erfolg" , "Die .ini wurde umgeschrieben! Verzeichnis für xfire wählen?")
  257.                                 If $msg = 6 Then
  258.                                     Verzeichnis()
  259.                                 Endif
  260.                 EndIf
  261.         ElseIf $game = "HL2EP2" Then
  262.                 $msg = MsgBox (36, GUICtrlRead($List1), "Wollen sie die Daten ändern?")
  263.                 if $msg = 6 Then
  264.                         $var = IniWrite("C:\ProgramData\Xfire\xfire_games.ini", "5154", "LauncherDirKey", "HKEY_LOCAL_MACHINE\SOFTWARE\InstallPath")
  265.                         $var = IniWrite("C:\ProgramData\Xfire\xfire_games.ini", "5154", "LauncherExe", "HL2.exe")
  266.                         $var = IniWrite("C:\ProgramData\Xfire\xfire_games.ini", "5154", "DetectExe", "HL2.exe")
  267.                         $var = IniDelete( $Data & "\xfire_games.ini", "5154", "InstallHint")
  268.                             $msg = MsgBox (36, GUICtrlRead($List1) & " - Erfolg" , "Die .ini wurde umgeschrieben! Verzeichnis für xfire wählen?")
  269.                                 If $msg = 6 Then
  270.                                     Verzeichnis()
  271.                                 Endif
  272.                 EndIf
  273.         ElseIf $game = "HL2S" Then
  274.                 $msg = MsgBox (36, GUICtrlRead($List1), "Wollen sie die Daten ändern?")
  275.                 if $msg = 6 Then
  276.                         $var = IniWrite( $Data & "\xfire_games.ini", "5354_1", "LauncherDirKey", "HKEY_LOCAL_MACHINE\SOFTWARE\InstallPath")
  277.                         $var = IniWrite( $Data & "\xfire_games.ini", "5354_1", "LauncherExe", "HL2.exe")
  278.                         $var = IniWrite( $Data & "\xfire_games.ini", "5354_1", "DetectExe", "HL2.exe")
  279.                         $var = IniDelete( $Data & "\xfire_games.ini", "5354_1", "InstallHint")
  280.                         $var = IniDelete( $Data & "\xfire_games.ini", "5354_1", "CommandLineMustContain[0]")
  281.                         $var = IniWrite( $Data & "\xfire_games.ini", "5354_2", "LauncherDirKey", "HKEY_LOCAL_MACHINE\SOFTWARE\InstallPath")
  282.                         $var = IniWrite( $Data & "\xfire_games.ini", "5354_2", "LauncherExe", "HL2.exe")
  283.                         $var = IniWrite( $Data & "\xfire_games.ini", "5354_2", "DetectExe", "HL2.exe")
  284.                         $var = IniDelete( $Data & "\xfire_games.ini", "5354_2", "InstallHint")
  285.                             $msg = MsgBox (36, GUICtrlRead($List1) & " - Erfolg" , "Die .ini wurde umgeschrieben! Verzeichnis für xfire wählen?")
  286.                                 If $msg = 6 Then
  287.                                     Verzeichnis()
  288.                                 Endif
  289.                 EndIf
  290.         ElseIf $game = "CSS" Then
  291.                 $msg = MsgBox (36, GUICtrlRead($List1), "Wollen sie die Daten ändern?")
  292.                 if $msg = 6 Then
  293.                         $var = IniWrite("C:\ProgramData\Xfire\xfire_games.ini", "4331", "LauncherDirKey", "HKEY_LOCAL_MACHINE\SOFTWARE\InstallPath")
  294.                         $var = IniWrite("C:\ProgramData\Xfire\xfire_games.ini", "4331", "LauncherExe", "hl2.exe")
  295.                         $var = IniWrite("C:\ProgramData\Xfire\xfire_games.ini", "4331", "DetectExe", "hl2.exe")
  296.                         $var = IniDelete( $Data & "\xfire_games.ini", "4331", "InstallHint")
  297.                             $msg = MsgBox (36, GUICtrlRead($List1) & " - Erfolg" , "Die .ini wurde umgeschrieben! Verzeichnis für xfire wählen?")
  298.                                 If $msg = 6 Then
  299.                                     Verzeichnis()
  300.                                 Endif
  301.                 EndIf
  302.         ElseIf $game = "CS16" Then
  303.                 $msg = MsgBox (36, GUICtrlRead($List1), "Wollen sie die Daten ändern?")
  304.                 if $msg = 6 Then
  305.                         $var = IniWrite("C:\ProgramData\Xfire\xfire_games.ini", "5", "LauncherDirKey", "HKEY_LOCAL_MACHINE\SOFTWARE\InstallPath")
  306.                         $var = IniWrite("C:\ProgramData\Xfire\xfire_games.ini", "5", "LauncherExe", "hl.exe")
  307.                         $var = IniWrite("C:\ProgramData\Xfire\xfire_games.ini", "5", "DetectExe", "hl.exe")
  308.                         $var = IniDelete( $Data & "\xfire_games.ini", "5", "InstallHint")
  309.                             $msg = MsgBox (36, GUICtrlRead($List1) & " - Erfolg" , "Die .ini wurde umgeschrieben! Verzeichnis für xfire wählen?")
  310.                                 If $msg = 6 Then
  311.                                     Verzeichnis()
  312.                                 Endif
  313.                 EndIf
  314.         ElseIf $game = "TF2" Then
  315.                 $msg = MsgBox (36, GUICtrlRead($List1), "Wollen sie die Daten ändern?")
  316.                 if $msg = 6 Then
  317.                         $var = IniWrite("C:\ProgramData\Xfire\xfire_games.ini", "5134", "LauncherDirKey", "HKEY_LOCAL_MACHINE\SOFTWARE\InstallPath")
  318.                         $var = IniWrite("C:\ProgramData\Xfire\xfire_games.ini", "5134", "LauncherExe", "hl2.exe")
  319.                         $var = IniWrite("C:\ProgramData\Xfire\xfire_games.ini", "5134", "DetectExe", "hl2.exe")
  320.                         $var = IniDelete( $Data & "\xfire_games.ini", "5134", "InstallHint")
  321.                             $msg = MsgBox (36, GUICtrlRead($List1) & " - Erfolg" , "Die .ini wurde umgeschrieben! Verzeichnis für xfire wählen?")
  322.                                 If $msg = 6 Then
  323.                                     Verzeichnis()
  324.                                 Endif
  325.                 EndIf
  326.         ElseIf $game = "KF" Then
  327.                 $msg = MsgBox (36, GUICtrlRead($List1), "Wollen sie die Daten ändern?")
  328.                 if $msg = 6 Then
  329.                         $var = IniWrite("C:\ProgramData\Xfire\xfire_games.ini", "5804", "LauncherDirKey", "HKEY_LOCAL_MACHINE\SOFTWARE\InstallPath")
  330.                         $var = IniWrite("C:\ProgramData\Xfire\xfire_games.ini", "5804", "LauncherExe", "KillingFloor.exe")
  331.                         $var = IniWrite("C:\ProgramData\Xfire\xfire_games.ini", "5804", "DetectExe", "KillingFloor.exe")
  332.                         $var = IniDelete( $Data & "\xfire_games.ini", "5804", "InstallHint")
  333.                             $msg = MsgBox (36, GUICtrlRead($List1) & " - Erfolg" , "Die .ini wurde umgeschrieben! Verzeichnis für xfire wählen?")
  334.                                 If $msg = 6 Then
  335.                                     Verzeichnis()
  336.                                 Endif
  337.                 EndIf
  338.         ElseIf $game = "L4D" Then
  339.                 $msg = MsgBox (36, GUICtrlRead($List1), "Wollen sie die Daten ändern?")
  340.                 if $msg = 6 Then
  341.                         $var = IniWrite("C:\ProgramData\Xfire\xfire_games.ini", "5633", "LauncherDirKey", "HKEY_LOCAL_MACHINE\SOFTWARE\InstallPath")
  342.                         $var = IniWrite("C:\ProgramData\Xfire\xfire_games.ini", "5633", "LauncherExe", "left4dead.exe")
  343.                         $var = IniWrite("C:\ProgramData\Xfire\xfire_games.ini", "5633", "DetectExe", "left4dead.exe")
  344.                         $var = IniDelete( $Data & "\xfire_games.ini", "5633", "InstallHint")
  345.                             $msg = MsgBox (36, GUICtrlRead($List1) & " - Erfolg" , "Die .ini wurde umgeschrieben! Verzeichnis für xfire wählen?")
  346.                                 If $msg = 6 Then
  347.                                     Verzeichnis()
  348.                                 Endif
  349.                 EndIf
  350.         ElseIf $game = "L4D2" Then
  351.                 $msg = MsgBox (36, GUICtrlRead($List1), "Wollen sie die Daten ändern?")
  352.                 if $msg = 6 Then
  353.                         $var = IniWrite("C:\ProgramData\Xfire\xfire_games.ini", "6003", "LauncherDirKey", "HKEY_LOCAL_MACHINE\SOFTWARE\InstallPath")
  354.                         $var = IniWrite("C:\ProgramData\Xfire\xfire_games.ini", "6003", "LauncherExe", "left4dead2.exe")
  355.                         $var = IniWrite("C:\ProgramData\Xfire\xfire_games.ini", "6003", "DetectExe", "left4dead2.exe")
  356.                         $var = IniDelete( $Data & "\xfire_games.ini", "6003", "InstallHint")
  357.                             $msg = MsgBox (36, GUICtrlRead($List1) & " - Erfolg" , "Die .ini wurde umgeschrieben! Verzeichnis für xfire wählen?")
  358.                                 If $msg = 6 Then
  359.                                     Verzeichnis()
  360.                                 Endif
  361.                 EndIf
  362.         ElseIf $game = "gmod" Then
  363.                 $msg = MsgBox (36, GUICtrlRead($List1), "Wollen sie die Daten ändern?")
  364.                 if $msg = 6 Then
  365.                         $var = IniWrite("C:\ProgramData\Xfire\xfire_games.ini", "4593_1", "LauncherDirKey", "HKEY_LOCAL_MACHINE\SOFTWARE\InstallPath")
  366.                         $var = IniWrite("C:\ProgramData\Xfire\xfire_games.ini", "4593_1", "LauncherExe", "Launcher.exe")
  367.                         $var = IniWrite("C:\ProgramData\Xfire\xfire_games.ini", "4593_1", "DetectExe", "HL2.exe")
  368.                         $var = IniDelete( $Data & "\xfire_games.ini", "4593_1", "InstallHint")
  369.                         $var = IniWrite("C:\ProgramData\Xfire\xfire_games.ini", "4593_2", "LauncherDirKey", "HKEY_LOCAL_MACHINE\SOFTWARE\InstallPath")
  370.                         $var = IniWrite("C:\ProgramData\Xfire\xfire_games.ini", "4593_2", "LauncherExe", "Launcher.exe")
  371.                         $var = IniWrite("C:\ProgramData\Xfire\xfire_games.ini", "4593_2", "DetectExe", "HL2.exe")
  372.                         $var = IniDelete( $Data & "\xfire_games.ini", "4593_2", "InstallHint")
  373.                         $var = IniWrite("C:\ProgramData\Xfire\xfire_games.ini", "4593_3", "LauncherDirKey", "HKEY_LOCAL_MACHINE\SOFTWARE\InstallPath")
  374.                         $var = IniWrite("C:\ProgramData\Xfire\xfire_games.ini", "4593_3", "LauncherExe", "Launcher.exe")
  375.                         $var = IniWrite("C:\ProgramData\Xfire\xfire_games.ini", "4593_3", "DetectExe", "HL2.exe")
  376.                         $var = IniDelete( $Data & "\xfire_games.ini", "4593_3", "InstallHint")
  377.                             $msg = MsgBox (36, GUICtrlRead($List1) & " - Erfolg" , "Die .ini wurde umgeschrieben! Verzeichnis für xfire wählen?")
  378.                                 If $msg = 6 Then
  379.                                     Verzeichnis()
  380.                                 Endif
  381.                 EndIf
  382.         ElseIf $game = "JC2" Then
  383.                 $msg = MsgBox (36, GUICtrlRead($List1), "Wollen sie die Daten ändern?")
  384.                 if $msg = 6 Then
  385.                         $var = IniWrite("C:\ProgramData\Xfire\xfire_games.ini", "6172", "LauncherDirKey", "HKEY_LOCAL_MACHINE\SOFTWARE\InstallPath")
  386.                         $var = IniWrite("C:\ProgramData\Xfire\xfire_games.ini", "6172", "LauncherExe", "JustCause2.exe")
  387.                         $var = IniWrite("C:\ProgramData\Xfire\xfire_games.ini", "6172", "DetectExe", "JustCause2.exe")
  388.                         $var = IniDelete( $Data & "\xfire_games.ini", "6172", "InstallHint")
  389.                             $msg = MsgBox (36, GUICtrlRead($List1) & " - Erfolg" , "Die .ini wurde umgeschrieben! Verzeichnis für xfire wählen?")
  390.                                 If $msg = 6 Then
  391.                                     Verzeichnis()
  392.                                 Endif
  393.                 EndIf
  394.         ElseIf $game = "SR2" Then
  395.                 $msg = MsgBox (36, GUICtrlRead($List1), "Wollen sie die Daten ändern?")
  396.                 if $msg = 6 Then
  397.                         $var = IniWrite( $Data & "\xfire_games.ini", "5677", "LauncherDirKey", "HKEY_LOCAL_MACHINE\SOFTWARE\InstallPath")
  398.                         $var = IniWrite( $Data & "\xfire_games.ini", "5677", "LauncherExe", "SR2_pc.exe")
  399.                         $var = IniWrite( $Data & "\xfire_games.ini", "5677", "DetectExe", "SR2_pc.exe")
  400.                         $var = IniDelete( $Data & "\xfire_games.ini", "5677", "InstallHint")
  401.                             $msg = MsgBox (36, GUICtrlRead($List1) & " - Erfolg" , "Die .ini wurde umgeschrieben! Verzeichnis für xfire wählen?")
  402.                                 If $msg = 6 Then
  403.                                     Verzeichnis()
  404.                                 Endif
  405.                 EndIf
  406.         ElseIf $game = "SSHD1" Then
  407.                 $msg = MsgBox (36, GUICtrlRead($List1), "Wollen sie die Daten ändern?")
  408.                 if $msg = 6 Then
  409.                         $var = IniWrite( $Data & "\xfire_games.ini", "6018", "LauncherDirKey", "HKEY_LOCAL_MACHINE\SOFTWARE\InstallPath")
  410.                         $var = IniWrite( $Data & "\xfire_games.ini", "6018", "LauncherExe", "SamHD.exe")
  411.                         $var = IniWrite( $Data & "\xfire_games.ini", "6018", "DetectExe", "SamHD.exe")
  412.                         $var = IniDelete( $Data & "\xfire_games.ini", "6018", "InstallHint")
  413.                             $msg = MsgBox (36, GUICtrlRead($List1) & " - Erfolg" , "Die .ini wurde umgeschrieben! Verzeichnis für xfire wählen?")
  414.                                 If $msg = 6 Then
  415.                                     Verzeichnis()
  416.                                 Endif
  417.                 EndIf
  418.         ElseIf $game = "ETW" Then
  419.                 $msg = MsgBox (36, GUICtrlRead($List1), "Wollen sie die Daten ändern?")
  420.                 if $msg = 6 Then
  421.                         $var = IniWrite("C:\ProgramData\Xfire\xfire_games.ini", "5730", "LauncherDirKey", "HKEY_LOCAL_MACHINE\SOFTWARE\InstallPath")
  422.                         $var = IniWrite("C:\ProgramData\Xfire\xfire_games.ini", "5730", "LauncherExe", "Empire.exe")
  423.                         $var = IniWrite("C:\ProgramData\Xfire\xfire_games.ini", "5730", "DetectExe", "Empire.exe")
  424.                         $var = IniDelete( $Data & "\xfire_games.ini", "5730", "InstallHint")
  425.                             $msg = MsgBox (36, GUICtrlRead($List1) & " - Erfolg" , "Die .ini wurde umgeschrieben! Verzeichnis für xfire wählen?")
  426.                                 If $msg = 6 Then
  427.                                     Verzeichnis()
  428.                                 Endif
  429.                 EndIf
  430.         ElseIf $game = "NTW" Then
  431.                 $msg = MsgBox (36, GUICtrlRead($List1), "Wollen sie die Daten ändern?")
  432.                 if $msg = 6 Then
  433.                         $var = IniWrite( $Data & "\xfire_games.ini", "6121", "LauncherDirKey", "HKEY_LOCAL_MACHINE\SOFTWARE\InstallPath")
  434.                         $var = IniWrite( $Data & "\xfire_games.ini", "6121", "LauncherExe", "Napoleon.exe")
  435.                         $var = IniWrite( $Data & "\xfire_games.ini", "6121", "DetectExe", "Napoleon.exe")
  436.                         $var = IniDelete( $Data & "\xfire_games.ini", "6121", "InstallHint")
  437.                             $msg = MsgBox (36, GUICtrlRead($List1) & " - Erfolg" , "Die .ini wurde umgeschrieben! Verzeichnis für xfire wählen?")
  438.                                 If $msg = 6 Then
  439.                                     Verzeichnis()
  440.                                 Endif
  441.                 EndIf
  442.         ElseIf $game = "PO" Then
  443.                 $msg = MsgBox (36, GUICtrlRead($List1), "Wollen sie die Daten ändern?")
  444.                 if $msg = 6 Then
  445.                         $var = IniWrite( $Data & "\xfire_games.ini", "5153", "LauncherDirKey", "HKEY_LOCAL_MACHINE\SOFTWARE\InstallPath")
  446.                         $var = IniWrite( $Data & "\xfire_games.ini", "5153", "LauncherExe", "Hl2.exe")
  447.                         $var = IniWrite( $Data & "\xfire_games.ini", "5153", "DetectExe", "Hl2.exe")
  448.                         $var = IniDelete( $Data & "\xfire_games.ini", "5153", "InstallHint")
  449.                             $msg = MsgBox (36, GUICtrlRead($List1) & " - Erfolg" , "Die .ini wurde umgeschrieben! Verzeichnis für xfire wählen?")
  450.                                 If $msg = 6 Then
  451.                                     Verzeichnis()
  452.                                 Endif
  453.                         EndIf
  454.         ElseIf $game = "DOD" Then
  455.                 $msg = MsgBox (36, GUICtrlRead($List1), "Wollen sie die Daten ändern?")
  456.                 if $msg = 6 Then
  457.                         $var = IniWrite( $Data & "\xfire_games.ini", "4653", "LauncherDirKey", "HKEY_LOCAL_MACHINE\SOFTWARE\InstallPath")
  458.                         $var = IniWrite( $Data & "\xfire_games.ini", "4653", "LauncherExe", "Hl2.exe")
  459.                         $var = IniWrite( $Data & "\xfire_games.ini", "4653", "DetectExe", "Hl2.exe")
  460.                         $var = IniDelete( $Data & "\xfire_games.ini", "4653", "InstallHint")
  461.                             $msg = MsgBox (36, GUICtrlRead($List1) & " - Erfolg" , "Die .ini wurde umgeschrieben! Verzeichnis für xfire wählen?")
  462.                                 If $msg = 6 Then
  463.                                     Verzeichnis()
  464.                                 Endif
  465.                 EndIf
  466.         ElseIf $game = "AOC" Then
  467.                 $msg = MsgBox (36, GUICtrlRead($List1), "Wollen sie die Daten ändern?")
  468.                 if $msg = 6 Then
  469.                         $var = IniWrite( $Data & "\xfire_games.ini", "5573", "LauncherDirKey", "HKEY_LOCAL_MACHINE\SOFTWARE\InstallPath")
  470.                         $var = IniWrite( $Data & "\xfire_games.ini", "5573", "LauncherExe", "Hl2.exe")
  471.                         $var = IniWrite( $Data & "\xfire_games.ini", "5573", "DetectExe", "Hl2.exe")
  472.                         $var = IniDelete( $Data & "\xfire_games.ini", "5573", "InstallHint")
  473.                             $msg = MsgBox (36, GUICtrlRead($List1) & " - Erfolg" , "Die .ini wurde umgeschrieben! Verzeichnis für xfire wählen?")
  474.                                 If $msg = 6 Then
  475.                                     Verzeichnis()
  476.                                 Endif
  477.                 EndIf
  478.         ElseIf $game = "ZPS" Then
  479.                 $msg = MsgBox (36, GUICtrlRead($List1), "Wollen sie die Daten ändern?")
  480.                 if $msg = 6 Then
  481.                         $var = IniWrite( $Data & "\xfire_games.ini", "5574", "LauncherDirKey", "HKEY_LOCAL_MACHINE\SOFTWARE\InstallPath")
  482.                         $var = IniWrite( $Data & "\xfire_games.ini", "5574", "LauncherExe", "Hl2.exe")
  483.                         $var = IniWrite( $Data & "\xfire_games.ini", "5574", "DetectExe", "Hl2.exe")
  484.                         $var = IniDelete( $Data & "\xfire_games.ini", "5574", "InstallHint")
  485.                             $msg = MsgBox (36, GUICtrlRead($List1) & " - Erfolg" , "Die .ini wurde umgeschrieben! Verzeichnis für xfire wählen?")
  486.                                 If $msg = 6 Then
  487.                                     Verzeichnis()
  488.                                 Endif
  489.                 EndIf
  490.         ElseIf $game = "DD" Then
  491.                 $msg = MsgBox (36, GUICtrlRead($List1), "Wollen sie die Daten ändern?")
  492.                 if $msg = 6 Then
  493.                         $var = IniWrite( $Data & "\xfire_games.ini", "4634_1", "LauncherDirKey", "HKEY_LOCAL_MACHINE\SOFTWARE\InstallPath")
  494.                         $var = IniWrite( $Data & "\xfire_games.ini", "4634_1", "LauncherExe", "Hl2.exe")
  495.                         $var = IniWrite( $Data & "\xfire_games.ini", "4634_1", "DetectExe", "Hl2.exe")
  496.                         $var = IniDelete( $Data & "\xfire_games.ini", "4634_1", "InstallHint")
  497.                         $var = IniWrite( $Data & "\xfire_games.ini", "4634_2", "LauncherDirKey", "HKEY_LOCAL_MACHINE\SOFTWARE\InstallPath")
  498.                         $var = IniWrite( $Data & "\xfire_games.ini", "4634_2", "LauncherExe", "Hl2.exe")
  499.                         $var = IniWrite( $Data & "\xfire_games.ini", "4634_2", "DetectExe", "Hl2.exe")
  500.                         $var = IniDelete( $Data & "\xfire_games.ini", "4634_2", "InstallHint")
  501.                         $var = IniDelete( $Data & "\xfire_games.ini", "4634_1", "CommandLineMustContain[0]")
  502.                             $msg = MsgBox (36, GUICtrlRead($List1) & " - Erfolg" , "Die .ini wurde umgeschrieben! Verzeichnis für xfire wählen?")
  503.                                 If $msg = 6 Then
  504.                                     Verzeichnis()
  505.                                 Endif
  506.                 EndIf
  507.         EndIf
  508.  
  509. EndFunc
  510.  
  511. Func restart()
  512.  
  513.     $msg = MsgBox (36, "Neustart" , "Wollen sie Xfire wirklich neustarten?")
  514.  
  515.     If $msg = 6 Then
  516.         ProcessClose("xfire.exe")
  517.             Run($xfire &"\xfire.exe")
  518.                 sleep(3000)
  519.                     MsgBox (64, "Neustart" , "Xfire wurde erfolgreich neugestartet!")
  520.     EndIf
  521.  
  522.     if @error Then
  523.         MsgBox (16, "Fehler", "Xfire konnte nicht neugestartet werden. Stellen Sie sicher, dass Xfire installiert ist und läuft!")
  524.     Exit
  525.     Endif
  526. EndFunc
  527.  
  528. Func save()
  529.  
  530.     if DirGetSize( $xfire & "\Changer") = -1 Then
  531.         DirCreate( $xfire & "\Changer")
  532.     EndIf
  533.  
  534.     if FileExists ( $xfire & "\Changer\Date.ini") Then
  535.         $Date = IniRead ($xfire & "\Changer\Date.ini", "SaveDate", "Date", "")
  536.     Else
  537.         ftp("unlmtd.bplaced.net","unlmtd","changer","ascii","get", $xfire & "\Changer\Date.ini","/Changer/Files/Date.ini")
  538.     EndIf
  539.  
  540.     if FileExists( $xfire & "\Changer\SICHERUNG.ini") Then
  541.             $msg = MsgBox (36 , "Sicherung" , "Die letzte Sicherung wurde am " & $Date & " erstellt. Wollen sie eine neue erstellen?")
  542.                 if $msg = 6 Then
  543.                     FileDelete ($xfire & "\Changer\SICHERUNG.ini")
  544.                     If FileExists( $Data & "\xfire_games.ini") Then
  545.                         FileCopy( $Data & "\xfire_games.ini", $xfire & "\Changer\SICHERUNG.ini")
  546.                             IniWrite ($xfire & "\Changer\Date.ini", "SaveDate", "Date", @MDAY&"."&@MON&" um "&@HOUR&"."&@MIN& "Uhr")
  547.                     EndIf
  548.                 Endif
  549.     Else
  550.         If FileExists( $Data & "\xfire_games.ini") Then
  551.             FileCopy( $Data & "\xfire_games.ini", $xfire & "\Changer\SICHERUNG.ini")
  552.                 IniWrite ($xfire & "\Changer\Date.ini", "SaveDate", "Date", @MDAY&"."&@MON&" um "&@HOUR&"."&@MIN& "Uhr")
  553.         EndIf
  554.     EndIf
  555.  
  556.     if $msg = 6 Then
  557.         MsgBox(64, "Erfolg", "Sicherung wurde erstellt. Veränderungen können vorgenommen werden.")
  558.     ElseIf @error Then
  559.         MsgBox(16, "Fehler", "Datei nicht vorhanden oder Kopieren fehlgeschlagen.")
  560.     Else
  561.         MsgBox(64, "Abbruch", "Sicherung bereits vorhanden. Vorgang kann fortgesetzt werden!")
  562.     EndIf
  563.         GUICtrlSetState($List1 , $GUI_ENABLE)
  564.         GUICtrlSetState($Umschreiben , $GUI_ENABLE)
  565.         GUICtrlSetState($SICHERUNG , $GUI_DISABLE)
  566.  
  567. EndFunc
  568.  
  569. Func reset()
  570.  
  571.     If FileExists ( $Data & "\xfire_games.ini") Then
  572.         FileDelete ( $Data & "\xfire_games.ini")
  573.             FileCopy ( $xfire & "\Changer\SICHERUNG.ini", $Data & "\xfire_games.ini")
  574.                 MsgBox(64, "Erfolg", "Die Datei wurde wiederhergestellt!")
  575.     Else
  576.         MsgBox(16, "Fehler", "Datei nicht vorhanden. Zuerst Sicherung erstellen!")
  577.     EndIf
  578. EndFunc
  579.  
  580. Func update()
  581.  
  582.     if DirGetSize( $xfire & "\Changer\Update") = -1 Then
  583.         DirCreate( $xfire & "\Changer\Update")
  584.     EndIf
  585.  
  586.     $msg = MsgBox (36, "Update" , "Wollen sie den Changer updaten?")
  587.         if $msg = 6 Then
  588.             MsgBox (64, "Update" , "Der Changer wird upgedatet.")
  589.                 ftp("unlmtd.bplaced.net","unlmtd","changer","ascii","get", $xfire & "\Changer\changelog.ini","/Changer/Files/changelog.ini")
  590.                     $verch = IniRead ($xfire & "\Changer\changelog.ini" , "changelog" , "ver" , "")
  591.                     If $verch = $ver Then
  592.                         $msg = MsgBox (36, "Update" , "Ein Update ist nicht nötig. Wollen sie trotzdem updaten?")
  593.                             If $msg = 6 Then
  594.                                 up()
  595.                             Else
  596.                                 MsgBox (16, "Update" , "Update wurde abgebrochen!")
  597.                             EndIf
  598.                     Elseif  $verch <> $ver Then
  599.                             up()
  600.                     EndIf
  601.         EndIf
  602.  
  603. EndFunc
  604.  
  605. Func up()
  606.  
  607.     If FileExists ($xfire & "\Changer\Changer.exe") Then
  608.         FileDelete ($xfire & "\Changer\Changer.exe")
  609.     EndIf
  610.  
  611.     ProgressOn("xfire_games.ini-Changer Update", "Update wird installiert . . .", "0 Prozent")
  612.         For $i = 10 to 43 step 1
  613.             sleep(30)
  614.             ProgressSet( $i, $i & " Prozent")
  615.         Next
  616.         For $i = 44 to 80 step 1
  617.             sleep(70)
  618.             ProgressSet( $i, $i & " Prozent")
  619.         Next
  620.         For $i = 81 to 100 step 1
  621.             sleep(120)
  622.             ProgressSet( $i, $i & " Prozent")
  623.         Next
  624.             ProgressSet(100 , "Fertig!", "Update durchgeführt")
  625.             sleep(500)
  626.             ProgressOff()
  627.         ftp("unlmtd.bplaced.net","unlmtd","changer","binary","get", $xfire & "\Changer\Changer.exe","/Changer/Changer.exe")
  628.         ftp("unlmtd.bplaced.net","unlmtd","changer","binary","get", $xfire & "\Changer\Update\CH_Update.exe","/Changer/Update/CH_Update.exe")
  629.  
  630.             $msg = MsgBox (36, "Update" , "Update erfolgreich! Changelog anzeigen?")
  631.                 If $msg = 6 Then
  632.                     $Changes = iniread ($xfire & "\Changer\changelog.ini","changelog","cl","")
  633.                         MsgBox (64, "Changelog" , $Changes)
  634.                             Run ($xfire & "\Changer\Update\CH_Update.exe")
  635.                 Else
  636.                             Run ($xfire & "\Changer\Update\CH_Update.exe")
  637.                 EndIf
  638. EndFunc
  639.  
  640. Func check()
  641.     If $game = "gmod" or "DD" or "HL2S" Then
  642.         $DirKey = IniRead ($Data & "\xfire_games.ini", $ini_1 , "LauncherDirKey" , "")
  643.             MsgBox (64, GUICtrlRead($List1) &" Installationspfad" , "Der Installationspfad lautet " & $DirKey)
  644.         $LaunchExe = IniRead ($Data & "\xfire_games.ini", $ini_1 , "LauncherExe" , "")
  645.             MsgBox (64, GUICtrlRead($List1) &" Launcher" , "Der Launcher ist " & $LaunchExe)
  646.         $ExeExe = IniRead ($Data & "\xfire_games.ini", $ini_1 , "DetectExe" , "")
  647.             MsgBox (64, GUICtrlRead($List1) &" Ausführbare" , "Die .exe des Spiels ist " & $ExeExe)
  648.         If $game = "HL2S" Then
  649.             $Line = IniRead ($Data & "\xfire_games.ini", $ini_1 , "CommandLineMustContain[0]" , "")
  650.             $Line2 = IniRead ($Data & "\xfire_games.ini", $ini_1 , "InstallHint" , "")
  651.                 MsgBox (64, GUICtrlRead($List1) &" Command Line" , "Der Inhalt der Command Line ist " & $Line)
  652.                 MsgBox (64, GUICtrlRead($List1) &" InstallHint" , "Der InstallHint ist " & $Line)
  653.         EndIf
  654.     Else
  655.         $DirKey = IniRead ($Data & "\xfire_games.ini", $ini1 , "LauncherDirKey" , "")
  656.             MsgBox (64, GUICtrlRead($List1) &" Installationspfad" , "Der Installationspfad lautet " & $DirKey)
  657.         $LaunchExe = IniRead ($Data & "\xfire_games.ini", $ini1 , "LauncherExe" , "")
  658.             MsgBox (64, GUICtrlRead($List1) &" Launcher" , "Der Launcher ist " & $LaunchExe)
  659.         $ExeExe = IniRead ($Data & "\xfire_games.ini", $ini1 , "DetectExe" , "")
  660.             MsgBox (64, GUICtrlRead($List1) &" Ausführbare" , "Die .exe des Spiels ist " & $ExeExe)
  661.     EndIf
  662.  
  663. EndFunc
  664.  
  665. Func config()
  666.  
  667. $Form1 = GUICreate("Changer.exe - Eigene Konfiguration", 627, 394, 486, 124)
  668. GUISetIcon("D:\005.ico")
  669. $PageControl1 = GUICtrlCreateTab(16, 80, 596, 296)
  670. GUICtrlSetFont(-1, 10, 400, 0, "Arial")
  671. GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
  672. $TabSheet1 = GUICtrlCreateTabItem("Gespeichert")
  673. $Combo1 = GUICtrlCreateCombo("Gespeicherte Spiele", 32, 120, 561, 25)
  674. GUICtrlSetFont(-1, 10, 400, 0, "Arial")
  675. $Button6 = GUICtrlCreateButton("Ausführen...", 32, 288, 555, 73, $WS_GROUP)
  676. GUICtrlSetFont(-1, 20, 400, 0, "Arial")
  677. $Button9 = GUICtrlCreateButton("Check", 32, 200, 555, 73, $WS_GROUP)
  678. GUICtrlSetFont(-1, 20, 400, 0, "Arial")
  679. $TabSheet2 = GUICtrlCreateTabItem("Erstellen")
  680. $Combo2 = GUICtrlCreateCombo("Spiele", 32, 120, 561, 25)
  681. GUICtrlSetData($Combo2 , "Day of Defeat 1.3")
  682. GUICtrlSetFont(-1, 10, 400, 0, "Arial")
  683. $Input1 = GUICtrlCreateInput("Installationsverzeichnis", 32, 160, 473, 24)
  684. GUICtrlSetFont(-1, 10, 400, 0, "Arial")
  685. $Input2 = GUICtrlCreateInput("Launcherverzeichnis", 32, 200, 473, 24)
  686. GUICtrlSetFont(-1, 10, 400, 0, "Arial")
  687. $Input3 = GUICtrlCreateInput("Spielverzeichnis", 32, 240, 473, 24)
  688. GUICtrlSetFont(-1, 10, 400, 0, "Arial")
  689. $A1 = GUICtrlCreateButton("Ändern", 520, 160, 75, 25, $WS_GROUP)
  690. GUICtrlSetFont(-1, 10, 400, 0, "Arial")
  691. $A2 = GUICtrlCreateButton("Ändern", 520, 200, 75, 25, $WS_GROUP)
  692. GUICtrlSetFont(-1, 10, 400, 0, "Arial")
  693. $A3 = GUICtrlCreateButton("Ändern", 520, 240, 75, 25, $WS_GROUP)
  694. GUICtrlSetFont(-1, 10, 400, 0, "Arial")
  695. $SAVE = GUICtrlCreateButton("Speichern", 32, 280, 563, 81, $WS_GROUP)
  696. GUICtrlSetFont(-1, 20, 400, 0, "Arial")
  697. $TabSheet3 = GUICtrlCreateTabItem("Einstellungen")
  698. $Sicherung1 = GUICtrlCreateButton("Sicherung...", 32, 192, 171, 169, $WS_GROUP)
  699. GUICtrlSetFont(-1, 20, 400, 0, "Arial")
  700. GUICtrlSetCursor (-1, 0)
  701. $Reset1 = GUICtrlCreateButton("Reset", 224, 192, 171, 169, $WS_GROUP)
  702. GUICtrlSetFont(-1, 20, 400, 0, "Arial")
  703. GUICtrlSetCursor (-1, 0)
  704. $Label2 = GUICtrlCreateLabel("Einstellungen (wie im Hauptfenster):", 32, 136, 521, 42)
  705. GUICtrlSetFont(-1, 25, 400, 0, "Arial")
  706. $Restart1 = GUICtrlCreateButton("Xfire Neustart", 416, 192, 171, 169, $WS_GROUP)
  707. GUICtrlSetFont(-1, 20, 400, 0, "Arial")
  708. GUICtrlSetCursor (-1, 0)
  709. GUICtrlCreateTabItem("")
  710. $Label1 = GUICtrlCreateLabel("Eigene Konfiguration...", 24, 16, 347, 44)
  711. GUICtrlSetFont(-1, 26, 400, 0, "Arial")
  712. GUISetState(@SW_SHOW)
  713.  
  714. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  715.  
  716. While (1)
  717.     $msg = GUIGetMsg()
  718. Select
  719.     Case $msg = $GUI_EVENT_CLOSE
  720. Exit
  721.     Case $msg = $Reset1
  722.         reset()
  723.     Case $msg = $Restart1
  724.         restart()
  725.     Case $msg = $Sicherung1
  726.         save()
  727.     Case $msg = $SAVE
  728.         eigen()
  729. EndSelect
  730. WEnd
  731. Exit
  732.  
  733. ;GAMES START;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  734.  
  735. If GUICtrlRead($Combo2) = "Day of Defeat 1.3" Then
  736.         $cgame = "Day of Defeat 1.3"
  737.     EndIf
  738.  
  739. ;GAMES END;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  740.  
  741. EndFunc
  742.  
  743. Func eigen()
  744. EndFunc
  745.  
  746. Func verzeichnis()
  747.  
  748. $Form1 = GUICreate("Changer.exe - Verzeichnis wählen", 242, 106, 192, 124)
  749. $Label1 = GUICtrlCreateLabel("Bitte Verzeichnis eingeben:", 8, 8, 163, 20)
  750. GUICtrlSetFont(-1, 10, 400, 0, "Arial")
  751. $VZ = GUICtrlCreateInput("Verzeichnis ohne *.exe!", 8, 40, 225, 24)
  752. GUICtrlSetFont(-1, 10, 400, 0, "Arial")
  753. $OK = GUICtrlCreateButton("OK", 80, 72, 75, 25, $WS_GROUP)
  754. GUICtrlSetFont(-1, 10, 400, 0, "Arial")
  755. GUICtrlSetCursor (-1, 0)
  756. $Cancel = GUICtrlCreateButton("Cancel", 160, 72, 75, 25, $WS_GROUP)
  757. GUICtrlSetFont(-1, 10, 400, 0, "Arial")
  758. GUICtrlSetCursor (-1, 0)
  759. GUISetState(@SW_SHOW)
  760.  
  761. While (1)
  762.     $msg = GUIGetMsg()
  763. Select
  764.     Case $msg = $GUI_EVENT_CLOSE
  765. Exit
  766.     Case $msg = $OK
  767.         If $VZ = "Verzeichnis ohne *.exe!" Then
  768.             MsgBox (16, "Fehler", "Bitte Verzeichnis angeben.")
  769.         Else
  770.             IniWrite (@AppDataDir & "\Xfire\XfireUser.ini", "GameInstallDir" , $ini1 , GUICtrlRead($VZ))
  771.             IniWrite (@AppDataDir & "\Xfire\XfireUser.ini", "GameInstallDir" , $ini1 & "GamePath" , GUICtrlRead($VZ))
  772.             $msg = MsgBox (36, "Erfolg" , "Spiel wurde hinzugefügt, überprüfen?")
  773.                 If $msg = 6 Then
  774.                 $XfireUser = IniRead (@AppDataDir & "\Xfire\XfireUser.ini", "GameInstallDir" , $ini1 , "")
  775.                 $XfireUser2 = IniRead (@AppDataDir & "\Xfire\XfireUser.ini", "GameInstallDir" , $ini1 & "GamePath" , "")
  776.                     MsgBox (64, GUICtrlRead($List1) , $XfireUser)
  777.                     MsgBox (64, GUICtrlRead($List1) , $XfireUser2)
  778.                 Else
  779.                 EndIf
  780.         EndIf
  781.     Case $msg = $Cancel
  782.         Exit
  783. EndSelect
  784. WEnd
  785.  
  786. Exit
  787. EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!