diff --git a/Include/_MyFunction.au3 b/Include/_MyFunction.au3
index cdaafae..0df1b76 100644
--- a/Include/_MyFunction.au3
+++ b/Include/_MyFunction.au3
@@ -878,7 +878,7 @@ Func _GDIPlus_ResizeMax($iPath, $iMAX_Width, $iMAX_Height)
_GDIPlus_ImageDispose($hImageResized)
_WinAPI_DeleteObject($hImageResized)
_GDIPlus_ImageDispose($hImage)
- _WinAPI_DeleteObject($hImageResized)
+ _WinAPI_DeleteObject($hImage)
_GDIPlus_Shutdown()
If Not FileDelete($iPath_Temp) Then
_LOG("Error deleting " & $iPath_Temp, 2, $iLOGPath)
@@ -1523,8 +1523,8 @@ Func _GDIPlus_Imaging($iPath, $aPicParameters, $vTarget_Width, $vTarget_Height)
Local $Image_C2Y = _GDIPlus_RelativePos($aPicParameters[5], $vTarget_Height)
Local $Image_C3X = _GDIPlus_RelativePos($aPicParameters[6], $vTarget_Width)
Local $Image_C3Y = _GDIPlus_RelativePos($aPicParameters[7], $vTarget_Height)
- Local $Image_C4X = _GDIPlus_RelativePos($aPicParameters[11], $vTarget_Width)
- Local $Image_C4Y = _GDIPlus_RelativePos($aPicParameters[12], $vTarget_Height)
+;~ Local $Image_C4X = _GDIPlus_RelativePos($aPicParameters[11], $vTarget_Width)
+;~ Local $Image_C4Y = _GDIPlus_RelativePos($aPicParameters[12], $vTarget_Height)
Local $Image_OriginX = _GDIPlus_RelativePos($aPicParameters[13], $iWidth)
Local $Image_OriginY = _GDIPlus_RelativePos($aPicParameters[14], $iHeight)
Switch $Image_OriginX
@@ -1603,28 +1603,28 @@ Func _GDIPlus_Imaging($iPath, $aPicParameters, $vTarget_Width, $vTarget_Height)
Case ''
$Image_C3Y = $Image_C1Y + $iHeight
EndSwitch
- Switch $Image_C4X
- Case 'CENTER'
- $Image_C4X = Int($vTarget_Width / 2) + $iWidth
- Case 'LEFT'
- $Image_C4X = $iWidth
- Case 'RIGHT'
- $Image_C4X = $vTarget_Width + $iWidth
- Case ''
- $vNo4thPoint = 1
- $Image_C4X = $Image_C1X + $iWidth
- EndSwitch
- Switch $Image_C4Y
- Case 'CENTER'
- $Image_C4Y = Int($vTarget_Height / 2) + $iHeight
- Case 'UP'
- $Image_C4Y = 0 + $iHeight
- Case 'DOWN'
- $Image_C4Y = $vTarget_Height + $iHeight
- Case ''
- $vNo4thPoint = 1
- $Image_C4Y = $Image_C1Y + $iHeight
- EndSwitch
+;~ Switch $Image_C4X
+;~ Case 'CENTER'
+;~ $Image_C4X = Int($vTarget_Width / 2) + $iWidth
+;~ Case 'LEFT'
+;~ $Image_C4X = $iWidth
+;~ Case 'RIGHT'
+;~ $Image_C4X = $vTarget_Width + $iWidth
+;~ Case ''
+;~ $vNo4thPoint = 1
+;~ $Image_C4X = $Image_C1X + $iWidth
+;~ EndSwitch
+;~ Switch $Image_C4Y
+;~ Case 'CENTER'
+;~ $Image_C4Y = Int($vTarget_Height / 2) + $iHeight
+;~ Case 'UP'
+;~ $Image_C4Y = 0 + $iHeight
+;~ Case 'DOWN'
+;~ $Image_C4Y = $vTarget_Height + $iHeight
+;~ Case ''
+;~ $vNo4thPoint = 1
+;~ $Image_C4Y = $Image_C1Y + $iHeight
+;~ EndSwitch
$Image_C1X = $Image_C1X + _GDIPlus_RelativePos($aPicParameters[9], $vTarget_Width) - $Image_OriginX
@@ -1633,8 +1633,8 @@ Func _GDIPlus_Imaging($iPath, $aPicParameters, $vTarget_Width, $vTarget_Height)
$Image_C2Y = $Image_C2Y + _GDIPlus_RelativePos($aPicParameters[10], $vTarget_Height) - $Image_OriginY
$Image_C3X = $Image_C3X + _GDIPlus_RelativePos($aPicParameters[9], $vTarget_Width) - $Image_OriginX
$Image_C3Y = $Image_C3Y + _GDIPlus_RelativePos($aPicParameters[10], $vTarget_Height) - $Image_OriginY
- $Image_C4X = $Image_C4X + _GDIPlus_RelativePos($aPicParameters[9], $vTarget_Width) - $Image_OriginX
- $Image_C4Y = $Image_C4Y + _GDIPlus_RelativePos($aPicParameters[10], $vTarget_Height) - $Image_OriginY
+;~ $Image_C4X = $Image_C4X + _GDIPlus_RelativePos($aPicParameters[9], $vTarget_Width) - $Image_OriginX
+;~ $Image_C4Y = $Image_C4Y + _GDIPlus_RelativePos($aPicParameters[10], $vTarget_Height) - $Image_OriginY
_LOG("$Image_C1X = " & $Image_C1X, 2, $iLOGPath)
_LOG("$Image_C1Y = " & $Image_C1Y, 2, $iLOGPath)
@@ -1642,16 +1642,16 @@ Func _GDIPlus_Imaging($iPath, $aPicParameters, $vTarget_Width, $vTarget_Height)
_LOG("$Image_C2Y = " & $Image_C2Y, 2, $iLOGPath)
_LOG("$Image_C3X = " & $Image_C3X, 2, $iLOGPath)
_LOG("$Image_C3Y = " & $Image_C3Y, 2, $iLOGPath)
- _LOG("$Image_C4X = " & $Image_C4X, 2, $iLOGPath)
- _LOG("$Image_C4Y = " & $Image_C4Y, 2, $iLOGPath)
-
- If $vNo4thPoint = 1 Then
- _LOG("_GDIPlus_DrawImagePoints", 2, $iLOGPath)
- _GDIPlus_DrawImagePoints($hGraphic, $hImage, $Image_C1X, $Image_C1Y, $Image_C2X, $Image_C2Y, $Image_C3X, $Image_C3Y)
- Else
- _LOG("_GDIPlus_GraphicsDrawImage_4Points", 2, $iLOGPath)
- _GDIPlus_GraphicsDrawImage_4Points($hGraphic, $hImage, $Image_C1X, $Image_C1Y, $Image_C2X, $Image_C2Y, $Image_C3X, $Image_C3Y, $Image_C4X, $Image_C4Y)
- EndIf
+;~ _LOG("$Image_C4X = " & $Image_C4X, 2, $iLOGPath)
+;~ _LOG("$Image_C4Y = " & $Image_C4Y, 2, $iLOGPath)
+
+;~ If $vNo4thPoint = 1 Then
+ _LOG("_GDIPlus_DrawImagePoints", 2, $iLOGPath)
+ _GDIPlus_DrawImagePoints($hGraphic, $hImage, $Image_C1X, $Image_C1Y, $Image_C2X, $Image_C2Y, $Image_C3X, $Image_C3Y)
+;~ Else
+;~ _LOG("_GDIPlus_GraphicsDrawImage_4Points", 2, $iLOGPath)
+;~ _GDIPlus_GraphicsDrawImage_4Points($hGraphic, $hImage, $Image_C1X, $Image_C1Y, $Image_C2X, $Image_C2Y, $Image_C3X, $Image_C3Y, $Image_C4X, $Image_C4Y)
+;~ EndIf
_GDIPlus_ImageSaveToFile($hBMPBuff, $iPath)
_GDIPlus_GraphicsDispose($hGraphic)
_WinAPI_DeleteObject($hGraphic)
diff --git a/MIX Repository/ComicBook (3img).zip b/MIX Repository/ComicBook (3img).zip
new file mode 100644
index 0000000..5c71700
Binary files /dev/null and b/MIX Repository/ComicBook (3img).zip differ
diff --git a/MIX Repository/Preview/ComicBook (3img)/Description.txt b/MIX Repository/Preview/ComicBook (3img)/Description.txt
new file mode 100644
index 0000000..321e27a
--- /dev/null
+++ b/MIX Repository/Preview/ComicBook (3img)/Description.txt
@@ -0,0 +1,4 @@
+Author : Screech
+Description :
+3 images assembled in a comic book style: 3D Box, Screenshot and Wheel
+To use with Comic Book Theme by TMNTturtlguy : https://retropie.org.uk/forum/topic/9211
\ No newline at end of file
diff --git a/MIX Repository/Preview/ComicBook (3img)/Empty_exemple.jpg b/MIX Repository/Preview/ComicBook (3img)/Empty_exemple.jpg
new file mode 100644
index 0000000..b117544
Binary files /dev/null and b/MIX Repository/Preview/ComicBook (3img)/Empty_exemple.jpg differ
diff --git a/MIX Repository/Preview/ComicBook (3img)/Full_exemple.jpg b/MIX Repository/Preview/ComicBook (3img)/Full_exemple.jpg
new file mode 100644
index 0000000..69dc0b3
Binary files /dev/null and b/MIX Repository/Preview/ComicBook (3img)/Full_exemple.jpg differ
diff --git a/MIX Repository/_MIXList.txt b/MIX Repository/_MIXList.txt
index 25504f2..d928cfd 100644
--- a/MIX Repository/_MIXList.txt
+++ b/MIX Repository/_MIXList.txt
@@ -7,12 +7,13 @@ Arcade Zoomed (moon)-Retropie
BigShot (2DBox)
BigShot (3DBox)
BigShot (ScreenShot)
+ComicBook (3img)
FoolScreen (Arcade)
+FoolScreen (GameGear)
FoolScreen (GB)
FoolScreen (GBA)
FoolScreen (GBC)
FoolScreen (GW)
-FoolScreen (GameGear)
FoolScreen (Lynx)
FoolScreen (Monitor)
FoolScreen (NGP)
diff --git a/ProfilsFiles/Recalbox.xml b/ProfilsFiles/Recalbox.xml
index 482c1d2..9793fc9 100644
--- a/ProfilsFiles/Recalbox.xml
+++ b/ProfilsFiles/Recalbox.xml
@@ -158,7 +158,7 @@
Variable_Value
%AutoExclude%
- bin|img|iso|ccd|sub
+ bin|img|iso|ccd|sub|wav
(Track |[Bios]|(Bios)
diff --git a/ProfilsFiles/Retropie.xml b/ProfilsFiles/Retropie.xml
index c85f768..0877c25 100644
--- a/ProfilsFiles/Retropie.xml
+++ b/ProfilsFiles/Retropie.xml
@@ -185,7 +185,7 @@
Variable_Value
%AutoExclude%
- bin|img|iso|ccd|sub
+ bin|img|iso|ccd|sub|wav
(Track |[Bios]|(Bios)
diff --git a/Ressources.zip b/Ressources.zip
index 9fd22ff..150b1fb 100644
Binary files a/Ressources.zip and b/Ressources.zip differ
diff --git a/Ressources/Images/Temp/Wheel.png b/Ressources/Images/Temp/Wheel.png
index 83a2a25..bcc2ad2 100644
Binary files a/Ressources/Images/Temp/Wheel.png and b/Ressources/Images/Temp/Wheel.png differ
diff --git a/Scraper-test.au3 b/Scraper-test.au3
deleted file mode 100644
index 376f3c9..0000000
--- a/Scraper-test.au3
+++ /dev/null
@@ -1,664 +0,0 @@
-#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
-#AutoIt3Wrapper_Icon=Ressources\Images\Scraper.ico
-#AutoIt3Wrapper_Outfile=.\Scraper.exe
-#AutoIt3Wrapper_Outfile_x64=.\Scraper64.exe
-#AutoIt3Wrapper_Compile_Both=y
-#AutoIt3Wrapper_UseX64=y
-#AutoIt3Wrapper_Res_Description=Scraper
-#AutoIt3Wrapper_Res_Fileversion=1.2.0.6
-#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=p
-#AutoIt3Wrapper_Res_LegalCopyright=LEGRAS David
-#AutoIt3Wrapper_Res_Language=1036
-#AutoIt3Wrapper_AU3Check_Stop_OnWarning=y
-#AutoIt3Wrapper_Run_Tidy=y
-#Tidy_Parameters=/reel
-#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
-TraySetState(2)
-
-If $CmdLine[0] = 0 Then Exit
-$vThreadNumber = $CmdLine[1]
-
-#include
-#include
-#include
-#include
-#include
-#include
-#include
-#include
-
-If Not _FileCreate(@ScriptDir & "\test") Then ; Testing UXS Directory
- Global $iScriptPath = @AppDataDir & "\UXMLS" ; If not, use Path to current user's Roaming Application Data
- DirCreate($iScriptPath) ;
-Else
- Global $iScriptPath = @ScriptDir
- FileDelete($iScriptPath & "\test")
-EndIf
-
-Global $iINIPath = $iScriptPath & "\UXS-config.ini"
-Global $iLOGPath = $iScriptPath & "\LOGs\log" & $vThreadNumber & ".txt"
-Global $iVerboseLVL = IniRead($iINIPath, "GENERAL", "$vVerbose", 0)
-
-_LOG_Ceation($iLOGPath) ; Starting Log
-
-#include "./Include/_MultiLang.au3"
-#include "./Include/_XML.au3"
-#include "./Include/_MailSlot.au3"
-#include "./Include/_GraphGDIPlus.au3"
-#include "./Include/_MyFunction.au3"
-#include "./Include/_AutoItErrorTrap.au3"
-#include "./Include/_Hash.au3"
-
-; Custom title and text...
-_AutoItErrorTrap("AutoItErrorTrap", "Hi!" & @CRLF & @CRLF & "An error was detected in the program, you can try again," & _
- " cancel to exit or continue to see more details of the error." & @CRLF & @CRLF & "Sorry for the inconvenience!")
-
-Local $iScriptVer = FileGetVersion(@ScriptFullPath)
-Local $iINIVer = IniRead($iINIPath, "GENERAL", "$verINI", '0.0.0.0')
-Local $iSoftname = "UniversalXMLScraperV" & $iScriptVer
-
-Global $iDevId = BinaryToString(_Crypt_DecryptData("0x1552EDED2FA9B5", "1gdf1g1gf", $CALG_RC4))
-Global $iDevPassword = BinaryToString(_Crypt_DecryptData("0x1552EDED2FA9B547FBD0D9A623D954AE7BEDC681", "1gdf1g1gf", $CALG_RC4))
-Global $iTEMPPath = $iScriptPath & "\TEMP\MIX" & $vThreadNumber
-Global $iTEMPPathGlobal = $iScriptPath & "\TEMP"
-Global $iRessourcesPath = $iScriptPath & "\Ressources"
-Global $iLangPath = $iScriptPath & "\LanguageFiles" ; Where we are storing the language files.
-Global $iProfilsPath = $iScriptPath & "\ProfilsFiles" ; Where we are storing the profils files.
-Global $vNodeType = "Element"
-Global $vSSLogin = IniRead($iINIPath, "LAST_USE", "$vSSLogin", "")
-Global $vSSPassword = BinaryToString(_Crypt_DecryptData(IniRead($iINIPath, "LAST_USE", "$vSSPassword", ""), "1gdf1g1gf", $CALG_RC4))
-
-Local $iSize, $aRomList, $vBoucle, $aConfig, $vProfilsPath, $oXMLProfil, $oXMLSystem, $aMatchingCountry, $oXMLGenre
-Local $sMailSlotMother = "\\.\mailslot\Mother"
-Local $sMailSlotName = "\\.\mailslot\Son" & $vThreadNumber
-Local $sMailSlotCancel = "\\.\mailslot\Cancel" & $vThreadNumber
-Local $sMailSlotCheckEngine = "\\.\mailslot\CheckEngine"
-Local $hMailSlot = _CreateMailslot($sMailSlotName)
-Local $hMailSlotCancel = _CreateMailslot($sMailSlotCancel)
-Local $iNumberOfMessagesOverall = 1
-
-_SendMail($sMailSlotCheckEngine, $vThreadNumber & "|0")
-
-$oXMLSystem = _XMLSystem_Create()
-If $oXMLSystem = -1 Then Exit
-
-$oXMLGenre = _XMLGenre_Create()
-If $oXMLGenre = -1 Then Exit
-
-Sleep(1000)
-
-_SendMail($sMailSlotCheckEngine, $vThreadNumber & "|0")
-
-While $iNumberOfMessagesOverall < 5
- If _CheckCount($hMailSlotCancel) >= 1 Then
- _MailSlotClose($hMailSlot)
- _MailSlotClose($hMailSlotCancel)
- Exit
- EndIf
- If _MailSlotGetMessageCount($hMailSlot) >= 1 Then
- Switch $iNumberOfMessagesOverall
- Case 1
- $aRomList = _ReadMessage($hMailSlot)
- _LOG("Read Message $aRomList : " & $aRomList, 1, $iLOGPath)
- $aRomList = StringSplit($aRomList, '{Break}', $STR_ENTIRESPLIT + $STR_NOCOUNT)
- ReDim $aRomList[13]
- $iNumberOfMessagesOverall += 1
- Case 2
- $vBoucle = _ReadMessage($hMailSlot)
- _LOG("Read Message $vBoucle : " & $vBoucle, 1, $iLOGPath)
- $iNumberOfMessagesOverall += 1
- Case 3
- $aConfig = _ReadMessage($hMailSlot)
- _LOG("Read Message $aConfig : " & $aConfig, 1, $iLOGPath)
- $aConfig = StringSplit($aConfig, '{Break}', $STR_ENTIRESPLIT + $STR_NOCOUNT)
- ReDim $aConfig[16]
-
- $aConfig[8] = _XML_Open($iTEMPPathGlobal & "\scraped\" & $vBoucle & ".xml")
- $aConfig[9] = StringSplit($aConfig[9], "|")
- $aConfig[10] = StringSplit($aConfig[10], "|")
- _FileReadToArray($aConfig[11], $aMatchingCountry, $FRTA_NOCOUNT, "|")
- $aConfig[11] = $aMatchingCountry
- $iNumberOfMessagesOverall += 1
- Case 4
- $vProfilsPath = _ReadMessage($hMailSlot)
- _LOG("Read Message $vProfilsPath : " & $vProfilsPath, 1, $iLOGPath)
- $oXMLProfil = _XML_Open($vProfilsPath)
- $iNumberOfMessagesOverall += 1
- EndSwitch
- Else
- ; no new message - just yield
- Sleep(200)
- EndIf
- If $iNumberOfMessagesOverall = 5 Then
- _SendMail($sMailSlotCheckEngine, $vThreadNumber & "|1")
- $vRomTimer = TimerInit()
- _LOG("-----Making " & $aRomList[2], 1, $iLOGPath)
- $aRomList = _Game_Make($aRomList, $vBoucle, $aConfig, $oXMLProfil)
- $oXMLAfterTidy = _XML_CreateDOMDocument(Default)
- $vXMLAfterTidy = _XML_TIDY($aConfig[8])
- _XML_LoadXML($oXMLAfterTidy, $vXMLAfterTidy)
- FileDelete($iTEMPPathGlobal & "\scraped\" & $vBoucle & ".xml")
- _XML_SaveToFile($oXMLAfterTidy, $iTEMPPathGlobal & "\scraped\" & $vBoucle & ".xml")
- $iNumberOfMessagesOverall = 1
- $vScrapedTime = Round((TimerDiff($vRomTimer) / 1000), 2)
- _SendMail($sMailSlotMother, $vBoucle & "|" & $vScrapedTime)
- _LOG("-----" & $aRomList[2] & " scraped in " & $vScrapedTime & "s", 3, $iLOGPath)
- _SendMail($sMailSlotCheckEngine, $vThreadNumber & "|0")
- If _CheckCount($hMailSlotCancel) >= 1 Then Exit
- EndIf
-WEnd
-
-Func _Game_Make($aRomList, $vBoucle, $aConfig, $oXMLProfil)
- Local $vValue = "", $vAttributeName, $vWhile = 1, $vNode, $vBracketPos = 0, $vHookPos = 0, $vSystem
- While 1
- If $aRomList[3] = 4 Then
- $vNodeType = "Folder"
- _LOG("Creating Folder", 1, $iLOGPath)
- Else
- $vNodeType = "Element"
- _LOG("Creating Element", 1, $iLOGPath)
- EndIf
- _LOG("/Profil/" & $vNodeType & "[" & $vWhile & "]/Target_Type = " & _XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Target_Type", 0, "", $oXMLProfil), 1, $iLOGPath)
- Switch _XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Target_Type", 0, "", $oXMLProfil)
- Case "XML_Value"
- $vValue = _XML_Read_Source($aRomList, $vBoucle, $aConfig, $oXMLProfil, $vWhile)
- $vNode = _XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Target_Value", 0, "", $oXMLProfil)
- Switch _Coalesce(StringLower(_XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Target_CASE", 0, "", $oXMLProfil)), "default")
- Case "true"
- $vValue = StringUpper($vValue)
- Case "false"
- $vValue = StringLower($vValue)
- EndSwitch
- If $aConfig[5] <> 2 Then
- _LOG($vNode & " <-- " & $vValue, 1, $iLOGPath)
- _XML_WriteValue($vNode, $vValue, "", $aConfig[8])
- EndIf
- Case "XML_Attribute"
- $vValue = _XML_Read_Source($aRomList, $vBoucle, $aConfig, $oXMLProfil, $vWhile)
- $vAttributeName = _XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Target_Attribute_Name", 0, "", $oXMLProfil)
- $vNode = _XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Target_Value", 0, "", $oXMLProfil)
- Switch _Coalesce(StringLower(_XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Target_CASE", 0, "", $oXMLProfil)), "default")
- Case "true"
- $vValue = StringUpper($vValue)
- Case "false"
- $vValue = StringLower($vValue)
- EndSwitch
- If $aConfig[5] <> 2 Then
- _LOG($vNode & " <-- " & $vValue, 1, $iLOGPath)
- _XML_WriteAttributs($vNode, $vAttributeName, $vValue, "", $aConfig[8])
- EndIf
- Case "XML_Path"
- $vValue = _XML_Read_Source($aRomList, $vBoucle, $aConfig, $oXMLProfil, $vWhile)
- $vNode = _XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Target_Value", 0, "", $oXMLProfil)
- _LOG($vNode & " <-- " & $vValue, 1, $iLOGPath)
- If Number($vValue) < 0 Or $aConfig[5] = 2 Then
- _LOG($vNode & " <-- No value to write", 1, $iLOGPath)
- Else
- $vSystem = StringSplit(IniRead($iINIPath, "LAST_USE", "$vSource_RomPath", ""), "\")
- $vSystem = $vSystem[UBound($vSystem) - 1]
- $vValue = StringReplace($vValue, '%system%', $vSystem)
- _XML_WriteValue($vNode, $vValue, "", $aConfig[8])
- EndIf
- Case "XML_Value_FORMAT"
- $vValue = _XML_Read_Source($aRomList, $vBoucle, $aConfig, $oXMLProfil, $vWhile)
- Switch _XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Target_FORMAT", 0, "", $oXMLProfil)
- Case '%20on1%'
- $vValue = StringReplace(Round(($vValue * 100 / 20) / 100, 2), ",", ".")
- Case '%ES_Date%'
- $vValue = StringLeft(StringReplace($vValue, "-", "") & '00000000', 8) & "T000000"
- Case '%Filename%'
- $vValue = $aRomList[2]
- Case '%Name+Filename_Bracket%'
- If StringInStr($aRomList[2], "(") > 0 Then $vBracketPos = StringInStr($aRomList[2], "(")
- If StringInStr($aRomList[2], "[") > 0 Then $vHookPos = StringInStr($aRomList[2], "[")
- If $vHookPos < $vBracketPos And $vHookPos > 0 Then $vBracketPos = $vHookPos
- If $vBracketPos > 0 Then $vValue = $vValue & " " & StringMid($aRomList[2], $vBracketPos)
- Case '%Name+Option%'
- $vRomId = _XML_Read("Data/jeu/romid", 0, $aRomList[8]) ;RomId
- $vTarget_NameOption_Country = _XML_Read('Profil/Element[@Type="Name"]/Target_NameOption_Country', 0, "", $oXMLProfil)
- Switch $vTarget_NameOption_Country
- Case "Yes"
- $vCountryshort = _Coalesce(_XML_Read("Data/jeu/regionshortnames/regionshortname", 0, $aRomList[8]), "unknown")
- If $vCountryshort <> "unknown" Then
- Local $aLangPref = $aConfig[9]
- For $vBoucle2 = 1 To UBound($aLangPref) - 1
- $vXpathTemp = '/Data/regions/region[nomcourt="' & $vCountryshort & '"]/nom_' & $aLangPref[$vBoucle2]
- $vCountry = _XML_Read($vXpathTemp, 0, $iRessourcesPath & "\Countrylist.xml")
- If $vValue <> -1 And $vValue <> "" Then
- $vValue = $vValue & " [" & $vCountry & "]"
- $vBoucle2 = UBound($aLangPref) - 1
- EndIf
- Next
- EndIf
- Case "YesNoWorld"
- $vCountryshort = _Coalesce(_XML_Read("Data/jeu/regionshortnames/regionshortname", 0, $aRomList[8]), "unknown")
- If $vCountryshort <> "unknown" And $vCountryshort <> "wor" Then
- Local $aLangPref = $aConfig[9]
- For $vBoucle2 = 1 To UBound($aLangPref) - 1
- $vXpathTemp = '/Data/regions/region[nomcourt="' & $vCountryshort & '"]/nom_' & $aLangPref[$vBoucle2]
- $vCountry = _XML_Read($vXpathTemp, 0, $iRessourcesPath & "\Countrylist.xml")
- If $vValue <> -1 And $vValue <> "" Then
- $vValue = $vValue & " [" & $vCountry & "]"
- $vBoucle2 = UBound($aLangPref) - 1
- EndIf
- Next
- EndIf
- EndSwitch
-
- Local $vTarget_NameOption_Clone_Value = "0"
- Local $vTarget_NameOption_Beta_Value = "0"
- Local $vTarget_NameOption_Demo_Value = "0"
- Local $vTarget_NameOption_Proto_Value = "0"
- Local $vTarget_NameOption_Trad_Value = "0"
- Local $vTarget_NameOption_Hack_Value = "0"
- Local $vTarget_NameOption_Unl_Value = "0"
- Local $vTarget_NameOption_Alt_Value = "0"
- Local $vTarget_NameOption_Best_Value = "0"
-
- If _XML_Read('Profil/Element[@Type="Name"]/Target_NameOption_Clone', 0, "", $oXMLProfil) = "Yes" Then $vTarget_NameOption_Clone_Value = _Coalesce(_Coalesce(_XML_Read("Data/jeu/cloneof", 0, $aRomList[8]), "0",-1)
- If _XML_Read('Profil/Element[@Type="Name"]/Target_NameOption_Beta', 0, "", $oXMLProfil) = "Yes" Then $vTarget_NameOption_Beta_Value = _Coalesce(_Coalesce(_XML_Read('Data/jeu/roms/rom[romid="' & $vRomId & '"]/beta', 0, $aRomList[8]), "0"), "0",-1)
- If _XML_Read('Profil/Element[@Type="Name"]/Target_NameOption_Demo', 0, "", $oXMLProfil) = "Yes" Then $vTarget_NameOption_Demo_Value = _Coalesce(_Coalesce(_XML_Read('Data/jeu/roms/rom[romid="' & $vRomId & '"]/demo', 0, $aRomList[8]), "0"), "0",-1)
- If _XML_Read('Profil/Element[@Type="Name"]/Target_NameOption_Proto', 0, "", $oXMLProfil) = "Yes" Then $vTarget_NameOption_Proto_Value = _Coalesce(_Coalesce(_XML_Read('Data/jeu/roms/rom[romid="' & $vRomId & '"]/proto', 0, $aRomList[8]), "0"), "0",-1)
- If _XML_Read('Profil/Element[@Type="Name"]/Target_NameOption_Trad', 0, "", $oXMLProfil) = "Yes" Then $vTarget_NameOption_Trad_Value = _Coalesce(_Coalesce(_XML_Read('Data/jeu/roms/rom[romid="' & $vRomId & '"]/trad', 0, $aRomList[8]), "0"), "0",-1)
- If _XML_Read('Profil/Element[@Type="Name"]/Target_NameOption_Hack', 0, "", $oXMLProfil) = "Yes" Then $vTarget_NameOption_Hack_Value = _Coalesce(_Coalesce(_XML_Read('Data/jeu/roms/rom[romid="' & $vRomId & '"]/hack', 0, $aRomList[8]), "0"), "0",-1)
- If _XML_Read('Profil/Element[@Type="Name"]/Target_NameOption_Unl', 0, "", $oXMLProfil) = "Yes" Then $vTarget_NameOption_Unl_Value = _Coalesce(_Coalesce(_XML_Read('Data/jeu/roms/rom[romid="' & $vRomId & '"]/unl', 0, $aRomList[8]), "0"), "0",-1)
- If _XML_Read('Profil/Element[@Type="Name"]/Target_NameOption_Alt', 0, "", $oXMLProfil) = "Yes" Then $vTarget_NameOption_Alt_Value = _Coalesce(_Coalesce(_XML_Read('Data/jeu/roms/rom[romid="' & $vRomId & '"]/alt', 0, $aRomList[8]), "0"), "0",-1)
- If _XML_Read('Profil/Element[@Type="Name"]/Target_NameOption_Best', 0, "", $oXMLProfil) = "Yes" Then $vTarget_NameOption_Best_Value = _Coalesce(_Coalesce(_XML_Read('Data/jeu/roms/rom[romid="' & $vRomId & '"]/best', 0, $aRomList[8]), "0"), "0",-1)
-
- $vNameTag = ""
- If $vTarget_NameOption_Clone_Value <> "0" Then $vNameTag = $vNameTag & "Clone, "
- If $vTarget_NameOption_Beta_Value <> "0" Then $vNameTag = $vNameTag & "Beta, "
- If $vTarget_NameOption_Demo_Value <> "0" Then $vNameTag = $vNameTag & "Demo, "
- If $vTarget_NameOption_Proto_Value <> "0" Then $vNameTag = $vNameTag & "Proto, "
- If $vTarget_NameOption_Trad_Value <> "0" Then $vNameTag = $vNameTag & "Trad, "
- If $vTarget_NameOption_Hack_Value <> "0" Then $vNameTag = $vNameTag & "Hack, "
- If $vTarget_NameOption_Unl_Value <> "0" Then $vNameTag = $vNameTag & "Unl, "
- If $vTarget_NameOption_Alt_Value <> "0" Then $vNameTag = $vNameTag & "Alt, "
- If $vTarget_NameOption_Best_Value <> "0" Then $vNameTag = $vNameTag & "Best, "
- If StringRight($vNameTag, 2) = ", " Then $vNameTag = StringTrimRight($vNameTag, 2)
- If $vNameTag <> "" Then $vValue = $vValue & " (" & $vNameTag & ")"
-
- _LOG("Final name : " & $vValue, 1, $iLOGPath)
- EndSwitch
- $vNode = _XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Target_Value", 0, "", $oXMLProfil)
- Switch _Coalesce(StringLower(_XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Target_CASE", 0, "", $oXMLProfil)), "default")
- Case "true"
- $vValue = StringUpper($vValue)
- Case "false"
- $vValue = StringLower($vValue)
- EndSwitch
- If $aConfig[5] <> 2 Then
- _LOG($vNode & " <-- " & $vValue, 1, $iLOGPath)
- _XML_WriteValue($vNode, $vValue, "", $aConfig[8])
- EndIf
- Case Else
- _LOG("End Of Elements", 1, $iLOGPath)
- ExitLoop
- EndSwitch
- $vWhile = $vWhile + 1
- WEnd
- Return $aRomList
-EndFunc ;==>_Game_Make
-
-Func _XML_Read_Source($aRomList, $vBoucle, $aConfig, $oXMLProfil, $vWhile)
- Local $vXpath, $vValue, $vXpathTemp, $aXpathCountry, $aPathSplit, $sDrive, $sDir, $sFileName, $sExtension
- $vSource_Type = _XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Source_Type", 0, "", $oXMLProfil)
- _LOG("/Profil/" & $vNodeType & "[" & $vWhile & "]/Source_Type = " & $vSource_Type, 1, $iLOGPath)
- Switch $vSource_Type
- Case "XML_Value"
- _LOG("->XML_Value", 1, $iLOGPath)
- If $aRomList[9] = 0 Or $aConfig[5] = 2 Then Return ""
- $vXpath = _XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Source_Value", 0, "", $oXMLProfil)
- _LOG("$vXpath : " & $vXpath, 3, $iLOGPath)
- If StringInStr($vXpath, '%LANG%') Then
- _LOG('%LANG%', 3, $iLOGPath)
- Local $aLangPref = $aConfig[9]
- For $vBoucle2 = 1 To UBound($aLangPref) - 1
- $vXpathTemp = StringReplace($vXpath, '%LANG%', $aLangPref[$vBoucle2])
- $vValue = _XML_Read($vXpathTemp, 0, $aRomList[8])
- If $vValue <> -1 And $vValue <> "" Then Return $vValue
- Next
- EndIf
-
- If StringInStr($vXpath, '%COUNTRY%') Then
- _LOG('%COUNTRY%', 3, $iLOGPath)
- $aXpathCountry = _Fallback($aConfig, $vXpath, $aRomList[8])
- For $vBoucle2 = 1 To UBound($aXpathCountry) - 1
- $vValue = _XML_Read($aXpathCountry[$vBoucle2], 0, $aRomList[8])
- _LOG("COUNTRY " & $aXpathCountry[$vBoucle2] & "=" & $vValue, 1, $iLOGPath)
- If $vValue <> -1 And $vValue <> "" Then Return $vValue
- Next
- EndIf
- _LOG('NO TAG', 3, $iLOGPath)
- $vValue = _XML_Read($vXpath, 0, $aRomList[8])
- _LOG($vXpath & "=" & $vValue, 1, $iLOGPath)
- If $vValue <> -1 Then Return $vValue
- Return ""
-
- Case "XML_Attribute"
- _LOG("->XML_Attribute", 1, $iLOGPath)
- If $aRomList[9] = 0 Or $aConfig[5] = 2 Then Return ""
- Return _XML_Read(_XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Source_Value", 1, "", $oXMLProfil), 0, $aRomList[8])
- Case "XML_Download"
- _LOG("->XML_Download", 1, $iLOGPath)
- If $aRomList[9] = 0 Then Return ""
- $vXpath = _XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Source_Value", 0, "", $oXMLProfil)
- $aXpathCountry = _Fallback($aConfig, $vXpath, $aRomList[8])
- For $vBoucle2 = 1 To UBound($aXpathCountry) - 1
- $vDownloadURL = _Coalesce(_XML_Read($aXpathCountry[$vBoucle2], 0, $aRomList[8]), -1)
- If $vDownloadURL < 0 Then
- If $aXpathCountry[$vBoucle2] <> 'None' Then _LOG($aXpathCountry[$vBoucle2] & " problem : " & $vDownloadURL, 3, $iLOGPath)
- Else
- $vDownloadMaxWidth = _Coalesce(_XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Target_Image_Width", 0, "", $oXMLProfil), 0)
- $vDownloadMaxHeight = _Coalesce(_XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Target_Image_Height", 0, "", $oXMLProfil), 0)
-
- $vDownloadTag = _XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Source_Download_Tag", 0, "", $oXMLProfil)
- If $vNodeType = "Folder" Then $vDownloadTag = $vDownloadTag & "-folder"
- $vDownloadExt = _Coalesce(IniRead($iINIPath, "LAST_USE", "$vTarget_Image_Ext", ""), _XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Source_Download_Ext", 0, "", $oXMLProfil))
- $aPathSplit = _PathSplit(StringReplace($aRomList[0], "\", "_"), $sDrive, $sDir, $sFileName, $sExtension)
- $vSource_ImagePath = $aConfig[3] & "\" & $sFileName & $vDownloadTag & "." & $vDownloadExt
- $vSource_ImagePath = _Picture_Download($vDownloadURL, $vSource_ImagePath, $oXMLProfil, $vDownloadMaxWidth, $vDownloadMaxHeight)
-
- If $vSource_ImagePath < 0 Then Return -1
-
- $vTarget_ImagePath = $aConfig[4] & $sFileName & $vDownloadTag & "." & $vDownloadExt
- If $vNodeType = "Folder" Then
- $vCheckExist = _XML_NodeExists($aConfig[8], _XML_Read('/Profil/Folder/Target_Value', 0, "", $oXMLProfil) & '[* = "' & $vTarget_ImagePath & '"]')
- Else
- $vCheckExist = _XML_NodeExists($aConfig[8], _XML_Read('/Profil/Game/Target_Value', 0, "", $oXMLProfil) & '[* = "' & $vTarget_ImagePath & '"]')
- EndIf
- If $vCheckExist = $XML_RET_SUCCESS Then
- _LOG(_XML_Read('/Profil/Game/Target_Value', 0, "", $oXMLProfil) & '[* = "' & $vTarget_ImagePath & '"]' & " Already exist in XML ( " & $vCheckExist & ")", 1, $iLOGPath)
- Return -2
- EndIf
-
- Return $vTarget_ImagePath
- EndIf
- Next
- Return ""
- Case "Fixe_Value"
- _LOG("->Fixe_Value", 1, $iLOGPath)
- Return _XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Source_Value", 0, "", $oXMLProfil)
- Case "Variable_Value"
- _LOG("->Variable_Value", 1, $iLOGPath)
- Switch _XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Source_Value", 0, "", $oXMLProfil)
- Case '%XML_Rom_Path%'
- $vSystem = StringSplit(IniRead($iINIPath, "LAST_USE", "$vSource_RomPath", ""), "\")
- $vSystem = $vSystem[UBound($vSystem) - 1]
- $vXMLRomPath = $aConfig[2] & StringReplace($aRomList[0], "\", "/")
- $vXMLRomPath = StringReplace($vXMLRomPath, '%system%', $vSystem)
- Return $vXMLRomPath
- Case '%AutoHide%'
- If $aRomList[3] = 2 Or $aRomList[3] = 3 Then Return "true"
- Case Else
- _LOG("SOURCE Unknown", 1, $iLOGPath)
- Return ""
- EndSwitch
- Case "MIX_Template"
- _LOG("->MIX_Template", 1, $iLOGPath)
- If $aRomList[9] = 0 And $aConfig[6] = 0 Then Return ""
- Local $vDownloadTag, $vDownloadExt, $vTargetPicturePath, $aPathSplit, $sDrive, $sDir, $sFileName, $sExtension
- $vDownloadTag = _XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Source_Download_Tag", 0, "", $oXMLProfil)
- If $vNodeType = "Folder" Then $vDownloadTag = $vDownloadTag & "-folder"
- $vDownloadExt = _XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Source_Download_Ext", 0, "", $oXMLProfil)
- $aPathSplit = _PathSplit(StringReplace($aRomList[0], "\", "_"), $sDrive, $sDir, $sFileName, $sExtension)
- $vTargetPicturePath = $aConfig[4] & $sFileName & $vDownloadTag & "." & $vDownloadExt
- Switch _XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Source_Download_Path", 0, "", $oXMLProfil)
- Case '%Local_Path_File%'
- $vDownloadPath = $aConfig[3] & "\" & $sFileName & $vDownloadTag & "." & $vDownloadExt
- Case Else ; For the futur
- $vDownloadPath = $aConfig[3] & "\" & $sFileName & $vDownloadTag & "." & $vDownloadExt
- EndSwitch
- If FileExists($vDownloadPath) And $aConfig[5] <> 2 Then Return $vTargetPicturePath
-
- $vValue = _MIX_Engine($aRomList, $vBoucle, $aConfig, $oXMLProfil)
- If Not FileExists($vValue) Then Return -1
- FileCopy($vValue, $vDownloadPath, $FC_OVERWRITE)
-
- _LOG("MIX Template finished (" & $vTargetPicturePath & ")", 1, $iLOGPath)
- Return $vTargetPicturePath
- Case Else
- _LOG("->SOURCE Unknown", 1, $iLOGPath)
- Return ""
- EndSwitch
-EndFunc ;==>_XML_Read_Source
-
-Func _Fallback($aConfig, $vXpath, $vSource_RomXMLPath)
- Local $vCountryPref = '', $vIdGenre = ''
- If StringInStr($vXpath, '%COUNTRY%') Then
- Local $aCountryPref = $aConfig[10]
- Else
- Local $aCountryPref[2] = ["", $vXpath]
- EndIf
- Local $aXpathCountry[UBound($aCountryPref)]
- For $vBoucle = 1 To UBound($aCountryPref) - 1
- $vCountryPref = $aCountryPref[$vBoucle]
- If $vCountryPref = '%COUNTRY%' Then $vCountryPref = _XML_Read("Data/jeu/regionshortnames/regionshortname", 0, $vSource_RomXMLPath)
- $aXpathCountry[$vBoucle] = StringReplace($vXpath, '%COUNTRY%', $vCountryPref)
- Next
- Return $aXpathCountry
-EndFunc ;==>_Fallback
-
-Func _Picture_Download($vDownloadURL, $vSource_ImagePath, $oXMLProfil, $vDownloadMaxWidth = 0, $vDownloadMaxHeight = 0)
- Local $vDownloadOutputFormat, $aPathSplit, $sDrive, $sDir, $sFileName, $sExtension
- $aPathSplit = _PathSplit($vSource_ImagePath, $sDrive, $sDir, $sFileName, $sExtension)
- If $vDownloadMaxWidth > 0 Then
- $vDownloadMaxWidth = "&maxwidth=" & $vDownloadMaxWidth
- Else
- $vDownloadMaxWidth = "&maxwidth=" & _Coalesce(IniRead($iINIPath, "LAST_USE", "$vTarget_Image_Width", ""), _XML_Read("Profil/General/Target_Image_Width", 0, "", $oXMLProfil))
- EndIf
- If $vDownloadMaxHeight > 0 Then
- $vDownloadMaxHeight = "&maxheight=" & $vDownloadMaxHeight
- Else
- $vDownloadMaxHeight = "&maxheight=" & _Coalesce(IniRead($iINIPath, "LAST_USE", "$vTarget_Image_Height", ""), _XML_Read("Profil/General/Target_Image_Height", 0, "", $oXMLProfil))
- EndIf
- $vDownloadOutputFormat = "&outputformat=" & StringMid($sExtension, 2)
-
- If FileExists($vSource_ImagePath) And $aConfig[5] <> 2 Then
- _LOG($vSource_ImagePath & " File already exist", 1, $iLOGPath)
- Return $vSource_ImagePath
- EndIf
-
- $vDownloadURL = StringReplace($vDownloadURL, "#sspassword#", $vSSPassword) & $vDownloadMaxWidth & $vDownloadMaxHeight & $vDownloadOutputFormat
- $vValue = _DownloadWRetry($vDownloadURL, $vSource_ImagePath)
- If $vValue < 0 Or Not FileExists($vSource_ImagePath) Then
- Return -1
- Else
- Return $vSource_ImagePath
- EndIf
-EndFunc ;==>_Picture_Download
-
-Func _MIX_Engine($aRomList, $vBoucle, $aConfig, $oXMLProfil)
- Local $vMIXTemplatePath = $iScriptPath & "\Mix\TEMP\"
- Local $oMixConfig = _XML_Open($vMIXTemplatePath & "config.xml")
- Local $vTarget_Width = _Coalesce(IniRead($iINIPath, "LAST_USE", "$vTarget_Image_Width", ""), _XML_Read("/Profil/General/Target_Width", 0, "", $oMixConfig))
- Local $vTarget_Height = _Coalesce(IniRead($iINIPath, "LAST_USE", "$vTarget_Image_Height", ""), _XML_Read("/Profil/General/Target_Height", 0, "", $oMixConfig))
- Local $vID_System = $aConfig[12]
- Local $vPicTarget = -1, $vWhile = 1, $vFinalValue = ""
- Dim $aMiXPicTemp[1]
- Sleep(250)
- FileDelete($iTEMPPath & "\MIX")
- Sleep(250)
- DirCreate($iTEMPPath & "\MIX")
- FileSetAttrib($iTEMPPath, "+H")
- While 1
- $iString = ""
- Switch StringLower(_XML_Read("/Profil/Element[" & $vWhile & "]/Source_Type", 0, "", $oMixConfig))
- Case "fixe_value"
- $vPicTarget = $iTEMPPath & "\MIX\" & _XML_Read("/Profil/Element[" & $vWhile & "]/Name", 0, "", $oMixConfig) & ".png"
- If Not FileCopy($vMIXTemplatePath & _XML_Read("/Profil/Element[" & $vWhile & "]/Source_Value", 0, "", $oMixConfig), $vPicTarget, $FC_OVERWRITE + $FC_CREATEPATH) Then
- _LOG("Error copying " & $vMIXTemplatePath & _XML_Read("/Profil/Element[" & $vWhile & "]/Source_Value", 0, "", $oMixConfig) & " to " & $vPicTarget, 2, $iLOGPath)
- Else
- $aPicParameters = _MIX_Engine_Dim($vWhile, $oMixConfig)
- _GDIPlus_Imaging($vPicTarget, $aPicParameters, $vTarget_Width, $vTarget_Height)
- _LOG("fixe_value : " & $vPicTarget & " Created", 1, $iLOGPath)
- _ArrayAdd($aMiXPicTemp, $vPicTarget)
- EndIf
- Case "xml_value"
- $vPicTarget = $iTEMPPath & "\MIX\" & _XML_Read("/Profil/Element[" & $vWhile & "]/Name", 0, "", $oMixConfig) & ".png"
- $vXpath = _XML_Read("/Profil/Element[" & $vWhile & "]/Source_Value", 0, "", $oMixConfig)
- $vOrigin = StringLower(_XML_Read("/Profil/Element[" & $vWhile & "]/source_Origin", 0, "", $oMixConfig))
- If $vOrigin = -1 Then $vOrigin = 'game'
- $aPicParameters = _MIX_Engine_Dim($vWhile, $oMixConfig)
- $aXpathCountry = _Fallback($aConfig, $vXpath, $aRomList[8])
- For $vBoucle2 = 1 To UBound($aXpathCountry) - 1
- If Not FileExists($vPicTarget) Then
- If StringInStr($aXpathCountry[$vBoucle2], '%IDGENRE%') Then
- $vIdGenre = _XML_Read("Data/jeu/genres/genres_id/genre_id", 0, $aRomList[8])
- $aXpathCountry[$vBoucle2] = StringReplace($aXpathCountry[$vBoucle2], '%IDGENRE%', $vIdGenre)
- EndIf
- Switch $vOrigin
- Case 'game'
- $vDownloadURL = _Coalesce(_XML_Read($aXpathCountry[$vBoucle2], 0, $aRomList[8]), -1)
- $vCRC = _Coalesce(_XML_Read($aXpathCountry[$vBoucle2] & "_crc", 0, $aRomList[8]), Default)
- If $vDownloadURL = -1 Then _LOG("No URL : " & $aXpathCountry[$vBoucle2], 1, $iLOGPath)
- Case 'system'
- $vDownloadURL = _Coalesce(_XML_Read(StringReplace($aXpathCountry[$vBoucle2], "%IDSYSTEM%", $vID_System), 0, "", $oXMLSystem), -1)
- $vCRC = _Coalesce(_XML_Read(StringReplace($aXpathCountry[$vBoucle2], "%IDSYSTEM%", $vID_System) & "_crc", 0, "", $oXMLSystem), Default)
- If $vDownloadURL = -1 Then _LOG("No URL : " & StringReplace($aXpathCountry[$vBoucle2], "%IDSYSTEM%", $vID_System), 1, $iLOGPath)
- EndSwitch
- If Not ($vDownloadURL < 0) Then
- $vValue = _DownloadWRetry(StringReplace($vDownloadURL, "#sspassword#", $vSSPassword), $vPicTarget, 15, 20, $vCRC)
- If $vValue < 0 Then
- _LOG("xml_value : " & $vPicTarget & " Not Added", 2, $iLOGPath)
- Else
- $vRotationLvl = _Coalesce(_XML_Read("/Profil/Element[" & $vWhile & "]/Target_Rotation", 0, "", $oMixConfig), 0)
- If $vRotationLvl > 0 Then
- If _GDIPlus_Rotation($vPicTarget, $vRotationLvl) = -1 Then _LOG("Rotation Failed", 2, $iLOGPath)
- EndIf
- _GDIPlus_Imaging($vPicTarget, $aPicParameters, $vTarget_Width, $vTarget_Height)
- _ArrayAdd($aMiXPicTemp, $vPicTarget)
- _LOG("xml_value : " & $vPicTarget & " Created", 1, $iLOGPath)
- EndIf
- EndIf
- Else
- _LOG("File : " & $vPicTarget & " already exist", 1, $iLOGPath)
- EndIf
- Next
- Case "text"
- Switch StringLower(_XML_Read("/Profil/Element[" & $vWhile & "]/Source_TextType", 0, "", $oMixConfig))
- Case "xml_value"
- $vXpath = (_XML_Read("/Profil/Element[" & $vWhile & "]/Source_Value", 0, "", $oMixConfig))
- If StringInStr($vXpath, '%LANG%') Then
- Local $aLangPref = $aConfig[9]
- For $vBoucle2 = 1 To UBound($aLangPref) - 1
- $vXpathTemp = StringReplace($vXpath, '%LANG%', $aLangPref[$vBoucle2])
- $vValue = _XML_Read($vXpathTemp, 0, $aRomList[8])
- If $vValue <> -1 And $vValue <> "" Then
- $vBoucle2 = UBound($aLangPref) - 1
- $iString = $vValue
- EndIf
- Next
- EndIf
- $aXpathCountry = _Fallback($aConfig, $vXpath, $aRomList[8])
- For $vBoucle2 = 1 To UBound($aXpathCountry) - 1
- $vValue = _XML_Read($aXpathCountry[$vBoucle2], 0, $aRomList[8])
- _LOG("COUNTRY " & $aXpathCountry[$vBoucle2] & "=" & $vValue, 1, $iLOGPath)
- If $vValue <> -1 And $vValue <> "" And $iString = "" Then
- $vBoucle2 = UBound($aXpathCountry) - 1
- $iString = $vValue
- EndIf
- Next
- _LOG("Text = " & $iString, 1, $iLOGPath)
- Case "fixe"
- $iString = (_XML_Read("/Profil/Element[" & $vWhile & "]/Source_Value", 0, "", $oMixConfig))
- _LOG("Text = " & $iString, 1, $iLOGPath)
- EndSwitch
- $aPicParameters = _MIX_Engine_Dim($vWhile, $oMixConfig)
- $iFont = _XML_Read("/Profil/Element[" & $vWhile & "]/Target_Font", 0, "", $oMixConfig)
- $iFontSize = _XML_Read("/Profil/Element[" & $vWhile & "]/Target_FontSize", 0, "", $oMixConfig)
- $iFontStyle = _XML_Read("/Profil/Element[" & $vWhile & "]/Target_FontStyle", 0, "", $oMixConfig)
- $iFontColor = _XML_Read("/Profil/Element[" & $vWhile & "]/Target_FontColor", 0, "", $oMixConfig)
- $vPath = $aMiXPicTemp[UBound($aMiXPicTemp) - 1]
-
- _GDIPlus_Text($vPath, $iString, $aPicParameters[2], $aPicParameters[3], $iFont, $iFontSize, $iFontStyle, $iFontColor, $aPicParameters[13], $aPicParameters[14])
-
- Case 'gdi_function'
- Switch StringLower(_XML_Read("/Profil/Element[" & $vWhile & "]/Source_Function", 0, "", $oMixConfig))
- Case 'transparency'
- $aPicParameters = _MIX_Engine_Dim($vWhile, $oMixConfig)
- $vTransLvl = _XML_Read("/Profil/Element[" & $vWhile & "]/Source_Value", 0, "", $oMixConfig)
- $vPath = $aMiXPicTemp[UBound($aMiXPicTemp) - 1]
- If _GDIPlus_Transparency($vPath, $vTransLvl) = -1 Then _LOG("Transparency Failed", 2, $iLOGPath)
- Case 'merge'
- If _GDIPlus_Merge($aMiXPicTemp[UBound($aMiXPicTemp) - 2], $aMiXPicTemp[UBound($aMiXPicTemp) - 1]) = -1 Then _LOG("Merging Failed", 2, $iLOGPath)
- _ArrayDelete($aMiXPicTemp, UBound($aMiXPicTemp) - 1)
- Case 'transparencyzone'
- $aPicParameters = _MIX_Engine_Dim($vWhile, $oMixConfig)
- $vTransLvl = _XML_Read("/Profil/Element[" & $vWhile & "]/Source_Value", 0, "", $oMixConfig)
- $vPath = $aMiXPicTemp[UBound($aMiXPicTemp) - 1]
- If _GDIPlus_TransparencyZone($vPath, $vTarget_Width, $vTarget_Height, $vTransLvl, $aPicParameters[2], $aPicParameters[3], $aPicParameters[0], $aPicParameters[1]) = -1 Then _LOG("Transparency Failed", 2, $iLOGPath)
- Case Else
- _LOG("Unknown GDI_Function", 2, $iLOGPath)
- EndSwitch
- Case Else
- _LOG("End Of MIX", 1, $iLOGPath)
- ExitLoop
- EndSwitch
- $vWhile = $vWhile + 1
- WEnd
-
-;~ _ArrayDisplay($aMiXPicTemp);Debug
-
- For $vBoucle2 = UBound($aMiXPicTemp) - 1 To 2 Step -1
- If FileExists($aMiXPicTemp[$vBoucle2 - 1]) Then _GDIPlus_Merge($aMiXPicTemp[$vBoucle2 - 1], $aMiXPicTemp[$vBoucle2])
- Next
-
- If Not IsArray($aMiXPicTemp) Or UBound($aMiXPicTemp) - 1 <= 0 Then
- _LOG("End Of Elements", 1, $iLOGPath)
- Return -1
- EndIf
-
- $vCompression = _XML_Read("/Profil/Compression/use", 0, "", $oMixConfig)
- $vCompressionSoft = _XML_Read("/Profil/Compression/soft", 0, "", $oMixConfig)
- $vCompressionParameter = _XML_Read("/Profil/Compression/parameter", 0, "", $oMixConfig)
- If StringLower($vCompression) = 'yes' Then _Compression($aMiXPicTemp[1], $vCompressionSoft, $vCompressionParameter)
-
- If UBound($aMiXPicTemp) - 1 > 0 Then Return $aMiXPicTemp[1]
- Return -1
-EndFunc ;==>_MIX_Engine
-
-Func _MIX_Engine_Dim($vWhile, $oMixConfig)
- Dim $aPicParameters[15]
- $aPicParameters[0] = _XML_Read("/Profil/Element[" & $vWhile & "]/Target_Width", 0, "", $oMixConfig)
- $aPicParameters[1] = _XML_Read("/Profil/Element[" & $vWhile & "]/Target_Height", 0, "", $oMixConfig)
- $aPicParameters[2] = _XML_Read("/Profil/Element[" & $vWhile & "]/Target_TopLeftX", 0, "", $oMixConfig)
- $aPicParameters[3] = _XML_Read("/Profil/Element[" & $vWhile & "]/Target_TopLeftY", 0, "", $oMixConfig)
- $aPicParameters[4] = _XML_Read("/Profil/Element[" & $vWhile & "]/Target_TopRightX", 0, "", $oMixConfig)
- $aPicParameters[5] = _XML_Read("/Profil/Element[" & $vWhile & "]/Target_TopRightY", 0, "", $oMixConfig)
- $aPicParameters[6] = _XML_Read("/Profil/Element[" & $vWhile & "]/Target_BottomLeftX", 0, "", $oMixConfig)
- $aPicParameters[7] = _XML_Read("/Profil/Element[" & $vWhile & "]/Target_BottomLeftY", 0, "", $oMixConfig)
- $aPicParameters[8] = _XML_Read("/Profil/Element[" & $vWhile & "]/Target_Maximize", 0, "", $oMixConfig)
- $aPicParameters[9] = _XML_Read("/Profil/Element[" & $vWhile & "]/Target_OriginX", 0, "", $oMixConfig)
- $aPicParameters[10] = _XML_Read("/Profil/Element[" & $vWhile & "]/Target_OriginY", 0, "", $oMixConfig)
- $aPicParameters[11] = _XML_Read("/Profil/Element[" & $vWhile & "]/Target_BottomRightX", 0, "", $oMixConfig)
- $aPicParameters[12] = _XML_Read("/Profil/Element[" & $vWhile & "]/Target_BottomRightY", 0, "", $oMixConfig)
- $aPicParameters[13] = _Coalesce(_XML_Read("/Profil/Element[" & $vWhile & "]/Target_OriginPicX", 0, "", $oMixConfig), Default)
- $aPicParameters[14] = _Coalesce(_XML_Read("/Profil/Element[" & $vWhile & "]/Target_OriginPicY", 0, "", $oMixConfig), Default)
- Return $aPicParameters
-EndFunc ;==>_MIX_Engine_Dim
-
-Func _XMLSystem_Create()
- Local $oXMLSystem, $vXMLSystemPath = $iScriptPath & "\Ressources\systemlist.xml"
- $oXMLSystem = _XML_Open($vXMLSystemPath)
- If $oXMLSystem = -1 Then
- MsgBox(0, 'ERREUR', '')
- Exit
- Else
- _LOG("systemlist.xml Opened", 1, $iLOGPath)
- Return $oXMLSystem
- EndIf
-EndFunc ;==>_XMLSystem_Create
-
-Func _XMLGenre_Create()
- Local $oXMLGenre, $vXMLGenrePath = $iScriptPath & "\Ressources\Genresliste.xml"
- $oXMLGenre = _XML_Open($vXMLGenrePath)
- If $oXMLGenre = -1 Then
- MsgBox(0, 'ERREUR', '')
- Exit
- Else
- _LOG("Genrelist.xml Opened", 1, $iLOGPath)
- Return $oXMLGenre
- EndIf
-EndFunc ;==>_XMLGenre_Create
-
diff --git a/Scraper.au3 b/Scraper.au3
index 646124e..4173e5c 100644
--- a/Scraper.au3
+++ b/Scraper.au3
@@ -5,7 +5,7 @@
#AutoIt3Wrapper_Compile_Both=y
#AutoIt3Wrapper_UseX64=y
#AutoIt3Wrapper_Res_Description=Scraper
-#AutoIt3Wrapper_Res_Fileversion=1.2.0.8
+#AutoIt3Wrapper_Res_Fileversion=1.2.0.11
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=p
#AutoIt3Wrapper_Res_LegalCopyright=LEGRAS David
#AutoIt3Wrapper_Res_Language=1036
@@ -87,6 +87,9 @@ If $oXMLGenre = -1 Then Exit
Sleep(1000)
+_FileCreate($iTEMPPathGlobal & "\Engine" & $vThreadNumber)
+FileWrite($iTEMPPathGlobal & "\Engine" & $vThreadNumber, "0")
+
_SendMail($sMailSlotCheckEngine, $vThreadNumber & "|0")
While $iNumberOfMessagesOverall < 5
@@ -96,6 +99,7 @@ While $iNumberOfMessagesOverall < 5
Exit
EndIf
If _MailSlotGetMessageCount($hMailSlot) >= 1 Then
+ _FileWriteToLine($iTEMPPathGlobal & "\Engine" & $vThreadNumber, 1, "1", True)
Switch $iNumberOfMessagesOverall
Case 1
$aRomList = _ReadMessage($hMailSlot)
@@ -130,7 +134,7 @@ While $iNumberOfMessagesOverall < 5
Sleep(200)
EndIf
If $iNumberOfMessagesOverall = 5 Then
- _SendMail($sMailSlotCheckEngine, $vThreadNumber & "|1")
+;~ _SendMail($sMailSlotCheckEngine, $vThreadNumber & "|1")
$vRomTimer = TimerInit()
_LOG("-----Making " & $aRomList[2], 1, $iLOGPath)
$aRomList = _Game_Make($aRomList, $vBoucle, $aConfig, $oXMLProfil)
@@ -143,7 +147,8 @@ While $iNumberOfMessagesOverall < 5
$vScrapedTime = Round((TimerDiff($vRomTimer) / 1000), 2)
_SendMail($sMailSlotMother, $vBoucle & "|" & $vScrapedTime)
_LOG("-----" & $aRomList[2] & " scraped in " & $vScrapedTime & "s", 3, $iLOGPath)
- _SendMail($sMailSlotCheckEngine, $vThreadNumber & "|0")
+;~ _SendMail($sMailSlotCheckEngine, $vThreadNumber & "|0")
+ _FileWriteToLine($iTEMPPathGlobal & "\Engine" & $vThreadNumber, 1, "0", True)
If _CheckCount($hMailSlotCancel) >= 1 Then Exit
EndIf
WEnd
diff --git a/Scraper.au3.Backup.au3 b/Scraper.au3.Backup.au3
deleted file mode 100644
index 151020e..0000000
--- a/Scraper.au3.Backup.au3
+++ /dev/null
@@ -1,653 +0,0 @@
-#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
-#AutoIt3Wrapper_Icon=Ressources\Scraper.ico
-#AutoIt3Wrapper_Outfile=.\Scraper.exe
-#AutoIt3Wrapper_Outfile_x64=.\Scraper64.exe
-#AutoIt3Wrapper_Compile_Both=y
-#AutoIt3Wrapper_UseX64=y
-#AutoIt3Wrapper_Res_Description=Scraper
-#AutoIt3Wrapper_Res_Fileversion=1.2.0.6
-#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=p
-#AutoIt3Wrapper_Res_LegalCopyright=LEGRAS David
-#AutoIt3Wrapper_Res_Language=1036
-#AutoIt3Wrapper_AU3Check_Stop_OnWarning=y
-#AutoIt3Wrapper_Run_Tidy=y
-#Tidy_Parameters=/reel
-#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
-TraySetState(2)
-
-If $CmdLine[0] = 0 Then Exit
-$vThreadNumber = $CmdLine[1]
-
-#include
-#include
-#include
-#include
-#include
-#include
-#include
-#include
-
-If Not _FileCreate(@ScriptDir & "\test") Then ; Testing UXS Directory
- Global $iScriptPath = @AppDataDir & "\UXMLS" ; If not, use Path to current user's Roaming Application Data
- DirCreate($iScriptPath) ;
-Else
- Global $iScriptPath = @ScriptDir
- FileDelete($iScriptPath & "\test")
-EndIf
-
-Global $iINIPath = $iScriptPath & "\UXS-config.ini"
-Global $iLOGPath = $iScriptPath & "\LOGs\log" & $vThreadNumber & ".txt"
-Global $iVerboseLVL = IniRead($iINIPath, "GENERAL", "$vVerbose", 0)
-
-_LOG_Ceation($iLOGPath) ; Starting Log
-
-;~ #include "./Include/_MultiLang.au3"
-;~ #include "./Include/_XML.au3"
-;~ #include "./Include/_MailSlot.au3"
-;~ #include "./Include/_GraphGDIPlus.au3"
-;~ #include "./Include/_MyFunction.au3"
-;~ #include "./Include/_AutoItErrorTrap.au3"
-;~ #include "./Include/_Hash.au3"
-
-; Custom title and text...
-_AutoItErrorTrap("AutoItErrorTrap", "Hi!" & @CRLF & @CRLF & "An error was detected in the program, you can try again," & _
- " cancel to exit or continue to see more details of the error." & @CRLF & @CRLF & "Sorry for the inconvenience!")
-
-Local $iScriptVer = FileGetVersion(@ScriptFullPath)
-Local $iINIVer = IniRead($iINIPath, "GENERAL", "$verINI", '0.0.0.0')
-Local $iSoftname = "UniversalXMLScraperV" & $iScriptVer
-
-Global $iDevId = BinaryToString(_Crypt_DecryptData("0x1552EDED2FA9B5", "1gdf1g1gf", $CALG_RC4))
-Global $iDevPassword = BinaryToString(_Crypt_DecryptData("0x1552EDED2FA9B547FBD0D9A623D954AE7BEDC681", "1gdf1g1gf", $CALG_RC4))
-Global $iTEMPPath = $iScriptPath & "\TEMP\MIX" & $vThreadNumber
-Global $iTEMPPathGlobal = $iScriptPath & "\TEMP"
-Global $iRessourcesPath = $iScriptPath & "\Ressources"
-Global $iLangPath = $iScriptPath & "\LanguageFiles" ; Where we are storing the language files.
-Global $iProfilsPath = $iScriptPath & "\ProfilsFiles" ; Where we are storing the profils files.
-Global $vNodeType = "Element"
-Global $vSSLogin = IniRead($iINIPath, "LAST_USE", "$vSSLogin", "")
-Global $vSSPassword = BinaryToString(_Crypt_DecryptData(IniRead($iINIPath, "LAST_USE", "$vSSPassword", ""), "1gdf1g1gf", $CALG_RC4))
-
-Local $iSize, $aRomList, $vBoucle, $aConfig, $vProfilsPath, $oXMLProfil, $oXMLSystem, $aMatchingCountry, $oXMLGenre
-Local $sMailSlotMother = "\\.\mailslot\Mother"
-Local $sMailSlotName = "\\.\mailslot\Son" & $vThreadNumber
-Local $sMailSlotCancel = "\\.\mailslot\Cancel" & $vThreadNumber
-Local $sMailSlotCheckEngine = "\\.\mailslot\CheckEngine"
-Local $hMailSlot = _CreateMailslot($sMailSlotName)
-Local $hMailSlotCancel = _CreateMailslot($sMailSlotCancel)
-Local $iNumberOfMessagesOverall = 1
-
-_SendMail($sMailSlotCheckEngine, $vThreadNumber & "|0")
-
-$oXMLSystem = _XMLSystem_Create()
-If $oXMLSystem = -1 Then Exit
-
-$oXMLGenre = _XMLGenre_Create()
-If $oXMLGenre = -1 Then Exit
-
-Sleep(1000)
-
-_SendMail($sMailSlotCheckEngine, $vThreadNumber & "|0")
-
-While $iNumberOfMessagesOverall < 5
- If _CheckCount($hMailSlotCancel) >= 1 Then
- _MailSlotClose($hMailSlot)
- _MailSlotClose($hMailSlotCancel)
- Exit
- EndIf
- If _MailSlotGetMessageCount($hMailSlot) >= 1 Then
- Switch $iNumberOfMessagesOverall
- Case 1
- $aRomList = _ReadMessage($hMailSlot)
- _LOG("Read Message $aRomList : " & $aRomList, 1, $iLOGPath)
- $aRomList = StringSplit($aRomList, '{Break}', $STR_ENTIRESPLIT + $STR_NOCOUNT)
- ReDim $aRomList[13]
- $iNumberOfMessagesOverall += 1
- Case 2
- $vBoucle = _ReadMessage($hMailSlot)
- _LOG("Read Message $vBoucle : " & $vBoucle, 1, $iLOGPath)
- $iNumberOfMessagesOverall += 1
- Case 3
- $aConfig = _ReadMessage($hMailSlot)
- _LOG("Read Message $aConfig : " & $aConfig, 1, $iLOGPath)
- $aConfig = StringSplit($aConfig, '{Break}', $STR_ENTIRESPLIT + $STR_NOCOUNT)
- ReDim $aConfig[16]
-
- $aConfig[8] = _XML_Open($iTEMPPathGlobal & "\scraped\" & $vBoucle & ".xml")
- $aConfig[9] = StringSplit($aConfig[9], "|")
- $aConfig[10] = StringSplit($aConfig[10], "|")
- _FileReadToArray($aConfig[11], $aMatchingCountry, $FRTA_NOCOUNT, "|")
- $aConfig[11] = $aMatchingCountry
- $iNumberOfMessagesOverall += 1
- Case 4
- $vProfilsPath = _ReadMessage($hMailSlot)
- _LOG("Read Message $vProfilsPath : " & $vProfilsPath, 1, $iLOGPath)
- $oXMLProfil = _XML_Open($vProfilsPath)
- $iNumberOfMessagesOverall += 1
- EndSwitch
- Else
- ; no new message - just yield
- Sleep(200)
- EndIf
- If $iNumberOfMessagesOverall = 5 Then
- _SendMail($sMailSlotCheckEngine, $vThreadNumber & "|1")
- $vRomTimer = TimerInit()
- _LOG("-----Making " & $aRomList[2], 1, $iLOGPath)
- $aRomList = _Game_Make($aRomList, $vBoucle, $aConfig, $oXMLProfil)
- $oXMLAfterTidy = _XML_CreateDOMDocument(Default)
- $vXMLAfterTidy = _XML_TIDY($aConfig[8])
- _XML_LoadXML($oXMLAfterTidy, $vXMLAfterTidy)
- FileDelete($iTEMPPathGlobal & "\scraped\" & $vBoucle & ".xml")
- _XML_SaveToFile($oXMLAfterTidy, $iTEMPPathGlobal & "\scraped\" & $vBoucle & ".xml")
- $iNumberOfMessagesOverall = 1
- $vScrapedTime = Round((TimerDiff($vRomTimer) / 1000), 2)
- _SendMail($sMailSlotMother, $vBoucle & "|" & $vScrapedTime)
- _LOG("-----" & $aRomList[2] & " scraped in " & $vScrapedTime & "s", 3, $iLOGPath)
- _SendMail($sMailSlotCheckEngine, $vThreadNumber & "|0")
- If _CheckCount($hMailSlotCancel) >= 1 Then Exit
- EndIf
-WEnd
-
-Func _Game_Make($aRomList, $vBoucle, $aConfig, $oXMLProfil)
- Local $vValue = "", $vAttributeName, $vWhile = 1, $vNode, $vBracketPos = 0, $vHookPos = 0, $vSystem
- While 1
- If $aRomList[3] = 4 Then
- $vNodeType = "Folder"
- _LOG("Creating Folder", 1, $iLOGPath)
- Else
- $vNodeType = "Element"
- _LOG("Creating Element", 1, $iLOGPath)
- EndIf
- _LOG("/Profil/" & $vNodeType & "[" & $vWhile & "]/Target_Type = " & _XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Target_Type", 0, "", $oXMLProfil), 1, $iLOGPath)
- Switch _XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Target_Type", 0, "", $oXMLProfil)
- Case "XML_Value"
- $vValue = _XML_Read_Source($aRomList, $vBoucle, $aConfig, $oXMLProfil, $vWhile)
- $vNode = _XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Target_Value", 0, "", $oXMLProfil)
- Switch _Coalesce(StringLower(_XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Target_CASE", 0, "", $oXMLProfil)), "default")
- Case "true"
- $vValue = StringUpper($vValue)
- Case "false"
- $vValue = StringLower($vValue)
- EndSwitch
- If $aConfig[5] <> 2 Then
- _LOG($vNode & " <-- " & $vValue, 1, $iLOGPath)
- _XML_WriteValue($vNode, $vValue, "", $aConfig[8])
- EndIf
- Case "XML_Attribute"
- $vValue = _XML_Read_Source($aRomList, $vBoucle, $aConfig, $oXMLProfil, $vWhile)
- $vAttributeName = _XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Target_Attribute_Name", 0, "", $oXMLProfil)
- $vNode = _XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Target_Value", 0, "", $oXMLProfil)
- Switch _Coalesce(StringLower(_XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Target_CASE", 0, "", $oXMLProfil)), "default")
- Case "true"
- $vValue = StringUpper($vValue)
- Case "false"
- $vValue = StringLower($vValue)
- EndSwitch
- If $aConfig[5] <> 2 Then
- _LOG($vNode & " <-- " & $vValue, 1, $iLOGPath)
- _XML_WriteAttributs($vNode, $vAttributeName, $vValue, "", $aConfig[8])
- EndIf
- Case "XML_Path"
- $vValue = _XML_Read_Source($aRomList, $vBoucle, $aConfig, $oXMLProfil, $vWhile)
- $vNode = _XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Target_Value", 0, "", $oXMLProfil)
- _LOG($vNode & " <-- " & $vValue, 1, $iLOGPath)
- If Number($vValue) < 0 Or $aConfig[5] = 2 Then
- _LOG($vNode & " <-- No value to write", 1, $iLOGPath)
- Else
- $vSystem = StringSplit(IniRead($iINIPath, "LAST_USE", "$vSource_RomPath", ""), "\")
- $vSystem = $vSystem[UBound($vSystem) - 1]
- $vValue = StringReplace($vValue, '%system%', $vSystem)
- _XML_WriteValue($vNode, $vValue, "", $aConfig[8])
- EndIf
- Case "XML_Value_FORMAT"
- $vValue = _XML_Read_Source($aRomList, $vBoucle, $aConfig, $oXMLProfil, $vWhile)
- Switch _XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Target_FORMAT", 0, "", $oXMLProfil)
- Case '%20on1%'
- $vValue = StringReplace(Round(($vValue * 100 / 20) / 100, 2), ",", ".")
- Case '%ES_Date%'
- $vValue = StringLeft(StringReplace($vValue, "-", "") & '00000000', 8) & "T000000"
- Case '%Filename%'
- $vValue = $aRomList[2]
- Case '%Name+Filename_Bracket%'
- If StringInStr($aRomList[2], "(") > 0 Then $vBracketPos = StringInStr($aRomList[2], "(")
- If StringInStr($aRomList[2], "[") > 0 Then $vHookPos = StringInStr($aRomList[2], "[")
- If $vHookPos < $vBracketPos And $vHookPos > 0 Then $vBracketPos = $vHookPos
- If $vBracketPos > 0 Then $vValue = $vValue & " " & StringMid($aRomList[2], $vBracketPos)
- Case '%Name+Option%'
- $vRomId = _XML_Read("Data/jeu/romid", 0, $aRomList[8]) ;RomId
- $vTarget_NameOption_Country = _XML_Read('Profil/Element[@Type="Name"]/Target_NameOption_Country', 0, "", $oXMLProfil)
- Switch $vTarget_NameOption_Country
- Case "Yes"
- $vCountryshort = _Coalesce(_XML_Read("Data/jeu/regionshortnames/regionshortname", 0, $aRomList[8]), "unknown")
- If $vCountryshort <> "unknown" Then
- Local $aLangPref = $aConfig[9]
- For $vBoucle2 = 1 To UBound($aLangPref) - 1
- $vXpathTemp = '/Data/regions/region[nomcourt="' & $vCountryshort & '"]/nom_' & $aLangPref[$vBoucle2]
- $vCountry = _XML_Read($vXpathTemp, 0, $iRessourcesPath & "\Countrylist.xml")
- If $vValue <> -1 And $vValue <> "" Then
- $vValue = $vValue & " [" & $vCountry & "]"
- $vBoucle2 = UBound($aLangPref) - 1
- EndIf
- Next
- EndIf
- Case "YesNoWorld"
- $vCountryshort = _Coalesce(_XML_Read("Data/jeu/regionshortnames/regionshortname", 0, $aRomList[8]), "unknown")
- If $vCountryshort <> "unknown" And $vCountryshort <> "wor" Then
- Local $aLangPref = $aConfig[9]
- For $vBoucle2 = 1 To UBound($aLangPref) - 1
- $vXpathTemp = '/Data/regions/region[nomcourt="' & $vCountryshort & '"]/nom_' & $aLangPref[$vBoucle2]
- $vCountry = _XML_Read($vXpathTemp, 0, $iRessourcesPath & "\Countrylist.xml")
- If $vValue <> -1 And $vValue <> "" Then
- $vValue = $vValue & " [" & $vCountry & "]"
- $vBoucle2 = UBound($aLangPref) - 1
- EndIf
- Next
- EndIf
- EndSwitch
- If _XML_Read('Profil/Element[@Type="Name"]/Target_NameOption_Clone', 0, "", $oXMLProfil) = "Yes" Then $vTarget_NameOption_Clone_Value = _Coalesce(_XML_Read("Data/jeu/cloneof", 0, $aRomList[8]), 0)
- If _XML_Read('Profil/Element[@Type="Name"]/Target_NameOption_Beta', 0, "", $oXMLProfil) = "Yes" Then $vTarget_NameOption_Beta_Value = _Coalesce(_XML_Read('Data/jeu/roms/rom[romid="' & $vRomId & '"]/beta', 0, $aRomList[8]), 0)
- If _XML_Read('Profil/Element[@Type="Name"]/Target_NameOption_Demo', 0, "", $oXMLProfil) = "Yes" Then $vTarget_NameOption_Demo_Value = _Coalesce(_XML_Read('Data/jeu/roms/rom[romid="' & $vRomId & '"]/demo', 0, $aRomList[8]), 0)
- If _XML_Read('Profil/Element[@Type="Name"]/Target_NameOption_Proto', 0, "", $oXMLProfil) = "Yes" Then $vTarget_NameOption_Proto_Value = _Coalesce(_XML_Read('Data/jeu/roms/rom[romid="' & $vRomId & '"]/proto', 0, $aRomList[8]), 0)
- If _XML_Read('Profil/Element[@Type="Name"]/Target_NameOption_Trad', 0, "", $oXMLProfil) = "Yes" Then $vTarget_NameOption_Trad_Value = _Coalesce(_XML_Read('Data/jeu/roms/rom[romid="' & $vRomId & '"]/trad', 0, $aRomList[8]), 0)
- If _XML_Read('Profil/Element[@Type="Name"]/Target_NameOption_Hack', 0, "", $oXMLProfil) = "Yes" Then $vTarget_NameOption_Hack_Value = _Coalesce(_XML_Read('Data/jeu/roms/rom[romid="' & $vRomId & '"]/hack', 0, $aRomList[8]), 0)
- If _XML_Read('Profil/Element[@Type="Name"]/Target_NameOption_Unl', 0, "", $oXMLProfil) = "Yes" Then $vTarget_NameOption_Unl_Value = _Coalesce(_XML_Read('Data/jeu/roms/rom[romid="' & $vRomId & '"]/unl', 0, $aRomList[8]), 0)
- If _XML_Read('Profil/Element[@Type="Name"]/Target_NameOption_Alt', 0, "", $oXMLProfil) = "Yes" Then $vTarget_NameOption_Alt_Value = _Coalesce(_XML_Read('Data/jeu/roms/rom[romid="' & $vRomId & '"]/alt', 0, $aRomList[8]), 0)
- If _XML_Read('Profil/Element[@Type="Name"]/Target_NameOption_Best', 0, "", $oXMLProfil) = "Yes" Then $vTarget_NameOption_Best_Value = _Coalesce(_XML_Read('Data/jeu/roms/rom[romid="' & $vRomId & '"]/best', 0, $aRomList[8]), 0)
-
- $vNameTag = ""
- If $vTarget_NameOption_Clone_Value <> "0" Then $vNameTag = $vNameTag & "Clone, "
- If $vTarget_NameOption_Beta_Value <> "0" Then $vNameTag = $vNameTag & "Beta, "
- If $vTarget_NameOption_Demo_Value <> "0" Then $vNameTag = $vNameTag & "Demo, "
- If $vTarget_NameOption_Proto_Value <> "0" Then $vNameTag = $vNameTag & "Proto, "
- If $vTarget_NameOption_Trad_Value <> "0" Then $vNameTag = $vNameTag & "Trad, "
- If $vTarget_NameOption_Hack_Value <> "0" Then $vNameTag = $vNameTag & "Hack, "
- If $vTarget_NameOption_Unl_Value <> "0" Then $vNameTag = $vNameTag & "Unl, "
- If $vTarget_NameOption_Alt_Value <> "0" Then $vNameTag = $vNameTag & "Alt, "
- If $vTarget_NameOption_Best_Value <> "0" Then $vNameTag = $vNameTag & "Best, "
- If StringRight($vNameTag, 2) = ", " Then $vNameTag = StringTrimRight($vNameTag, 2)
- If $vNameTag <> "" Then $vValue = $vValue & " (" & $vNameTag & ")"
-
- _LOG("Final name : " & $vValue, 1, $iLOGPath)
- EndSwitch
- $vNode = _XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Target_Value", 0, "", $oXMLProfil)
- Switch _Coalesce(StringLower(_XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Target_CASE", 0, "", $oXMLProfil)), "default")
- Case "true"
- $vValue = StringUpper($vValue)
- Case "false"
- $vValue = StringLower($vValue)
- EndSwitch
- If $aConfig[5] <> 2 Then
- _LOG($vNode & " <-- " & $vValue, 1, $iLOGPath)
- _XML_WriteValue($vNode, $vValue, "", $aConfig[8])
- EndIf
- Case Else
- _LOG("End Of Elements", 1, $iLOGPath)
- ExitLoop
- EndSwitch
- $vWhile = $vWhile + 1
- WEnd
- Return $aRomList
-EndFunc ;==>_Game_Make
-
-Func _XML_Read_Source($aRomList, $vBoucle, $aConfig, $oXMLProfil, $vWhile)
- Local $vXpath, $vValue, $vXpathTemp, $aXpathCountry, $aPathSplit, $sDrive, $sDir, $sFileName, $sExtension
- $vSource_Type = _XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Source_Type", 0, "", $oXMLProfil)
- _LOG("/Profil/" & $vNodeType & "[" & $vWhile & "]/Source_Type = " & $vSource_Type, 1, $iLOGPath)
- Switch $vSource_Type
- Case "XML_Value"
- _LOG("->XML_Value", 1, $iLOGPath)
- If $aRomList[9] = 0 Or $aConfig[5] = 2 Then Return ""
- $vXpath = _XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Source_Value", 0, "", $oXMLProfil)
- _LOG("$vXpath : " & $vXpath, 3, $iLOGPath)
- If StringInStr($vXpath, '%LANG%') Then
- _LOG('%LANG%', 3, $iLOGPath)
- Local $aLangPref = $aConfig[9]
- For $vBoucle2 = 1 To UBound($aLangPref) - 1
- $vXpathTemp = StringReplace($vXpath, '%LANG%', $aLangPref[$vBoucle2])
- $vValue = _XML_Read($vXpathTemp, 0, $aRomList[8])
- If $vValue <> -1 And $vValue <> "" Then Return $vValue
- Next
- EndIf
-
- If StringInStr($vXpath, '%COUNTRY%') Then
- _LOG('%COUNTRY%', 3, $iLOGPath)
- $aXpathCountry = _Fallback($aConfig, $vXpath, $aRomList[8])
- For $vBoucle2 = 1 To UBound($aXpathCountry) - 1
- $vValue = _XML_Read($aXpathCountry[$vBoucle2], 0, $aRomList[8])
- _LOG("COUNTRY " & $aXpathCountry[$vBoucle2] & "=" & $vValue, 1, $iLOGPath)
- If $vValue <> -1 And $vValue <> "" Then Return $vValue
- Next
- EndIf
- _LOG('NO TAG', 3, $iLOGPath)
- $vValue = _XML_Read($vXpath, 0, $aRomList[8])
- _LOG($vXpath & "=" & $vValue, 1, $iLOGPath)
- If $vValue <> -1 Then Return $vValue
- Return ""
-
- Case "XML_Attribute"
- _LOG("->XML_Attribute", 1, $iLOGPath)
- If $aRomList[9] = 0 Or $aConfig[5] = 2 Then Return ""
- Return _XML_Read(_XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Source_Value", 1, "", $oXMLProfil), 0, $aRomList[8])
- Case "XML_Download"
- _LOG("->XML_Download", 1, $iLOGPath)
- If $aRomList[9] = 0 Then Return ""
- $vXpath = _XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Source_Value", 0, "", $oXMLProfil)
- $aXpathCountry = _Fallback($aConfig, $vXpath, $aRomList[8])
- For $vBoucle2 = 1 To UBound($aXpathCountry) - 1
- $vDownloadURL = _Coalesce(_XML_Read($aXpathCountry[$vBoucle2], 0, $aRomList[8]), -1)
- If $vDownloadURL < 0 Then
- If $aXpathCountry[$vBoucle2] <> 'None' Then _LOG($aXpathCountry[$vBoucle2] & " problem : " & $vDownloadURL, 3, $iLOGPath)
- Else
- $vDownloadMaxWidth = _Coalesce(_XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Target_Image_Width", 0, "", $oXMLProfil), 0)
- $vDownloadMaxHeight = _Coalesce(_XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Target_Image_Height", 0, "", $oXMLProfil), 0)
-
- $vDownloadTag = _XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Source_Download_Tag", 0, "", $oXMLProfil)
- If $vNodeType = "Folder" Then $vDownloadTag = $vDownloadTag & "-folder"
- $vDownloadExt = _Coalesce(IniRead($iINIPath, "LAST_USE", "$vTarget_Image_Ext", ""), _XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Source_Download_Ext", 0, "", $oXMLProfil))
- $aPathSplit = _PathSplit(StringReplace($aRomList[0], "\", "_"), $sDrive, $sDir, $sFileName, $sExtension)
- $vSource_ImagePath = $aConfig[3] & "\" & $sFileName & $vDownloadTag & "." & $vDownloadExt
- $vSource_ImagePath = _Picture_Download($vDownloadURL, $vSource_ImagePath, $oXMLProfil, $vDownloadMaxWidth, $vDownloadMaxHeight)
-
- If $vSource_ImagePath < 0 Then Return -1
-
- $vTarget_ImagePath = $aConfig[4] & $sFileName & $vDownloadTag & "." & $vDownloadExt
- If $vNodeType = "Folder" Then
- $vCheckExist = _XML_NodeExists($aConfig[8], _XML_Read('/Profil/Folder/Target_Value', 0, "", $oXMLProfil) & '[* = "' & $vTarget_ImagePath & '"]')
- Else
- $vCheckExist = _XML_NodeExists($aConfig[8], _XML_Read('/Profil/Game/Target_Value', 0, "", $oXMLProfil) & '[* = "' & $vTarget_ImagePath & '"]')
- EndIf
- If $vCheckExist = $XML_RET_SUCCESS Then
- _LOG(_XML_Read('/Profil/Game/Target_Value', 0, "", $oXMLProfil) & '[* = "' & $vTarget_ImagePath & '"]' & " Already exist in XML ( " & $vCheckExist & ")", 1, $iLOGPath)
- Return -2
- EndIf
-
- Return $vTarget_ImagePath
- EndIf
- Next
- Return ""
- Case "Fixe_Value"
- _LOG("->Fixe_Value", 1, $iLOGPath)
- Return _XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Source_Value", 0, "", $oXMLProfil)
- Case "Variable_Value"
- _LOG("->Variable_Value", 1, $iLOGPath)
- Switch _XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Source_Value", 0, "", $oXMLProfil)
- Case '%XML_Rom_Path%'
- $vSystem = StringSplit(IniRead($iINIPath, "LAST_USE", "$vSource_RomPath", ""), "\")
- $vSystem = $vSystem[UBound($vSystem) - 1]
- $vXMLRomPath = $aConfig[2] & StringReplace($aRomList[0], "\", "/")
- $vXMLRomPath = StringReplace($vXMLRomPath, '%system%', $vSystem)
- Return $vXMLRomPath
- Case '%AutoHide%'
- If $aRomList[3] = 2 Or $aRomList[3] = 3 Then Return "true"
- Case Else
- _LOG("SOURCE Unknown", 1, $iLOGPath)
- Return ""
- EndSwitch
- Case "MIX_Template"
- _LOG("->MIX_Template", 1, $iLOGPath)
- If $aRomList[9] = 0 And $aConfig[6] = 0 Then Return ""
- Local $vDownloadTag, $vDownloadExt, $vTargetPicturePath, $aPathSplit, $sDrive, $sDir, $sFileName, $sExtension
- $vDownloadTag = _XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Source_Download_Tag", 0, "", $oXMLProfil)
- If $vNodeType = "Folder" Then $vDownloadTag = $vDownloadTag & "-folder"
- $vDownloadExt = _XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Source_Download_Ext", 0, "", $oXMLProfil)
- $aPathSplit = _PathSplit(StringReplace($aRomList[0], "\", "_"), $sDrive, $sDir, $sFileName, $sExtension)
- $vTargetPicturePath = $aConfig[4] & $sFileName & $vDownloadTag & "." & $vDownloadExt
- Switch _XML_Read("/Profil/" & $vNodeType & "[" & $vWhile & "]/Source_Download_Path", 0, "", $oXMLProfil)
- Case '%Local_Path_File%'
- $vDownloadPath = $aConfig[3] & "\" & $sFileName & $vDownloadTag & "." & $vDownloadExt
- Case Else ; For the futur
- $vDownloadPath = $aConfig[3] & "\" & $sFileName & $vDownloadTag & "." & $vDownloadExt
- EndSwitch
- If FileExists($vDownloadPath) And $aConfig[5] <> 2 Then Return $vTargetPicturePath
-
- $vValue = _MIX_Engine($aRomList, $vBoucle, $aConfig, $oXMLProfil)
- If Not FileExists($vValue) Then Return -1
- FileCopy($vValue, $vDownloadPath, $FC_OVERWRITE)
-
- _LOG("MIX Template finished (" & $vTargetPicturePath & ")", 1, $iLOGPath)
- Return $vTargetPicturePath
- Case Else
- _LOG("->SOURCE Unknown", 1, $iLOGPath)
- Return ""
- EndSwitch
-EndFunc ;==>_XML_Read_Source
-
-Func _Fallback($aConfig, $vXpath, $vSource_RomXMLPath)
- Local $vCountryPref = '', $vIdGenre = ''
- If StringInStr($vXpath, '%COUNTRY%') Then
- Local $aCountryPref = $aConfig[10]
- Else
- Local $aCountryPref[2] = ["", $vXpath]
- EndIf
- Local $aXpathCountry[UBound($aCountryPref)]
- For $vBoucle = 1 To UBound($aCountryPref) - 1
- $vCountryPref = $aCountryPref[$vBoucle]
- If $vCountryPref = '%COUNTRY%' Then $vCountryPref = _XML_Read("Data/jeu/regionshortnames/regionshortname", 0, $vSource_RomXMLPath)
- $aXpathCountry[$vBoucle] = StringReplace($vXpath, '%COUNTRY%', $vCountryPref)
- Next
- Return $aXpathCountry
-EndFunc ;==>_Fallback
-
-Func _Picture_Download($vDownloadURL, $vSource_ImagePath, $oXMLProfil, $vDownloadMaxWidth = 0, $vDownloadMaxHeight = 0)
- Local $vDownloadOutputFormat, $aPathSplit, $sDrive, $sDir, $sFileName, $sExtension
- $aPathSplit = _PathSplit($vSource_ImagePath, $sDrive, $sDir, $sFileName, $sExtension)
- If $vDownloadMaxWidth > 0 Then
- $vDownloadMaxWidth = "&maxwidth=" & $vDownloadMaxWidth
- Else
- $vDownloadMaxWidth = "&maxwidth=" & _Coalesce(IniRead($iINIPath, "LAST_USE", "$vTarget_Image_Width", ""), _XML_Read("Profil/General/Target_Image_Width", 0, "", $oXMLProfil))
- EndIf
- If $vDownloadMaxHeight > 0 Then
- $vDownloadMaxHeight = "&maxheight=" & $vDownloadMaxHeight
- Else
- $vDownloadMaxHeight = "&maxheight=" & _Coalesce(IniRead($iINIPath, "LAST_USE", "$vTarget_Image_Height", ""), _XML_Read("Profil/General/Target_Image_Height", 0, "", $oXMLProfil))
- EndIf
- $vDownloadOutputFormat = "&outputformat=" & StringMid($sExtension, 2)
-
- If FileExists($vSource_ImagePath) And $aConfig[5] <> 2 Then
- _LOG($vSource_ImagePath & " File already exist", 1, $iLOGPath)
- Return $vSource_ImagePath
- EndIf
-
- $vDownloadURL = StringReplace($vDownloadURL, "#sspassword#", $vSSPassword) & $vDownloadMaxWidth & $vDownloadMaxHeight & $vDownloadOutputFormat
- $vValue = _DownloadWRetry($vDownloadURL, $vSource_ImagePath)
- If $vValue < 0 Or Not FileExists($vSource_ImagePath) Then
- Return -1
- Else
- Return $vSource_ImagePath
- EndIf
-EndFunc ;==>_Picture_Download
-
-Func _MIX_Engine($aRomList, $vBoucle, $aConfig, $oXMLProfil)
- Local $vMIXTemplatePath = $iScriptPath & "\Mix\TEMP\"
- Local $oMixConfig = _XML_Open($vMIXTemplatePath & "config.xml")
- Local $vTarget_Width = _Coalesce(IniRead($iINIPath, "LAST_USE", "$vTarget_Image_Width", ""), _XML_Read("/Profil/General/Target_Width", 0, "", $oMixConfig))
- Local $vTarget_Height = _Coalesce(IniRead($iINIPath, "LAST_USE", "$vTarget_Image_Height", ""), _XML_Read("/Profil/General/Target_Height", 0, "", $oMixConfig))
- Local $vID_System = $aConfig[12]
- Local $vPicTarget = -1, $vWhile = 1, $vFinalValue = ""
- Dim $aMiXPicTemp[1]
- Sleep(250)
- FileDelete($iTEMPPath & "\MIX")
- Sleep(250)
- DirCreate($iTEMPPath & "\MIX")
- FileSetAttrib($iTEMPPath, "+H")
- While 1
- $iString = ""
- Switch StringLower(_XML_Read("/Profil/Element[" & $vWhile & "]/Source_Type", 0, "", $oMixConfig))
- Case "fixe_value"
- $vPicTarget = $iTEMPPath & "\MIX\" & _XML_Read("/Profil/Element[" & $vWhile & "]/Name", 0, "", $oMixConfig) & ".png"
- If Not FileCopy($vMIXTemplatePath & _XML_Read("/Profil/Element[" & $vWhile & "]/Source_Value", 0, "", $oMixConfig), $vPicTarget, $FC_OVERWRITE + $FC_CREATEPATH) Then
- _LOG("Error copying " & $vMIXTemplatePath & _XML_Read("/Profil/Element[" & $vWhile & "]/Source_Value", 0, "", $oMixConfig) & " to " & $vPicTarget, 2, $iLOGPath)
- Else
- $aPicParameters = _MIX_Engine_Dim($vWhile, $oMixConfig)
- _GDIPlus_Imaging($vPicTarget, $aPicParameters, $vTarget_Width, $vTarget_Height)
- _LOG("fixe_value : " & $vPicTarget & " Created", 1, $iLOGPath)
- _ArrayAdd($aMiXPicTemp, $vPicTarget)
- EndIf
- Case "xml_value"
- $vPicTarget = $iTEMPPath & "\MIX\" & _XML_Read("/Profil/Element[" & $vWhile & "]/Name", 0, "", $oMixConfig) & ".png"
- $vXpath = _XML_Read("/Profil/Element[" & $vWhile & "]/Source_Value", 0, "", $oMixConfig)
- $vOrigin = StringLower(_XML_Read("/Profil/Element[" & $vWhile & "]/source_Origin", 0, "", $oMixConfig))
- If $vOrigin = -1 Then $vOrigin = 'game'
- $aPicParameters = _MIX_Engine_Dim($vWhile, $oMixConfig)
- $aXpathCountry = _Fallback($aConfig, $vXpath, $aRomList[8])
- For $vBoucle2 = 1 To UBound($aXpathCountry) - 1
- If Not FileExists($vPicTarget) Then
- If StringInStr($aXpathCountry[$vBoucle2], '%IDGENRE%') Then
- $vIdGenre = _XML_Read("Data/jeu/genres/genres_id/genre_id", 0, $aRomList[8])
- $aXpathCountry[$vBoucle2] = StringReplace($aXpathCountry[$vBoucle2], '%IDGENRE%', $vIdGenre)
- EndIf
- Switch $vOrigin
- Case 'game'
- $vDownloadURL = _Coalesce(_XML_Read($aXpathCountry[$vBoucle2], 0, $aRomList[8]), -1)
- $vCRC = _Coalesce(_XML_Read($aXpathCountry[$vBoucle2] & "_crc", 0, $aRomList[8]), Default)
- If $vDownloadURL = -1 Then _LOG("No URL : " & $aXpathCountry[$vBoucle2], 1, $iLOGPath)
- Case 'system'
- $vDownloadURL = _Coalesce(_XML_Read(StringReplace($aXpathCountry[$vBoucle2], "%IDSYSTEM%", $vID_System), 0, "", $oXMLSystem), -1)
- $vCRC = _Coalesce(_XML_Read(StringReplace($aXpathCountry[$vBoucle2], "%IDSYSTEM%", $vID_System) & "_crc", 0, "", $oXMLSystem), Default)
- If $vDownloadURL = -1 Then _LOG("No URL : " & StringReplace($aXpathCountry[$vBoucle2], "%IDSYSTEM%", $vID_System), 1, $iLOGPath)
- EndSwitch
- If Not ($vDownloadURL < 0) Then
- $vValue = _DownloadWRetry(StringReplace($vDownloadURL, "#sspassword#", $vSSPassword), $vPicTarget, 15, 20, $vCRC)
- If $vValue < 0 Then
- _LOG("xml_value : " & $vPicTarget & " Not Added", 2, $iLOGPath)
- Else
- $vRotationLvl = _Coalesce(_XML_Read("/Profil/Element[" & $vWhile & "]/Target_Rotation", 0, "", $oMixConfig), 0)
- If $vRotationLvl > 0 Then
- If _GDIPlus_Rotation($vPicTarget, $vRotationLvl) = -1 Then _LOG("Rotation Failed", 2, $iLOGPath)
- EndIf
- _GDIPlus_Imaging($vPicTarget, $aPicParameters, $vTarget_Width, $vTarget_Height)
- _ArrayAdd($aMiXPicTemp, $vPicTarget)
- _LOG("xml_value : " & $vPicTarget & " Created", 1, $iLOGPath)
- EndIf
- EndIf
- Else
- _LOG("File : " & $vPicTarget & " already exist", 1, $iLOGPath)
- EndIf
- Next
- Case "text"
- Switch StringLower(_XML_Read("/Profil/Element[" & $vWhile & "]/Source_TextType", 0, "", $oMixConfig))
- Case "xml_value"
- $vXpath = (_XML_Read("/Profil/Element[" & $vWhile & "]/Source_Value", 0, "", $oMixConfig))
- If StringInStr($vXpath, '%LANG%') Then
- Local $aLangPref = $aConfig[9]
- For $vBoucle2 = 1 To UBound($aLangPref) - 1
- $vXpathTemp = StringReplace($vXpath, '%LANG%', $aLangPref[$vBoucle2])
- $vValue = _XML_Read($vXpathTemp, 0, $aRomList[8])
- If $vValue <> -1 And $vValue <> "" Then
- $vBoucle2 = UBound($aLangPref) - 1
- $iString = $vValue
- EndIf
- Next
- EndIf
- $aXpathCountry = _Fallback($aConfig, $vXpath, $aRomList[8])
- For $vBoucle2 = 1 To UBound($aXpathCountry) - 1
- $vValue = _XML_Read($aXpathCountry[$vBoucle2], 0, $aRomList[8])
- _LOG("COUNTRY " & $aXpathCountry[$vBoucle2] & "=" & $vValue, 1, $iLOGPath)
- If $vValue <> -1 And $vValue <> "" And $iString = "" Then
- $vBoucle2 = UBound($aXpathCountry) - 1
- $iString = $vValue
- EndIf
- Next
- _LOG("Text = " & $iString, 1, $iLOGPath)
- Case "fixe"
- $iString = (_XML_Read("/Profil/Element[" & $vWhile & "]/Source_Value", 0, "", $oMixConfig))
- _LOG("Text = " & $iString, 1, $iLOGPath)
- EndSwitch
- $aPicParameters = _MIX_Engine_Dim($vWhile, $oMixConfig)
- $iFont = _XML_Read("/Profil/Element[" & $vWhile & "]/Target_Font", 0, "", $oMixConfig)
- $iFontSize = _XML_Read("/Profil/Element[" & $vWhile & "]/Target_FontSize", 0, "", $oMixConfig)
- $iFontStyle = _XML_Read("/Profil/Element[" & $vWhile & "]/Target_FontStyle", 0, "", $oMixConfig)
- $iFontColor = _XML_Read("/Profil/Element[" & $vWhile & "]/Target_FontColor", 0, "", $oMixConfig)
- $vPath = $aMiXPicTemp[UBound($aMiXPicTemp) - 1]
-
- _GDIPlus_Text($vPath, $iString, $aPicParameters[2], $aPicParameters[3], $iFont, $iFontSize, $iFontStyle, $iFontColor, $aPicParameters[13], $aPicParameters[14])
-
- Case 'gdi_function'
- Switch StringLower(_XML_Read("/Profil/Element[" & $vWhile & "]/Source_Function", 0, "", $oMixConfig))
- Case 'transparency'
- $aPicParameters = _MIX_Engine_Dim($vWhile, $oMixConfig)
- $vTransLvl = _XML_Read("/Profil/Element[" & $vWhile & "]/Source_Value", 0, "", $oMixConfig)
- $vPath = $aMiXPicTemp[UBound($aMiXPicTemp) - 1]
- If _GDIPlus_Transparency($vPath, $vTransLvl) = -1 Then _LOG("Transparency Failed", 2, $iLOGPath)
- Case 'merge'
- If _GDIPlus_Merge($aMiXPicTemp[UBound($aMiXPicTemp) - 2], $aMiXPicTemp[UBound($aMiXPicTemp) - 1]) = -1 Then _LOG("Merging Failed", 2, $iLOGPath)
- _ArrayDelete($aMiXPicTemp, UBound($aMiXPicTemp) - 1)
- Case 'transparencyzone'
- $aPicParameters = _MIX_Engine_Dim($vWhile, $oMixConfig)
- $vTransLvl = _XML_Read("/Profil/Element[" & $vWhile & "]/Source_Value", 0, "", $oMixConfig)
- $vPath = $aMiXPicTemp[UBound($aMiXPicTemp) - 1]
- If _GDIPlus_TransparencyZone($vPath, $vTarget_Width, $vTarget_Height, $vTransLvl, $aPicParameters[2], $aPicParameters[3], $aPicParameters[0], $aPicParameters[1]) = -1 Then _LOG("Transparency Failed", 2, $iLOGPath)
- Case Else
- _LOG("Unknown GDI_Function", 2, $iLOGPath)
- EndSwitch
- Case Else
- _LOG("End Of MIX", 1, $iLOGPath)
- ExitLoop
- EndSwitch
- $vWhile = $vWhile + 1
- WEnd
-
-;~ _ArrayDisplay($aMiXPicTemp);Debug
-
- For $vBoucle2 = UBound($aMiXPicTemp) - 1 To 2 Step -1
- If FileExists($aMiXPicTemp[$vBoucle2 - 1]) Then _GDIPlus_Merge($aMiXPicTemp[$vBoucle2 - 1], $aMiXPicTemp[$vBoucle2])
- Next
-
- If Not IsArray($aMiXPicTemp) Or UBound($aMiXPicTemp) - 1 <= 0 Then
- _LOG("End Of Elements", 1, $iLOGPath)
- Return -1
- EndIf
-
- $vCompression = _XML_Read("/Profil/Compression/use", 0, "", $oMixConfig)
- $vCompressionSoft = _XML_Read("/Profil/Compression/soft", 0, "", $oMixConfig)
- $vCompressionParameter = _XML_Read("/Profil/Compression/parameter", 0, "", $oMixConfig)
- If StringLower($vCompression) = 'yes' Then _Compression($aMiXPicTemp[1], $vCompressionSoft, $vCompressionParameter)
-
- If UBound($aMiXPicTemp) - 1 > 0 Then Return $aMiXPicTemp[1]
- Return -1
-EndFunc ;==>_MIX_Engine
-
-Func _MIX_Engine_Dim($vWhile, $oMixConfig)
- Dim $aPicParameters[15]
- $aPicParameters[0] = _XML_Read("/Profil/Element[" & $vWhile & "]/Target_Width", 0, "", $oMixConfig)
- $aPicParameters[1] = _XML_Read("/Profil/Element[" & $vWhile & "]/Target_Height", 0, "", $oMixConfig)
- $aPicParameters[2] = _XML_Read("/Profil/Element[" & $vWhile & "]/Target_TopLeftX", 0, "", $oMixConfig)
- $aPicParameters[3] = _XML_Read("/Profil/Element[" & $vWhile & "]/Target_TopLeftY", 0, "", $oMixConfig)
- $aPicParameters[4] = _XML_Read("/Profil/Element[" & $vWhile & "]/Target_TopRightX", 0, "", $oMixConfig)
- $aPicParameters[5] = _XML_Read("/Profil/Element[" & $vWhile & "]/Target_TopRightY", 0, "", $oMixConfig)
- $aPicParameters[6] = _XML_Read("/Profil/Element[" & $vWhile & "]/Target_BottomLeftX", 0, "", $oMixConfig)
- $aPicParameters[7] = _XML_Read("/Profil/Element[" & $vWhile & "]/Target_BottomLeftY", 0, "", $oMixConfig)
- $aPicParameters[8] = _XML_Read("/Profil/Element[" & $vWhile & "]/Target_Maximize", 0, "", $oMixConfig)
- $aPicParameters[9] = _XML_Read("/Profil/Element[" & $vWhile & "]/Target_OriginX", 0, "", $oMixConfig)
- $aPicParameters[10] = _XML_Read("/Profil/Element[" & $vWhile & "]/Target_OriginY", 0, "", $oMixConfig)
- $aPicParameters[11] = _XML_Read("/Profil/Element[" & $vWhile & "]/Target_BottomRightX", 0, "", $oMixConfig)
- $aPicParameters[12] = _XML_Read("/Profil/Element[" & $vWhile & "]/Target_BottomRightY", 0, "", $oMixConfig)
- $aPicParameters[13] = _Coalesce(_XML_Read("/Profil/Element[" & $vWhile & "]/Target_OriginPicX", 0, "", $oMixConfig), Default)
- $aPicParameters[14] = _Coalesce(_XML_Read("/Profil/Element[" & $vWhile & "]/Target_OriginPicY", 0, "", $oMixConfig), Default)
- Return $aPicParameters
-EndFunc ;==>_MIX_Engine_Dim
-
-Func _XMLSystem_Create()
- Local $oXMLSystem, $vXMLSystemPath = $iScriptPath & "\Ressources\systemlist.xml"
- $oXMLSystem = _XML_Open($vXMLSystemPath)
- If $oXMLSystem = -1 Then
- MsgBox(0, 'ERREUR', '')
- Exit
- Else
- _LOG("systemlist.xml Opened", 1, $iLOGPath)
- Return $oXMLSystem
- EndIf
-EndFunc ;==>_XMLSystem_Create
-
-Func _XMLGenre_Create()
- Local $oXMLGenre, $vXMLGenrePath = $iScriptPath & "\Ressources\Genresliste.xml"
- $oXMLGenre = _XML_Open($vXMLGenrePath)
- If $oXMLGenre = -1 Then
- MsgBox(0, 'ERREUR', '')
- Exit
- Else
- _LOG("Genrelist.xml Opened", 1, $iLOGPath)
- Return $oXMLGenre
- EndIf
-EndFunc ;==>_XMLGenre_Create
-
diff --git a/Scraper.exe b/Scraper.exe
index 212d25a..4ffcebc 100644
Binary files a/Scraper.exe and b/Scraper.exe differ
diff --git a/Scraper64.exe b/Scraper64.exe
index 95cba4e..3635126 100644
Binary files a/Scraper64.exe and b/Scraper64.exe differ
diff --git a/UXS-config.ini b/UXS-config.ini
index 48c87da..423cc6c 100644
--- a/UXS-config.ini
+++ b/UXS-config.ini
@@ -1,4 +1,4 @@
[GENERAL]
-$verINI='2.2.0.2'
+$verINI='2.2.0.3'
$vVerbose=2
[LAST_USE]
diff --git a/Universal XML Scraper-old.au3 b/Universal XML Scraper-old.au3
deleted file mode 100644
index 9141165..0000000
--- a/Universal XML Scraper-old.au3
+++ /dev/null
@@ -1,3113 +0,0 @@
-#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
-#AutoIt3Wrapper_Icon=Ressources\Images\Universal_Xml_Scraper.ico
-#AutoIt3Wrapper_Outfile=..\BIN\Universal_XML_Scraper.exe
-#AutoIt3Wrapper_Outfile_x64=..\BIN\Universal_XML_Scraper64.exe
-#AutoIt3Wrapper_Compile_Both=y
-#AutoIt3Wrapper_UseX64=y
-#AutoIt3Wrapper_Res_Description=Scraper XML Universel
-#AutoIt3Wrapper_Res_Fileversion=2.2.0.2
-#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=p
-#AutoIt3Wrapper_Res_LegalCopyright=LEGRAS David
-#AutoIt3Wrapper_Res_Language=1036
-#AutoIt3Wrapper_AU3Check_Stop_OnWarning=y
-#AutoIt3Wrapper_Run_Tidy=y
-#Tidy_Parameters=/reel
-#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
-
-;*************************************************************************
-;** **
-;** Universal XML Scraper V2 **
-;** LEGRAS David **
-;** **
-;*************************************************************************
-
-;Autoit Librairy definitions
-;---------------------------
-
-#include
-#include
-#include
-#include
-#include
-#include
-#include
-#include
-#include
-#include
-#include
-#include
-#include
-#include
-#include
-
-TraySetState(2)
-
-;Global Values
-;---------------------------
-
-If Not _FileCreate(@ScriptDir & "\test") Then ; Testing UXS Directory
- Global $iScriptPath = @AppDataDir & "\UXMLS" ; If not, use Path to current user's Roaming Application Data
- DirCreate($iScriptPath) ;
-Else
- Global $iScriptPath = @ScriptDir
- FileDelete($iScriptPath & "\test")
-EndIf
-
-Global $iINIPath = $iScriptPath & "\UXS-config.ini"
-Global $iLOGPath = $iScriptPath & "\LOGs\log.txt"
-Global $iWizzPath = $iScriptPath & "\Ressources\Images\Wizard"
-Global $iVerboseLVL = IniRead($iINIPath, "GENERAL", "$vVerbose", 0)
-Global $MS_AutoConfigItem
-
-;Personnal Librairy definitions
-;---------------------------
-
-#include "./Include/_MultiLang.au3"
-#include "./Include/_ExtMsgBox.au3"
-#include "./Include/_Trim.au3"
-#include "./Include/_Hash.au3"
-#include "./Include/_XML.au3"
-#include "./Include/_MailSlot.au3"
-#include "./Include/_GraphGDIPlus.au3"
-#include "./Include/_MyFunction.au3"
-#include "./Include/_ITaskBarList.au3"
-#include "./Include/_WinHttp.au3"
-;~ #include "./Include/_AutoItErrorTrap.au3"
-#include "./Include/_GDIpProgress.au3"
-
-$oTaskbar = _ITaskBar_CreateTaskBarObj()
-
-;Checking Version
-;----------------
-_LOG_Ceation($iLOGPath) ; Starting Log General
-
-If @OSArch = "X64" Then
- _LOG("Scrape in x64", 0, $iLOGPath)
- Local $iScraper = "Scraper64.exe"
-Else
- _LOG("Scrape in x86", 0, $iLOGPath)
- Local $iScraper = "Scraper.exe"
-EndIf
-
-_KillScrapeEngine($iScraper)
-
-Local $vMaj = 0
-If @Compiled Then
- Local $iScriptVer = FileGetVersion(@ScriptFullPath)
- Local $iINIVer = IniRead($iINIPath, "GENERAL", "$verINI", '0.0.0.0')
- Local $iSoftname = "UniversalXMLScraperV" & $iScriptVer
- If $iINIVer <> $iScriptVer Then
- $vMaj = 1
- FileDelete($iScriptPath & "\UXS-config.ini")
- FileDelete($iScriptPath & "\LanguageFiles")
- FileDelete($iScriptPath & "\Ressources")
- FileDelete($iScriptPath & "\Mix")
- FileDelete($iScriptPath & "\ProfilsFiles")
- _LOG("Update file needed from version " & $iINIVer & " to " & $iScriptVer, 1, $iLOGPath)
- FileDelete($iScraper)
- Else
- _LOG("No updated files needed (Version : " & $iScriptVer & ")", 1, $iLOGPath)
- EndIf
-Else
- Local $iScriptVer = 'In Progress'
- Local $iINIVer = IniRead($iINIPath, "GENERAL", "$verINI", '0.0.0.0')
- Local $iSoftname = "UniversalXMLScraper(TestDev)"
- _LOG("Dev version", 1, $iLOGPath)
-EndIf
-
-#Region FileInstall
-_LOG("Starting files installation", 0, $iLOGPath)
-DirCreate($iScriptPath & "\LanguageFiles")
-DirCreate($iScriptPath & "\Ressources")
-DirCreate($iScriptPath & "\Ressources\Licences")
-DirCreate($iScriptPath & "\Mix")
-DirCreate($iScriptPath & "\Mix\TEMP")
-DirCreate($iScriptPath & "\ProfilsFiles")
-DirCreate($iScriptPath & "\ProfilsFiles\Ressources")
-FileInstall(".\UXS-config.ini", $iScriptPath & "\UXS-config.ini")
-FileInstall(".\Ressources\7za.exe", $iScriptPath & "\Ressources\7za.exe", 0)
-FileInstall(".\Scraper.exe", $iScriptPath & "\Scraper.exe", 0)
-FileInstall(".\Scraper64.exe", $iScriptPath & "\Scraper64.exe", 0)
-FileSetAttrib($iScriptPath & "\Scraper.exe", "+H")
-FileSetAttrib($iScriptPath & "\Scraper64.exe", "+H")
-FileInstall(".\Ressources.zip", $iScriptPath & "\Ressources.zip")
-If $vMaj = 1 Then
- $vResult = _Unzip($iScriptPath & "\Ressources.zip", $iScriptPath & "\")
- If $vResult < 0 Then
- Switch $vResult
- Case 1
- _LOG("not a Zip file", 2, $iLOGPath)
- Case 2
- _LOG("Impossible to unzip", 2, $iLOGPath)
- Case Else
- _LOG("Unknown Zip Error (" & @error & ")", 2, $iLOGPath)
- EndSwitch
- EndIf
-EndIf
-_LOG("Ending files installation", 1, $iLOGPath)
-#EndRegion FileInstall
-
-;Splash Screen
-$F_Splashcreen = GUICreate("", 799, 449, -1, -1, $WS_POPUPWINDOW, $WS_EX_TOOLWINDOW)
-GUICtrlCreatePic($iScriptPath & "\Ressources\Images\UXS.jpg", -1, -1, 800, 450)
-SoundPlay($iScriptPath & "\Ressources\Sons\jingle_uxs.MP3")
-GUISetState()
-
-;Const def
-;---------
-Global $iDevId = BinaryToString(_Crypt_DecryptData("0x1552EDED2FA9B5", "1gdf1g1gf", $CALG_RC4))
-Global $iDevPassword = BinaryToString(_Crypt_DecryptData("0x1552EDED2FA9B547FBD0D9A623D954AE7BEDC681", "1gdf1g1gf", $CALG_RC4))
-Global $iTEMPPath = $iScriptPath & "\TEMP"
-Global $iRessourcesPath = $iScriptPath & "\Ressources"
-Global $iLangPath = $iScriptPath & "\LanguageFiles" ; Where we are storing the language files.
-Global $iProfilsPath = $iScriptPath & "\ProfilsFiles" ; Where we are storing the profils files.
-Global $iMIXPath = $iScriptPath & "\Mix" ; Where we are storing the MIX files.
-Global $iPathMixTmp = $iMIXPath & "\TEMP" ; Where we are storing the current MIX files.
-Global $iURLScraper = _TestServer(1)
-Global $sMailSlotMother = "\\.\mailslot\Mother"
-Global $sMailSlotCancel = "\\.\mailslot\Cancel"
-Global $sMailSlotCheckEngine = "\\.\mailslot\CheckEngine"
-Global $hMailSlotCheckEngine = _CreateMailslot($sMailSlotCheckEngine)
-Global $hMailSlotMother = _CreateMailslot($sMailSlotMother)
-_LOG("Verbose LVL : " & $iVerboseLVL, 1, $iLOGPath)
-_LOG("Path to ini : " & $iINIPath, 1, $iLOGPath)
-_LOG("Path to log : " & $iLOGPath, 1, $iLOGPath)
-_LOG("Path to language : " & $iLangPath, 1, $iLOGPath)
-
-;Variable def
-;------------
-Global $vUserLang = IniRead($iINIPath, "LAST_USE", "$vUserLang", -1)
-Global $MP_, $aPlink_Command, $vScrapeCancelled
-Global $vProfilsPath = IniRead($iINIPath, "LAST_USE", "$vProfilsPath", -1)
-Local $vXpath2RomPath, $vFullTimer, $vRomTimer, $vSelectedProfil = -1
-;~ Local $L_SCRAPE_Parts[3] = [300, 480, -1]
-Local $L_SCRAPE_Parts[2] = [480, -1]
-Local $oXMLProfil, $oXMLSystem, $oXMLCountry, $oXMLGenre
-Global $aConfig = 1, $aRomList, $aXMLRomList
-Local $nMsg
-Local $vNbThread = IniRead($iINIPath, "LAST_USE", "$vNbThread", 1)
-Local $vStart = 0, $vWizCancel = 0, $vLaunchScrape = 0, $aOptionMenu = -1
-
-;---------;
-;Principal;
-;---------;
-
-; Loading language
-Local $aLangList = _MultiLang_LoadLangDef($iLangPath, $vUserLang)
-If Not IsArray($aLangList) Or $aLangList < 0 Then
- _LOG("Impossible to load language", 2, $iLOGPath)
- Exit
-EndIf
-;~ _ArrayDisplay($aLangList, "$aLangList") ;Debug
-
-; Update Checking
-_LOG("Update Checking", 1, $iLOGPath)
-Local $iChangelogPath = $iScriptPath & "\changelog.txt"
-FileDelete($iChangelogPath)
-Local $Result = _DownloadWRetry("https://raw.githubusercontent.com/Universal-Rom-Tools/Universal-XML-Scraper/master/changelog.txt", $iChangelogPath)
-Switch $Result
- Case -1
- _LOG("Error downloading Changelog", 2, $iLOGPath)
- Case -2
- _LOG("Time Out downloading Changelog", 2, $iLOGPath)
- Case Else
- Local $iChangelogVer = FileReadLine($iChangelogPath)
- _LOG("Local : " & $iScriptVer & " - Github : " & $iChangelogVer, 0, $iLOGPath)
- If $iChangelogVer <> $iScriptVer And @Compiled = 1 Then
- _LOG("Asking to Update", 0, $iLOGPath)
- _GUI_Update($iChangelogPath)
- EndIf
-EndSwitch
-
-$vSSLogin = IniRead($iINIPath, "LAST_USE", "$vSSLogin", "")
-$vSSPassword = IniRead($iINIPath, "LAST_USE", "$vSSPassword", "")
-
-;Catching SystemList.xml
-$oXMLSystem = _XMLSystem_Create($vSSLogin, $vSSPassword)
-If $oXMLSystem = -1 Then Exit
-
-;Catching CountryList.xml
-$oXMLCountry = _XMLCountry_Create($vSSLogin, $vSSPassword)
-If $oXMLCountry = -1 Then Exit
-
-;Catching GenreList.xml
-$oXMLGenre = _XMLGenre_Create($vSSLogin, $vSSPassword)
-
-;Delete Splascreen
-GUIDelete($F_Splashcreen)
-
-#Region ### START Koda GUI section ### Form=
-Local $F_UniversalScraper = GUICreate(_MultiLang_GetText("main_gui"), 601, 370)
-GUISetBkColor(0x34495c, $F_UniversalScraper)
-Local $MF = GUICtrlCreateMenu(_MultiLang_GetText("mnu_file"), -1, 1)
-Local $MF_Separation = GUICtrlCreateMenuItem("", $MF)
-Local $MF_Exit = GUICtrlCreateMenuItem(_MultiLang_GetText("mnu_file_exit"), $MF)
-
-Local $MC = GUICtrlCreateMenu(_MultiLang_GetText("mnu_cfg"), -1, 2)
-Local $MC_Wizard = GUICtrlCreateMenuItem(_MultiLang_GetText("mnu_cfg_Wizard"), $MC)
-Local $MC_Separation = GUICtrlCreateMenuItem("", $MC)
-Local $MC_Profil = GUICtrlCreateMenuItem(_MultiLang_GetText("mnu_cfg_profil"), $MC)
-Local $MC_Langue = GUICtrlCreateMenuItem(_MultiLang_GetText("mnu_cfg_langue"), $MC)
-Local $MC_Separation = GUICtrlCreateMenuItem("", $MC)
-Local $MC_Mix = GUICtrlCreateMenu("Mix", $MC)
-Local $MC_Miximage = GUICtrlCreateMenuItem(_MultiLang_GetText("mnu_cfg_miximage"), $MC_Mix)
-Local $MC_MixDownload = GUICtrlCreateMenuItem(_MultiLang_GetText("mnu_cfg_download_miximage"), $MC_Mix)
-Local $MC_Separation = GUICtrlCreateMenuItem("", $MC)
-Local $MC_config_MISC = GUICtrlCreateMenuItem(_MultiLang_GetText("mnu_cfg_config_MISC"), $MC)
-Local $MC_config_Advanced = GUICtrlCreateMenu("Advanced", $MC)
-Local $MC_config_PIC = GUICtrlCreateMenuItem(_MultiLang_GetText("mnu_cfg_config_PIC"), $MC_config_Advanced)
-Local $MC_Config_LU = GUICtrlCreateMenuItem(_MultiLang_GetText("mnu_cfg_config_LU"), $MC_config_Advanced)
-Local $MC_config_autoconf = GUICtrlCreateMenuItem(_MultiLang_GetText("mnu_cfg_config_autoconf"), $MC_config_Advanced)
-
-Global $MOption = GUICtrlCreateMenu(_MultiLang_GetText("mnu_cfg_config_Option"), -1, 3)
-
-Local $MS = GUICtrlCreateMenu(_MultiLang_GetText("mnu_scrape"), -1, 4)
-Local $MS_AutoConfig = GUICtrlCreateMenu(_MultiLang_GetText("mnu_scrape_autoconf"), $MS, 1)
-Local $MS_Scrape = GUICtrlCreateMenuItem(_MultiLang_GetText("mnu_scrape_solo"), $MS)
-Local $MS_Separation = GUICtrlCreateMenuItem("", $MS)
-Local $MS_FullScrape = GUICtrlCreateMenuItem(_MultiLang_GetText("mnu_scrape_fullscrape"), $MS)
-
-Local $MP = GUICtrlCreateMenu(_MultiLang_GetText("mnu_ssh"), -1, 5)
-Local $MP_Parameter = GUICtrlCreateMenuItem(_MultiLang_GetText("mnu_ssh_Parameter"), $MP)
-Local $MP_Separation = GUICtrlCreateMenuItem("", $MP)
-GUICtrlSetState($MP, $GUI_DISABLE)
-
-Local $MH = GUICtrlCreateMenu(_MultiLang_GetText("mnu_help"), -1, 6)
-Local $MH_Help = GUICtrlCreateMenuItem(_MultiLang_GetText("mnu_help_wiki"), $MH)
-Local $MH_Support = GUICtrlCreateMenu(_MultiLang_GetText("mnu_help_support"), $MH)
-Local $MH_Support_Screenscraper = GUICtrlCreateMenuItem("Screenscraper", $MH_Support, 1)
-Local $MH_Support_Tipee = GUICtrlCreateMenuItem("Tipee (€)", $MH_Support, 2)
-Local $MH_Support_Patreon = GUICtrlCreateMenuItem("Patreon ($)", $MH_Support, 3)
-Local $MH_Link = GUICtrlCreateMenu(_MultiLang_GetText("mnu_help_link"), $MH)
-Local $MH_Link_Screenzone = GUICtrlCreateMenuItem("http://www.screenzone.fr/", $MH_Link, 1)
-Local $MH_Link_Recalbox = GUICtrlCreateMenuItem("https://www.recalbox.com/", $MH_Link, 2)
-Local $MH_Link_Retropie = GUICtrlCreateMenuItem("https://retropie.org.uk/", $MH_Link, 3)
-Local $MH_Changelog = GUICtrlCreateMenuItem('Changelog', $MH)
-Local $MH_Log = GUICtrlCreateMenuItem('Log', $MH)
-Local $MH_About = GUICtrlCreateMenuItem(_MultiLang_GetText("mnu_help_about"), $MH)
-
-Local $P_BACKGROUND = GUICtrlCreatePic($iScriptPath & "\ProfilsFiles\Ressources\empty.jpg", -1, 0, 600, 293)
-Global $P_MIX = GUICtrlCreatePic("", 58, 193, 165, 100, -1, -1)
-Global $P_WHEEL = GUICtrlCreatePic("", 270, 225, 120, 60, -1, -1)
-;~ Local $PB_SCRAPE = GUICtrlCreateProgress(2, 297, 478, 25, $PBS_SMOOTH)
-Global $PB_SCRAPE = _ProgressCreate(2, 297, 478, 25)
-_ProgressSetImages($PB_SCRAPE, $iScriptPath & "\Ressources\Images\ProgressBar\green.jpg", $iScriptPath & "\Ressources\Images\ProgressBar\bg.jpg")
-_ProgressSetFont($PB_SCRAPE, "", -1, 0, 0xF0F0F0, 0)
-_ProgressSetText($PB_SCRAPE, "")
-Local $L_SCRAPE = _GUICtrlStatusBar_Create($F_UniversalScraper)
-Local $B_SCRAPE = GUICtrlCreateButton(_MultiLang_GetText("scrap_button"), 481, 296, 118, 27)
-_GUICtrlStatusBar_SetParts($L_SCRAPE, $L_SCRAPE_Parts)
-GUISetState(@SW_SHOW)
-#EndRegion ### END Koda GUI section ###
-
-_ITaskBar_SetThumbNailToolTip($F_UniversalScraper)
-
-$vProfilDefault = IniRead($iINIPath, "LAST_USE", "$vProfilsPath", "")
-If $vProfilDefault = "" Then
- $vStart = 1
- IniWrite($iINIPath, "LAST_USE", "$vMirror", 0)
-Else
- ;Opening XML Profil file
- $oXMLProfil = _XML_Open($vProfilsPath)
- If $oXMLProfil = -1 Then Exit
- $aOptionMenu = _OptionMenuConstruction($oXMLProfil, $aOptionMenu)
- ;Setting MIX Template
- _LOG("Setting Mix Template", 0, $iLOGPath)
- $vLastMIX = $iMIXPath & "\" & IniRead($iINIPath, "LAST_USE", "$vMixImage", "Standard (3img)") & ".zip"
- DirRemove($iPathMixTmp, 1)
- DirCreate($iPathMixTmp)
- $vResult = _Unzip($vLastMIX, $iPathMixTmp)
- If $vResult < 0 Then
- Switch $vResult
- Case 1
- _LOG("not a Zip file", 2, $iLOGPath)
- Case 2
- _LOG("Impossible to unzip", 2, $iLOGPath)
- Case Else
- _LOG("Unknown Zip Error (" & @error & ")", 2, $iLOGPath)
- EndSwitch
- EndIf
- $aDIRList = _Check_autoconf($oXMLProfil)
- _LoadConfig()
- _GUI_Refresh($oXMLProfil)
-EndIf
-_LOG("GUI Constructed", 1, $iLOGPath)
-
-While 1
- $nMsg = GUIGetMsg()
- If $vStart = 1 Then $nMsg = $MC_Wizard
- If $vLaunchScrape = 1 Then
- $vLaunchScrape = 0
- $nMsg = $B_SCRAPE
- EndIf
-
- Switch $nMsg
- Case $MC_Wizard ;Wizard
-;~ ---------OS Selection---------
- $vProfilsPath = _Wizz_OS()
- _LOG("Wizard - Profil selected : " & $vProfilsPath, 0, $iLOGPath)
- IniWrite($iINIPath, "LAST_USE", "$vProfilsPath", $vProfilsPath)
- $oXMLProfil = _XML_Open($vProfilsPath)
- If $oXMLProfil = -1 Then Exit
- IniWrite($iINIPath, "LAST_USE", "$vRechFiles", _Coalesce(_XML_Read("Profil/General/Research", 0, "", $oXMLProfil), "*.*|*.xml;*.txt;*.dv;*.fs;*.xor;*.drv;*.dat;*.cfg;*.nv;*.sav*|"))
-;~ ---------Media Selection---------
- $vMediaChoice = _Wizz_MediaChoice($oXMLProfil, $vProfilsPath)
- _LOG("Wizard - Media selected : " & $vMediaChoice, 0, $iLOGPath)
- If $vMediaChoice = "Simple" Then
-;~ ---------Media Simple Selection---------
- $vMainMedia = _Wizz_MediaSimpleChoice($oXMLProfil, $vProfilsPath)
- _LOG("Wizard - Main Media selected : " & $vMainMedia, 0, $iLOGPath)
- $vAltMedia = _Wizz_MediaSimpleAltChoice($oXMLProfil, $vProfilsPath, $vMainMedia)
- _LOG("Wizard - Main Media selected : " & $vAltMedia, 0, $iLOGPath)
- Else
-;~ ---------Media MIX Selection---------
- $vMix = _GUI_Config_MIX($iMIXPath, $iPathMixTmp, 1)
- _LOG("Wizard - Mix selected : " & $vMix, 0, $iLOGPath)
- EndIf
-;~ ---------Rom Path Selection---------
- $vRomPath = _Wizz_Rom($oXMLProfil)
- $aDIRList = _Check_autoconf($oXMLProfil)
- If IsArray($aDIRList) Then
- IniWrite($iINIPath, "LAST_USE", "$vSource_RomPath", $aDIRList[1][1])
- IniWrite($iINIPath, "LAST_USE", "$vTarget_RomPath", $aDIRList[1][2])
- IniWrite($iINIPath, "LAST_USE", "$vTarget_XMLName", $aDIRList[1][3])
- IniWrite($iINIPath, "LAST_USE", "$vSource_ImagePath", $aDIRList[1][4])
- IniWrite($iINIPath, "LAST_USE", "$vTarget_ImagePath", $aDIRList[1][5])
- _LoadConfig()
- _GUI_Refresh($oXMLProfil)
- IniWrite($iINIPath, "LAST_USE", "$vAutoconf_Use", 1)
- EndIf
- _LOG("Wizard - Rom Path selected : " & $vRomPath, 0, $iLOGPath)
- While 1
-;~ ---------SS Selection---------
- $vSS = _Wizz_SSChoice()
- _LOG("Wizard - SS Acount selected : " & $vSS, 0, $iLOGPath)
- If $vSS = "Yes" Then
-;~ ---------SS Id Selection---------
- $vNbThreadDefault = _Wizz_SSId()
- If $vNbThreadDefault > 0 Then
- _LOG("Wizard - SS Acount OK, Nb Thread selected : " & $vNbThreadDefault, 0, $iLOGPath)
- ExitLoop
- Else
- _LOG("Wizard - SS Acount NOK", 0, $iLOGPath)
- EndIf
- Else
- ExitLoop
- EndIf
- WEnd
-;~ ---------Scrape & Plateform Selection---------
- If _Wizz_Scrape() = "Yes" Then
- $vSystem = _Wizz_SystemChoice($oXMLProfil)
- $vLaunchScrape = 1
- _LOG("Wizard - Plateform selected : " & $vSystem, 0, $iLOGPath)
- EndIf
- $aOptionMenu = _OptionMenuConstruction($oXMLProfil, $aOptionMenu)
-
- _GUI_Refresh($oXMLProfil)
- If $vStart = 1 Then $vStart = 0
- Case $GUI_EVENT_CLOSE, $MF_Exit ; Exit
- DirRemove($iTEMPPath, 1)
- _LOG("Universal XML Scraper Closed", 0, $iLOGPath)
- Exit
- Case $MC_Profil ;Profil Selection
- $vProfilsPath = _ProfilSelection($iProfilsPath)
- IniWrite($iINIPath, "LAST_USE", "$vProfilsPath", $vProfilsPath)
- ;Opening XML Profil file
- $oXMLProfil = _XML_Open($vProfilsPath)
- If $oXMLProfil = -1 Then Exit
- $aOptionMenu = _OptionMenuConstruction($oXMLProfil, $aOptionMenu)
- IniWrite($iINIPath, "LAST_USE", "$vRechFiles", _Coalesce(_XML_Read("Profil/General/Research", 0, "", $oXMLProfil), "*.*||"))
- $aDIRList = _Check_autoconf($oXMLProfil)
- _GUI_Refresh($oXMLProfil)
- $nMsg = ""
- Case $MC_Langue ;Langue Selection
- $aLangList = _MultiLang_LoadLangDef($iLangPath, -1)
- If Not IsArray($aLangList) Or $aLangList < 0 Then
- _LOG("Impossible to load language", 2, $iLOGPath)
- Exit
- EndIf
- $aOptionMenu = _OptionMenuConstruction($oXMLProfil, $aOptionMenu)
- _LoadConfig()
- _GUI_Refresh($oXMLProfil)
- Case $MC_Config_LU ;Manual Path Configuration
- _GUI_Config_LU()
- _GUI_Refresh($oXMLProfil)
- Case $MC_config_PIC ;Picture Configuration
- _GUI_Config_Image($oXMLProfil, $iPathMixTmp)
- _GUI_Refresh($oXMLProfil)
- Case $MC_config_MISC ;General Configuration
- _GUI_Config_MISC()
- _GUI_Refresh($oXMLProfil)
- Case $MC_Miximage ;Mix Image Selection
- _GUI_Config_MIX($iMIXPath, $iPathMixTmp)
- Case $MC_MixDownload
- _GUI_Config_MIX_Download()
- Case $MC_config_autoconf ;Autoconf Configuration
- $GUI_Config_autoconf = _GUI_Config_autoconf($oXMLProfil)
- If $GUI_Config_autoconf = 1 Then
- FileDelete($vProfilsPath)
- _XML_SaveToFile($oXMLProfil, $vProfilsPath)
- EndIf
- $aDIRList = _Check_autoconf($oXMLProfil)
- _GUI_Refresh($oXMLProfil)
- Local $vSystem = StringSplit(IniRead($iINIPath, "LAST_USE", "$vSource_RomPath", ""), "\")
- $vSystem = $vSystem[UBound($vSystem) - 1]
-
- If $aDIRList <> -1 Then
- For $vBoucle = 1 To UBound($MS_AutoConfigItem) - 1
- If $aDIRList[$vBoucle][0] = $vSystem Then
- _LOG("Checked system :" & $aDIRList[$vBoucle][0], 0, $iLOGPath)
- IniWrite($iINIPath, "LAST_USE", "$vSource_RomPath", $aDIRList[$vBoucle][1])
- IniWrite($iINIPath, "LAST_USE", "$vTarget_RomPath", $aDIRList[$vBoucle][2])
- IniWrite($iINIPath, "LAST_USE", "$vTarget_XMLName", $aDIRList[$vBoucle][3])
- IniWrite($iINIPath, "LAST_USE", "$vSource_ImagePath", $aDIRList[$vBoucle][4])
- IniWrite($iINIPath, "LAST_USE", "$vTarget_ImagePath", $aDIRList[$vBoucle][5])
- $nMsg = 0
- _GUI_Refresh($oXMLProfil)
- EndIf
- Next
- EndIf
- Case $MP_Parameter
- $GUI_Config_SSHParameter = _GUI_Config_SSHParameter($oXMLProfil)
- If $GUI_Config_SSHParameter = 1 Then
- FileDelete($vProfilsPath)
- _XML_SaveToFile($oXMLProfil, $vProfilsPath)
- EndIf
- $aDIRList = _Check_autoconf($oXMLProfil)
- _GUI_Refresh($oXMLProfil)
- Case $MH_Help
- ShellExecute("https://github.com/Universal-Rom-Tools/Universal-XML-Scraper/wiki")
- Case $MH_Support_Screenscraper
- ShellExecute("http://www.screenscraper.fr/")
- Case $MH_Support_Tipee
- ShellExecute("https://www.tipeee.com/screenscraper")
- Case $MH_Support_Patreon
- ShellExecute("https://www.patreon.com/screenscraper")
- Case $MH_Link_Screenzone
- ShellExecute("http://www.screenzone.fr/")
- Case $MH_Link_Recalbox
- ShellExecute("https://www.recalbox.com/")
- Case $MH_Link_Retropie
- ShellExecute("https://retropie.org.uk/")
- Case $MH_Changelog
- _GUI_Update($iChangelogPath, $F_UniversalScraper)
- Case $MH_Log
- _GUI_Log($F_UniversalScraper)
- Case $MH_About ;Help
- SoundPlay($iScriptPath & "\Ressources\Sons\jingle_uxs.MP3")
- $sMsg = "UNIVERSAL XML SCRAPER - " & $iScriptVer & @CRLF
- $sMsg &= _MultiLang_GetText("win_About_By") & @CRLF & @CRLF
- $sMsg &= _MultiLang_GetText("win_About_Thanks") & @CRLF
- $sMsg &= "All Screenzone comunity" & @CRLF
- $sMsg &= "All Recalbox comunity" & @CRLF
- $sMsg &= "All Friends on IRC and forum" & @CRLF
- $sMsg &= "Special dedicace :" & @CRLF
- $sMsg &= "MarbleMad for Screenscraper" & @CRLF
- $sMsg &= "Kam3leon for Splashscreen" & @CRLF
- $sMsg &= "Neogeronimo for the Jingle" & @CRLF
- $sMsg &= "Madmeggo, Paradadf and Lackyluuk for German translation" & @CRLF
- $sMsg &= "Paradadf for Spanish translation" & @CRLF
- $sMsg &= "Cricetomutante for Italian translation" & @CRLF
- $sMsg &= "Digital Lumberjack for the Mirror" & @CRLF
- $sMsg &= "Verybadsoldier for the 'In ZIP scrape'" & @CRLF
-
- _ExtMsgBoxSet(1, 2, 0x34495c, 0xFFFF00, 10, "Arial")
- _ExtMsgBox($EMB_ICONINFO, "OK", _MultiLang_GetText("win_About_Title"), $sMsg, 15)
- Case $B_SCRAPE, $MS_Scrape ;Solo Scrape or Cancel
- _GUI_Refresh($oXMLProfil, 1)
- $vFullTimer = TimerInit()
- $aConfig = _LoadConfig()
- _GUICtrlStatusBar_SetText($L_SCRAPE, "Please Wait... Testing Server.")
- $vNbThread = IniRead($iINIPath, "LAST_USE", "$vNbThread", 1)
- _KillScrapeEngine($iScraper)
- $aScrapeEngine = _LaunchEngine($oXMLProfil, $vNbThread)
- _GUICtrlStatusBar_SetText($L_SCRAPE, "Please Wait... Testing Server..")
- If IsArray($aScrapeEngine) Then
- $aRomList = _SCRAPE($oXMLProfil, $aScrapeEngine, $vNbThread)
- If IsArray($aRomList) Then
- _LOG("-- Full Scrape in " & Round((TimerDiff($vFullTimer) / 1000), 2) & "s", 0, $iLOGPath)
- _Results($aRomList, Round((TimerDiff($vFullTimer) / 1000), 2))
- EndIf
- _KillScrapeEngine($iScraper)
- EndIf
- $vScrapeCancelled = 0
- _GUI_Refresh($oXMLProfil)
- Case $MS_FullScrape ;FullScrape
- _GUI_Refresh($oXMLProfil, 1)
- Dim $aRomList_FULL[1][12]
- $vFullTimer = TimerInit()
- $aConfig = _LoadConfig()
- _GUICtrlStatusBar_SetText($L_SCRAPE, "Please Wait... Testing Server.")
- $vNbThread = IniRead($iINIPath, "LAST_USE", "$vNbThread", 1)
- _KillScrapeEngine($iScraper)
- $aScrapeEngine = _LaunchEngine($oXMLProfil, $vNbThread)
- _GUICtrlStatusBar_SetText($L_SCRAPE, "Please Wait... Testing Server..")
- If IsArray($aScrapeEngine) Then
- For $vBoucleSysteme = 1 To UBound($MS_AutoConfigItem) - 1
- _LOG("-- Scrape System n°" & $vBoucleSysteme, 0, $iLOGPath)
- IniWrite($iINIPath, "LAST_USE", "$vSource_RomPath", $aDIRList[$vBoucleSysteme][1])
- IniWrite($iINIPath, "LAST_USE", "$vTarget_RomPath", $aDIRList[$vBoucleSysteme][2])
- IniWrite($iINIPath, "LAST_USE", "$vTarget_XMLName", $aDIRList[$vBoucleSysteme][3])
- IniWrite($iINIPath, "LAST_USE", "$vSource_ImagePath", $aDIRList[$vBoucleSysteme][4])
- IniWrite($iINIPath, "LAST_USE", "$vTarget_ImagePath", $aDIRList[$vBoucleSysteme][5])
- _GUI_Refresh($oXMLProfil)
- _GUI_Refresh($oXMLProfil, 1)
- $aRomList = _SCRAPE($oXMLProfil, $aScrapeEngine, $vNbThread, 1)
- If IsArray($aRomList) Then
- For $i = 1 To UBound($aRomList, 1) - 1
- ReDim $aRomList_FULL[UBound($aRomList_FULL, 1) + 1][UBound($aRomList, 2)]
- For $j = 0 To UBound($aRomList, 2) - 1
- $aRomList_FULL[UBound($aRomList_FULL, 1) - 1][$j] = $aRomList[$i][$j]
- Next
- Next
- EndIf
- If Not _Check_Cancel() Then $vBoucleSysteme = UBound($MS_AutoConfigItem) - 1
- Next
- $vNbThread = IniRead($iINIPath, "LAST_USE", "$vNbThread", 1)
- _LOG("-- Full Scrape in " & Round((TimerDiff($vFullTimer) / 1000), 2) & "s", 0, $iLOGPath)
- _Results($aRomList_FULL, Round((TimerDiff($vFullTimer) / 1000), 2), 1)
- _KillScrapeEngine($iScraper)
- EndIf
- $vScrapeCancelled = 0
- _GUI_Refresh($oXMLProfil)
- EndSwitch
-
- ;Option Menu
- If IsArray($aOptionMenu) And $aOptionMenu <> -1 Then
- For $vBoucle = 1 To $aOptionMenu[0][0]
- If $nMsg = $aOptionMenu[$vBoucle][0] Then
- _XML_Replace('Profil/Element[@Type="' & $aOptionMenu[$vBoucle][3] & '"]/' & $aOptionMenu[$vBoucle][4], $aOptionMenu[$vBoucle][6], 0, "", $oXMLProfil)
- FileDelete($vProfilsPath)
- _XML_SaveToFile($oXMLProfil, $vProfilsPath)
- $nMsg = ""
- $vBoucle = $aOptionMenu[0][0]
- $aOptionMenu = _OptionMenuConstruction($oXMLProfil, $aOptionMenu)
- $aOptionMenu = _OptionMenuCheck($aOptionMenu, $oXMLProfil)
- _GUI_Refresh($oXMLProfil)
- EndIf
- Next
- EndIf
-
- ;SSH Menu
- If IsArray($MP_) Then
- For $vBoucle = 1 To UBound($MP_) - 1
- If $nMsg = $MP_[$vBoucle] Then _Plink($oXMLProfil, $aPlink_Command[$vBoucle][0])
- Next
- EndIf
-
- ;Auto Conf Sub Menu
- If $aDIRList <> -1 Then
- For $vBoucle = 1 To UBound($MS_AutoConfigItem) - 1
- If $nMsg = $MS_AutoConfigItem[$vBoucle] Then
- _LOG("Autoconfig Selected :" & $aDIRList[$vBoucle][0], 0, $iLOGPath)
- For $vBoucle2 = 1 To UBound($MS_AutoConfigItem) - 1
- GUICtrlSetState($MS_AutoConfigItem[$vBoucle2], $GUI_UNCHECKED)
- Next
- GUICtrlSetState($MS_AutoConfigItem[$vBoucle], $GUI_CHECKED)
- IniWrite($iINIPath, "LAST_USE", "$vSource_RomPath", $aDIRList[$vBoucle][1])
- IniWrite($iINIPath, "LAST_USE", "$vTarget_RomPath", $aDIRList[$vBoucle][2])
- IniWrite($iINIPath, "LAST_USE", "$vTarget_XMLName", $aDIRList[$vBoucle][3])
- IniWrite($iINIPath, "LAST_USE", "$vSource_ImagePath", $aDIRList[$vBoucle][4])
- IniWrite($iINIPath, "LAST_USE", "$vTarget_ImagePath", $aDIRList[$vBoucle][5])
- $nMsg = 0
- _GUI_Refresh($oXMLProfil)
- EndIf
- Next
- EndIf
-
-WEnd
-
-;---------;
-;Fonctions;
-;---------;
-
-Func _LoadConfig()
- Local $aMatchingCountry
- Dim $aConfig[15]
- $aConfig[0] = IniRead($iINIPath, "LAST_USE", "$vTarget_XMLName", " ")
- $aConfig[1] = IniRead($iINIPath, "LAST_USE", "$vSource_RomPath", "")
- $aConfig[2] = IniRead($iINIPath, "LAST_USE", "$vTarget_RomPath", "./")
- $aConfig[3] = IniRead($iINIPath, "LAST_USE", "$vSource_ImagePath", "")
- $aConfig[4] = IniRead($iINIPath, "LAST_USE", "$vTarget_ImagePath", "./downloaded_images/")
- $aConfig[5] = IniRead($iINIPath, "LAST_USE", "$vScrape_Mode", 0)
- $aConfig[6] = IniRead($iINIPath, "LAST_USE", "$vMissingRom_Mode", 0)
- $aConfig[7] = IniRead($iINIPath, "LAST_USE", "$vCountryPic_Mode", 0)
- If IniRead($iINIPath, "LAST_USE", "$vLangPref", "0") = "0" Then IniWrite($iINIPath, "LAST_USE", "$vLangPref", _MultiLang_GetText("langpref"))
- If IniRead($iINIPath, "LAST_USE", "$vCountryPref", "0") = "0" Then IniWrite($iINIPath, "LAST_USE", "$vCountryPref", _MultiLang_GetText("countrypref"))
- $aConfig[9] = IniRead($iINIPath, "LAST_USE", "$vLangPref", "")
- $aConfig[10] = IniRead($iINIPath, "LAST_USE", "$vCountryPref", "")
- $aConfig[11] = $iRessourcesPath & "\regionlist.txt"
- $aConfig[12] = 0
- $aConfig[13] = IniRead($iINIPath, "LAST_USE", "$vSSLogin", "")
- $aConfig[14] = IniRead($iINIPath, "LAST_USE", "$vSSPassword", "")
-
- If Not FileExists($aConfig[1]) Then
- _ExtMsgBox($EMB_ICONEXCLAM, "OK", _MultiLang_GetText("err_title"), _MultiLang_GetText("err_PathRom"), 15)
- _LOG("Error Access to : " & $aConfig[1], 2, $iLOGPath)
- Return 0
- EndIf
-
- _LOG("$vTarget_XMLName = " & $aConfig[0], 1, $iLOGPath)
- _LOG("$vSource_RomPath = " & $aConfig[1], 1, $iLOGPath)
- _LOG("$vTarget_RomPath = " & $aConfig[2], 1, $iLOGPath)
- _LOG("$vSource_ImagePath = " & $aConfig[3], 1, $iLOGPath)
- _LOG("$vTarget_ImagePath = " & $aConfig[4], 1, $iLOGPath)
- _LOG("$vScrape_Mode = " & $aConfig[5], 1, $iLOGPath)
- _LOG("$vMissingRom_Mode = " & $aConfig[6], 1, $iLOGPath)
- _LOG("$vCountryPic_Mode = " & $aConfig[7], 1, $iLOGPath)
- _LOG("$vLangPref = " & $aConfig[9], 1, $iLOGPath)
- _LOG("$vCountryPref = " & $aConfig[10], 1, $iLOGPath)
- _LOG("$aMatchingCountry = " & $aConfig[11], 1, $iLOGPath)
-
- If Not FileExists($aConfig[3]) Then DirCreate($aConfig[3] & "\")
-
- Return $aConfig
-EndFunc ;==>_LoadConfig
-
-Func _ProfilSelection($iProfilsPath, $vProfilsPath = -1) ;Profil Selection
- ; Loading profils list
- $aProfilList = _FileListToArrayRec($iProfilsPath, "*.xml", $FLTAR_FILES, $FLTAR_NORECUR, $FLTAR_SORT, $FLTAR_FULLPATH)
-;~ _ArrayDisplay($aProfilList, "$aProfilList") ;Debug
- If Not IsArray($aProfilList) Then
- _LOG("No Profils found", 2, $iLOGPath)
- Exit
- EndIf
- _ArrayColInsert($aProfilList, 0)
- _ArrayColInsert($aProfilList, 0)
- _ArrayDelete($aProfilList, 0)
-
- For $vBoucle = 0 To UBound($aProfilList) - 1
- $aProfilList[$vBoucle][0] = _XML_Read("Profil/Name", 1, $aProfilList[$vBoucle][2])
- If StringInStr($aProfilList[$vBoucle][0], $vProfilsPath) Then $vProfilsPath = $aProfilList[$vBoucle][2]
- Next
-;~ _ArrayDisplay($aProfilList, "$aProfilList") ;Debug
-
- If $vProfilsPath = -1 Then $vProfilsPath = _SelectGUI($aProfilList, $aProfilList[0][2], "Profil")
- _LOG("Profil selected : " & $vProfilsPath, 0, $iLOGPath)
- Return $vProfilsPath
-EndFunc ;==>_ProfilSelection
-
-Func _Plink($oXMLProfil, $vPlink_Command, $vSilentPlink = 0, $vTimeout = 10) ;Send a Command via Plink
- Local $vPlink_Ip = _XML_Read("Profil/Plink/Ip", 0, "", $oXMLProfil)
- Local $vPlink_Root = _XML_Read("Profil/Plink/Root", 0, "", $oXMLProfil)
- Local $vPlink_Pswd = _XML_Read("Profil/Plink/Pswd", 0, "", $oXMLProfil)
- Local $vPlink_Return = ""
- $vPlink_Command_Menu = $vPlink_Command
- If $vSilentPlink = 0 Then
- If MsgBox($MB_OKCANCEL, $vPlink_Command_Menu, _MultiLang_GetText("mess_ssh_" & $vPlink_Command_Menu)) = $IDCANCEL Then
- _LOG("SSH canceled", 1, $iLOGPath)
- Return -2
- EndIf
- EndIf
- If $vPlink_Command = "killallForced" Then $vPlink_Command = "killall"
- If $vSilentPlink < 2 Then
- $vPlink_Command = _XML_Read("Profil/Plink/Command/" & $vPlink_Command_Menu, 0, "", $oXMLProfil)
- $vPlink_Return = _Coalesce(_XML_Read("Profil/Plink/Command/Ret_" & $vPlink_Command_Menu, 0, "", $oXMLProfil), "NoWait")
- EndIf
-
- _LOG("SSH Command : " & $vPlink_Command, 0, $iLOGPath)
-
- $sRun = '"' & $iScriptPath & '\Ressources\plink.exe" ' & $vPlink_Ip & " -ssh -l " & $vPlink_Root & " -pw " & $vPlink_Pswd & " " & $vPlink_Command
-;~ _LOG("SSH Command Line : " & $sRun, 1, $iLOGPath)
- $iPid = Run(@ComSpec & " /c " & $sRun, '', @SW_HIDE, $STDIN_CHILD + $STDERR_CHILD + $STDOUT_CHILD) ;@ComSpec & " /c " &
- $PlinkTimeout = TimerInit()
- While _Check_Cancel() ; ProcessExists($iPid)
- If TimerDiff($PlinkTimeout) / 1000 > $vTimeout Then
- MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), _MultiLang_GetText("err_PlinkGlobal") & @CRLF & "(Timeout)")
- _LOG("TimeOut : " & $vTimeout & "s", 2, $iLOGPath)
- StdioClose($iPid)
- Return -1
- EndIf
- $_StderrRead = StderrRead($iPid)
- If Not @error And $_StderrRead <> '' Then
- If StringInStr($_StderrRead, 'Unable to open connection') Then
- MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), _MultiLang_GetText("err_PlinkGlobal") & @CRLF & _MultiLang_GetText("err_PlinkConnection"))
- _LOG("Unable to open connection with Plink", 2, $iLOGPath)
- StdioClose($iPid)
- Return -1
- Else
- _LOG($_StderrRead, 2, $iLOGPath)
- StdioClose($iPid)
- Return -1
- EndIf
- EndIf
- $_StdoutRead = StdoutRead($iPid)
-;~ _LOG(">" & $_StdoutRead, 1, $iLOGPath);Debug
- If $_StdoutRead <> "" Or $vPlink_Return = "NoWait" Then
- _LOG($_StdoutRead, 1, $iLOGPath)
- StdioClose($iPid)
- Return $_StdoutRead
- EndIf
- WEnd
-EndFunc ;==>_Plink
-
-Func _GUI_Config_Image($oXMLProfil, $iPathMixTmp)
- #Region ### START Koda GUI section ### Form=
- $F_CONFIG = GUICreate(_MultiLang_GetText("win_config_PIC_Title"), 474, 122, -1, -1, -1, BitOR($WS_EX_TOPMOST, $WS_EX_WINDOWEDGE))
- $G_Picture = GUICtrlCreateGroup(_MultiLang_GetText("win_config_PIC_GroupPICParam"), 8, 0, 225, 113)
- $L_PicSize = GUICtrlCreateLabel(_MultiLang_GetText("win_config_PIC_GroupPICParam_PicSize"), 16, 16)
- $I_Width = GUICtrlCreateInput("", 16, 36, 89, 21)
- $I_Height = GUICtrlCreateInput("", 136, 36, 89, 21)
- $L_X = GUICtrlCreateLabel("X", 116, 40, 11, 17)
- $L_PicExt = GUICtrlCreateLabel(_MultiLang_GetText("win_config_PIC_GroupPICParam_PicExt"), 16, 76)
- $C_PicExt = GUICtrlCreateCombo("", 136, 72, 89, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE))
- GUICtrlSetData($C_PicExt, "defaut|jpg|png", StringLower(_Coalesce(IniRead($iINIPath, "LAST_USE", "$vTarget_Image_Ext", ""), _XML_Read('Profil/General/Target_Image_Extension', 0, "", $oXMLProfil))))
- GUICtrlCreateGroup("", -99, -99, 1, 1)
- $B_CONFENREG = GUICtrlCreateButton(_MultiLang_GetText("win_config_Enreg"), 240, 72, 105, 41)
- $B_CONFANNUL = GUICtrlCreateButton(_MultiLang_GetText("win_config_Cancel"), 358, 72, 105, 41)
- GUISetState(@SW_SHOW)
- GUISetState(@SW_DISABLE, $F_UniversalScraper)
- #EndRegion ### END Koda GUI section ###
-
- If StringLower(_XML_Read('Profil/General/Mix', 0, "", $oXMLProfil)) = "true" Then
- GUICtrlSetData($I_Width, _Coalesce(IniRead($iINIPath, "LAST_USE", "$vTarget_Image_Width", ""), _XML_Read("Profil/General/Target_Width", 0, $iPathMixTmp & "\config.xml")))
- GUICtrlSetData($I_Height, _Coalesce(IniRead($iINIPath, "LAST_USE", "$vTarget_Image_Height", ""), _XML_Read("Profil/General/Target_Height", 0, $iPathMixTmp & "\config.xml")))
- Else
- GUICtrlSetData($I_Width, _Coalesce(IniRead($iINIPath, "LAST_USE", "$vTarget_Image_Width", ""), _XML_Read("Profil/General/Target_Image_Width", 0, "", $oXMLProfil)))
- GUICtrlSetData($I_Height, _Coalesce(IniRead($iINIPath, "LAST_USE", "$vTarget_Image_Height", ""), _XML_Read("Profil/General/Target_Image_Height", 0, "", $oXMLProfil)))
- EndIf
-
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE, $B_CONFANNUL
- GUIDelete($F_CONFIG)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- _LOG("Image Configuration Canceled", 0, $iLOGPath)
- Return
- Case $B_CONFENREG
- IniWrite($iINIPath, "LAST_USE", "$vTarget_Image_Width", GUICtrlRead($I_Width))
- IniWrite($iINIPath, "LAST_USE", "$vTarget_Image_Height", GUICtrlRead($I_Height))
- $vPicExt = GUICtrlRead($C_PicExt)
- If $vPicExt = "defaut" Then $vPicExt = ""
- IniWrite($iINIPath, "LAST_USE", "$vTarget_Image_Ext", $vPicExt)
- _LOG("Image Configuration Saved", 0, $iLOGPath)
- _LOG("------------------------", 1, $iLOGPath)
- _LOG("$vTarget_Image_Width = " & GUICtrlRead($I_Width), 1, $iLOGPath)
- _LOG("$vTarget_Image_Height = " & GUICtrlRead($I_Height), 1, $iLOGPath)
- _LOG("$vTarget_Image_Ext = " & $vPicExt, 1, $iLOGPath)
- GUIDelete($F_CONFIG)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- Return
- EndSwitch
- WEnd
-EndFunc ;==>_GUI_Config_Image
-
-Func _GUI_Config_MIX($iMIXPath, $iPathMixTmp, $vCancelButton = 0)
- Local $vMIXListC = ""
- $aMIXList = _FileListToArrayRec($iMIXPath, "*.zip", $FLTAR_FILES, $FLTAR_NORECUR, $FLTAR_SORT, $FLTAR_NOPATH)
- For $vBoucle = 1 To UBound($aMIXList) - 1
- $vMIXListC = $vMIXListC & "|" & StringTrimRight($aMIXList[$vBoucle], 4)
- Next
-
- $vMIXLast = _Coalesce(_XML_Read("/Profil/Name", 1, $iPathMixTmp & "\config.xml"), StringTrimRight($aMIXList[1], 4))
- _Unzip($iMIXPath & "\" & $vMIXLast & ".zip", $iPathMixTmp)
-
- #Region ### START Koda GUI section ### Form=
- $F_MIXIMAGE = GUICreate(_MultiLang_GetText("win_config_mix_Title"), 830, 425, -1, -1, BitOR($WS_POPUP, $WS_BORDER), -1, $F_UniversalScraper)
- $P_UXS = GUICtrlCreatePic($iWizzPath & "\UXS_Wizard_Half.jpg", 5, 263, 100, 160, -1, -1)
- $G_MIXSelection = GUICtrlCreateGroup("Votre Mix", 5, 1, 820, 260, -1, -1)
- GUICtrlSetBkColor(-1, "0xF0F0F0")
- $L_MIXSelection = GUICtrlCreateLabel("Quel type de Mix souhaitez vous :", 13, 21, 214, 25, $SS_CENTERIMAGE, -1)
- GUICtrlSetBkColor(-1, "-2")
- $P_Empty = GUICtrlCreatePic("", 13, 53, 400, 200, -1, -1)
- GUICtrlSetTip(-1, _MultiLang_GetText("win_config_mix_empty"))
- $P_Full = GUICtrlCreatePic("", 420, 53, 400, 200, -1, -1)
- GUICtrlSetTip(-1, _MultiLang_GetText("win_config_mix_exemple"))
- $C_MIXIMAGE = GUICtrlCreateCombo("", 200, 21, 620, 21, BitOR($CBS_AUTOHSCROLL, $CBS_DROPDOWN), -1)
- GUICtrlSetData($C_MIXIMAGE, $vMIXListC, $vMIXLast)
- $B_OK = GUICtrlCreateButton(_MultiLang_GetText("win_config_mix_Enreg"), 725, 393, 100, 30, -1, -1)
- $B_CANCEL = GUICtrlCreateButton(_MultiLang_GetText("win_config_mix_Cancel"), 620, 393, 100, 30, -1, -1)
- If $vCancelButton = 1 Then GUICtrlSetState(-1, $GUI_HIDE)
- $B_LINK = GUICtrlCreateButton("Link", 515, 393, 100, 30, -1, -1)
- $E_Description = GUICtrlCreateEdit("", 110, 269, 715, 115, BitOR($ES_AUTOVSCROLL, $ES_READONLY, $WS_VSCROLL), -1)
- GUISetState(@SW_SHOW)
- GUISetState(@SW_DISABLE, $F_UniversalScraper)
- #EndRegion ### END Koda GUI section ###
-
- $vMIXExempleEmptyPath = $iPathMixTmp & "\" & _XML_Read("/Profil/General/Empty_Exemple", 0, $iPathMixTmp & "\config.xml")
- $vMIXExempleFullPath = $iPathMixTmp & "\" & _XML_Read("/Profil/General/Full_Exemple", 0, $iPathMixTmp & "\config.xml")
- GUICtrlSetImage($P_Empty, $vMIXExempleEmptyPath)
- GUICtrlSetImage($P_Full, $vMIXExempleFullPath)
- $vDescription = "Author : " & _Coalesce(_XML_Read("/Profil/Infos/Author", 0, $iPathMixTmp & "\config.xml"), "", -1)
- $vDescription = $vDescription & @CRLF & "Description :" & @CRLF & StringReplace(_Coalesce(_XML_Read("/Profil/Infos/Description", 0, $iPathMixTmp & "\config.xml"), "", -1), "@CRLF", @CRLF)
- GUICtrlSetData($E_Description, $vDescription)
- $vLink = _Coalesce(_XML_Read("/Profil/Infos/Link", 0, $iPathMixTmp & "\config.xml"), "", -1)
- If $vLink = "" Then
- GUICtrlSetState($B_LINK, $GUI_HIDE)
- Else
- GUICtrlSetState($B_LINK, $GUI_SHOW)
- EndIf
-
- While 1
- Local $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE, $B_CANCEL
- DirRemove($iPathMixTmp, 1)
- DirCreate($iPathMixTmp)
- $vResult = _Unzip($iMIXPath & "\" & $vMIXLast & ".zip", $iPathMixTmp)
- If $vResult < 0 Then
- Switch $vResult
- Case 1
- _LOG("not a Zip file", 2, $iLOGPath)
- Case 2
- _LOG("Impossible to unzip", 2, $iLOGPath)
- Case Else
- _LOG("Unknown Zip Error (" & @error & ")", 2, $iLOGPath)
- EndSwitch
- EndIf
- IniWrite($iINIPath, "LAST_USE", "$vMixImage", $vMIXLast)
- GUIDelete($F_MIXIMAGE)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- _LOG("MIX Configuration Canceled", 0, $iLOGPath)
- Return -1
- Case $B_OK
- $vMix = GUICtrlRead($C_MIXIMAGE)
- IniWrite($iINIPath, "LAST_USE", "$vTarget_Image_Width", "")
- IniWrite($iINIPath, "LAST_USE", "$vTarget_Image_Height", "")
- IniWrite($iINIPath, "LAST_USE", "$vMixImage", $vMix)
- _LOG("MIX Configuration Saved : " & $vMix, 0, $iLOGPath)
- GUIDelete($F_MIXIMAGE)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- Return $vMix
- Case $B_LINK
- $vLink = _Coalesce(_XML_Read("/Profil/Infos/Link", 0, $iPathMixTmp & "\config.xml"), "", -1)
- ShellExecute($vLink)
- Case $C_MIXIMAGE
- If GUICtrlRead($C_MIXIMAGE) <> _XML_Read("/Profil/Name", 1, $iPathMixTmp & "\config.xml") Then
- DirRemove($iPathMixTmp, 1)
- DirCreate($iPathMixTmp)
- $vResult = _Unzip($iMIXPath & "\" & GUICtrlRead($C_MIXIMAGE) & ".zip", $iPathMixTmp)
- If $vResult < 0 Then
- Switch $vResult
- Case 1
- _LOG("not a Zip file", 2, $iLOGPath)
- Case 2
- _LOG("Impossible to unzip", 2, $iLOGPath)
- Case Else
- _LOG("Unknown Zip Error (" & @error & ")", 2, $iLOGPath)
- EndSwitch
- EndIf
- $vMIXExempleEmptyPath = $iPathMixTmp & "\" & _XML_Read("/Profil/General/Empty_Exemple", 0, $iPathMixTmp & "\config.xml")
- $vMIXExempleFullPath = $iPathMixTmp & "\" & _XML_Read("/Profil/General/Full_Exemple", 0, $iPathMixTmp & "\config.xml")
- GUICtrlSetImage($P_Empty, $vMIXExempleEmptyPath)
- GUICtrlSetImage($P_Full, $vMIXExempleFullPath)
- $vDescription = "Author : " & _XML_Read("/Profil/Infos/Author", 0, $iPathMixTmp & "\config.xml")
- $vDescription = $vDescription & @CRLF & "Description :" & @CRLF & StringReplace(_XML_Read("/Profil/Infos/Description", 0, $iPathMixTmp & "\config.xml"), "@CRLF", @CRLF)
- GUICtrlSetData($E_Description, $vDescription)
- $vLink = _Coalesce(_XML_Read("/Profil/Infos/Link", 0, $iPathMixTmp & "\config.xml"), "", -1)
- If $vLink = "" Then
- GUICtrlSetState($B_LINK, $GUI_HIDE)
- Else
- GUICtrlSetState($B_LINK, $GUI_SHOW)
- EndIf
- EndIf
- EndSwitch
- WEnd
-
-EndFunc ;==>_GUI_Config_MIX
-
-Func _GUI_Config_MIX_Download()
- Local $vMIXListC = "", $vLastMIX = "", $aMIXList
- Local $vMIXExempleEmptyPath = $iRessourcesPath & "\Images\Temp\Empty_exemple.jpg"
- Local $vMIXExempleFullPath = $iRessourcesPath & "\Images\Temp\Full_exemple.jpg"
- Local $vMIXDescriptionPath = $iRessourcesPath & "\Images\Temp\Description.txt"
-
- Local $Result = _DownloadWRetry("https://raw.githubusercontent.com/Universal-Rom-Tools/Universal-XML-Scraper/master/MIX%20Repository/_MIXList.txt", $iRessourcesPath & "\_MIXList.txt")
- Switch $Result
- Case -1
- _LOG("Error downloading _MIXList", 2, $iLOGPath)
- Return 0
- Case -2
- _LOG("Time Out downloading _MIXList", 2, $iLOGPath)
- Return 0
- EndSwitch
- _FileReadToArray($Result, $aMIXList)
- For $vBoucle = 1 To UBound($aMIXList) - 1
- $vMIXListC = $vMIXListC & "|" & $aMIXList[$vBoucle]
- Next
-
- #Region ### START Koda GUI section ### Form=
- $F_MIXIMAGE = GUICreate(_MultiLang_GetText("win_config_mix_Download_Title"), 830, 425, -1, -1, BitOR($WS_POPUP, $WS_BORDER), -1, $F_UniversalScraper)
- $P_UXS = GUICtrlCreatePic($iWizzPath & "\UXS_Wizard_Half.jpg", 5, 263, 100, 160, -1, -1)
- $G_MIXSelection = GUICtrlCreateGroup("Votre Mix", 5, 1, 820, 260, -1, -1)
- GUICtrlSetBkColor(-1, "0xF0F0F0")
- $L_MIXSelection = GUICtrlCreateLabel("Quel type de Mix souhaitez vous :", 13, 21, 214, 25, $SS_CENTERIMAGE, -1)
- GUICtrlSetBkColor(-1, "-2")
- $P_Empty = GUICtrlCreatePic("", 13, 53, 400, 200, -1, -1)
- GUICtrlSetTip(-1, _MultiLang_GetText("win_config_mix_empty"))
- $P_Full = GUICtrlCreatePic("", 420, 53, 400, 200, -1, -1)
- GUICtrlSetTip(-1, _MultiLang_GetText("win_config_mix_exemple"))
- $C_MIXIMAGE = GUICtrlCreateCombo("", 200, 21, 620, 21, BitOR($CBS_AUTOHSCROLL, $CBS_DROPDOWN), -1)
- GUICtrlSetData($C_MIXIMAGE, $vMIXListC)
- $B_OK = GUICtrlCreateButton(_MultiLang_GetText("win_config_mix_Download_Download"), 725, 393, 100, 30, -1, -1)
- $B_CANCEL = GUICtrlCreateButton(_MultiLang_GetText("win_config_mix_Download_Exit"), 620, 393, 100, 30, -1, -1)
- $B_LINK = GUICtrlCreateButton("Link", 515, 393, 100, 30, -1, -1)
- GUICtrlSetState(-1, $GUI_HIDE)
- $E_Description = GUICtrlCreateEdit("", 110, 269, 715, 115, BitOR($ES_AUTOVSCROLL, $ES_READONLY, $WS_VSCROLL), -1)
- GUISetState(@SW_SHOW)
- GUISetState(@SW_DISABLE, $F_UniversalScraper)
- #EndRegion ### END Koda GUI section ###
-
- While 1
- Local $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE, $B_CANCEL
- GUIDelete($F_MIXIMAGE)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- _LOG("MIX Download Exit", 0, $iLOGPath)
- Return
- Case $B_OK
- $vMIXURL = 'https://raw.githubusercontent.com/Universal-Rom-Tools/Universal-XML-Scraper/master/MIX Repository/' & GUICtrlRead($C_MIXIMAGE) & '.zip'
- _DownloadWRetry($vMIXURL, $iMIXPath & "\" & GUICtrlRead($C_MIXIMAGE) & '.zip')
- _LOG("MIX Download : " & GUICtrlRead($C_MIXIMAGE), 0, $iLOGPath)
- GUIDelete($F_MIXIMAGE)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- Return
- Case $C_MIXIMAGE
- If GUICtrlRead($C_MIXIMAGE) <> $vLastMIX Then
- $vMIXExempleURL = 'https://raw.githubusercontent.com/Universal-Rom-Tools/Universal-XML-Scraper/master/MIX Repository/Preview/' & GUICtrlRead($C_MIXIMAGE) & '/'
- $vMIXExempleEmptyPath = _DownloadWRetry($vMIXExempleURL & "Empty_exemple.jpg", $vMIXExempleEmptyPath)
- $vMIXExempleFullPath = _DownloadWRetry($vMIXExempleURL & "Full_exemple.jpg", $vMIXExempleFullPath)
- GUICtrlSetImage($P_Empty, $vMIXExempleEmptyPath)
- GUICtrlSetImage($P_Full, $vMIXExempleFullPath)
- $vMIXDescriptionURL = 'https://raw.githubusercontent.com/Universal-Rom-Tools/Universal-XML-Scraper/master/MIX Repository/Preview/' & GUICtrlRead($C_MIXIMAGE) & '/'
- ConsoleWrite($vMIXDescriptionURL & "Description.txt" & @CRLF)
- $vMIXDescriptionPath = _DownloadWRetry($vMIXDescriptionURL & "Description.txt", $vMIXDescriptionPath)
- $vDescription = StringReplace(FileRead($vMIXDescriptionPath), @LF, @CRLF)
- GUICtrlSetData($E_Description, $vDescription)
- $vLastMIX = GUICtrlRead($C_MIXIMAGE)
- EndIf
- EndSwitch
- WEnd
-
-EndFunc ;==>_GUI_Config_MIX_Download
-
-Func _GUI_Config_MISC()
- Local $aRechFiles = StringSplit(IniRead($iINIPath, "LAST_USE", "$vRechFiles", "*.*|*.xml;*.txt;*.dv;*.fs;*.xor;*.drv;*.dat;*.cfg;*.nv;*.sav*|"), '|', $STR_ENTIRESPLIT + $STR_NOCOUNT)
- Local $aScrapeMode = StringSplit(_MultiLang_GetText("win_config_MISC_GroupMISC_ScrapeModeChoice"), '|', $STR_ENTIRESPLIT + $STR_NOCOUNT)
- Local $aScrapeSearchMode = StringSplit(_MultiLang_GetText("win_config_MISC_GroupMISC_ScrapeSearchModeChoice"), '|', $STR_ENTIRESPLIT + $STR_NOCOUNT)
- Local $aVerbose = StringSplit(_MultiLang_GetText("win_config_MISC_GroupMISC_VerboseChoice"), '|', $STR_ENTIRESPLIT + $STR_NOCOUNT)
- Local $vNbThreadDefault = 0, $vRootPathOnPI = ""
-
- #Region ### START Koda GUI section ### Form=
- $F_CONFIG = GUICreate(_MultiLang_GetText("win_config_MISC_Title"), 475, 372, -1, -1, -1, BitOR($WS_EX_TOPMOST, $WS_EX_WINDOWEDGE))
- $G_Misc = GUICtrlCreateGroup(_MultiLang_GetText("win_config_MISC_GroupMISC"), 8, 0, 225, 321)
- $L_CountryPref = GUICtrlCreateLabel(_MultiLang_GetText("win_config_MISC_GroupMISC_CountryPref"), 16, 15)
- $I_CountryPref = GUICtrlCreateInput(IniRead($iINIPath, "LAST_USE", "$vCountryPref", ""), 16, 34, 209, 21)
- $L_LangPref = GUICtrlCreateLabel(_MultiLang_GetText("win_config_MISC_GroupMISC_LangPref"), 16, 60)
- $I_LangPref = GUICtrlCreateInput(IniRead($iINIPath, "LAST_USE", "$vLangPref", ""), 16, 80, 209, 21)
- $L_ScrapeMode = GUICtrlCreateLabel(_MultiLang_GetText("win_config_MISC_GroupMISC_ScrapeMode"), 16, 108)
- $C_ScrapeMode = GUICtrlCreateCombo("", 16, 128, 209, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE))
- GUICtrlSetData($C_ScrapeMode, _MultiLang_GetText("win_config_MISC_GroupMISC_ScrapeModeChoice"), $aScrapeMode[IniRead($iINIPath, "LAST_USE", "$vScrape_Mode", 0)])
- $L_ScrapeSearchMode = GUICtrlCreateLabel(_MultiLang_GetText("win_config_MISC_GroupMISC_ScrapeSearchMode"), 16, 156)
- $C_ScrapeSearchMode = GUICtrlCreateCombo("", 16, 176, 209, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE))
- GUICtrlSetData($C_ScrapeSearchMode, _MultiLang_GetText("win_config_MISC_GroupMISC_ScrapeSearchModeChoice"), $aScrapeSearchMode[IniRead($iINIPath, "LAST_USE", "$vScrapeSearchMode", 0)])
- $L_Verbose = GUICtrlCreateLabel(_MultiLang_GetText("win_config_MISC_GroupMISC_Verbose"), 16, 204)
- $C_Verbose = GUICtrlCreateCombo("", 16, 224, 209, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE))
- GUICtrlSetData($C_Verbose, _MultiLang_GetText("win_config_MISC_GroupMISC_VerboseChoice"), $aVerbose[IniRead($iINIPath, "GENERAL", "$vVerbose", 0)])
- $CB_MissingRom_Mode = GUICtrlCreateCheckbox(_MultiLang_GetText("win_config_MISC_GroupMISC_MissingMode"), 16, 252)
- $CB_RechSys = GUICtrlCreateCheckbox(_MultiLang_GetText("win_config_MISC_GroupMISC_RechSys"), 16, 274)
-;~ $CB_Mirror = GUICtrlCreateCheckbox(_MultiLang_GetText("win_config_MISC_GroupMISC_Mirror"), 16, 296)
- $CB_ScrapeZip = GUICtrlCreateCheckbox(_MultiLang_GetText("win_config_MISC_GroupMISC_ScrapeZip"), 16, 296)
- GUICtrlCreateGroup("", -99, -99, 1, 1)
- $G_ScreenScraper = GUICtrlCreateGroup(_MultiLang_GetText("win_config_MISC_GroupScreenScraper"), 240, 0, 225, 153)
- $L_SSLogin = GUICtrlCreateLabel(_MultiLang_GetText("win_config_MISC_GroupScreenScraper_Login"), 248, 15)
- $I_SSLogin = GUICtrlCreateInput(IniRead($iINIPath, "LAST_USE", "$vSSLogin", ""), 248, 34, 113, 21)
- $L_SSPassword = GUICtrlCreateLabel(_MultiLang_GetText("win_config_MISC_GroupScreenScraper_Password"), 248, 61)
- $I_SSPassword = GUICtrlCreateInput(BinaryToString(_Crypt_DecryptData(IniRead($iINIPath, "LAST_USE", "$vSSPassword", ""), "1gdf1g1gf", $CALG_RC4)), 248, 80, 113, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_PASSWORD))
- $L_Thread = GUICtrlCreateLabel(_MultiLang_GetText("win_config_MISC_GroupScreenScraper_NbThread"), 376, 15)
- $C_Thread = GUICtrlCreateCombo("1", 376, 34, 81, 21, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE))
- GUICtrlSetData($C_Thread, "", "")
- $B_SSCheck = GUICtrlCreateButton(_MultiLang_GetText("win_config_MISC_GroupScreenScraper_Check"), 368, 80, 91, 21)
- $B_SSRegister = GUICtrlCreateButton(_MultiLang_GetText("win_config_MISC_GroupScreenScraper_SSRegister"), 248, 112, 211, 25)
- GUICtrlCreateGroup("", -99, -99, 1, 1)
- $G_RechFiles = GUICtrlCreateGroup(_MultiLang_GetText("win_config_MISC_GroupRechFiles"), 240, 160, 225, 161)
- $L_Include = GUICtrlCreateLabel(_MultiLang_GetText("win_config_MISC_GroupRechFiles_Include"), 248, 175)
- $I_Include = GUICtrlCreateInput($aRechFiles[0], 248, 194, 209, 21)
- $L_Exclude = GUICtrlCreateLabel(_MultiLang_GetText("win_config_MISC_GroupRechFiles_Exclude"), 248, 220)
- $I_Exclude = GUICtrlCreateInput($aRechFiles[1], 248, 240, 209, 21)
- $L_ExcludeFolder = GUICtrlCreateLabel(_MultiLang_GetText("win_config_MISC_GroupRechFiles_ExcludeFolder"), 248, 268)
- $I_ExcludeFolder = GUICtrlCreateInput($aRechFiles[2], 248, 288, 209, 21)
- GUICtrlCreateGroup("", -99, -99, 1, 1)
- $G_Experimental = GUICtrlCreateGroup("Experimental", 8, 320, 225, 49)
- $CB_SSHHash = GUICtrlCreateCheckbox("SSH HASH", 16, 340, 89, 17)
- $B_Local_RomPath = GUICtrlCreateButton("Rom Path", 112, 336, 115, 25)
- GUICtrlCreateGroup("", -99, -99, 1, 1)
- $B_CONFENREG = GUICtrlCreateButton(_MultiLang_GetText("win_config_Enreg"), 240, 328, 105, 33)
- $B_CONFANNUL = GUICtrlCreateButton(_MultiLang_GetText("win_config_Cancel"), 358, 328, 105, 33)
- GUISetState(@SW_SHOW)
- GUISetState(@SW_DISABLE, $F_UniversalScraper)
- #EndRegion ### END Koda GUI section ###
-
- GUICtrlSetState($CB_MissingRom_Mode, $GUI_UNCHECKED)
- If IniRead($iINIPath, "LAST_USE", "$vMissingRom_Mode", "0") = "1" Then GUICtrlSetState($CB_MissingRom_Mode, $GUI_CHECKED)
- GUICtrlSetState($CB_RechSys, $GUI_UNCHECKED)
- If IniRead($iINIPath, "LAST_USE", "$vRechSYS", "1") = "1" Then GUICtrlSetState($CB_RechSys, $GUI_CHECKED)
- GUICtrlSetState($CB_ScrapeZip, $GUI_UNCHECKED)
- If IniRead($iINIPath, "LAST_USE", "$vScrapeZip", "0") = "1" Then GUICtrlSetState($CB_ScrapeZip, $GUI_CHECKED)
- GUICtrlSetState($CB_SSHHash, $GUI_UNCHECKED)
- GUICtrlSetState($B_Local_RomPath, $GUI_DISABLE)
- If IniRead($iINIPath, "LAST_USE", "$vHashOnPI", "0") = "1" Then
- GUICtrlSetState($CB_SSHHash, $GUI_CHECKED)
- GUICtrlSetState($B_Local_RomPath, $GUI_ENABLE)
- EndIf
-
- $vNbThread = IniRead($iINIPath, "LAST_USE", "$vNbThread", "1")
- $vTEMPPathSSCheck = $iScriptPath & "\Ressources\SSCheck.xml"
- $vSSLogin = GUICtrlRead($I_SSLogin) ;$vSSLogin
- $vSSPassword = GUICtrlRead($I_SSPassword) ;$vSSPassword
-
- $vTEMPPathSSCheck = _DownloadWRetry($iURLScraper & "api/ssuserInfos.php?devid=" & $iDevId & "&devpassword=" & $iDevPassword & "&softname=" & $iSoftname & "&output=XML&ssid=" & $vSSLogin & "&sspassword=" & $vSSPassword, $vTEMPPathSSCheck)
- $vNbThreadMax = _Coalesce(Number(_XML_Read("/Data/ssuser/maxthreads", 0, $vTEMPPathSSCheck)), 1)
- _LOG("SS Check ssid=" & $vSSLogin & " maxthreads = " & $vNbThreadMax, 1, $iLOGPath)
-
- $vNbThreadC = ""
- For $vBoucle = 1 To $vNbThreadMax
- $vNbThreadC = $vNbThreadC & $vBoucle & "|"
- Next
-
- If $vNbThread > $vNbThreadMax Then $vNbThread = $vNbThreadMax
- GUICtrlSetData($C_Thread, $vNbThreadC, $vNbThread)
-
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE, $B_CONFANNUL
- GUIDelete($F_CONFIG)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- _LOG("MISC Configuration Canceled", 0, $iLOGPath)
- Return
- Case $B_Local_RomPath
- $vRootPathOnPI = InputBox("Local Path to the Rom folder", "Enter the local path to the general rom folder from the root (ex : /recalbox/share/roms)", "", "", -1, -1, Default, Default, 0, $F_CONFIG)
- Case $CB_SSHHash
- If _IsChecked($CB_SSHHash) Then
- GUICtrlSetState($B_Local_RomPath, $GUI_ENABLE)
- Else
- GUICtrlSetState($B_Local_RomPath, $GUI_DISABLE)
- EndIf
- Case $B_CONFENREG
- IniWrite($iINIPath, "LAST_USE", "$vScrape_Mode", StringLeft(GUICtrlRead($C_ScrapeMode), 1))
- IniWrite($iINIPath, "LAST_USE", "$vScrapeSearchMode", StringLeft(GUICtrlRead($C_ScrapeSearchMode), 1))
- IniWrite($iINIPath, "GENERAL", "$vVerbose", StringLeft(GUICtrlRead($C_Verbose), 1))
- $iVerboseLVL = StringLeft(GUICtrlRead($C_Verbose), 1)
- IniWrite($iINIPath, "LAST_USE", "$vMissingRom_Mode", 0)
- If _IsChecked($CB_MissingRom_Mode) Then IniWrite($iINIPath, "LAST_USE", "$vMissingRom_Mode", 1)
- IniWrite($iINIPath, "LAST_USE", "$vRechSYS", 0)
- If _IsChecked($CB_RechSys) Then IniWrite($iINIPath, "LAST_USE", "$vRechSYS", 1)
- IniWrite($iINIPath, "LAST_USE", "$vScrapeZip", 0)
- If _IsChecked($CB_ScrapeZip) Then IniWrite($iINIPath, "LAST_USE", "$vScrapeZip", 1)
-
- If _IsChecked($CB_SSHHash) Then
- IniWrite($iINIPath, "LAST_USE", "$vHashOnPI", 1)
- IniWrite($iINIPath, "LAST_USE", "$vRootPathOnPI", $vRootPathOnPI)
- Else
- IniWrite($iINIPath, "LAST_USE", "$vHashOnPI", 0)
- EndIf
-
- IniWrite($iINIPath, "LAST_USE", "$vRechFiles", GUICtrlRead($I_Include) & "|" & GUICtrlRead($I_Exclude) & "|" & GUICtrlRead($I_ExcludeFolder))
- $vCountryPref = GUICtrlRead($I_CountryPref) ;$vCountryPref
- IniWrite($iINIPath, "LAST_USE", "$vCountryPref", $vCountryPref)
- $vLangPref = GUICtrlRead($I_LangPref) ;$vLangPref
- IniWrite($iINIPath, "LAST_USE", "$vLangPref", $vLangPref)
- $vSSLogin = GUICtrlRead($I_SSLogin) ;$vSSLogin
- IniWrite($iINIPath, "LAST_USE", "$vSSLogin", $vSSLogin)
- $vSSPassword = _Crypt_EncryptData(GUICtrlRead($I_SSPassword), "1gdf1g1gf", $CALG_RC4) ;$vSSPassword
- IniWrite($iINIPath, "LAST_USE", "$vSSPassword", $vSSPassword)
- IniWrite($iINIPath, "LAST_USE", "$vNbThread", GUICtrlRead($C_Thread))
- _LOG("Thread selected = " & GUICtrlRead($C_Thread), 1, $iLOGPath)
- GUIDelete($F_CONFIG)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- Return GUICtrlRead($C_Thread)
- Case $B_SSRegister
- _LOG("Launch Internet Browser to Register", 0, $iLOGPath)
- ShellExecute("http://www.screenscraper.fr/membreinscription.php")
- Case $B_SSCheck
- GUICtrlSetData($C_Thread, "", "")
- $vTEMPPathSSCheck = $iScriptPath & "\Ressources\SSCheck.xml"
- $vSSLogin = GUICtrlRead($I_SSLogin) ;$vSSLogin
- $vSSPassword = GUICtrlRead($I_SSPassword) ;$vSSPassword
- $vTEMPPathSSCheck = _DownloadWRetry($iURLScraper & "api/ssuserInfos.php?devid=" & $iDevId & "&devpassword=" & $iDevPassword & "&softname=" & $iSoftname & "&output=XML&ssid=" & $vSSLogin & "&sspassword=" & $vSSPassword, $vTEMPPathSSCheck)
-
- $vSSLevel = Number(_XML_Read("/Data/ssuser/niveau", 0, $vTEMPPathSSCheck))
-
- $vNbThreadMax = _Coalesce(Number(_XML_Read("/Data/ssuser/maxthreads", 0, $vTEMPPathSSCheck)), 1)
- _LOG("SS Check ssid=" & $vSSLogin & " maxthreads = " & $vNbThreadMax, 1, $iLOGPath)
-
- Switch $vSSLevel
- Case 0
- $vNbThreadMax = 1
- _LOG("Not Registered", 0, $iLOGPath)
- MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), _MultiLang_GetText("err_NotRegistered"), 10, $F_CONFIG)
- Case 499 To 9999999
- $vNbThreadMax = 99
- _LOG("God Mode", 0, $iLOGPath)
- MsgBox($MB_ICONWARNING, _MultiLang_GetText("mess_ssregister_title"), _MultiLang_GetText("mess_ssregister_GodMode"), 10, $F_CONFIG)
- Case Else
- _LOG("Nb Thread Available : " & $vNbThreadMax, 0, $iLOGPath)
- MsgBox($MB_ICONINFORMATION, _MultiLang_GetText("mess_ssregister_title"), _MultiLang_GetText("mess_ssregister_OK") & " " & $vNbThreadMax & " Threads", 10, $F_CONFIG)
- EndSwitch
- $iURLScraper = _TestServer($vNbThreadMax)
-
- $vNbThreadC = ""
- For $vBoucle = 1 To $vNbThreadMax
- $vNbThreadC = $vNbThreadC & $vBoucle & "|"
- Next
- If $vNbThreadMax > 5 Then
- $vNbThreadDefault = 5
- Else
- $vNbThreadDefault = $vNbThreadMax
- EndIf
- GUICtrlSetData($C_Thread, $vNbThreadC, $vNbThreadDefault)
- EndSwitch
- WEnd
-EndFunc ;==>_GUI_Config_MISC
-
-Func _GUI_Config_LU()
- #Region ### START Koda GUI section ### Form=
- $F_CONFIG = GUICreate(_MultiLang_GetText("win_config_LU_Title"), 477, 209, -1, -1, -1, BitOR($WS_EX_TOPMOST, $WS_EX_WINDOWEDGE))
- $G_Scrape = GUICtrlCreateGroup(_MultiLang_GetText("win_config_LU_GroupScrap"), 8, 0, 225, 201)
- $L_Source_RomPath = GUICtrlCreateLabel(_MultiLang_GetText("win_config_LU_GroupScrap_Source_RomPath"), 16, 16)
- GUICtrlSetTip(-1, _MultiLang_GetText("tips_config_GroupScrap_PathRom"))
- $I_Source_RomPath = GUICtrlCreateInput(IniRead($iINIPath, "LAST_USE", "$vSource_RomPath", ""), 16, 35, 177, 21)
- $B_Source_RomPath = GUICtrlCreateButton("...", 198, 35, 27, 21)
- $L_Target_XMLName = GUICtrlCreateLabel(_MultiLang_GetText("win_config_LU_GroupScrap_Target_XMLName"), 16, 63)
- GUICtrlSetTip(-1, _MultiLang_GetText("tips_config_GroupScrap_PathXML"))
- $I_Target_XMLName = GUICtrlCreateInput(IniRead($iINIPath, "LAST_USE", "$vTarget_XMLName", ""), 16, 83, 177, 21)
- $B_Target_XMLName = GUICtrlCreateButton("...", 198, 83, 27, 21)
- $L_Target_RomPath = GUICtrlCreateLabel(_MultiLang_GetText("win_config_LU_GroupScrap_Target_RomPath"), 16, 108)
- GUICtrlSetTip(-1, _MultiLang_GetText("tips_config_GroupScrap_PathRomSub"))
- $I_Target_RomPath = GUICtrlCreateInput(IniRead($iINIPath, "LAST_USE", "$vTarget_RomPath", ""), 16, 128, 177, 21)
- GUICtrlCreateGroup("", -99, -99, 1, 1)
- $G_Image = GUICtrlCreateGroup(_MultiLang_GetText("win_config_LU_GroupImage"), 240, 0, 225, 113)
- $L_Source_ImagePath = GUICtrlCreateLabel(_MultiLang_GetText("win_config_LU_GroupImage_Source_ImagePath"), 248, 15)
- GUICtrlSetTip(-1, _MultiLang_GetText("tips_config_GroupImage_PathImage"))
- $I_Source_ImagePath = GUICtrlCreateInput(IniRead($iINIPath, "LAST_USE", "$vSource_ImagePath", ""), 248, 34, 177, 21)
- $B_Source_ImagePath = GUICtrlCreateButton("...", 430, 34, 27, 21)
- $L_Target_ImagePath = GUICtrlCreateLabel(_MultiLang_GetText("win_config_LU_GroupImage_Target_ImagePath"), 248, 60)
- GUICtrlSetTip(-1, _MultiLang_GetText("tips_config_GroupImage_PathImageSub"))
- $I_Target_ImagePath = GUICtrlCreateInput(IniRead($iINIPath, "LAST_USE", "$vTarget_ImagePath", ""), 248, 80, 177, 21)
- GUICtrlCreateGroup("", -99, -99, 1, 1)
- $B_CONFENREG = GUICtrlCreateButton(_MultiLang_GetText("win_config_Enreg"), 240, 128, 105, 73)
- $B_CONFANNUL = GUICtrlCreateButton(_MultiLang_GetText("win_config_Cancel"), 358, 128, 105, 73)
- GUISetState(@SW_SHOW)
- GUISetState(@SW_DISABLE, $F_UniversalScraper)
- #EndRegion ### END Koda GUI section ###
-
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE, $B_CONFANNUL
- GUIDelete($F_CONFIG)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- _LOG("Path Configuration Canceled", 0, $iLOGPath)
- Return
- Case $B_Target_XMLName
- $vTarget_XMLName = FileSaveDialog(_MultiLang_GetText("win_config_GroupScrap_PathXML"), GUICtrlRead($I_Source_RomPath), "xml (*.xml)", 18, "gamelist.xml", $F_CONFIG)
- If @error Then $vTarget_XMLName = GUICtrlRead($I_Target_XMLName)
- GUICtrlSetData($I_Target_XMLName, $vTarget_XMLName)
- Case $B_Source_RomPath
- $vSource_RomPath = FileSelectFolder(_MultiLang_GetText("win_config_LU_GroupScrap_Source_RomPath"), GUICtrlRead($I_Source_RomPath), $FSF_CREATEBUTTON, GUICtrlRead($I_Source_RomPath), $F_CONFIG)
- GUICtrlSetData($I_Source_RomPath, $vSource_RomPath)
- Case $B_Source_ImagePath
- $vSource_ImagePath = FileSelectFolder(_MultiLang_GetText("win_config_LU_GroupScrap_Source_RomPath"), GUICtrlRead($I_Source_RomPath), $FSF_CREATEBUTTON, GUICtrlRead($I_Source_ImagePath), $F_CONFIG)
- GUICtrlSetData($I_Source_ImagePath, $vSource_ImagePath)
- Case $B_CONFENREG
- $vSource_RomPath = GUICtrlRead($I_Source_RomPath) ;$vSource_RomPath
- If (StringRight($vSource_RomPath, 1) = '\') Then StringTrimRight($vSource_RomPath, 1)
- IniWrite($iINIPath, "LAST_USE", "$vSource_RomPath", $vSource_RomPath)
- $vTarget_XMLName = GUICtrlRead($I_Target_XMLName) ;$vTarget_XMLName
- If StringInStr(FileGetAttrib($vTarget_XMLName), "D") > 0 Then
- MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), "XMLName must be a file, not a folder", 0, $F_CONFIG)
- _LOG("$vTarget_XMLName is a FOLDER = " & $vTarget_XMLName, 2, $iLOGPath)
- ContinueCase
- EndIf
- IniWrite($iINIPath, "LAST_USE", "$vTarget_XMLName", $vTarget_XMLName)
- $vTarget_RomPath = GUICtrlRead($I_Target_RomPath) ;$vTarget_RomPath
- IniWrite($iINIPath, "LAST_USE", "$vTarget_RomPath", $vTarget_RomPath)
- $vSource_ImagePath = GUICtrlRead($I_Source_ImagePath) ;$vSource_ImagePath
- IniWrite($iINIPath, "LAST_USE", "$vSource_ImagePath", $vSource_ImagePath)
- $vTarget_ImagePath = GUICtrlRead($I_Target_ImagePath) ;$vTarget_ImagePath
- IniWrite($iINIPath, "LAST_USE", "$vTarget_ImagePath", $vTarget_ImagePath)
- _LOG("Path Configuration Saved", 0, $iLOGPath)
- _LOG("------------------------", 1, $iLOGPath)
- _LOG("$vTarget_XMLName = " & $vTarget_XMLName, 1, $iLOGPath)
- _LOG("$vSource_RomPath = " & $vSource_RomPath, 1, $iLOGPath)
- _LOG("$vTarget_RomPath = " & $vTarget_RomPath, 1, $iLOGPath)
- _LOG("$vSource_ImagePath = " & $vSource_ImagePath, 1, $iLOGPath)
- _LOG("$vTarget_ImagePath = " & $vTarget_ImagePath, 1, $iLOGPath)
- GUIDelete($F_CONFIG)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- Return
- EndSwitch
- WEnd
-EndFunc ;==>_GUI_Config_LU
-
-Func _GUI_Config_autoconf($oXMLProfil)
- #Region ### START Koda GUI section ### Form=
- $F_CONFIG = GUICreate(_MultiLang_GetText("win_config_autoconf_Title"), 477, 209, -1, -1, -1, BitOR($WS_EX_TOPMOST, $WS_EX_WINDOWEDGE))
- $CB_Autoconf = GUICtrlCreateCheckbox(_MultiLang_GetText("win_config_autoconf_Use"), 8, 8, 225, 33, BitOR($GUI_SS_DEFAULT_CHECKBOX, $BS_CENTER, $BS_VCENTER))
- $G_Scrape = GUICtrlCreateGroup(_MultiLang_GetText("win_config_autoconf_GroupScrap"), 8, 40, 225, 161)
- $L_Source_RootPath = GUICtrlCreateLabel(_MultiLang_GetText("win_config_autoconf_GroupScrap_Source_RootPath"), 16, 56)
- GUICtrlSetTip(-1, _MultiLang_GetText("tips_config_GroupScrap_PathXML"))
- $I_Source_RootPath = GUICtrlCreateInput(_XML_Read("Profil/AutoConf/Source_RootPath", 0, "", $oXMLProfil), 16, 75, 177, 21)
- $B_Source_RootPath = GUICtrlCreateButton("...", 198, 75, 27, 21)
- $L_Target_XMLName = GUICtrlCreateLabel(_MultiLang_GetText("win_config_autoconf_GroupScrap_Target_XMLName"), 16, 103)
- GUICtrlSetTip(-1, _MultiLang_GetText("tips_config_GroupScrap_PathXML"))
- $I_Target_XMLName = GUICtrlCreateInput(_XML_Read("Profil/AutoConf/Target_XMLName", 0, "", $oXMLProfil), 16, 123, 177, 21)
- $L_Target_RomPath = GUICtrlCreateLabel(_MultiLang_GetText("win_config_autoconf_GroupScrap_Target_RomPath"), 16, 153)
- GUICtrlSetTip(-1, _MultiLang_GetText("tips_config_GroupScrap_PathRomSub"))
- $I_Target_RomPath = GUICtrlCreateInput(_XML_Read("Profil/AutoConf/Target_RomPath", 0, "", $oXMLProfil), 16, 173, 177, 21)
- GUICtrlCreateGroup("", -99, -99, 1, 1)
- $G_Image = GUICtrlCreateGroup(_MultiLang_GetText("win_config_autoconf_GroupImage"), 240, 0, 225, 113)
- $L_Source_ImagePath = GUICtrlCreateLabel(_MultiLang_GetText("win_config_autoconf_GroupImage_Source_ImagePath"), 248, 15)
- GUICtrlSetTip(-1, _MultiLang_GetText("tips_config_GroupImage_PathImage"))
- $I_Source_ImagePath = GUICtrlCreateInput(_XML_Read("Profil/AutoConf/Source_ImagePath", 0, "", $oXMLProfil), 248, 34, 177, 21)
- $L_Target_ImagePath = GUICtrlCreateLabel(_MultiLang_GetText("win_config_autoconf_GroupImage_Target_ImagePath"), 248, 60)
- GUICtrlSetTip(-1, _MultiLang_GetText("tips_config_GroupImage_PathImageSub"))
- $I_Target_ImagePath = GUICtrlCreateInput(_XML_Read("Profil/AutoConf/Target_ImagePath", 0, "", $oXMLProfil), 248, 80, 177, 21)
- GUICtrlCreateGroup("", -99, -99, 1, 1)
- $B_CONFENREG = GUICtrlCreateButton(_MultiLang_GetText("win_config_Enreg"), 240, 128, 105, 73)
- $B_CONFANNUL = GUICtrlCreateButton(_MultiLang_GetText("win_config_Cancel"), 358, 128, 105, 73)
- GUISetState(@SW_SHOW)
- GUISetState(@SW_DISABLE, $F_UniversalScraper)
- #EndRegion ### END Koda GUI section ###
-
- GUICtrlSetState($CB_Autoconf, $GUI_UNCHECKED)
- If IniRead($iINIPath, "LAST_USE", "$vAutoconf_Use", 0) = 1 Then GUICtrlSetState($CB_Autoconf, $GUI_CHECKED)
-
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE, $B_CONFANNUL
- GUIDelete($F_CONFIG)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- _LOG("Path Configuration Canceled", 0, $iLOGPath)
- Return
- Case $B_Source_RootPath
- $vSource_RootPath = FileSelectFolder(_MultiLang_GetText("win_config_LU_GroupScrap_Source_RootPath"), GUICtrlRead($I_Source_RootPath), $FSF_CREATEBUTTON, GUICtrlRead($I_Source_RootPath), $F_CONFIG)
- GUICtrlSetData($I_Source_RootPath, $vSource_RootPath)
- Case $B_CONFENREG
- $vSource_RootPath = GUICtrlRead($I_Source_RootPath) ;$vSource_RootPath
- If (StringRight($vSource_RootPath, 1) = '\') Then StringTrimRight($vSource_RootPath, 1)
- _XML_Replace("Profil/AutoConf/Source_RootPath", $vSource_RootPath, 0, "", $oXMLProfil)
- $vTarget_XMLName = GUICtrlRead($I_Target_XMLName) ;$vTarget_XMLName
- If StringInStr(FileGetAttrib($vTarget_XMLName), "D") > 0 Then
- MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), "XMLName must be a file, not a folder", 0, $F_CONFIG)
- _LOG("$vTarget_XMLName is a FOLDER = " & $vTarget_XMLName, 2, $iLOGPath)
- ContinueCase
- EndIf
- _XML_Replace("Profil/AutoConf/Target_XMLName", $vTarget_XMLName, 0, "", $oXMLProfil)
- $vTarget_RomPath = GUICtrlRead($I_Target_RomPath) ;$vTarget_RomPath
- _XML_Replace("Profil/AutoConf/Target_RomPath", $vTarget_RomPath, 0, "", $oXMLProfil)
- $vSource_ImagePath = GUICtrlRead($I_Source_ImagePath) ;$vSource_ImagePath
- _XML_Replace("Profil/AutoConf/Source_ImagePath", $vSource_ImagePath, 0, "", $oXMLProfil)
- $vTarget_ImagePath = GUICtrlRead($I_Target_ImagePath) ;$vTarget_ImagePath
- _XML_Replace("Profil/AutoConf/Target_ImagePath", $vTarget_ImagePath, 0, "", $oXMLProfil)
- If _IsChecked($CB_Autoconf) Then
- $vAutoconf_Use = 1
- Else
- $vAutoconf_Use = 0
- EndIf
-
- IniWrite($iINIPath, "LAST_USE", "$vAutoconf_Use", $vAutoconf_Use)
- _LOG("AutoConf Path Configuration Saved", 0, $iLOGPath)
- _LOG("------------------------", 1, $iLOGPath)
- _LOG("$vSource_RootPath = " & $vSource_RootPath, 1, $iLOGPath)
- _LOG("$vTarget_XMLName = " & $vTarget_XMLName, 1, $iLOGPath)
- _LOG("$vTarget_RomPath = " & $vTarget_RomPath, 1, $iLOGPath)
- _LOG("$vSource_ImagePath = " & $vSource_ImagePath, 1, $iLOGPath)
- _LOG("$vTarget_ImagePath = " & $vTarget_ImagePath, 1, $iLOGPath)
- GUIDelete($F_CONFIG)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- Return 1
- EndSwitch
- WEnd
-EndFunc ;==>_GUI_Config_autoconf
-
-Func _GUI_Config_SSHParameter($oXMLProfil)
- #Region ### START Koda GUI section ### Form=
- $F_SSH = GUICreate("SSH", 234, 130, -1, -1, -1, BitOR($WS_EX_TOPMOST, $WS_EX_WINDOWEDGE))
- $B_CONFENREG = GUICtrlCreateButton(_MultiLang_GetText("win_config_Enreg"), 8, 80, 105, 41)
- $B_CONFANNUL = GUICtrlCreateButton(_MultiLang_GetText("win_config_Cancel"), 121, 80, 105, 41)
- $L_Host = GUICtrlCreateLabel("Host", 16, 10)
- $I_Host = GUICtrlCreateInput(_XML_Read('Profil/Plink/Ip', 0, "", $oXMLProfil), 96, 8, 129, 21)
- $L_Login = GUICtrlCreateLabel("Login", 16, 34)
- $I_Login = GUICtrlCreateInput(_XML_Read('Profil/Plink/Root', 0, "", $oXMLProfil), 96, 32, 129, 21)
- $L_Pwd = GUICtrlCreateLabel("Password", 16, 58)
- $I_Pwd = GUICtrlCreateInput(_XML_Read('Profil/Plink/Pswd', 0, "", $oXMLProfil), 96, 56, 129, 21)
- GUISetState(@SW_SHOW)
- GUISetState(@SW_DISABLE, $F_UniversalScraper)
- #EndRegion ### END Koda GUI section ###
-
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE, $B_CONFANNUL
- GUIDelete($F_SSH)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- _LOG("SSH Parameter Canceled", 0, $iLOGPath)
- Return 0
- Case $B_CONFENREG
- _XML_Replace("Profil/Plink/Ip", GUICtrlRead($I_Host), 0, "", $oXMLProfil)
- _XML_Replace("Profil/Plink/Root", GUICtrlRead($I_Login), 0, "", $oXMLProfil)
- _XML_Replace("Profil/Plink/Pswd", GUICtrlRead($I_Pwd), 0, "", $oXMLProfil)
-
- _LOG("SSH Parameter Saved", 0, $iLOGPath)
- _LOG("------------------------", 1, $iLOGPath)
- _LOG("Host = " & GUICtrlRead($I_Host), 1, $iLOGPath)
- _LOG("Login = " & GUICtrlRead($I_Login), 1, $iLOGPath)
- _LOG("Password = " & GUICtrlRead($I_Pwd), 1, $iLOGPath)
- GUIDelete($F_SSH)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- Return 1
- EndSwitch
- WEnd
-EndFunc ;==>_GUI_Config_SSHParameter
-
-Func _GUI_Refresh($oXMLProfil = -1, $ScrapIP = 0, $vScrapeOK = 0) ;Refresh GUI
- Local $png, $hImage, $Bmp
- If $oXMLProfil <> -1 Then
- If $ScrapIP = 0 Then
- ; GUI Picture
- Local $vSourcePicturePath = _XML_Read("Profil/General/Source_Image", 0, "", $oXMLProfil)
- If $vSourcePicturePath < 0 Then
- $vSourcePicturePath = $iScriptPath & "\ProfilsFiles\Ressources\empty.jpg"
- Else
- $vSourcePicturePath = $iScriptPath & "\ProfilsFiles\Ressources\" & $vSourcePicturePath
- EndIf
-
- GUICtrlSetImage($P_BACKGROUND, $vSourcePicturePath)
-
- If _XML_Read('Profil/Element[@Type="Picture"]/Source_Type', 0, "", $oXMLProfil) = "MIX_Template" Then
- _XML_Replace('Profil/General/Mix', "True", 0, "", $oXMLProfil)
- _XML_Replace('Profil/General/Target_Image_Extension', "png", 0, "", $oXMLProfil)
- _XML_Replace('Profil/Element[@Type="Picture"]/Source_Download_Ext', "png", 0, "", $oXMLProfil)
- _XML_Replace('Profil/Element[@Type="Picture Alt"]/Source_Download_Ext', "png", 0, "", $oXMLProfil)
- _GDIPlus_Startup()
- $png = $iScriptPath & "\Ressources\Images\MIX.png"
- $hImage = _GDIPlus_ImageLoadFromFile($png)
- $Bmp = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
- _WinAPI_DeleteObject(GUICtrlSendMsg($P_MIX, $STM_SETIMAGE, $IMAGE_BITMAP, $Bmp))
- GUISetState()
- _WinAPI_DeleteObject($Bmp)
- _GDIPlus_ImageDispose($hImage)
- _GDIPlus_Shutdown()
-
- GUICtrlSetState($MC_Miximage, $GUI_ENABLE)
- Else
- _XML_Replace('Profil/General/Mix', "False", 0, "", $oXMLProfil)
- _XML_Replace('Profil/General/Target_Image_Extension', "jpg", 0, "", $oXMLProfil)
- _XML_Replace('Profil/Element[@Type="Picture"]/Source_Download_Ext', "jpg", 0, "", $oXMLProfil)
- _XML_Replace('Profil/Element[@Type="Picture Alt"]/Source_Download_Ext', "jpg", 0, "", $oXMLProfil)
- GUICtrlSetImage($P_MIX, "")
- GUICtrlSetState($MC_Miximage, $GUI_DISABLE)
- EndIf
- FileDelete($vProfilsPath)
- _XML_SaveToFile($oXMLProfil, $vProfilsPath)
-
- $vSystemID = _SelectSystem($oXMLSystem, 1)
- If $vSystemID > 0 Then
- Local $aLangPref = StringSplit(IniRead($iINIPath, "LAST_USE", "$vLangPref", ""), "|")
- $vWheelOk = 0
- For $vBoucle = 1 To UBound($aLangPref) - 1
- $vXpath = StringReplace('Data/systeme[id="' & $vSystemID & '"]/medias/media_wheelscarbon/media_wheelcarbon_%LANG%', '%LANG%', $aLangPref[$vBoucle])
- $vURLWheel = _XML_Read($vXpath, 0, $iScriptPath & "\Ressources\systemlist.xml") & "&maxwidth=120&maxheight=60"
- If $vURLWheel <> -1 And $vURLWheel <> "&maxwidth=120&maxheight=60" Then
- _DownloadWRetry($vURLWheel, $iScriptPath & "\Ressources\Images\Temp\Wheel.png", 1, 2)
- $vBoucle = UBound($aLangPref) - 1
- $vWheelOk += 1
- EndIf
- Next
- If $vWheelOk > 0 Then
- _GDIPlus_Startup()
- $png = $iScriptPath & "\Ressources\Images\Temp\Wheel.png"
- $hImage = _GDIPlus_ImageLoadFromFile($png)
- $Bmp = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
- _WinAPI_DeleteObject(GUICtrlSendMsg($P_WHEEL, $STM_SETIMAGE, $IMAGE_BITMAP, $Bmp))
- GUISetState()
- _WinAPI_RedrawWindow($F_UniversalScraper)
- _WinAPI_DeleteObject($Bmp)
- _GDIPlus_ImageDispose($hImage)
- _GDIPlus_Shutdown()
- Else
- GUICtrlSetImage($P_WHEEL, "")
- EndIf
- Else
- GUICtrlSetImage($P_WHEEL, "")
- EndIf
-
- ;Overall Menu
- Local $vSystem = StringSplit(IniRead($iINIPath, "LAST_USE", "$vSource_RomPath", ""), "\")
- $vSystem = $vSystem[UBound($vSystem) - 1]
-
- GUICtrlSetState($MF, $GUI_ENABLE)
- GUICtrlSetData($MF, _MultiLang_GetText("mnu_file"))
- GUICtrlSetData($MF_Exit, _MultiLang_GetText("mnu_file_exit"))
-
- GUICtrlSetState($MC, $GUI_ENABLE)
- GUICtrlSetData($MC, _MultiLang_GetText("mnu_cfg"))
- GUICtrlSetData($MC_Wizard, _MultiLang_GetText("mnu_cfg_Wizard"))
- GUICtrlSetData($MC_Config_LU, _MultiLang_GetText("mnu_cfg_config_LU"))
- GUICtrlSetData($MC_config_autoconf, _MultiLang_GetText("mnu_cfg_config_autoconf"))
- GUICtrlSetData($MC_config_PIC, _MultiLang_GetText("mnu_cfg_config_PIC"))
- GUICtrlSetData($MC_config_MISC, _MultiLang_GetText("mnu_cfg_config_MISC"))
- GUICtrlSetData($MC_MixDownload, _MultiLang_GetText("mnu_cfg_download_miximage"))
- GUICtrlSetData($MC_Profil, _MultiLang_GetText("mnu_cfg_profil"))
- GUICtrlSetData($MC_Miximage, _MultiLang_GetText("mnu_cfg_miximage"))
- GUICtrlSetData($MC_Langue, _MultiLang_GetText("mnu_cfg_langue"))
-
- GUICtrlSetState($MOption, $GUI_ENABLE)
- GUICtrlSetData($MOption, _MultiLang_GetText("mnu_cfg_config_Option"))
-
- GUICtrlSetState($MS, $GUI_ENABLE)
- GUICtrlSetData($MS, _MultiLang_GetText("mnu_scrape"))
- GUICtrlSetData($MS_AutoConfig, _MultiLang_GetText("mnu_scrape_autoconf"))
- GUICtrlSetData($MS_Scrape, _MultiLang_GetText("mnu_scrape_solo") & " - " & $vSystem)
- GUICtrlSetData($MS_FullScrape, _MultiLang_GetText("mnu_scrape_fullscrape"))
-
- GUICtrlSetData($MP_Parameter, _MultiLang_GetText("mnu_ssh_Parameter"))
-
- ;SSH Menu
- If _XML_NodeExists($oXMLProfil, "Profil/Plink/Ip") = $XML_RET_FAILURE Then
- _LOG("SSH Disable", 1, $iLOGPath)
- GUICtrlSetState($MP, $GUI_DISABLE)
- If IsArray($MP_) Then
- For $vBoucle = 1 To UBound($MP_) - 1
- GUICtrlDelete($MP_[$vBoucle])
- Next
- EndIf
-
- Else
- _LOG("SSH Enable", 1, $iLOGPath)
- GUICtrlSetState($MP, $GUI_ENABLE)
- GUICtrlSetData($MP, _MultiLang_GetText("mnu_ssh"))
- If IsArray($MP_) Then
- For $vBoucle = 1 To UBound($MP_) - 1
- GUICtrlDelete($MP_[$vBoucle])
- Next
- EndIf
- $aPlink_Command = _XML_ListNode("Profil/Plink/Command", "", $oXMLProfil)
- If IsArray($aPlink_Command) Then
- Dim $MP_[UBound($aPlink_Command)]
- For $vBoucle = 1 To UBound($aPlink_Command) - 1
- $MP_[$vBoucle] = GUICtrlCreateMenuItem(_MultiLang_GetText("mnu_ssh_" & $aPlink_Command[$vBoucle][0]), $MP)
- Next
- EndIf
- EndIf
-
- GUICtrlSetState($MH, $GUI_ENABLE)
- GUICtrlSetData($MH, _MultiLang_GetText("mnu_help"))
- GUICtrlSetData($MH_About, _MultiLang_GetText("mnu_help_about"))
- GUICtrlSetData($MH_Help, _MultiLang_GetText("mnu_help_wiki"))
- GUICtrlSetData($MH_Support, _MultiLang_GetText("mnu_help_support"))
- GUICtrlSetData($MH_Link, _MultiLang_GetText("mnu_help_link"))
-
- GUICtrlSetData($B_SCRAPE, _MultiLang_GetText("scrap_button"))
- _GUICtrlStatusBar_SetText($L_SCRAPE, "")
-
- If IniRead($iINIPath, "LAST_USE", "$vSource_RomPath", "") = "" Then
- GUICtrlSetState($MS_Scrape, $GUI_DISABLE)
- GUICtrlSetState($B_SCRAPE, $GUI_DISABLE)
- Else
- GUICtrlSetState($MS_Scrape, $GUI_ENABLE)
- GUICtrlSetState($B_SCRAPE, $GUI_ENABLE)
- EndIf
-
- _LOG("GUI Refresh", 1, $iLOGPath)
-
- Else
- _LOG("GUI Desactivated (Scrape in progress)", 1, $iLOGPath)
- GUICtrlSetState($MF, $GUI_DISABLE)
- GUICtrlSetState($MC, $GUI_DISABLE)
- GUICtrlSetState($MOption, $GUI_DISABLE)
- GUICtrlSetState($MS, $GUI_DISABLE)
- GUICtrlSetState($MP, $GUI_DISABLE)
- GUICtrlSetState($MH, $GUI_DISABLE)
- GUICtrlSetData($B_SCRAPE, _MultiLang_GetText("scrap_cancel_button"))
- EndIf
- EndIf
- Return
-EndFunc ;==>_GUI_Refresh
-
-Func _GUI_Update($iChangelogPath, $F_UniversalScraper = "")
- Local $fChangelog = StringReplace(FileRead($iChangelogPath), @LF, @CRLF)
-
- #Region ### START Koda GUI section ### Form=
- $F_Update = GUICreate(_MultiLang_GetText("mess_update_Title"), 605, 381, 192, 124)
- $P_Update = GUICtrlCreatePic($iScriptPath & "\Ressources\Images\UXS.jpg", 0, 0, 604, 380)
- GUICtrlSetState(-1, $GUI_DISABLE)
- $E_Changelog = GUICtrlCreateEdit($fChangelog, 8, 8, 585, 273, $ES_AUTOVSCROLL + $WS_VSCROLL + $ES_READONLY)
- $B_UPDATE = GUICtrlCreateButton(_MultiLang_GetText("mess_update_Question"), 8, 296, 275, 25)
- $B_CONFANNUL = GUICtrlCreateButton(_MultiLang_GetText("win_config_Cancel"), 320, 296, 275, 25)
- GUISetState(@SW_SHOW)
- #EndRegion ### END Koda GUI section ###
-
- If IsHWnd($F_UniversalScraper) Then GUISetState(@SW_DISABLE, $F_UniversalScraper)
-
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE, $B_CONFANNUL
- GUIDelete($F_Update)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- Return
- Case $B_UPDATE
- GUIDelete($F_Update)
- _LOG("Open GitHub Release Webpage", 0, $iLOGPath)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- ShellExecute("https://github.com/Universal-Rom-Tools/Universal-XML-Scraper/releases")
- Return
- EndSwitch
- WEnd
-
-EndFunc ;==>_GUI_Update
-
-Func _GUI_Log($F_UniversalScraper = "")
- _LOG("When you clic 'CANCEL' Log will be ready to be paste in http://pastebin.com/", 0, $iLOGPath)
- Local $sDrive, $sDir, $sFileName, $sExtension, $vLogList = ""
- Local $flog = StringReplace(FileRead($iLOGPath), @LF, @CRLF)
- Local $aPathSplit = _PathSplit($iLOGPath, $sDrive, $sDir, $sFileName, $sExtension)
- $aLogList = _FileListToArrayRec($sDrive & $sDir, "*", $FLTAR_FILES, $FLTAR_NORECUR, $FLTAR_SORT, $FLTAR_FULLPATH)
- For $vBoucle = 1 To UBound($aLogList) - 1
- $vLogList = $vLogList & $aLogList[$vBoucle] & "|"
- Next
-
- #Region ### START Koda GUI section ### Form=
- $F_Log = GUICreate("Log", 605, 381, 192, 124)
- $P_Log = GUICtrlCreatePic($iScriptPath & "\Ressources\Images\UXS.jpg", 0, 0, 604, 380)
- GUICtrlSetState(-1, $GUI_DISABLE)
- $E_log = GUICtrlCreateEdit($flog, 8, 8, 585, 273, $ES_AUTOVSCROLL + $WS_VSCROLL + $ES_READONLY)
- $C_Log = GUICtrlCreateCombo("", 8, 296, 275, 25)
- GUICtrlSetData($C_Log, $vLogList, $iLOGPath)
- $B_CONFANNUL = GUICtrlCreateButton(_MultiLang_GetText("win_config_Cancel"), 320, 296, 275, 25)
- GUISetState(@SW_SHOW)
- #EndRegion ### END Koda GUI section ###
-
- If IsHWnd($F_UniversalScraper) Then GUISetState(@SW_DISABLE, $F_UniversalScraper)
-
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE
- GUIDelete($F_Log)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- Return
- Case $C_Log
- Local $flog = StringReplace(FileRead(GUICtrlRead($C_Log)), @LF, @CRLF)
- GUICtrlSetData($E_log, $flog)
- Case $B_CONFANNUL
- GUIDelete($F_Log)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- ClipPut($flog)
- Return
- EndSwitch
- WEnd
-
-EndFunc ;==>_GUI_Log
-
-Func _Check_autoconf($oXMLProfil)
- $vAutoconf_Use = IniRead($iINIPath, "LAST_USE", "$vAutoconf_Use", "-1")
- If $vAutoconf_Use = "-1" Then
- If MsgBox(BitOR($MB_ICONQUESTION, $MB_YESNO), _MultiLang_GetText("mess_autoconf_ask_Title"), _MultiLang_GetText("mess_autoconf_ask_Question")) = $IDYES Then
- $vAutoconf_Use = 1
- Else
- $vAutoconf_Use = 0
- EndIf
- EndIf
- IniWrite($iINIPath, "LAST_USE", "$vAutoconf_Use", $vAutoconf_Use)
-
- Local $vSource_RootPath = _XML_Read("Profil/AutoConf/Source_RootPath", 0, "", $oXMLProfil)
- Local $vTarget_XMLName = _XML_Read("Profil/AutoConf/Target_XMLName", 0, "", $oXMLProfil)
- Local $vTarget_RomPath = _XML_Read("Profil/AutoConf/Target_RomPath", 0, "", $oXMLProfil)
- Local $vSource_ImagePath = _XML_Read("Profil/AutoConf/Source_ImagePath", 0, "", $oXMLProfil)
- Local $vTarget_ImagePath = _XML_Read("Profil/AutoConf/Target_ImagePath", 0, "", $oXMLProfil)
-
- If $vSource_RootPath = "" Or $vAutoconf_Use = 0 Then
- GUICtrlSetState($MS_AutoConfig, $GUI_DISABLE)
- GUICtrlSetState($MS_FullScrape, $GUI_DISABLE)
- Return -1
- EndIf
-
- If IsHWnd($F_UniversalScraper) Then GUISetState(@SW_DISABLE, $F_UniversalScraper)
- SplashTextOn(_MultiLang_GetText("mnu_edit_autoconf"), _MultiLang_GetText("mess_autoconf"), 400, 50)
- If StringRight($vSource_RootPath, 1) = '\' Then $vSource_RootPath = StringTrimRight($vSource_RootPath, 1)
- $aDIRList = _FileListToArrayRec($vSource_RootPath, "*", $FLTAR_FOLDERS, $FLTAR_NORECUR, $FLTAR_SORT, $FLTAR_RELPATH)
- If IsArray($aDIRList) Then
- If IsArray($MS_AutoConfigItem) Then
- For $B_ArrayDelete = 1 To UBound($MS_AutoConfigItem) - 1
- GUICtrlSetState($MS_AutoConfigItem[$B_ArrayDelete], $GUI_UNCHECKED)
- GUICtrlDelete($MS_AutoConfigItem[$B_ArrayDelete])
- Next
- EndIf
-
- GUICtrlSetState($MS_AutoConfig, $GUI_ENABLE)
- GUICtrlSetState($MS_FullScrape, $GUI_ENABLE)
- Dim $MS_AutoConfigItem[UBound($aDIRList)]
- For $vBoucle = 1 To 5
- _ArrayColInsert($aDIRList, $vBoucle)
- Next
- For $vBoucle = 1 To UBound($aDIRList) - 1
- $aDIRList[$vBoucle][1] = $vSource_RootPath & "\" & $aDIRList[$vBoucle][0]
- $aDIRList[$vBoucle][2] = _ReplacePath($vTarget_RomPath, $aDIRList, $vBoucle, $vSource_RootPath)
- $aDIRList[$vBoucle][3] = _ReplacePath($vTarget_XMLName, $aDIRList, $vBoucle, $vSource_RootPath)
- $aDIRList[$vBoucle][4] = _ReplacePath($vSource_ImagePath, $aDIRList, $vBoucle, $vSource_RootPath)
- $aDIRList[$vBoucle][5] = _ReplacePath($vTarget_ImagePath, $aDIRList, $vBoucle, $vSource_RootPath)
- $MS_AutoConfigItem[$vBoucle] = GUICtrlCreateMenuItem($aDIRList[$vBoucle][0], $MS_AutoConfig)
- Next
-;~ _ArrayDisplay($aDIRList, "$aDIRList") ; Debug
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- SplashOff()
- Return $aDIRList
- Else
- GUICtrlSetState($MS_AutoConfig, $GUI_DISABLE)
- GUICtrlSetState($MS_FullScrape, $GUI_DISABLE)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- SplashOff()
- MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), _MultiLang_GetText("err_autoconfPathRom"))
- IniWrite($iINIPath, "LAST_USE", "$vAutoconf_Use", 0)
- Return -1
- EndIf
-EndFunc ;==>_Check_autoconf
-
-Func _ReplacePath($vPath, $aDIRList, $vBoucle, $vSource_RootPath)
- Local $sDrive, $sDir, $sFileName, $sExtension
- Local $aPathSplit = _PathSplit($aDIRList[$vBoucle][1], $sDrive, $sDir, $sFileName, $sExtension)
- Local $vPathOld = $vPath
- $vPath = StringReplace($vPath, "%host%", $sDrive)
- $vPath = StringReplace($vPath, "%SystemDir%", $aDIRList[$vBoucle][1])
- $vPath = StringReplace($vPath, "%System%", $aDIRList[$vBoucle][0])
- $vPath = StringReplace($vPath, "%Source_RootPath%", $vSource_RootPath)
-;~ _LOG("ReplacePath : " & $vPathOld & " In : " & $vPath, 1, $iLOGPath) ; Debug
- Return $vPath
-EndFunc ;==>_ReplacePath
-
-Func _Check_Cancel()
- If GUIGetMsg() = $B_SCRAPE Or $vScrapeCancelled = 1 Then
- _LOG("Scrape Cancelled", 0, $iLOGPath)
- _ProgressSetImages($PB_SCRAPE, $iScriptPath & "\Ressources\Images\ProgressBar\red.jpg", $iScriptPath & "\Ressources\Images\ProgressBar\bg.jpg")
- $vScrapeCancelled = 1
- Return False
- Else
- $vScrapeCancelled = 0
- Return True
- EndIf
-EndFunc ;==>_Check_Cancel
-
-Func _RomList_Create($aConfig, $vFullScrape = 0, $oXMLProfil = "")
- Local $sDrive = "", $sDir = "", $sFileName = "", $sExtension = "", $aPathSplit
- $vRechFiles = IniRead($iINIPath, "LAST_USE", "$vRechFiles ", "*.*z*")
- Local $vPicDir = StringSplit($aConfig[3], "\")
- $vPipeCount = StringSplit($vRechFiles, "|")
- If $vPipeCount[0] = 2 Then $vRechFiles = $vRechFiles & "|"
-
- If StringRight($vRechFiles, 1) = "|" Then
- $vRechFiles = $vRechFiles & $vPicDir[UBound($vPicDir) - 1]
- Else
- $vRechFiles = $vRechFiles & ";" & $vPicDir[UBound($vPicDir) - 1]
- EndIf
- _LOG("Listing ROM (" & $vRechFiles & ")", 1, $iLOGPath)
- $aRomList = _FileListToArrayRec($aConfig[1], $vRechFiles, $FLTAR_FILES, $FLTAR_RECUR, $FLTAR_SORT)
-
- If @error = 1 Then
- _LOG("Invalid Rom Path : " & $aConfig[1], 2, $iLOGPath)
- If $vFullScrape = 0 Then MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), _MultiLang_GetText("err_PathRom"))
- Return -1
- EndIf
- If @error = 4 Then
- _LOG("No rom in " & $aConfig[1], 2, $iLOGPath)
- If $vFullScrape = 0 Then MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), _MultiLang_GetText("err_FillRomList"))
- Return -1
- EndIf
-
- For $vBoucle = 1 To 12
- _ArrayColInsert($aRomList, $vBoucle)
- Next
-
- _LOG(UBound($aRomList) - 1 & " Rom(s) found", 0, $iLOGPath)
-
- For $vBoucle = 1 To UBound($aRomList) - 1
- $aRomList[$vBoucle][1] = $aConfig[1] & "\" & $aRomList[$vBoucle][0] ; Full Path
- $aPathSplit = _PathSplit($aRomList[$vBoucle][0], $sDrive, $sDir, $sFileName, $sExtension)
- $aRomList[$vBoucle][2] = $aPathSplit[3] ; Filename (without extension)
- $aRomList[$vBoucle][9] = -1 ;Rom Found
- Next
-
- $vSpecial = _XML_Read("Profil/General/Special", 0, "", $oXMLProfil)
- Switch StringLower($vSpecial)
- Case "folder"
- ConsoleWrite("!" & $vSpecial & @CRLF)
- For $vBoucle = 1 To UBound($aRomList) - 1
- $aPathSplit = StringSplit($aRomList[$vBoucle][1], '\')
- _ArrayAdd($aRomList, $aPathSplit[UBound($aPathSplit) - 2] & '|' & $aRomList[$vBoucle][1] & '|' & $aRomList[$vBoucle][2] & '|4||||||-1')
- Next
- EndSwitch
-
-;~ _ArrayDisplay($aRomList, "$aRomList") ; Debug
-
- Return $aRomList
-EndFunc ;==>_RomList_Create
-
-Func _Check_Rom2Scrape($aRomList, $vNoRom, $aXMLRomList, $vTarget_RomPath, $vScrape_Mode, $aExtToHide = "", $aValueToHide = "")
- Local $sDrive = "", $sDir = "", $sFileName = "", $sExtension = "", $aPathSplit
-
- If $aRomList[$vNoRom][3] > 0 Then Return $aRomList
-
- If IsArray($aExtToHide) Then
- $aPathSplit = _PathSplit($aRomList[$vNoRom][0], $sDrive, $sDir, $sFileName, $sExtension)
- $aFindDuplicate = _ArrayFindAll($aRomList, $sFileName, 0, 0, 0, 0, 2)
- For $vBoucle = 1 To UBound($aExtToHide) - 1
- If StringLeft($aExtToHide[$vBoucle], 1) <> "." Then $aExtToHide[$vBoucle] = "." & $aExtToHide[$vBoucle]
- If UBound($aFindDuplicate) > 1 And $sExtension = $aExtToHide[$vBoucle] Then
- $aRomList[$vNoRom][3] = 2
- _LOG($aRomList[$vNoRom][2] & " To Hide", 1, $iLOGPath)
- Return $aRomList
- EndIf
- Next
- EndIf
-
- If IsArray($aValueToHide) Then
- For $vBoucle = 1 To UBound($aValueToHide) - 1
- If StringInStr($aRomList[$vNoRom][0], $aValueToHide[$vBoucle]) Then
- $aRomList[$vNoRom][3] = 3
- _LOG($aRomList[$vNoRom][2] & " To Hide", 1, $iLOGPath)
- Return $aRomList
- EndIf
- Next
- EndIf
-
- Switch $vScrape_Mode
- Case 0
- _LOG($aRomList[$vNoRom][2] & " To Scrape ($vScrape_Mode=0)", 1, $iLOGPath)
- If $aRomList[$vNoRom][3] < 2 Then $aRomList[$vNoRom][3] = 1
- Return $aRomList
- Case 2
- _LOG($aRomList[$vNoRom][2] & " To Scrape ($vScrape_Mode=2)", 1, $iLOGPath)
- If $aRomList[$vNoRom][3] < 2 Then $aRomList[$vNoRom][3] = 1
- Return $aRomList
- Case Else
- If IsArray($aXMLRomList) Then
- If _ArraySearch($aXMLRomList, $vTarget_RomPath & StringReplace($aRomList[$vNoRom][0], "\", "/"), 0, 0, 0, 0, 1, 2) <> -1 Then
- _LOG($aRomList[$vNoRom][2] & " NOT Scraped ($vScrape_Mode=1)", 1, $iLOGPath)
- If $aRomList[$vNoRom][3] < 2 Then $aRomList[$vNoRom][3] = 0
- Return $aRomList
- EndIf
- EndIf
- _LOG($aRomList[$vNoRom][2] & " To Scrape ($vScrape_Mode=1)", 1, $iLOGPath)
- If $aRomList[$vNoRom][3] < 2 Then $aRomList[$vNoRom][3] = 1
- Return $aRomList
- EndSwitch
- Return $aRomList
-EndFunc ;==>_Check_Rom2Scrape
-
-Func _CalcHash($aRomList, $vNoRom, $oXMLProfil)
-;~ _ArrayDisplay($aRomList, "$aRomList") ; Debug
- Local $TimerHashCRC = "N/A", $TimerHashMD5 = "N/A", $TimerHashSHA1 = "N/A"
- If Not _Check_Cancel() Then Return $aRomList
- $TimerHash = TimerInit()
- _GUICtrlStatusBar_SetText($L_SCRAPE, "Hashing " & $aRomList[$vNoRom][2])
- $aRomList[$vNoRom][4] = FileGetSize($aRomList[$vNoRom][1])
- If IniRead($iINIPath, "LAST_USE", "$vHashOnPI", "0") = "1" Then
- $TimerHashMD5 = TimerInit()
- $vSysName = StringSplit(IniRead($iINIPath, "LAST_USE", "$vSource_RomPath", ""), "\")
- $vSysName = $vSysName[UBound($vSysName) - 1]
- $vRootPathOnPI = IniRead($iINIPath, "LAST_USE", "$vRootPathOnPI", "/recalbox/share/roms")
- $vPathtoHash = $vRootPathOnPI & "/" & $vSysName & "/" & StringReplace($aRomList[$vNoRom][0], "\", "/")
- $vPlinkCommand = "md5sum '" & StringReplace($vPathtoHash, "'", "''") & "'"
- _LOG("$vPlinkCommand : " & $vPlinkCommand, 1, $iLOGPath)
- $aPlinkReturn = StringSplit(_Plink($oXMLProfil, $vPlinkCommand, 2, 600), " ", $STR_NOCOUNT)
- $aRomList[$vNoRom][6] = $aPlinkReturn[0]
- $TimerHashMD5 = Round((TimerDiff($TimerHashMD5) / 1000), 2)
- _LOG("Rom Info (" & $aRomList[$vNoRom][0] & ") Hash in " & Round((TimerDiff($TimerHash) / 1000), 2) & "s", 0, $iLOGPath)
- _LOG("MD5 : " & $aRomList[$vNoRom][6] & "(" & $TimerHashMD5 & "s)", 1, $iLOGPath)
- Return $aRomList
- EndIf
-
- If IniRead($iINIPath, "LAST_USE", "$vScrapeSearchMode", "0") = "2" Then
- _LOG("QUICK Mode ", 1, $iLOGPath)
- Else
- $TimerHashMD5 = TimerInit()
- $aRomList[$vNoRom][6] = _MD5ForFile($aRomList[$vNoRom][1])
- $TimerHashMD5 = Round((TimerDiff($TimerHashMD5) / 1000), 2)
- If Int(($aRomList[$vNoRom][4] / 1048576)) < 500 Then
- $TimerHashSHA1 = TimerInit()
- $aRomList[$vNoRom][7] = _SHA1ForFile($aRomList[$vNoRom][1])
- $TimerHashSHA1 = Round((TimerDiff($TimerHashSHA1) / 1000), 2)
- EndIf
- If Int(($aRomList[$vNoRom][4] / 1048576)) < 50 Then
- $TimerHashCRC = TimerInit()
- $aRomList[$vNoRom][5] = StringRight(_CRC32ForFile($aRomList[$vNoRom][1]), 8)
- $TimerHashCRC = Round((TimerDiff($TimerHashCRC) / 1000), 2)
- EndIf
- EndIf
- _LOG("Rom Info (" & $aRomList[$vNoRom][0] & ") Hash in " & Round((TimerDiff($TimerHash) / 1000), 2) & "s", 0, $iLOGPath)
- _LOG("Size : " & $aRomList[$vNoRom][4], 1, $iLOGPath)
- _LOG("CRC32 : " & $aRomList[$vNoRom][5] & "(" & $TimerHashCRC & "s)", 1, $iLOGPath)
- _LOG("MD5 : " & $aRomList[$vNoRom][6] & "(" & $TimerHashMD5 & "s)", 1, $iLOGPath)
- _LOG("SHA1 : " & $aRomList[$vNoRom][7] & "(" & $TimerHashSHA1 & "s)", 1, $iLOGPath)
- Return $aRomList
-EndFunc ;==>_CalcHash
-
-Func _XMLSystem_Create($vSSLogin = "test", $vSSPassword = "test")
- Local $oXMLSystem, $vXMLSystemPath = $iScriptPath & "\Ressources\systemlist.xml"
- $vXMLSystemPath = _DownloadWRetry($iURLScraper & "api/systemesListe.php?devid=" & $iDevId & "&devpassword=" & $iDevPassword & "&softname=" & $iSoftname & "&output=XML&ssid=" & $vSSLogin & "&sspassword=" & BinaryToString(_Crypt_DecryptData($vSSPassword, "1gdf1g1gf", $CALG_RC4)), $vXMLSystemPath, 3, 40)
- Switch $vXMLSystemPath
- Case -1
- MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), _MultiLang_GetText("err_UXSGlobal") & @CRLF & _MultiLang_GetText("err_Connection"))
- Return -1
- Case -2
- MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), _MultiLang_GetText("err_UXSGlobal") & @CRLF & _MultiLang_GetText("err_TimeOut"))
- Return -1
- Case Else
- $oXMLSystem = _XML_Open($vXMLSystemPath)
- If $oXMLSystem = -1 Then
- MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), _MultiLang_GetText("err_UXSGlobal") & @CRLF & _MultiLang_GetText("err_SystemList"))
- Return -1
- Else
- _LOG("systemlist.xml Opened", 1, $iLOGPath)
- Return $oXMLSystem
- EndIf
- EndSwitch
-EndFunc ;==>_XMLSystem_Create
-
-Func _XMLCountry_Create($vSSLogin = "test", $vSSPassword = "test")
- Local $oXMLCountry, $vXMLCountryPath = $iScriptPath & "\Ressources\Countrylist.xml"
- $vXMLCountryPath = _DownloadWRetry($iURLScraper & "api/regionsListe.php?devid=" & $iDevId & "&devpassword=" & $iDevPassword & "&softname=" & $iSoftname & "&output=XML&ssid=" & $vSSLogin & "&sspassword=" & BinaryToString(_Crypt_DecryptData($vSSPassword, "1gdf1g1gf", $CALG_RC4)), $vXMLCountryPath)
- Switch $vXMLCountryPath
- Case -1
- MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), _MultiLang_GetText("err_UXSGlobal") & @CRLF & _MultiLang_GetText("err_Connection"))
- Return -1
- Case -2
- MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), _MultiLang_GetText("err_UXSGlobal") & @CRLF & _MultiLang_GetText("err_TimeOut"))
- Return -1
- Case Else
- $oXMLCountry = _XML_Open($vXMLCountryPath)
- If $oXMLCountry = -1 Then
- MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), _MultiLang_GetText("err_UXSGlobal") & @CRLF & _MultiLang_GetText("err_SystemList"))
- Return -1
- Else
- _LOG("Countrylist.xml Opened", 1, $iLOGPath)
- Return $oXMLCountry
- EndIf
- EndSwitch
-EndFunc ;==>_XMLCountry_Create
-
-Func _XMLGenre_Create($vSSLogin = "test", $vSSPassword = "test")
- Local $oXMLGenre, $vXMLGenrePath = $iScriptPath & "\Ressources\Genresliste.xml"
- $vXMLGenrePath = _DownloadWRetry($iURLScraper & "api/genresListe.php?devid=" & $iDevId & "&devpassword=" & $iDevPassword & "&softname=" & $iSoftname & "&output=XML&ssid=" & $vSSLogin & "&sspassword=" & BinaryToString(_Crypt_DecryptData($vSSPassword, "1gdf1g1gf", $CALG_RC4)), $vXMLGenrePath)
- Switch $vXMLGenrePath
- Case -1
- MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), _MultiLang_GetText("err_UXSGlobal") & @CRLF & _MultiLang_GetText("err_Connection"))
- Return -1
- Case -2
- MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), _MultiLang_GetText("err_UXSGlobal") & @CRLF & _MultiLang_GetText("err_TimeOut"))
- Return -1
- Case Else
- $oXMLGenre = _XML_Open($vXMLGenrePath)
- If $oXMLGenre = -1 Then
- MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), _MultiLang_GetText("err_UXSGlobal") & @CRLF & _MultiLang_GetText("err_SystemList"))
- Return -1
- Else
- _LOG("Genrelist.xml Opened", 1, $iLOGPath)
- Return $oXMLGenre
- EndIf
- EndSwitch
-EndFunc ;==>_XMLGenre_Create
-
-Func _DownloadROMXML($aRomList, $vBoucle, $vSystemID, $vSSLogin = "", $vSSPassword = "", $vScrapeSearchMode = 0, $vForceUpdate = "")
- Local $sDrive = "", $sDir = "", $sFileName = "", $sExtension = "", $aPathSplit
- FileDelete($aRomList[$vBoucle][8])
- If Not _Check_Cancel() Then Return $aRomList
- Local $vXMLRom = $iTEMPPath & "\" & StringRegExpReplace($aRomList[$vBoucle][2], '[\[\]/\|\:\?"\*\\<>]', "") & ".xml"
- $aPathSplit = _PathSplit($aRomList[$vBoucle][0], $sDrive, $sDir, $sFileName, $sExtension)
- $vRomName = _URIEncode($sFileName & $sExtension)
- If $vScrapeSearchMode = 0 Or $vScrapeSearchMode = 1 Then $aRomList[$vBoucle][8] = _DownloadWRetry($iURLScraper & "api/jeuInfos.php?devid=" & $iDevId & "&devpassword=" & $iDevPassword & "&softname=" & $iSoftname & "&output=xml&ssid=" & $vSSLogin & "&sspassword=" & BinaryToString(_Crypt_DecryptData($vSSPassword, "1gdf1g1gf", $CALG_RC4)) & "&crc=" & $aRomList[$vBoucle][5] & "&md5=" & $aRomList[$vBoucle][6] & "&sha1=" & $aRomList[$vBoucle][7] & "&systemeid=" & $vSystemID & "&romtype=rom&romnom=" & $vRomName & "&romtaille=" & $aRomList[$vBoucle][4] & $vForceUpdate, $vXMLRom)
- If StringInStr(FileReadLine($aRomList[$vBoucle][8]), "API") Or (StringInStr(FileReadLine($aRomList[$vBoucle][8]), "Erreur") Or Not FileExists($aRomList[$vBoucle][8])) Then
- $vRomName = _URIEncode($sFileName)
- If $vScrapeSearchMode = 0 Or $vScrapeSearchMode = 2 Then $aRomList[$vBoucle][8] = _DownloadWRetry($iURLScraper & "api/jeuInfos.php?devid=" & $iDevId & "&devpassword=" & $iDevPassword & "&softname=" & $iSoftname & "&output=xml&ssid=" & $vSSLogin & "&sspassword=" & BinaryToString(_Crypt_DecryptData($vSSPassword, "1gdf1g1gf", $CALG_RC4)) & "&crc=&md5=&sha1=&systemeid=" & $vSystemID & "&romtype=rom&romnom=" & $vRomName & "&romtaille=" & $aRomList[$vBoucle][4] & $vForceUpdate, $vXMLRom)
- If StringInStr(FileReadLine($aRomList[$vBoucle][8]), "API") Or (StringInStr(FileReadLine($aRomList[$vBoucle][8]), "Erreur") Or Not FileExists($aRomList[$vBoucle][8])) Then
- FileDelete($aRomList[$vBoucle][8])
- $aRomList[$vBoucle][8] = ""
- $aRomList[$vBoucle][9] = 0
- Return $aRomList
- EndIf
- EndIf
- $aRomList[$vBoucle][9] = 1
- Return $aRomList
-EndFunc ;==>_DownloadROMXML
-
-Func _SelectSystem($oXMLSystem, $vFullScrape = 0)
- Local $vSystem, $vSystemID, $vSystemTEMP
- Local $aSystemListTXT, $aSystemListXML
- Local $vRechSYS = IniRead($iINIPath, "LAST_USE", "$vRechSYS", 1)
-
- $aSystemListXML = _XML_ListValue("Data/systeme/noms/*", "", $oXMLSystem)
-;~ _ArrayDisplay($aSystemListXML, "$aSystemListXML") ;Debug
- _ArrayColInsert($aSystemListXML, 1)
- _ArrayColInsert($aSystemListXML, 1)
- _ArrayDelete($aSystemListXML, 0)
-
- For $vBoucle = 0 To UBound($aSystemListXML) - 1
- $aSystemListXML[$vBoucle][1] = _XML_Read('Data/systeme[noms/* = "' & $aSystemListXML[$vBoucle][0] & '"]/id', 0, "", $oXMLSystem)
- $aSystemListXML[$vBoucle][2] = $aSystemListXML[$vBoucle][1]
- Next
- _ArraySort($aSystemListXML)
-;~ _ArrayDisplay($aSystemListXML, "$aSystemListXML") ;Debug
-
- If $vRechSYS = 1 Or $vFullScrape = 1 Then
- _FileReadToArray($iRessourcesPath & "\systemlist.txt", $aSystemListTXT, $FRTA_NOCOUNT, "|")
-;~ _ArrayDisplay($aSystemListTXT, "$aSystemListTXT") ;Debug
- $vSystem = StringSplit(IniRead($iINIPath, "LAST_USE", "$vSource_RomPath", ""), "\")
- $vSystem = StringLower($vSystem[UBound($vSystem) - 1])
- $iSystem = _ArraySearch($aSystemListTXT, $vSystem)
- If $iSystem > 0 Then
- $vSystemTEMP = $aSystemListTXT[$iSystem][1]
- $iSystem = _ArraySearch($aSystemListXML, $vSystemTEMP)
- If $iSystem > 0 Then
- _LOG("System detected : " & $aSystemListXML[$iSystem][0] & "(" & $aSystemListXML[$iSystem][1] & ")", 0, $iLOGPath)
- Return $aSystemListXML[$iSystem][1]
- EndIf
- EndIf
- _LOG("No system found for : " & $vSystem, 0, $iLOGPath)
- If $vFullScrape = 1 Then Return ""
- EndIf
-
- $vSystemID = _SelectGUI($aSystemListXML, "", "system")
- _LOG("System selected No " & $vSystemID, 0, $iLOGPath)
- Return $vSystemID
-EndFunc ;==>_SelectSystem
-
-Func _Results($aRomList, $vFullTimer, $vFullScrape = 0)
- Local $vTimeTotal, $vTimeMoy = 0, $vNbRom = 0, $vNbRomScraped = 0, $vNbRomOK = 0
- Local $vTitle
- $vNbThread = IniRead($iINIPath, "LAST_USE", "$vNbThread", 1)
- For $vBoucle = 1 To UBound($aRomList) - 1
- $vTimeMoy += $aRomList[$vBoucle][10]
- If $aRomList[$vBoucle][9] = 1 And $aRomList[$vBoucle][12] = 1 Then $vNbRomOK += 1
- If $aRomList[$vBoucle][12] = 1 Then $vNbRomScraped += 1
- Next
- If $vNbRomScraped > 0 Then
- $vTimeMoy = Round($vTimeMoy / $vNbRomScraped, 2) & " sec."
- Else
- $vTimeMoy = 'N/A'
- EndIf
- $vTimeMax = _ArrayMax($aRomList, 1, 0, Default, 10)
- $vTimeTotal = _FormatElapsedTime($vFullTimer)
- If $vNbRomScraped > 0 Then
- $vNbRomOKRatio = Round($vNbRomOK / $vNbRomScraped * 100) & "%"
- Else
- $vNbRomOKRatio = 'N/A'
- EndIf
- If IsArray($aRomList) Then $vNbRom = UBound($aRomList) - 1
-
- _LOG("Results", 0, $iLOGPath)
- _LOG("Roms : = " & $vNbRom, 0, $iLOGPath)
- _LOG("Roms Found = " & $vNbRomOK & "/" & $vNbRomScraped, 0, $iLOGPath)
- _LOG("Average Time by Rom = " & $vTimeMoy, 0, $iLOGPath)
- _LOG("Max Time = " & $vTimeMax, 0, $iLOGPath)
- _LOG("Total Time = " & $vTimeTotal, 0, $iLOGPath)
- _LOG("Nb Thread = " & $vNbThread, 0, $iLOGPath)
-
- If $vFullScrape = 1 Then
- $vTitle = "FullScrape"
- Else
- $vTitle = StringSplit(IniRead($iINIPath, "LAST_USE", "$vSource_RomPath", ""), "\")
- $vTitle = $vTitle[UBound($vTitle) - 1]
- EndIf
-
- If $vScrapeCancelled = 1 Then $vTitle = $vTitle & " (" & _MultiLang_GetText("scrap_cancel_button") & ")"
-
- #Region ### START Koda GUI section ### Form=
- $F_Results = GUICreate(_MultiLang_GetText("win_Results_Title"), 538, 403, -1, -1, BitOR($WS_EX_TOPMOST, $WS_EX_WINDOWEDGE))
- $L_Results = GUICtrlCreateLabel($vTitle, 8, 8, 247, 29)
- GUICtrlSetFont(-1, 15, 800, 0, "MS Sans Serif")
- $L_NbRom = GUICtrlCreateLabel(_MultiLang_GetText("win_Results_FilesFound"), 8, 56)
- $L_NbRomOK = GUICtrlCreateLabel(_MultiLang_GetText("win_Results_RomsFound"), 8, 80)
- $L_NbRomOKRatio = GUICtrlCreateLabel(_MultiLang_GetText("win_Results_PercentFound"), 8, 104)
- $L_TimeMoy = GUICtrlCreateLabel(_MultiLang_GetText("win_Results_MoyTime"), 305, 56)
- $L_TimeTotal = GUICtrlCreateLabel(_MultiLang_GetText("win_Results_FullTime"), 305, 80)
- $L_NbThread = GUICtrlCreateLabel(_MultiLang_GetText("win_Results_NbThread"), 305, 104)
- $L_NbRomValue = GUICtrlCreateLabel($vNbRom, 176, 56)
- $L_NbRomOKValue = GUICtrlCreateLabel($vNbRomOK & "/" & $vNbRomScraped, 176, 80)
- $L_NbRomOKRatioValue = GUICtrlCreateLabel($vNbRomOKRatio, 176, 104)
- $L_TimeMoyValue = GUICtrlCreateLabel($vTimeMoy, 448, 56)
- $L_TimeTotalValue = GUICtrlCreateLabel($vTimeTotal, 448, 80)
- $L_NbThreadValue = GUICtrlCreateLabel($vNbThread, 448, 104)
- $B_OK = GUICtrlCreateButton("OK", 104, 128, 147, 25)
-;~ $B_Missing = GUICtrlCreateButton("Generer le fichier Missing", 288, 128, 147, 25)
- $G_Time = _GraphGDIPlus_Create($F_Results, 25, 160, 500, 190, 0xFF000000, 0xFF34495c)
- $L_Xmin = GUICtrlCreateLabel("1", 26, 355, 10, 17)
- $L_Xmax = GUICtrlCreateLabel($vNbRom, 325, 355, 200, 17, $SS_RIGHT)
- $L_Ymin = GUICtrlCreateLabel("0s", 0, 340, 24, 17, $SS_RIGHT)
- $L_Ymax = GUICtrlCreateLabel(Round($vTimeMax, 1) & "s", 0, 160, 24, 17, $SS_RIGHT)
- GUISetState(@SW_SHOW)
- GUISetState(@SW_DISABLE, $F_UniversalScraper)
- #EndRegion ### END Koda GUI section ###
-
- $vXTicks = 50
- If $vNbRom <= 50 Then $vXTicks = $vNbRom
- _GraphGDIPlus_Set_RangeX($G_Time, 1, Round($vNbRom), Round($vXTicks), 0)
- _GraphGDIPlus_Set_RangeY($G_Time, 0, Round($vTimeMax * 10) + 2, ((Round($vTimeMax)) * 10) + 2, 0)
- _GraphGDIPlus_Set_GridX($G_Time, 1, 0xFF6993BE)
- _GraphGDIPlus_Set_GridY($G_Time, 1, 0xFF6993BE)
- _GraphGDIPlus_Plot_Start($G_Time, 0, 0)
- _GraphGDIPlus_Set_PenColor($G_Time, 0xFFff0000)
- _GraphGDIPlus_Set_PenSize($G_Time, 2)
-
- For $vBoucle = 1 To $vNbRom
- _GraphGDIPlus_Plot_Line($G_Time, $vBoucle, $aRomList[$vBoucle][10] * 10)
- Next
- _GraphGDIPlus_Refresh($G_Time)
-
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE, $B_OK
- _GraphGDIPlus_Delete($F_Results, $G_Time)
- GUIDelete($F_Results)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- Return
-
- EndSwitch
- WEnd
-
-EndFunc ;==>_Results
-
-Func _ScrapeZipContent($aRomList, $vBoucle)
- Local $sDrive = "", $sDir = "", $sFileName = "", $sExtension = ""
- Local $aPathSplit = _PathSplit($aRomList[$vBoucle][0], $sDrive, $sDir, $sFileName, $sExtension)
-
- ; check if it is a ZIP
- If $sExtension <> ".zip" Then
- Return $aRomList
- EndIf
-
- _LOG("File '" & $aRomList[$vBoucle][1] & "' is a ZIP. Scraping contents...", 1, $iLOGPath)
-
- ; now unzip it to a temp folder
- Local $vZipDir = @TempDir & "\" & "UXS_ZIP_Temp_" & $aRomList[$vBoucle][2]
- Local $vZipDirEx = $vZipDir & "\" & "_extract"
- Local $vSrcPath = $vZipDir & "\" & $aRomList[$vBoucle][0]
- DirRemove($vZipDir, 1)
- FileCopy($aRomList[$vBoucle][1], $vSrcPath, $FC_CREATEPATH)
-
- $vResult = _Unzip($vSrcPath, $vZipDirEx)
- If $vResult < 0 Then
- Switch $vResult
- Case 1
- _LOG("not a Zip file", 2, $iLOGPath)
- Return $aRomList
- Case 2
- _LOG("Impossible to unzip", 2, $iLOGPath)
- Return $aRomList
- Case Else
- _LOG("Unknown Zip Error (" & @error & ")", 2, $iLOGPath)
- Return $aRomList
- EndSwitch
- EndIf
-
- ; get a list of all unzipped files
- Local $aZipRomList = _FileListToArrayRec($vZipDirEx, "*", $FLTAR_FILES, $FLTAR_RECUR, $FLTAR_SORT)
- _LOG("Read files from ZIP: " & _ArrayToString($aZipRomList), 1, $iLOGPath)
-
- For $vIdx = 1 To 12
- _ArrayColInsert($aZipRomList, $vIdx)
- Next
-
- For $vIdx = 1 To UBound($aZipRomList) - 1
- $aZipRomList[$vIdx][1] = $vZipDirEx & "\" & $aZipRomList[$vIdx][0]
- $aPathSplit = _PathSplit($aZipRomList[$vIdx][0], $sDrive, $sDir, $sFileName, $sExtension)
- $aZipRomList[$vIdx][2] = $aPathSplit[3]
- $aZipRomList[$vIdx][9] = -1
- Next
-
- ; iterate over them and check if we can match one
- For $vBoucleZip = 1 To UBound($aZipRomList) - 1
- _LOG("Scraping ZIP content file: " & $aZipRomList[$vBoucleZip][0], 1, $iLOGPath)
- If $aZipRomList[$vBoucleZip][3] < 2 Then
- $aZipRomList = _CalcHash($aZipRomList, $vBoucleZip, 0)
- EndIf
- $aZipRomList = _DownloadROMXML($aZipRomList, $vBoucleZip, $aConfig[12], $aConfig[13], $aConfig[14])
- If ($aZipRomList[$vBoucleZip][9] = 1) Then
- _LOG("Found match for ZIP content file: " & $aZipRomList[$vBoucleZip][0], 1, $iLOGPath)
- ; we found a match so copy the match result to the original ZIP and stop
- $aRomList[$vBoucle][8] = $aZipRomList[$vBoucleZip][8]
- $aRomList[$vBoucle][9] = $aZipRomList[$vBoucleZip][9]
- ExitLoop
- EndIf
- Next
- DirRemove($vZipDir, 1)
- Return $aRomList
-EndFunc ;==>_ScrapeZipContent
-
-Func _LaunchEngine($oXMLProfil, $vNbThread = 1)
- Local $vTEMPPathSSCheck, $vNbThreadMax, $aScrapeEngine, $vPID = 1
- _MailSlotClose($hMailSlotCheckEngine)
- $hMailSlotCheckEngine = _CreateMailslot($sMailSlotCheckEngine)
-
- ;Checking NbThread
- $vTEMPPathSSCheck = _DownloadWRetry($iURLScraper & "api/ssuserInfos.php?devid=" & $iDevId & "&devpassword=" & $iDevPassword & "&softname=" & $iSoftname & "&output=XML&ssid=" & $aConfig[13] & "&sspassword=" & BinaryToString(_Crypt_DecryptData($vSSPassword, "1gdf1g1gf", $CALG_RC4)), $iScriptPath & "\Ressources\SSCheck.xml")
- $vNbThreadMax = _Coalesce(Number(_XML_Read("/Data/ssuser/maxthreads", 0, $vTEMPPathSSCheck)), 1)
-
- If $vNbThread > $vNbThreadMax Then
- _LOG("Are you a cheater ? BAD NbThread in INI : " & $vNbThread & "(MAX = " & $vNbThreadMax & ")", 0, $iLOGPath)
- $vNbThread = 1
- IniWrite($iINIPath, "LAST_USE", "$vNbThread", $vNbThread)
- EndIf
-
- $iURLScraper = _TestServer($vNbThread)
-
- Dim $aScrapeEngine[$vNbThread + 1][2]
- Local $vEngineLaunched = 1
- ;Starting Scrape Engine
- While $vEngineLaunched < $vNbThread + 1
- ShellExecute($iScriptPath & "\" & $iScraper, $vEngineLaunched)
- _LOG("Start Scrape Engine Number " & $vEngineLaunched, 1, $iLOGPath)
- ;Checking Scrape Engine
- Local $vEngineTimer = TimerInit()
- While 1
- If _MailSlotGetMessageCount($hMailSlotCheckEngine) >= 1 Then
- $aEngineState = StringSplit(_ReadMessage($hMailSlotCheckEngine), "|", $STR_NOCOUNT)
- $aScrapeEngine[$vEngineLaunched][0] = $aEngineState[0]
- $aScrapeEngine[$vEngineLaunched][1] = $aEngineState[1]
- _LOG("------------------------------------Engine Number " & $aEngineState[0] & " OK", 1, $iLOGPath)
- $vEngineLaunched += 1
- ExitLoop
- EndIf
- If Not _Check_Cancel() Then Return $aScrapeEngine
- If (TimerDiff($vEngineTimer) / 1000) > 20 Then
- _LOG("Scrape Engine " & $vEngineLaunched & " seems to not launch, check Antivirus and firewall", 2, $iLOGPath)
- MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), _MultiLang_GetText("err_UXSGlobal") & @CRLF & _MultiLang_GetText("err_ScrapeEngine"))
- $aScrapeEngine = -1
- Return -1
- EndIf
- WEnd
- WEnd
- Return $aScrapeEngine
-EndFunc ;==>_LaunchEngine
-
-Func _SCRAPE($oXMLProfil, $aScrapeEngine, $vNbThread = 1, $vFullScrape = 0)
- Local $vForceUpdate = ""
- Local $vEngineReady = 0
-
- _MailSlotClose($hMailSlotMother)
- $hMailSlotMother = _CreateMailslot($sMailSlotMother)
-
- DirRemove($iTEMPPath, 1)
- DirCreate($iTEMPPath)
- FileSetAttrib($iTEMPPath, "+H")
- DirCreate($iTEMPPath & "\scraped")
-
- If $aConfig <> 0 Then
- _ProgressSetImages($PB_SCRAPE, $iScriptPath & "\Ressources\Images\ProgressBar\red.jpg", $iScriptPath & "\Ressources\Images\ProgressBar\bg.jpg")
- _GUICtrlStatusBar_SetText($L_SCRAPE, "Please Wait... Testing server connection...")
- Local $vScrapeCancelled = 0
- Local $aExtToHide = StringSplit(_XML_Read('/Profil/Element[Source_Value="%AutoHide%"]/AutoHideEXT', 0, "", $oXMLProfil), "|")
- Local $aValueToHide = StringSplit(_XML_Read('/Profil/Element[Source_Value="%AutoHide%"]/AutoHideValue', 0, "", $oXMLProfil), "|")
- Local $vSendTimerLeft = 0, $vCreateTimerLeft = 0, $vSendTimerMoy = 0, $vCreateTimerMoy = 0, $vSendTimerTotal = 0, $vSendTimerTotalbyRom = 0, $vCreateTimerTotal = 0, $PercentProgression = 0
- Local $vMissingRom_Mode = $aConfig[6]
- Local $vThreadUsed = 1
- Local $vScrapeSearchMode = IniRead($iINIPath, "LAST_USE", "$vScrapeSearchMode", 0)
- Local $vZipSearch = IniRead($iINIPath, "LAST_USE", "$vZipSearch", 0)
-
- $aConfig[8] = "0000"
-
- If StringLeft($aConfig[0], 2) = "\\" And $vFullScrape = 0 Then
- If _Plink($oXMLProfil, "killallForced") = -2 Then
- _LOG("ES Forced kill refused", 1, $iLOGPath)
- If MsgBox($MB_YESNO, "", _MultiLang_GetText("mess_continue")) = $IDNO Then
- Return -1 ; Ask to kill ES
- Else
- _LOG("ES Forced kill Passthrough", 1, $iLOGPath)
- EndIf
- EndIf
- EndIf
-
- $vNbThread = IniRead($iINIPath, "LAST_USE", "$vNbThread", 1)
- If $vNbThread > 1 Then $vForceUpdate = "&forceupdate=1"
-
- ;Creating the romlist
- $aConfig[12] = _SelectSystem($oXMLSystem, $vFullScrape)
- If $aConfig[12] = "" Then
- $vGlobSystemId = 0
- $aRomList = -1
- Else
- $vGlobSystemId = $aConfig[12]
- $aRomList = _RomList_Create($aConfig, $vFullScrape, $oXMLProfil)
- EndIf
-
- If IsArray($aRomList) And _Check_Cancel() Then
-
- ;Creating gamelist.xml
- If $aConfig[5] = 0 Or ($aConfig[5] > 0 And FileGetSize($aConfig[0]) < 100) Then
- _FileCreate($aConfig[0])
- FileDelete($aConfig[0])
- _LOG("vScrape_Mode = " & $aConfig[5] & " And " & $aConfig[0] & " = " & FileGetSize($aConfig[0]) & " ---> _XML_Make", 1, $iLOGPath)
- $oXMLTarget = _XML_Make($aConfig[0], _XML_Read("Profil/Root/Target_Value", 0, "", $oXMLProfil))
- EndIf
-
- ;Checking existing gamelist.xml
- $vXpath2RomPath = "/" & _XML_Read("Profil/Root/Target_Value", 0, "", $oXMLProfil) & "/" & _XML_Read("Profil/Element[@Type='RomPath']/Target_Value", 0, "", $oXMLProfil)
- If FileGetSize($aConfig[0]) > 100 And _Check_Cancel() Then $aXMLRomList = _XML_ListValue($vXpath2RomPath, $aConfig[0])
-
- _ITaskBar_SetProgressState($F_UniversalScraper, 2)
- $vFullTimerSolo = TimerInit()
- Local $vBoucle = 0, $vRomSend = 0, $vRomReceived = 0
- While 1
- If $vBoucle < UBound($aRomList) - 1 Then
- $vSendTimer = TimerInit()
- $vBoucle += 1
- $aRomList = _Check_Rom2Scrape($aRomList, $vBoucle, $aXMLRomList, $aConfig[2], $aConfig[5], $aExtToHide, $aValueToHide) ;Check if rom need to be scraped
- If $aRomList[$vBoucle][3] >= 1 And _Check_Cancel() Then
- If $aRomList[$vBoucle][3] < 2 Then
- $aRomList = _CalcHash($aRomList, $vBoucle, $oXMLProfil) ;Hash calculation
- EndIf
- $aRomList = _DownloadROMXML($aRomList, $vBoucle, $aConfig[12], $aConfig[13], $aConfig[14], $vScrapeSearchMode, $vForceUpdate) ; Download the XML file from API
-
- ; check if the ROM could be found otherwise try to scrape inside ZIP
- $vZipSearch = IniRead($iINIPath, "LAST_USE", "$vScrapeZip", 0)
- If ($aRomList[$vBoucle][9] = 0) And $vZipSearch = 1 Then
- $aRomList = _ScrapeZipContent($aRomList, $vBoucle)
- EndIf
-
- If ($aRomList[$vBoucle][9] = 1 Or $vMissingRom_Mode = 1 Or $aRomList[$vBoucle][3] > 1) And _Check_Cancel() Then
-
- $vEngineReady = 0
- While $vEngineReady < 1
- If _MailSlotGetMessageCount($hMailSlotCheckEngine) >= 1 Then
- $aEngineState = StringSplit(_ReadMessage($hMailSlotCheckEngine), "|", $STR_NOCOUNT)
- $aScrapeEngine[$aEngineState[0]][1] = $aEngineState[1]
- _LOG("-Message reiceved : " & $aEngineState[0] & " - " & $aEngineState[1], 3, $iLOGPath)
- If $aScrapeEngine[$aEngineState[0]][1] = 0 Then
- _LOG("-Engine Number " & $aEngineState[0] & " Ready", 1, $iLOGPath)
- $vEngineReady = $aEngineState[0]
- EndIf
- EndIf
- If Not _Check_Cancel() Then ExitLoop
- WEnd
-
- If _Check_Cancel() Then
- If $aRomList[$vBoucle][3] = 4 Then
- _XML_Make($iTEMPPath & "\scraped\" & $vBoucle & ".xml", _XML_Read("Profil/FolderRoot/Target_Value", 0, "", $oXMLProfil))
- Else
- _XML_Make($iTEMPPath & "\scraped\" & $vBoucle & ".xml", _XML_Read("Profil/Game/Target_Value", 0, "", $oXMLProfil))
- EndIf
- $sMailSlotName = "\\.\mailslot\Son" & $vEngineReady
- $vMessage = _ArrayToString($aRomList, '{Break}', $vBoucle, $vBoucle, '{Break}')
- $vResultSM = _SendMail($sMailSlotName, $vMessage)
- $vResultSM = _SendMail($sMailSlotName, $vBoucle)
- $vMessage = _ArrayToString($aConfig, '{Break}')
- $vResultSM = _SendMail($sMailSlotName, $vMessage)
- $vResultSM = _SendMail($sMailSlotName, $vProfilsPath)
- $aRomList[$vBoucle][11] = 1
- $vRomSend += 1
- EndIf
- EndIf
- EndIf
-
- $aRomList[$vBoucle][10] = Round(TimerDiff($vSendTimer) / 1000, 2)
-
- If Not _Check_Cancel() Then $vBoucle = UBound($aRomList) - 1 ;Check Cancel
- EndIf
-
- If _MailSlotGetMessageCount($hMailSlotMother) >= 1 Then
- $vMessageFromChild = _ReadMessage($hMailSlotMother)
- $aMessageFromChild = StringSplit($vMessageFromChild, '|', $STR_ENTIRESPLIT + $STR_NOCOUNT)
- ReDim $aMessageFromChild[2]
- _LOG("Receveid Message Rom no " & $aMessageFromChild[0] & " in " & $aMessageFromChild[1] & "s", 1, $iLOGPath)
- $aRomList[$aMessageFromChild[0]][10] += $aMessageFromChild[1]
- $aRomList[$aMessageFromChild[0]][12] = 1
- $vRomReceived += 1
-
- ;Timers
-;~ $vSendTimerTotal += $aRomList[$aMessageFromChild[0]][10]
-;~ $vSendTimerMoy = Round(Round($vSendTimerTotal / $vRomReceived, 2) / $vNbThread, 2)
-;~ $vSendTimerLeft = $vSendTimerMoy * (((UBound($aRomList) - 1 - $vBoucle) * ($vBoucle / $vRomSend)) + ($vRomSend - $vRomReceived))
-
- $vSendTimerTotal = Round(TimerDiff($vFullTimerSolo) / 1000, 2)
-
- $vNbRomFull = (UBound($aRomList) - 1)
- $vNbRomTest = $vBoucle
- $vNbRatioSend = $vRomSend / $vNbRomTest
- $vNbRomTotal = $vNbRomFull * $vNbRatioSend
-
- $vSendTimerMoy = Round($vSendTimerTotal / ($vRomReceived), 2)
- $vSendTimerLeft = Round($vSendTimerMoy * ($vNbRomTotal - $vRomReceived), 2)
-
- $PercentProgression = Round(($vRomReceived * 100) / UBound($aRomList) - 1)
-;~ GUICtrlSetData($PB_SCRAPE, $PercentProgression)
- _ProgressSet($PB_SCRAPE, $PercentProgression)
- _ProgressSetText($PB_SCRAPE, $vRomReceived & "/" & UBound($aRomList) - 1)
- _ITaskBar_SetProgressValue($F_UniversalScraper, $PercentProgression)
- _GUICtrlStatusBar_SetText($L_SCRAPE, $aRomList[$aMessageFromChild[0]][2])
- _GUICtrlStatusBar_SetText($L_SCRAPE, @TAB & @TAB & _FormatElapsedTime($vSendTimerLeft), 1) ; "Time Left : " &
-;~ _GUICtrlStatusBar_SetText($L_SCRAPE, @TAB & @TAB & $vRomReceived & "/" & UBound($aRomList) - 1, 2)
- EndIf
-
- If Not _Check_Cancel() Or ($vRomReceived = $vRomSend And $vBoucle = UBound($aRomList) - 1) Then ExitLoop
- WEnd
-
-;~ GUICtrlSetData($PB_SCRAPE, 0)
- _ProgressSet($PB_SCRAPE, 0)
- _ProgressSetText($PB_SCRAPE, "")
- _ITaskBar_SetProgressState($F_UniversalScraper)
- _GUICtrlStatusBar_SetText($L_SCRAPE, " ", 0)
- _GUICtrlStatusBar_SetText($L_SCRAPE, " ", 1)
- _GUICtrlStatusBar_SetText($L_SCRAPE, " ", 2)
-
- _CreateXML($aRomList, $aConfig)
-
- _CreateMissing($aRomList, $aConfig)
-
- EndIf
- EndIf
-
- For $vBoucle = 1 To $vNbThread
- DirRemove($iTEMPPath & $vBoucle, 1)
- Next
- Return $aRomList
-EndFunc ;==>_SCRAPE
-
-Func _CreateXML($aRomList, $aConfig)
- _ProgressSetImages($PB_SCRAPE, $iScriptPath & "\Ressources\Images\ProgressBar\yellow.jpg", $iScriptPath & "\Ressources\Images\ProgressBar\bg.jpg")
- _ProgressSet($PB_SCRAPE, 0)
- ;Reading Target xml
- Dim $aXMLTarget
- _FileReadToArray($aConfig[0], $aXMLTarget)
- _ArrayDelete($aXMLTarget, 0)
- FileDelete($aConfig[0])
- $vBoucle = UBound($aXMLTarget) - 1
- While $vBoucle <> 0 ;Grabing last line (without "" )
- If $aXMLTarget[$vBoucle] = "" Then
- _ArrayDelete($aXMLTarget, $vBoucle)
- Else
- $vLastLine = $aXMLTarget[$vBoucle]
- _ArrayDelete($aXMLTarget, $vBoucle)
- ExitLoop
- EndIf
- $vBoucle -= 1
- WEnd
-
- If $vLastLine = '<' & _XML_Read("Profil/Root/Target_Value", 0, "", $oXMLProfil) & '/>' Then
- _ArrayAdd($aXMLTarget, '<' & _XML_Read("Profil/Root/Target_Value", 0, "", $oXMLProfil) & '>')
- $vLastLine = ''
- EndIf
-
- For $vBoucle = 1 To UBound($aRomList) - 1
- Dim $aXMLSource
- $PercentProgression = Round((UBound($aRomList) - 1 * 100) / UBound($aRomList) - 1)
-;~ GUICtrlSetData($PB_SCRAPE, $PercentProgression)
- _ProgressSet($PB_SCRAPE, $PercentProgression)
- _ITaskBar_SetProgressValue($F_UniversalScraper, $PercentProgression)
- If $aRomList[$vBoucle][12] = 1 Then
- _GUICtrlStatusBar_SetText($L_SCRAPE, $aRomList[$vBoucle][2])
- _GUICtrlStatusBar_SetText($L_SCRAPE, @TAB & @TAB & $vBoucle & "/" & UBound($aRomList) - 1, 2)
- _FileReadToArray($iTEMPPath & "\scraped\" & $vBoucle & ".xml", $aXMLSource)
- For $vBoucle2 = 1 To UBound($aXMLSource) - 1
- _ArrayAdd($aXMLTarget, $aXMLSource[$vBoucle2])
- Next
- EndIf
- Next
-
- _ArrayAdd($aXMLTarget, $vLastLine)
- _FileWriteFromArray($aConfig[0], $aXMLTarget)
-
- Local $oXMLAfterTidy = _XML_CreateDOMDocument(Default)
- $oToTidy = _XML_Open($aConfig[0])
- Local $vXMLAfterTidy = _XML_TIDY($oToTidy, -1)
- _XML_LoadXML($oXMLAfterTidy, $vXMLAfterTidy)
- FileDelete($aConfig[0])
- _XML_SaveToFile($oXMLAfterTidy, $aConfig[0])
- _ProgressSet($PB_SCRAPE, 0)
- _ProgressSetText($PB_SCRAPE, "")
- Return
-EndFunc ;==>_CreateXML
-
-Func _CreateMissing($aRomList, $aConfig)
- Local $vMaxNameLen = 68
- $vSysName = _XML_Read('/Data/systeme[id=' & $aConfig[12] & ']/noms/nom_eu', 0, $iScriptPath & "\Ressources\systemlist.xml")
-;~ _ArrayDisplay($aConfig, "$aConfig") ;Debug
- If Not _FileCreate($aConfig[1] & '\_' & $vSysName & "_missing.txt") Then MsgBox(4096, "Error", " Erreur creation du Fichier missing error:" & @error)
- For $vBoucle = 1 To UBound($aRomList) - 1
- If $aRomList[$vBoucle][9] = 0 Then
- $tCur = _Date_Time_GetLocalTime()
- If StringLen($aRomList[$vBoucle][0]) > 68 Then $vMaxNameLen = StringLen($aRomList[$vBoucle][0]) + 1
- $vMissing_Line1 = StringLeft($aRomList[$vBoucle][0] & " ", $vMaxNameLen)
- $vMissing_Line2 = $aRomList[$vBoucle][5]
- $vMissing_Line3 = StringRight(" " & StringRegExpReplace($aRomList[$vBoucle][4], '\G(\d+?)(?=(\d{3})+(\D|$))', '$1 '), 17) & " "
- $hFile = _WinAPI_CreateFile($aRomList[$vBoucle][1], 2)
- $aTime = _Date_Time_GetFileTime($hFile)
- _WinAPI_CloseHandle($hFile)
- $vTime = _Date_Time_FileTimeToStr($aTime[2])
- $vTime = StringMid($vTime, 12, 5) & ".00 " & StringMid($vTime, 7, 4) & "-" & StringLeft($vTime, 2) & "-" & StringMid($vTime, 4, 2)
- $vMissing_Line4 = " " & $aRomList[$vBoucle][6]
- FileWrite($aConfig[1] & '\_' & $vSysName & "_missing.txt", $vMissing_Line1 & $vMissing_Line2 & $vMissing_Line3 & $vTime & $vMissing_Line4 & @CRLF)
- EndIf
- Next
-EndFunc ;==>_CreateMissing
-
-Func _Wizz_OS()
- #Region ### START Koda GUI section ### Form=
- $F_Wizz_OS = GUICreate("", 340, 165, -1, -1, BitOR($WS_POPUP, $WS_BORDER), -1, $F_UniversalScraper)
- $P_UXS = GUICtrlCreatePic($iWizzPath & "\UXS_Wizard_Half.jpg", 2, 2, 100, 160, -1, -1)
- $G_SystemSelection = GUICtrlCreateGroup(_MultiLang_GetText("Win_Wizard_OS_Group"), 108, 1, 230, 163, -1, -1)
- GUICtrlSetBkColor(-1, "0xF0F0F0")
- $L_SystemSelection = GUICtrlCreateLabel(_MultiLang_GetText("Win_Wizard_OS_Libelle"), 116, 21, 214, 25, $SS_CENTERIMAGE, -1)
- $P_Recalbox = GUICtrlCreatePic($iWizzPath & "\Recalbox_Logo.jpg", 116, 53, 102, 102, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_OS_Tip_Recalbox"))
- $P_Retropie = GUICtrlCreatePic($iWizzPath & "\Retropie_Logo.jpg", 228, 53, 100, 100, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_OS_Tip_Retropie"))
- #EndRegion ### END Koda GUI section ###
- GUISetState(@SW_SHOW)
- GUISetState(@SW_DISABLE, $F_UniversalScraper)
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $P_Recalbox
- GUIDelete($F_Wizz_OS)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- Return $iProfilsPath & "\Recalbox.xml"
- Case $P_Retropie
- GUIDelete($F_Wizz_OS)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- Return $iProfilsPath & "\Retropie.xml"
- EndSwitch
- WEnd
-EndFunc ;==>_Wizz_OS
-
-Func _Wizz_MediaChoice($oXMLProfil, $vProfilsPath)
- #Region ### START Koda GUI section ### Form=
- $F_Wizz_MediaChoice = GUICreate("", 340, 165, -1, -1, BitOR($WS_POPUP, $WS_BORDER), -1, $F_UniversalScraper)
- $P_UXS = GUICtrlCreatePic($iWizzPath & "\UXS_Wizard_Half.jpg", 2, 2, 100, 160, -1, -1)
- $G_MediaSelection = GUICtrlCreateGroup(_MultiLang_GetText("Win_Wizard_MediaChoice_Group"), 108, 1, 230, 163, -1, -1)
- GUICtrlSetBkColor(-1, "0xF0F0F0")
- $L_MediaSelection = GUICtrlCreateLabel(_MultiLang_GetText("Win_Wizard_MediaChoice_Libelle"), 116, 21, 214, 25, $SS_CENTERIMAGE, -1)
- $P_MediaSimple = GUICtrlCreatePic($iWizzPath & "\MediaSimpleSS_Logo.jpg", 116, 53, 102, 102, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_MediaChoice_Tip_Simple"))
- $P_MediaMIX = GUICtrlCreatePic($iWizzPath & "\MediaMIX_Logo.jpg", 228, 53, 100, 100, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_MediaChoice_Tip_Mix"))
- #EndRegion ### END Koda GUI section ###
- GUISetState(@SW_SHOW)
- GUISetState(@SW_DISABLE, $F_UniversalScraper)
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $P_MediaSimple
- GUIDelete($F_Wizz_MediaChoice)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- _XML_Replace('Profil/General/Mix', "False", 0, "", $oXMLProfil)
- _XML_Replace('Profil/General/Target_Image_Extension', "jpg", 0, "", $oXMLProfil)
- _XML_Replace('Profil/Element[@Type="Picture"]/Source_Type', "XML_Download", 0, "", $oXMLProfil)
- _XML_Replace('Profil/Element[@Type="Picture"]/Source_Download_Ext', "jpg", 0, "", $oXMLProfil)
- _XML_Replace('Profil/Element[@Type="Picture Alt"]/Source_Download_Ext', "jpg", 0, "", $oXMLProfil)
- FileDelete($vProfilsPath)
- _XML_SaveToFile($oXMLProfil, $vProfilsPath)
- Return "Simple"
- Case $P_MediaMIX
- GUIDelete($F_Wizz_MediaChoice)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- _XML_Replace('Profil/General/Mix', "True", 0, "", $oXMLProfil)
- _XML_Replace('Profil/General/Target_Image_Extension', "png", 0, "", $oXMLProfil)
- _XML_Replace('Profil/Element[@Type="Picture"]/Source_Type', "MIX_Template", 0, "", $oXMLProfil)
- _XML_Replace('Profil/Element[@Type="Picture"]/Source_Download_Ext', "png", 0, "", $oXMLProfil)
- _XML_Replace('Profil/Element[@Type="Picture Alt"]/Source_Download_Ext', "png", 0, "", $oXMLProfil)
- FileDelete($vProfilsPath)
- _XML_SaveToFile($oXMLProfil, $vProfilsPath)
- Return "MIX"
- EndSwitch
- WEnd
-EndFunc ;==>_Wizz_MediaChoice
-
-Func _Wizz_MediaSimpleChoice($oXMLProfil, $vProfilsPath)
- #Region ### START Koda GUI section ### Form=
- $F_Wizz_MediaSimpleChoice = GUICreate("", 340, 283, -1, -1, BitOR($WS_POPUP, $WS_BORDER), -1, $F_UniversalScraper)
- $P_UXS = GUICtrlCreatePic($iWizzPath & "\UXS_Wizard_Half.jpg", 2, 61.5, 100, 160, -1, -1)
- $G_MediaSimpleSelection = GUICtrlCreateGroup(_MultiLang_GetText("Win_Wizard_MediaSimpleChoice_Group"), 108, 1, 230, 280, -1, -1)
- GUICtrlSetBkColor(-1, "0xF0F0F0")
- $L_MediaSimpleSelection = GUICtrlCreateEdit(_MultiLang_GetText("Win_Wizard_MediaSimpleChoice_Libelle"), 116, 15, 218, 35, BitOR($ES_READONLY, $ES_MULTILINE, $SS_CENTERIMAGE), 0)
-;~ GUICtrlCreateLabel(_MultiLang_GetText("Win_Wizard_MediaSimpleChoice_Libelle"), 116, 21, 214, 25, $SS_CENTERIMAGE, -1)
- $P_MediaSimpleSS = GUICtrlCreatePic($iWizzPath & "\MediaSimpleSS_Logo.jpg", 116, 53, 102, 102, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_MediaSimpleChoice_Tip_SS"))
- $P_MediaSimpleWheel = GUICtrlCreatePic($iWizzPath & "\MediaSimpleWheel_Logo.jpg", 228, 53, 100, 100, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_MediaSimpleChoice_Tip_Wheel"))
- $P_MediaSimple2DBox = GUICtrlCreatePic($iWizzPath & "\MediaSimple2DBox_Logo.jpg", 116, 170, 100, 100, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_MediaSimpleChoice_Tip_2DBox"))
- $P_MediaSimple3DBox = GUICtrlCreatePic($iWizzPath & "\MediaSimple3DBox_Logo.jpg", 230, 170, 100, 100, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_MediaSimpleChoice_Tip_3DBox"))
- #EndRegion ### END Koda GUI section ###
- GUISetState(@SW_SHOW)
- GUISetState(@SW_DISABLE, $F_UniversalScraper)
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $P_MediaSimpleSS
- GUIDelete($F_Wizz_MediaSimpleChoice)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- _XML_Replace('Profil/Element[@Type="Picture"]/Source_Value', "Data/jeu/medias/media_screenshot", 0, "", $oXMLProfil)
- FileDelete($vProfilsPath)
- _XML_SaveToFile($oXMLProfil, $vProfilsPath)
- Return "Screenshot"
- Case $P_MediaSimpleWheel
- GUIDelete($F_Wizz_MediaSimpleChoice)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- _XML_Replace('Profil/Element[@Type="Picture"]/Source_Value', "Data/jeu/medias/media_wheels/media_wheel_%COUNTRY%", 0, "", $oXMLProfil)
- FileDelete($vProfilsPath)
- _XML_SaveToFile($oXMLProfil, $vProfilsPath)
- Return "Wheel"
- Case $P_MediaSimple2DBox
- GUIDelete($F_Wizz_MediaSimpleChoice)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- _XML_Replace('Profil/Element[@Type="Picture"]/Source_Value', "Data/jeu/medias/media_boxs/media_boxs2d/media_box2d_%COUNTRY%", 0, "", $oXMLProfil)
- FileDelete($vProfilsPath)
- _XML_SaveToFile($oXMLProfil, $vProfilsPath)
- Return "2DBox"
- Case $P_MediaSimple3DBox
- GUIDelete($F_Wizz_MediaSimpleChoice)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- _XML_Replace('Profil/Element[@Type="Picture"]/Source_Value', "Data/jeu/medias/media_boxs/media_boxs3d/media_box3d_%COUNTRY%", 0, "", $oXMLProfil)
- FileDelete($vProfilsPath)
- _XML_SaveToFile($oXMLProfil, $vProfilsPath)
- Return "3DBox"
- EndSwitch
- WEnd
-EndFunc ;==>_Wizz_MediaSimpleChoice
-
-Func _Wizz_MediaSimpleAltChoice($oXMLProfil, $vProfilsPath, $vMainMedia)
- #Region ### START Koda GUI section ### Form=
- $F_Wizz_MediaSimpleAltChoice = GUICreate("", 340, 283, -1, -1, BitOR($WS_POPUP, $WS_BORDER), -1, $F_UniversalScraper)
- $P_UXS = GUICtrlCreatePic($iWizzPath & "\UXS_Wizard_Half.jpg", 2, 61.5, 100, 160, -1, -1)
- $G_MediaSimpleAltSelection = GUICtrlCreateGroup(_MultiLang_GetText("Win_Wizard_MediaSimpleAltChoice_Group"), 108, 1, 230, 280, -1, -1)
- GUICtrlSetBkColor(-1, "0xF0F0F0")
-;~ $L_MediaSimpleAltSelection = GUICtrlCreateLabel(_MultiLang_GetText("Win_Wizard_MediaSimpleAltChoice_Libelle"), 116, 21, 214, 25, $SS_CENTERIMAGE, -1)
- $L_MediaSimpleAltSelection = GUICtrlCreateEdit(_MultiLang_GetText("Win_Wizard_MediaSimpleAltChoice_Libelle"), 116, 15, 218, 35, BitOR($ES_READONLY, $ES_MULTILINE, $SS_CENTERIMAGE), 0)
- $P_MediaSimpleAltSS = GUICtrlCreatePic($iWizzPath & "\MediaSimpleSS_Logo.jpg", 116, 53, 102, 102, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_MediaSimpleAltChoice_Tip_SS"))
- $P_MediaSimpleAltWheel = GUICtrlCreatePic($iWizzPath & "\MediaSimpleWheel_Logo.jpg", 228, 53, 100, 100, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_MediaSimpleAltChoice_Tip_Wheel"))
- $P_MediaSimpleAlt2DBox = GUICtrlCreatePic($iWizzPath & "\MediaSimple2DBox_Logo.jpg", 116, 170, 100, 100, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_MediaSimpleAltChoice_Tip_2DBox"))
- $P_MediaSimpleAlt3DBox = GUICtrlCreatePic($iWizzPath & "\MediaSimple3DBox_Logo.jpg", 230, 170, 100, 100, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_MediaSimpleAltChoice_Tip_3DBox"))
- #EndRegion ### END Koda GUI section ###
- GUISetState(@SW_SHOW)
- GUISetState(@SW_DISABLE, $F_UniversalScraper)
-
- Switch $vMainMedia
- Case "Screenshot"
- GUICtrlSetState($P_MediaSimpleAltSS, $GUI_DISABLE)
- GUICtrlSetStyle($P_MediaSimpleAltSS, -1, $WS_EX_STATICEDGE)
- Case "Wheel"
- GUICtrlSetState($P_MediaSimpleAltWheel, $GUI_DISABLE)
- GUICtrlSetStyle($P_MediaSimpleAltWheel, -1, $WS_EX_STATICEDGE)
- Case "2DBox"
- GUICtrlSetState($P_MediaSimpleAlt2DBox, $GUI_DISABLE)
- GUICtrlSetStyle($P_MediaSimpleAlt2DBox, -1, $WS_EX_STATICEDGE)
- Case "3DBox"
- GUICtrlSetState($P_MediaSimpleAlt3DBox, $GUI_DISABLE)
- GUICtrlSetStyle($P_MediaSimpleAlt3DBox, -1, $WS_EX_STATICEDGE)
- EndSwitch
-
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $P_MediaSimpleAltSS
- GUIDelete($F_Wizz_MediaSimpleAltChoice)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- _XML_Replace('Profil/Element[@Type="Picture Alt"]/Source_Value', "Data/jeu/medias/media_screenshot", 0, "", $oXMLProfil)
- FileDelete($vProfilsPath)
- _XML_SaveToFile($oXMLProfil, $vProfilsPath)
- Return "Screenshot"
- Case $P_MediaSimpleAltWheel
- GUIDelete($F_Wizz_MediaSimpleAltChoice)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- _XML_Replace('Profil/Element[@Type="Picture Alt"]/Source_Value', "Data/jeu/medias/media_wheels/media_wheel_%COUNTRY%", 0, "", $oXMLProfil)
- FileDelete($vProfilsPath)
- _XML_SaveToFile($oXMLProfil, $vProfilsPath)
- Return "Wheel"
- Case $P_MediaSimpleAlt2DBox
- GUIDelete($F_Wizz_MediaSimpleAltChoice)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- _XML_Replace('Profil/Element[@Type="Picture Alt"]/Source_Value', "Data/jeu/medias/media_boxs/media_boxs2d/media_box2d_%COUNTRY%", 0, "", $oXMLProfil)
- FileDelete($vProfilsPath)
- _XML_SaveToFile($oXMLProfil, $vProfilsPath)
- Return "2DBox"
- Case $P_MediaSimpleAlt3DBox
- GUIDelete($F_Wizz_MediaSimpleAltChoice)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- _XML_Replace('Profil/Element[@Type="Picture Alt"]/Source_Value', "Data/jeu/medias/media_boxs/media_boxs3d/media_box3d_%COUNTRY%", 0, "", $oXMLProfil)
- FileDelete($vProfilsPath)
- _XML_SaveToFile($oXMLProfil, $vProfilsPath)
- Return "3DBox"
- EndSwitch
- WEnd
-EndFunc ;==>_Wizz_MediaSimpleAltChoice
-
-Func _Wizz_Rom($oXMLProfil)
- #Region ### START Koda GUI section ### Form=
- $F_Wizz_Path = GUICreate("", 340, 165, -1, -1, BitOR($WS_POPUP, $WS_BORDER), -1, $F_UniversalScraper)
- $P_UXS = GUICtrlCreatePic($iWizzPath & "\UXS_Wizard_Half.jpg", 2, 2, 100, 160, -1, -1)
- $G_RomPathSelection = GUICtrlCreateGroup(_MultiLang_GetText("Win_Wizard_RomChoice_Group"), 108, 1, 230, 163, -1, -1)
- GUICtrlSetBkColor(-1, "0xF0F0F0")
- $L_RomPathSelection = GUICtrlCreateLabel(_MultiLang_GetText("Win_Wizard_RomChoice_Libelle"), 116, 21, 214, 25, $SS_CENTERIMAGE, -1)
- $P_RaspberryPi = GUICtrlCreatePic($iWizzPath & "\RaspberryPi_Logo.jpg", 116, 53, 100, 100, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_RomChoice_Tip_RPI"))
- $P_Computer = GUICtrlCreatePic($iWizzPath & "\Computer_Logo.jpg", 228, 53, 100, 100, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_RomChoice_Tip_Local"))
- #EndRegion ### END Koda GUI section ###
- GUISetState(@SW_SHOW)
- GUISetState(@SW_DISABLE, $F_UniversalScraper)
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $P_RaspberryPi
- $vSource_RootPath = _XML_Read("Profil/DefaultAutoConf/Source_RootPath", 0, "", $oXMLProfil)
- If FileExists($vSource_RootPath) Then
- _XML_Replace("Profil/AutoConf/Source_RootPath", $vSource_RootPath, 0, "", $oXMLProfil)
- _XML_Replace("Profil/AutoConf/Target_XMLName", _XML_Read("Profil/DefaultAutoConf/Target_XMLName", 0, "", $oXMLProfil), 0, "", $oXMLProfil)
- _XML_Replace("Profil/AutoConf/Target_RomPath", _XML_Read("Profil/DefaultAutoConf/Target_RomPath", 0, "", $oXMLProfil), 0, "", $oXMLProfil)
- _XML_Replace("Profil/AutoConf/Source_ImagePath", _XML_Read("Profil/DefaultAutoConf/Source_ImagePath", 0, "", $oXMLProfil), 0, "", $oXMLProfil)
- _XML_Replace("Profil/AutoConf/Target_ImagePath", _XML_Read("Profil/DefaultAutoConf/Target_ImagePath", 0, "", $oXMLProfil), 0, "", $oXMLProfil)
- IniWrite($iINIPath, "LAST_USE", "$vAutoconf_Use", 1)
- FileDelete($vProfilsPath)
- _XML_SaveToFile($oXMLProfil, $vProfilsPath)
- GUIDelete($F_Wizz_Path)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- Return $vSource_RootPath
- Else
- MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), _MultiLang_GetText("err_autoconfPathRom"))
- EndIf
- Case $P_Computer
- $vSource_RootPath = FileSelectFolder(_MultiLang_GetText("Win_Wizard_RomChoice_Browse"), "", $FSF_CREATEBUTTON, "", $F_Wizz_Path)
- If (StringRight($vSource_RootPath, 1) = '\') Then StringTrimRight($vSource_RootPath, 1)
- If FileExists($vSource_RootPath) Then
- Local $aMaskFolder, $vMaskFolder = '', $vPathOk = 0
- _FileReadToArray($iScriptPath & "\Ressources\systemlist.txt", $aMaskFolder, $FRTA_COUNT, "|")
- For $vBoucle = 1 To UBound($aMaskFolder) - 1
- $vMaskFolder = $vMaskFolder & $aMaskFolder[$vBoucle][0] & ';'
- Next
- $vMaskFolder = StringTrimRight($vMaskFolder, 1)
- $vMaskFolder = $vMaskFolder & "||"
- $vMaskFolder = StringReplace($vMaskFolder, "/", "")
- $aCheckRomPath = _FileListToArrayRec($vSource_RootPath & "\", $vMaskFolder, $FLTAR_FOLDERS)
- If @error Or Not IsArray($aCheckRomPath) Then
- If MsgBox($MB_YESNO, _MultiLang_GetText("Win_Wizard_RomChoice_Browse_Warning_Title"), _MultiLang_GetText("Win_Wizard_RomChoice_Browse_Warning_Label")) = $IDYES Then
- $vPathOk = 1
- EndIf
- Else
- $vPathOk = 1
- EndIf
- If $vPathOk = 1 Then
- _XML_Replace("Profil/AutoConf/Source_RootPath", $vSource_RootPath, 0, "", $oXMLProfil)
- _XML_Replace("Profil/AutoConf/Target_XMLName", _XML_Read("Profil/DefaultAutoConf/Target_XMLName", 0, "", $oXMLProfil), 0, "", $oXMLProfil)
- _XML_Replace("Profil/AutoConf/Target_RomPath", _XML_Read("Profil/DefaultAutoConf/Target_RomPath", 0, "", $oXMLProfil), 0, "", $oXMLProfil)
- _XML_Replace("Profil/AutoConf/Source_ImagePath", _XML_Read("Profil/DefaultAutoConf/Source_ImagePath", 0, "", $oXMLProfil), 0, "", $oXMLProfil)
- _XML_Replace("Profil/AutoConf/Target_ImagePath", _XML_Read("Profil/DefaultAutoConf/Target_ImagePath", 0, "", $oXMLProfil), 0, "", $oXMLProfil)
- IniWrite($iINIPath, "LAST_USE", "$vAutoconf_Use", 1)
- FileDelete($vProfilsPath)
- _XML_SaveToFile($oXMLProfil, $vProfilsPath)
- GUIDelete($F_Wizz_Path)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- Return $vSource_RootPath
- EndIf
- Else
- MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), _MultiLang_GetText("err_autoconfPathRom"))
- EndIf
- EndSwitch
- WEnd
-EndFunc ;==>_Wizz_Rom
-
-Func _Wizz_SSChoice()
- If IniRead($iINIPath, "LAST_USE", "$vSSLogin", "") <> "" Then Return "No"
- #Region ### START Koda GUI section ### Form=
- $F_Wizz_SSChoice = GUICreate("", 340, 165, -1, -1, BitOR($WS_POPUP, $WS_BORDER), -1, $F_UniversalScraper)
- $P_UXS = GUICtrlCreatePic($iWizzPath & "\UXS_Wizard_Half.jpg", 2, 2, 100, 160, -1, -1)
- $G_SSSelection = GUICtrlCreateGroup(_MultiLang_GetText("Win_Wizard_SSChoice_Group"), 108, 1, 230, 163, -1, -1)
- GUICtrlSetBkColor(-1, "0xF0F0F0")
- $L_SSSelection = GUICtrlCreateLabel(_MultiLang_GetText("Win_Wizard_SSChoice_Libelle"), 116, 21, 214, 25, $SS_CENTERIMAGE, -1)
- $P_SSYes = GUICtrlCreatePic($iWizzPath & "\SSYes_Logo.jpg", 116, 53, 100, 100, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_SSChoice_Tip_Yes"))
- $P_SSNo = GUICtrlCreatePic($iWizzPath & "\SSNo_Logo.jpg", 228, 53, 100, 100, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_SSChoice_Tip_No"))
- #EndRegion ### END Koda GUI section ###
- GUISetState(@SW_SHOW)
- GUISetState(@SW_DISABLE, $F_UniversalScraper)
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $P_SSYes
- GUIDelete($F_Wizz_SSChoice)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- Return "Yes"
- Case $P_SSNo
- If MsgBox($MB_YESNO, _MultiLang_GetText("Win_Wizard_SSChoice_Group"), _MultiLang_GetText("win_config_MISC_GroupScreenScraper_SSRegister")) = $IDYES Then
- ShellExecute("http://www.screenscraper.fr/membreinscription.php")
- Else
- GUIDelete($F_Wizz_SSChoice)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- Return "No"
- EndIf
- EndSwitch
- WEnd
-EndFunc ;==>_Wizz_SSChoice
-
-Func _Wizz_SSId()
- #Region ### START Koda GUI section ### Form=
- $F_Wizz_SSId = GUICreate("", 340, 165, -1, -1, BitOR($WS_POPUP, $WS_BORDER), -1, $F_UniversalScraper)
- $P_UXS = GUICtrlCreatePic($iWizzPath & "\UXS_Wizard_Half.jpg", 2, 2, 100, 160, -1, -1)
- $G_SSId = GUICtrlCreateGroup(_MultiLang_GetText("Win_Wizard_SSChoice_Group"), 108, 1, 230, 163, -1, -1)
- GUICtrlSetBkColor(-1, "0xF0F0F0")
- $L_SSId = GUICtrlCreateLabel(_MultiLang_GetText("Win_Wizard_SSIdChoice_Id"), 116, 25, 70, 25, $SS_CENTERIMAGE, -1)
- $L_SSPwd = GUICtrlCreateLabel(_MultiLang_GetText("Win_Wizard_SSIdChoice_Pwd"), 116, 50, 70, 25, $SS_CENTERIMAGE, -1)
- $I_SSId = GUICtrlCreateInput(IniRead($iINIPath, "LAST_USE", "$vSSLogin", ""), 186, 25, 145, 25, $ES_CENTER, $WS_EX_CLIENTEDGE)
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_SSIdChoice_Tip_Id"))
- $I_SSPwd = GUICtrlCreateInput(BinaryToString(_Crypt_DecryptData(IniRead($iINIPath, "LAST_USE", "$vSSPassword", ""), "1gdf1g1gf", $CALG_RC4)), 186, 50, 145, 25, BitOR($ES_CENTER, $ES_PASSWORD), $WS_EX_CLIENTEDGE)
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_SSIdChoice_Tip_Pwd"))
- $B_SSTest = GUICtrlCreateButton(_MultiLang_GetText("Win_Wizard_SSIdChoice_Test"), 116, 85, 215, 30, -1, -1)
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_SSIdChoice_Tip_Test"))
- $B_SSNext = GUICtrlCreateButton(_MultiLang_GetText("win_Wizard_Next"), 231, 125, 100, 30, -1, -1)
- $B_SSCancel = GUICtrlCreateButton(_MultiLang_GetText("win_Wizard_Back"), 116, 125, 100, 30, -1, -1)
- #EndRegion ### END Koda GUI section ###
- GUISetState(@SW_SHOW)
- GUISetState(@SW_DISABLE, $F_UniversalScraper)
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $B_SSNext
- $vSSError = 0
- $vTEMPPathSSCheck = $iScriptPath & "\Ressources\SSCheck.xml"
- $vSSLogin = GUICtrlRead($I_SSId) ;$vSSLogin
- $vSSPassword = GUICtrlRead($I_SSPwd) ;$vSSPassword
- $vTEMPPathSSCheck = _DownloadWRetry($iURLScraper & "api/ssuserInfos.php?devid=" & $iDevId & "&devpassword=" & $iDevPassword & "&softname=" & $iSoftname & "&output=XML&ssid=" & $vSSLogin & "&sspassword=" & $vSSPassword, $vTEMPPathSSCheck)
-
- $vSSLevel = Number(_XML_Read("/Data/ssuser/niveau", 0, $vTEMPPathSSCheck))
-
- $vNbThreadMax = _Coalesce(Number(_XML_Read("/Data/ssuser/maxthreads", 0, $vTEMPPathSSCheck)), 1)
- _LOG("SS Check ssid=" & $vSSLogin & " maxthreads = " & $vNbThreadMax, 1, $iLOGPath)
-
- Switch $vSSLevel
- Case 0
- $vNbThreadMax = 1
- _LOG("Not Registered", 0, $iLOGPath)
- MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), _MultiLang_GetText("err_NotRegistered"), 10, $F_Wizz_SSId)
- $vSSError = 1
- Case 499 To 9999999
- $vNbThreadMax = 99
- _LOG("God Mode", 0, $iLOGPath)
- MsgBox($MB_ICONWARNING, _MultiLang_GetText("mess_ssregister_title"), _MultiLang_GetText("mess_ssregister_GodMode"), 10, $F_Wizz_SSId)
- Case Else
- _LOG("Nb Thread Available : " & $vNbThreadMax, 0, $iLOGPath)
- MsgBox($MB_ICONINFORMATION, _MultiLang_GetText("mess_ssregister_title"), _MultiLang_GetText("mess_ssregister_OK") & " " & $vNbThreadMax & " Threads", 10, $F_Wizz_SSId)
- EndSwitch
-
- If $vNbThreadMax > 5 Then
- $vNbThreadDefault = 5
- Else
- $vNbThreadDefault = $vNbThreadMax
- EndIf
-
- If $vSSError = 0 Then
- IniWrite($iINIPath, "LAST_USE", "$vSSLogin", $vSSLogin)
- $vSSPassword = _Crypt_EncryptData(GUICtrlRead($I_SSPwd), "1gdf1g1gf", $CALG_RC4) ;$vSSPassword
- IniWrite($iINIPath, "LAST_USE", "$vSSPassword", $vSSPassword)
- IniWrite($iINIPath, "LAST_USE", "$vNbThread", $vNbThreadDefault)
- GUIDelete($F_Wizz_SSId)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- Return $vNbThreadDefault
- EndIf
- Case $B_SSCancel
- GUIDelete($F_Wizz_SSId)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- Return -1
- Case $B_SSTest
- $vTEMPPathSSCheck = $iScriptPath & "\Ressources\SSCheck.xml"
- $vSSLogin = GUICtrlRead($I_SSId) ;$vSSLogin
- $vSSPassword = GUICtrlRead($I_SSPwd) ;$vSSPassword
- $vTEMPPathSSCheck = _DownloadWRetry($iURLScraper & "api/ssuserInfos.php?devid=" & $iDevId & "&devpassword=" & $iDevPassword & "&softname=" & $iSoftname & "&output=XML&ssid=" & $vSSLogin & "&sspassword=" & $vSSPassword, $vTEMPPathSSCheck)
-
- $vSSLevel = Number(_XML_Read("/Data/ssuser/niveau", 0, $vTEMPPathSSCheck))
-
- $vNbThreadMax = _Coalesce(Number(_XML_Read("/Data/ssuser/maxthreads", 0, $vTEMPPathSSCheck)), 1)
- _LOG("SS Check ssid=" & $vSSLogin & " maxthreads = " & $vNbThreadMax, 1, $iLOGPath)
-
- Switch $vSSLevel
- Case 0
- $vNbThreadMax = 1
- _LOG("Not Registered", 0, $iLOGPath)
- MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), _MultiLang_GetText("err_NotRegistered"), 10, $F_Wizz_SSId)
- Case 499 To 9999999
- $vNbThreadMax = 99
- _LOG("God Mode", 0, $iLOGPath)
- MsgBox($MB_ICONWARNING, _MultiLang_GetText("mess_ssregister_title"), _MultiLang_GetText("mess_ssregister_GodMode"), 10, $F_Wizz_SSId)
- Case Else
- _LOG("Nb Thread Available : " & $vNbThreadMax, 0, $iLOGPath)
- MsgBox($MB_ICONINFORMATION, _MultiLang_GetText("mess_ssregister_title"), _MultiLang_GetText("mess_ssregister_OK") & " " & $vNbThreadMax & " Threads", 10, $F_Wizz_SSId)
- EndSwitch
-
- If $vNbThreadMax > 5 Then
- $vNbThreadDefault = 5
- Else
- $vNbThreadDefault = $vNbThreadMax
- EndIf
- EndSwitch
- WEnd
-EndFunc ;==>_Wizz_SSId
-
-Func _Wizz_SystemChoice($oXMLProfil)
- $aDIRList = _Check_autoconf($oXMLProfil)
- Local $aDIRList_Combo[UBound($aDIRList)][3]
-
- For $vBoucle = 1 To UBound($aDIRList) - 1
- $aDIRList_Combo[$vBoucle][0] = $aDIRList[$vBoucle][0]
- $aDIRList_Combo[$vBoucle][2] = $vBoucle
- Next
-
- While 1
- $vSystemID = _SelectGUI($aDIRList_Combo, -1, "system")
- If $vSystemID <> "" Then ExitLoop
- WEnd
-
- _LOG("Autoconfig Selected :" & $aDIRList[$vSystemID][0], 0, $iLOGPath)
- For $vBoucle2 = 1 To UBound($MS_AutoConfigItem) - 1
- GUICtrlSetState($MS_AutoConfigItem[$vBoucle2], $GUI_UNCHECKED)
- Next
- GUICtrlSetState($MS_AutoConfigItem[$vSystemID], $GUI_CHECKED)
- IniWrite($iINIPath, "LAST_USE", "$vSource_RomPath", $aDIRList[$vSystemID][1])
- IniWrite($iINIPath, "LAST_USE", "$vTarget_RomPath", $aDIRList[$vSystemID][2])
- IniWrite($iINIPath, "LAST_USE", "$vTarget_XMLName", $aDIRList[$vSystemID][3])
- IniWrite($iINIPath, "LAST_USE", "$vSource_ImagePath", $aDIRList[$vSystemID][4])
- IniWrite($iINIPath, "LAST_USE", "$vTarget_ImagePath", $aDIRList[$vSystemID][5])
-
- Return $aDIRList[$vSystemID][0]
-
-EndFunc ;==>_Wizz_SystemChoice
-
-Func _Wizz_Scrape()
- #Region ### START Koda GUI section ### Form=
- $F_Wizz_ScrapeChoice = GUICreate("", 340, 165, -1, -1, BitOR($WS_POPUP, $WS_BORDER), -1, $F_UniversalScraper)
- $P_UXS = GUICtrlCreatePic($iWizzPath & "\UXS_Wizard_Half.jpg", 2, 2, 100, 160, -1, -1)
- $G_ScrapeSelection = GUICtrlCreateGroup(_MultiLang_GetText("Win_Wizard_ScrapeChoice_Group"), 108, 1, 230, 163, -1, -1)
- GUICtrlSetBkColor(-1, "0xF0F0F0")
- $L_ScrapeSelection = GUICtrlCreateLabel(_MultiLang_GetText("Win_Wizard_ScrapeChoice_Libelle"), 116, 21, 214, 25, $SS_CENTERIMAGE, -1)
- $P_ScrapeYes = GUICtrlCreatePic($iWizzPath & "\ScrapeYes_Logo.jpg", 116, 53, 102, 102, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_ScrapeChoice_Tip_Yes"))
- $P_ScrapeNo = GUICtrlCreatePic($iWizzPath & "\ScrapeNo_Logo.jpg", 228, 53, 100, 100, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_ScrapeChoice_Tip_No"))
- #EndRegion ### END Koda GUI section ###
- GUISetState(@SW_SHOW)
- GUISetState(@SW_DISABLE, $F_UniversalScraper)
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $P_ScrapeYes
- GUIDelete($F_Wizz_ScrapeChoice)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- Return "Yes"
- Case $P_ScrapeNo
- GUIDelete($F_Wizz_ScrapeChoice)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- Return "No"
- EndSwitch
- WEnd
-EndFunc ;==>_Wizz_Scrape
-
-Func _TestServer($vNbThreadMax = 1)
- Local $vTestPath, $vServerListPath = $iScriptPath & "\Ressources\ServerList.txt", $aServerList
- $vServerListPath = _DownloadWRetry("https://raw.githubusercontent.com/Universal-Rom-Tools/Universal-XML-Scraper/master/Ressources/ServerList.txt", $vServerListPath)
- _FileReadToArray($vServerListPath, $aServerList, $FRTA_NOCOUNT)
- Switch StringLower($aServerList[0])
- Case 'fallback'
- For $Boucle = 1 To UBound($aServerList) - 1
- If _CheckURL($aServerList[$Boucle] & "/api/ssuserInfos.php?devid=xxx&devpassword=yyy&softname=zzz&output=xml&ssid=test&sspassword=test") Then
- _LOG("Server (fallback) = " & $aServerList[$Boucle], 1, $iLOGPath)
-;~ Return "http://new.screenscraper.fr/"
- Return $aServerList[$Boucle]
- EndIf
- Next
- Case 'priorisation'
- If $vNbThreadMax = 1 Then
- For $Boucle = UBound($aServerList) - 1 To 1 Step -1
- If _CheckURL($aServerList[$Boucle] & "/api/ssuserInfos.php?devid=xxx&devpassword=yyy&softname=zzz&output=xml&ssid=test&sspassword=test") Then
- _LOG("Server (priorisation Unreg) = " & $aServerList[$Boucle], 1, $iLOGPath)
-;~ Return "http://new.screenscraper.fr/"
- Return $aServerList[$Boucle]
- EndIf
- Next
- Else
- For $Boucle = 1 To UBound($aServerList) - 1
- If _CheckURL($aServerList[$Boucle] & "/api/ssuserInfos.php?devid=xxx&devpassword=yyy&softname=zzz&output=xml&ssid=test&sspassword=test") Then
- _LOG("Server (priorisation Reg)= " & $aServerList[$Boucle], 1, $iLOGPath)
-;~ Return "http://new.screenscraper.fr/"
- Return $aServerList[$Boucle]
- EndIf
- Next
- EndIf
- Case 'mono'
- _LOG("Server = (mono)" & $aServerList[1], 1, $iLOGPath)
-;~ Return "http://new.screenscraper.fr/"
- Return $aServerList[1]
- EndSwitch
-EndFunc ;==>_TestServer
-
-Func _OptionMenuConstruction($oXMLProfil, $aOptionMenu)
-
- If IsArray($aOptionMenu) Then
- For $vBoucle2 = 1 To $aOptionMenu[0][0]
- GUICtrlDelete($aOptionMenu[$vBoucle2][0])
- GUICtrlDelete($aOptionMenu[$vBoucle2][8])
- GUICtrlDelete($aOptionMenu[$vBoucle2][9])
- Next
- EndIf
-
-;~ $aOptionMenu = -1
- Dim $aOptionMenu[1][10]
- $aOptionGroup = _XML_ListValue('Profil/Options/Option/Option_Group', "", $oXMLProfil)
- _ArrayDelete($aOptionGroup, 0)
- $aOptionGroup = _ArrayUnique($aOptionGroup)
-;~ _ArrayDisplay($aOptionGroup) ; Debug
- For $vBoucle = 1 To UBound($aOptionGroup) - 1
- $MOption_Group = GUICtrlCreateMenu(_MultiLang_GetText("Option_Group_" & $aOptionGroup[$vBoucle]), $MOption, $vBoucle)
- $aOptionName = _XML_ListValue('Profil/Options/Option[Option_Group="' & $aOptionGroup[$vBoucle] & '"]/Option_Name', "", $oXMLProfil)
-;~ _ArrayDisplay($aOptionName,"Avant suppr") ; Debug
- For $vBoucle2 = UBound($aOptionName) - 1 To 1 Step -1
- $vOptionConditionNode = _XML_Read('Profil/Options/Option[Option_Name="' & $aOptionName[$vBoucle2] & '"]/Option_Condition', 0, "", $oXMLProfil)
- If $vOptionConditionNode <> "None" Then
- $vOptionConditionValue = _XML_Read('Profil/Options/Option[Option_Name="' & $aOptionName[$vBoucle2] & '"]/Option_Condition/Value', 1, "", $oXMLProfil)
- $vOptionConditionResult = _XML_Read($vOptionConditionNode, 0, "", $oXMLProfil)
- If $vOptionConditionValue <> $vOptionConditionResult Then _ArrayDelete($aOptionName, $vBoucle2)
- EndIf
- Next
-;~ _ArrayDisplay($aOptionName,"Après suppr") ; Debug
- For $vBoucle2 = 1 To UBound($aOptionName) - 1
- If $aOptionName[$vBoucle2] = "Separator" Then
- $MOption_Name = GUICtrlCreateMenuItem("", $MOption_Group, $vBoucle2)
- _ArrayAdd($aOptionMenu, $MOption_Name & "|" & $aOptionGroup[$vBoucle] & "|" & $aOptionName[$vBoucle2] & "|||||0|" & $MOption_Group & "|")
- Else
- $MOption_Name = GUICtrlCreateMenu(_MultiLang_GetText("Option_Name_" & $aOptionName[$vBoucle2]), $MOption_Group, $vBoucle2)
- $aOptionValue = _XML_ListValue('Profil/Options/Option[Option_Name="' & $aOptionName[$vBoucle2] & '"]/Source_Value_Option', "", $oXMLProfil)
- For $vBoucle3 = 1 To UBound($aOptionValue) - 1
- $vOptionValueName = _XML_Read('Profil/Options/Option[Option_Name="' & $aOptionName[$vBoucle2] & '"]/Source_Value_Option[' & $vBoucle3 & ']/Name', 1, "", $oXMLProfil)
- $vOptionValue = _XML_Read('Profil/Options/Option[Option_Name="' & $aOptionName[$vBoucle2] & '"]/Source_Value_Option[' & $vBoucle3 & ']', 0, "", $oXMLProfil)
- $vOptionType = _XML_Read('Profil/Options/Option[Option_Name="' & $aOptionName[$vBoucle2] & '"]/Type', 0, "", $oXMLProfil)
- $vOptionNodeName = _XML_Read('Profil/Options/Option[Option_Name="' & $aOptionName[$vBoucle2] & '"]/NodeName', 0, "", $oXMLProfil)
- $MOption_Value = GUICtrlCreateMenuItem(_MultiLang_GetText("Option_Value_" & $vOptionValueName), $MOption_Name, $vBoucle3)
- _ArrayAdd($aOptionMenu, $MOption_Value & "|" & $aOptionGroup[$vBoucle] & "|" & $aOptionName[$vBoucle2] & "|" & $vOptionType & "|" & $vOptionNodeName & "|" & $vOptionValueName & "|" & $vOptionValue & "|0|" & $MOption_Group & "|" & $MOption_Name)
- Next
- EndIf
- Next
- Next
- $aOptionMenu[0][0] = UBound($aOptionMenu) - 1
-;~ _ArrayDisplay($aOptionMenu) ; Debug
- $aOptionMenu = _OptionMenuCheck($aOptionMenu, $oXMLProfil)
-;~ _ArrayDisplay($aOptionMenu) ; Debug
- Return $aOptionMenu
-EndFunc ;==>_OptionMenuConstruction
-
-Func _OptionMenuCheck($aOptionMenu, $oXMLProfil)
- For $vBoucle = 1 To UBound($aOptionMenu) - 1
- If $aOptionMenu[$vBoucle][2] <> "Separator" Then
- $vOptionValue = _XML_Read('Profil/Element[@Type="' & $aOptionMenu[$vBoucle][3] & '"]/' & $aOptionMenu[$vBoucle][4], 0, "", $oXMLProfil)
-;~ _LOG($vBoucle &" - " &$aOptionMenu[$vBoucle][3] & "/" & $aOptionMenu[$vBoucle][4] &" = "&$vOptionValue &"<-->" & $aOptionMenu[$vBoucle][6], 1, $iLOGPath);Debug
- If $aOptionMenu[$vBoucle][6] = $vOptionValue Then
- GUICtrlSetState($aOptionMenu[$vBoucle][0], $GUI_CHECKED)
- $aOptionMenu[$vBoucle][7] = 1
- Else
- GUICtrlSetState($aOptionMenu[$vBoucle][0], $GUI_UNCHECKED)
- $aOptionMenu[$vBoucle][7] = 0
- EndIf
- EndIf
- Next
- Return $aOptionMenu
-EndFunc ;==>_OptionMenuCheck
-
-;~ $aPicParameters[0] = Target_Width
-;~ $aPicParameters[1] = Target_Height
-;~ $aPicParameters[2] = Target_TopLeftX
-;~ $aPicParameters[3] = Target_TopLeftY
-;~ $aPicParameters[4] = Target_TopRightX
-;~ $aPicParameters[5] = Target_TopRightY
-;~ $aPicParameters[6] = Target_BottomLeftX
-;~ $aPicParameters[7] = Target_BottomLeftY
-;~ $aPicParameters[8] = Target_Maximize
-;~ $aPicParameters[9] = Target_OriginX
-;~ $aPicParameters[10] = Target_OriginY
-;~ $aPicParameters[11] = Target_BottomRightX
-;~ $aPicParameters[12] = Target_BottomRightY
-
-;~ $aConfig[0]=$vTarget_XMLName
-;~ $aConfig[1]=$vSource_RomPath
-;~ $aConfig[2]=$vTarget_RomPath
-;~ $aConfig[3]=$vSource_ImagePath
-;~ $aConfig[4]=$vTarget_ImagePath
-;~ $aConfig[5]=$vScrape_Mode (0 = NEW, 1 = Update XML & Picture, [2 = Update Picture only To ADD])
-;~ $aConfig[6]=$vMissingRom_Mode (0 = No missing Rom, 1 = Adding missing Rom)
-;~ $aConfig[7]=$vCountryPic_Mode (0 = Language Pic, 1 = Rom Pic, 2 = Language Pic Strict, 3 = Rom Pic Strict)
-;~ $aConfig[8]=$oTarget_XML
-;~ $aConfig[9]=$aLangPref
-;~ $aConfig[10]=$aCountryPref
-;~ $aConfig[11]=$aMatchingCountry
-;~ $aConfig[12]=$vSystemId
-;~ $aConfig[13]=$vSSLogin
-;~ $aConfig[14]=$vSSPassword
-
-;~ $aRomList[][0]=Relative Path
-;~ $aRomList[][1]=Full Path
-;~ $aRomList[][2]=Filename (without extension)
-;~ $aRomList[][3]=XML to Scrape (0 = No, 1 = Yes, 2 = To hide, 3 = To hide, 4 = Folder)
-;~ $aRomList[][4]=File Size
-;~ $aRomList[][5]=File CRC32
-;~ $aRomList[][6]=File MD5
-;~ $aRomList[][7]=File SHA1
-;~ $aRomList[][8]=XML File Scraped
-;~ $aRomList[][9]=Rom Found
-;~ $aRomList[][10]=Time By Rom
-;~ $aRomList[][11]=Send to the scraper
-;~ $aRomList[][12]=Return from the scraper
-
-;~ $aDIRList[][0] = Source System directory
-;~ $aDIRList[][1] = Source System full directory Local path
-;~ $aDIRList[][2] = Target System directory full Local path
-;~ $aDIRList[][3] = Target gamelist.xml full Local path
-;~ $aDIRList[][4] = Source Image directory full Local path
-;~ $aDIRList[][5] = Target Image directory full Local path
-
diff --git a/Universal XML Scraper.au3 b/Universal XML Scraper.au3
index 4b0c182..2638a28 100644
--- a/Universal XML Scraper.au3
+++ b/Universal XML Scraper.au3
@@ -5,7 +5,7 @@
#AutoIt3Wrapper_Compile_Both=y
#AutoIt3Wrapper_UseX64=y
#AutoIt3Wrapper_Res_Description=Scraper XML Universel
-#AutoIt3Wrapper_Res_Fileversion=2.2.0.3
+#AutoIt3Wrapper_Res_Fileversion=2.2.0.4
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=p
#AutoIt3Wrapper_Res_LegalCopyright=LEGRAS David
#AutoIt3Wrapper_Res_Language=1036
@@ -569,7 +569,7 @@ While 1
_ExtMsgBoxSet(1, 2, 0x34495c, 0xFFFF00, 10, "Arial")
_ExtMsgBox($EMB_ICONINFO, "OK", _MultiLang_GetText("win_About_Title"), $sMsg, 15)
Case $B_SCRAPE, $MS_Scrape ;Solo Scrape or Cancel
-
+ _KillScrapeEngine($iScraper)
If FileExists($iTEMPPath & "\scraped\1.xml") Then
If MsgBox($MB_ICONWARNING + $MB_YESNO, _MultiLang_GetText("mess_filefound_Title"), _MultiLang_GetText("mess_filefound"), 0, $F_UniversalScraper) = $IDYES Then
Dim $aConfigTemp[1]
@@ -595,7 +595,6 @@ While 1
$aConfig = _LoadConfig()
_GUICtrlStatusBar_SetText($L_SCRAPE, "Please Wait... Testing Server.")
$vNbThread = IniRead($iINIPath, "LAST_USE", "$vNbThread", 1)
- _KillScrapeEngine($iScraper)
$aScrapeEngine = _LaunchEngine($oXMLProfil, $vNbThread)
_GUICtrlStatusBar_SetText($L_SCRAPE, "Please Wait... Testing Server..")
If IsArray($aScrapeEngine) Then
@@ -617,7 +616,6 @@ While 1
_GUI_Refresh($oXMLProfil, 1)
Dim $aRomList_FULL[1][12]
$vFullTimer = TimerInit()
- $aConfig = _LoadConfig()
$aDIRList = _Check_autoconf($oXMLProfil)
_GUICtrlStatusBar_SetText($L_SCRAPE, "Please Wait... Testing Server.")
$vNbThread = IniRead($iINIPath, "LAST_USE", "$vNbThread", 1)
@@ -627,13 +625,12 @@ While 1
If IsArray($aScrapeEngine) Then
For $vBoucleSysteme = 1 To UBound($MS_AutoConfigItem) - 1
_LOG("-- Scrape System n°" & $vBoucleSysteme, 0, $iLOGPath)
- _ArrayDisplay($aDIRList)
+;~ _ArrayDisplay($aDIRList)
IniWrite($iINIPath, "LAST_USE", "$vSource_RomPath", $aDIRList[$vBoucleSysteme][1])
IniWrite($iINIPath, "LAST_USE", "$vTarget_RomPath", $aDIRList[$vBoucleSysteme][2])
IniWrite($iINIPath, "LAST_USE", "$vTarget_XMLName", $aDIRList[$vBoucleSysteme][3])
IniWrite($iINIPath, "LAST_USE", "$vSource_ImagePath", $aDIRList[$vBoucleSysteme][4])
IniWrite($iINIPath, "LAST_USE", "$vTarget_ImagePath", $aDIRList[$vBoucleSysteme][5])
- _GUI_Refresh($oXMLProfil)
_GUI_Refresh($oXMLProfil, 1)
$aConfig = _LoadConfig()
$aRomList = _SCRAPE($oXMLProfil, $aScrapeEngine, $vNbThread, 1)
@@ -777,22 +774,26 @@ Func _Plink($oXMLProfil, $vPlink_Command, $vSilentPlink = 0, $vTimeout = 10) ;Se
Local $vPlink_Pswd = _XML_Read("Profil/Plink/Pswd", 0, "", $oXMLProfil)
Local $vPlink_Return = ""
+ _LOG("SSH Command Reveived: " & $vPlink_Command, 0, $iLOGPath)
+
$vPlink_Command_Menu = $vPlink_Command
- If $vPlink_Command = "killallForced" Then $vPlink_Command = "killall"
+ If $vPlink_Command_Menu = "killallForced" Then $vPlink_Command_Menu = "killall"
Switch $vSilentPlink
Case 0
If MsgBox($MB_OKCANCEL, $vPlink_Command_Menu, _MultiLang_GetText("mess_ssh_" & $vPlink_Command_Menu)) = $IDCANCEL Then
_LOG("SSH canceled", 1, $iLOGPath)
Return -2
+ Else
+ $vPlink_Command = _XML_Read("Profil/Plink/Command/" & $vPlink_Command_Menu, 0, "", $oXMLProfil)
+ $vPlink_Return = _Coalesce(_XML_Read("Profil/Plink/Command/Ret_" & $vPlink_Command_Menu, 0, "", $oXMLProfil), "NoWait")
EndIf
Case 1
$vPlink_Command = _XML_Read("Profil/Plink/Command/" & $vPlink_Command_Menu, 0, "", $oXMLProfil)
$vPlink_Return = _Coalesce(_XML_Read("Profil/Plink/Command/Ret_" & $vPlink_Command_Menu, 0, "", $oXMLProfil), "NoWait")
EndSwitch
- _LOG("SSH Command : " & $vPlink_Command, 0, $iLOGPath)
-
$sRun = '"' & $iScriptPath & '\Ressources\plink.exe" ' & $vPlink_Ip & " -ssh -l " & $vPlink_Root & " -pw " & $vPlink_Pswd & " " & $vPlink_Command
+ _LOG("SSH Command : " & '"' & $iScriptPath & '\Ressources\plink.exe" ' & $vPlink_Ip & " -ssh -l " & $vPlink_Root & " -pw ****** " & $vPlink_Command, 0, $iLOGPath)
;~ _LOG("SSH Command Line : " & $sRun, 1, $iLOGPath)
$iPid = Run(@ComSpec & " /c " & $sRun, '', @SW_HIDE, $STDIN_CHILD + $STDERR_CHILD + $STDOUT_CHILD) ;@ComSpec & " /c " &
$PlinkTimeout = TimerInit()
@@ -1898,7 +1899,7 @@ Func _Check_Rom2Scrape($aRomList, $vNoRom, $aXMLRomList, $vTarget_RomPath, $vScr
If IsArray($aValueExclude) Then
For $vBoucle = 1 To UBound($aValueExclude) - 1
If StringInStr($aRomList[$vNoRom][0], $aValueExclude[$vBoucle]) Then
- $aRomList[$vNoRom][3] = 3
+ $aRomList[$vNoRom][3] = 0
_LOG($aRomList[$vNoRom][2] & " Excluded", 1, $iLOGPath)
Return $aRomList
EndIf
@@ -2069,11 +2070,11 @@ Func _DownloadROMXML($aRomList, $vBoucle, $vSystemID, $vSSLogin = "", $vSSPasswo
FileDelete($aRomList[$vBoucle][8])
$aRomList[$vBoucle][8] = ""
$aRomList[$vBoucle][9] = 0
- _ProgressSetImages($PB_SCRAPE, $iScriptPath & "\Ressources\Images\ProgressBar\yellow.jpg", $iScriptPath & "\Ressources\Images\ProgressBar\bg.jpg")
+;~ _ProgressSetImages($PB_SCRAPE, $iScriptPath & "\Ressources\Images\ProgressBar\yellow.jpg", $iScriptPath & "\Ressources\Images\ProgressBar\bg.jpg")
Return $aRomList
EndIf
EndIf
- _ProgressSetImages($PB_SCRAPE, $iScriptPath & "\Ressources\Images\ProgressBar\green.jpg", $iScriptPath & "\Ressources\Images\ProgressBar\bg.jpg")
+;~ _ProgressSetImages($PB_SCRAPE, $iScriptPath & "\Ressources\Images\ProgressBar\green.jpg", $iScriptPath & "\Ressources\Images\ProgressBar\bg.jpg")
$aRomList[$vBoucle][9] = 1
Return $aRomList
EndFunc ;==>_DownloadROMXML
@@ -2285,6 +2286,10 @@ EndFunc ;==>_ScrapeZipContent
Func _LaunchEngine($oXMLProfil, $vNbThread = 1)
Local $vTEMPPathSSCheck, $vNbThreadMax, $aScrapeEngine, $vPID = 1
+
+ DirRemove($iTEMPPath, 1)
+ DirCreate($iTEMPPath)
+
_MailSlotClose($hMailSlotCheckEngine)
$hMailSlotCheckEngine = _CreateMailslot($sMailSlotCheckEngine)
@@ -2338,8 +2343,6 @@ Func _SCRAPE($oXMLProfil, $aScrapeEngine, $vNbThread = 1, $vFullScrape = 0)
_MailSlotClose($hMailSlotMother)
$hMailSlotMother = _CreateMailslot($sMailSlotMother)
- DirRemove($iTEMPPath, 1)
- DirCreate($iTEMPPath)
FileSetAttrib($iTEMPPath, "+H")
DirCreate($iTEMPPath & "\scraped")
@@ -2415,7 +2418,23 @@ Func _SCRAPE($oXMLProfil, $aScrapeEngine, $vNbThread = 1, $vFullScrape = 0)
If ($aRomList[$vBoucle][9] = 1 Or $vMissingRom_Mode = 1 Or $aRomList[$vBoucle][3] > 1) And _Check_Cancel() Then
-;~ $vEngineReady = 0
+ $vEngineReady = 0
+ While $vEngineReady < 1
+ $vEngineReady = 0
+ For $bEngine = 1 To $vNbThread
+ $vEngineState = FileReadLine($iTEMPPath & "\Engine" & $bEngine, 1)
+ If $vEngineState = "0" Then
+ $vEngineReady = $bEngine
+ GUICtrlSetState($R_Engine[$vEngineReady], $GUI_UNCHECKED)
+ _LOG("-Engine Number " & $vEngineReady & " Ready", 1, $iLOGPath)
+ Else
+ GUICtrlSetState($R_Engine[$bEngine], $GUI_CHECKED)
+ _LOG("-Engine Number " & $bEngine & " NOT Ready", 1, $iLOGPath)
+ EndIf
+ Next
+ If Not _Check_Cancel() Then ExitLoop
+ WEnd
+
;~ While $vEngineReady < 1
;~ If _MailSlotGetMessageCount($hMailSlotCheckEngine) >= 1 Then
;~ $aEngineState = StringSplit(_ReadMessage($hMailSlotCheckEngine), "|", $STR_NOCOUNT)
@@ -2430,30 +2449,30 @@ Func _SCRAPE($oXMLProfil, $aScrapeEngine, $vNbThread = 1, $vFullScrape = 0)
;~ If Not _Check_Cancel() Then ExitLoop
;~ WEnd
- $vEngineReady = 0
- While $vEngineReady < 1
- While _MailSlotGetMessageCount($hMailSlotCheckEngine) >= 1
- $aEngineState = StringSplit(_ReadMessage($hMailSlotCheckEngine), "|", $STR_NOCOUNT)
- $aScrapeEngine[$aEngineState[0]][1] = $aEngineState[1]
- _LOG("-Message reiceved : " & $aEngineState[0] & " - " & $aEngineState[1], 3, $iLOGPath)
- If $aScrapeEngine[$aEngineState[0]][1] = 0 Then
- _LOG("-Engine Number " & $aEngineState[0] & " Ready", 1, $iLOGPath)
- $vEngineReady = $aEngineState[0]
- GUICtrlSetState($R_Engine[$vEngineReady], $GUI_UNCHECKED)
- EndIf
- If Not _Check_Cancel() Then ExitLoop
- WEnd
- For $vBoucle2 = 1 To $vNbThread
- If Not _IsChecked($R_Engine[$vBoucle2]) Then
- _LOG("-SENDING TO Engine Number " & $vBoucle2, 1, $iLOGPath)
- $vEngineReady = $vBoucle2
- GUICtrlSetState($R_Engine[$vEngineReady], $GUI_CHECKED)
- ExitLoop
- EndIf
- Next
- If $vEngineReady > 0 Then ExitLoop
- If Not _Check_Cancel() Then ExitLoop
- WEnd
+;~ $vEngineReady = 0
+;~ While $vEngineReady < 1
+;~ While _MailSlotGetMessageCount($hMailSlotCheckEngine) >= 1
+;~ $aEngineState = StringSplit(_ReadMessage($hMailSlotCheckEngine), "|", $STR_NOCOUNT)
+;~ $aScrapeEngine[$aEngineState[0]][1] = $aEngineState[1]
+;~ _LOG("-Message reiceved : " & $aEngineState[0] & " - " & $aEngineState[1], 3, $iLOGPath)
+;~ If $aScrapeEngine[$aEngineState[0]][1] = 0 Then
+;~ _LOG("-Engine Number " & $aEngineState[0] & " Ready", 1, $iLOGPath)
+;~ $vEngineReady = $aEngineState[0]
+;~ GUICtrlSetState($R_Engine[$vEngineReady], $GUI_UNCHECKED)
+;~ EndIf
+;~ If Not _Check_Cancel() Then ExitLoop
+;~ WEnd
+;~ For $vBoucle2 = 1 To $vNbThread
+;~ If Not _IsChecked($R_Engine[$vBoucle2]) Then
+;~ _LOG("-SENDING TO Engine Number " & $vBoucle2, 1, $iLOGPath)
+;~ $vEngineReady = $vBoucle2
+;~ GUICtrlSetState($R_Engine[$vEngineReady], $GUI_CHECKED)
+;~ ExitLoop
+;~ EndIf
+;~ Next
+;~ If $vEngineReady > 0 Then ExitLoop
+;~ If Not _Check_Cancel() Then ExitLoop
+;~ WEnd
If _Check_Cancel() Then
If $aRomList[$vBoucle][3] = 4 Then
@@ -2470,6 +2489,7 @@ Func _SCRAPE($oXMLProfil, $aScrapeEngine, $vNbThread = 1, $vFullScrape = 0)
$vResultSM = _SendMail($sMailSlotName, $vProfilsPath)
$aRomList[$vBoucle][11] = 1
$vRomSend += 1
+ GUICtrlSetState($R_Engine[$vEngineReady], $GUI_CHECKED)
_LOG("-Engine Number " & $vEngineReady & " Started", 1, $iLOGPath)
EndIf
EndIf
@@ -2530,8 +2550,8 @@ EndFunc ;==>_SCRAPE
Func _CreateXML($aRomListXML, $aConfigXML, $vRestoring = 0)
Local $vLastLine = ''
- _ProgressSetImages($PB_SCRAPE, $iScriptPath & "\Ressources\Images\ProgressBar\yellow.jpg", $iScriptPath & "\Ressources\Images\ProgressBar\bg.jpg")
- _ProgressSet($PB_SCRAPE, 0)
+ _ProgressSetImages($PB_SCRAPE, $iScriptPath & "\Ressources\Images\ProgressBar\green.jpg", $iScriptPath & "\Ressources\Images\ProgressBar\bg.jpg")
+;~ _ProgressSet($PB_SCRAPE, 0)
;Reading Target xml
Dim $aXMLTarget
;~ MsgBox(0, "$aConfigXML[0]", $aConfigXML[0])
@@ -2558,9 +2578,10 @@ Func _CreateXML($aRomListXML, $aConfigXML, $vRestoring = 0)
For $vBoucle = 1 To UBound($aRomListXML) - 1
Dim $aXMLSource
- $PercentProgression = Round((UBound($aRomListXML) - 1 * 100) / UBound($aRomListXML) - 1)
+ $PercentProgression = Round(($vBoucle * 100) / (UBound($aRomListXML) - 1))
;~ GUICtrlSetData($PB_SCRAPE, $PercentProgression)
_ProgressSet($PB_SCRAPE, $PercentProgression)
+ _ProgressSetText($PB_SCRAPE, $vBoucle & "/" & UBound($aRomListXML) - 1)
_ITaskBar_SetProgressValue($F_UniversalScraper, $PercentProgression)
If $aRomListXML[$vBoucle][12] = 1 Or $vRestoring = 1 Then
_GUICtrlStatusBar_SetText($L_SCRAPE, $aRomListXML[$vBoucle][2])
@@ -2572,6 +2593,7 @@ Func _CreateXML($aRomListXML, $aConfigXML, $vRestoring = 0)
EndIf
Next
+ _ProgressSetText($PB_SCRAPE, "Writing File (Please Wait)")
_ArrayAdd($aXMLTarget, $vLastLine)
_FileWriteFromArray($aConfigXML[0], $aXMLTarget)
@@ -3215,6 +3237,8 @@ EndFunc ;==>_OptionMenuCheck
;~ $aPicParameters[10] = Target_OriginY
;~ $aPicParameters[11] = Target_BottomRightX
;~ $aPicParameters[12] = Target_BottomRightY
+;~ $aPicParameters[13] = Image_OriginX
+;~ $aPicParameters[14] = Image_OriginY
;~ $aConfig[0]=$vTarget_XMLName
;~ $aConfig[1]=$vSource_RomPath
diff --git a/Universal XML Scraper.au3.Backup.au3 b/Universal XML Scraper.au3.Backup.au3
deleted file mode 100644
index 11aeded..0000000
--- a/Universal XML Scraper.au3.Backup.au3
+++ /dev/null
@@ -1,3088 +0,0 @@
-#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
-#AutoIt3Wrapper_Icon=Ressources\Images\Universal_Xml_Scraper.ico
-#AutoIt3Wrapper_Outfile=..\BIN\Universal_XML_Scraper.exe
-#AutoIt3Wrapper_Outfile_x64=..\BIN\Universal_XML_Scraper64.exe
-#AutoIt3Wrapper_Compile_Both=y
-#AutoIt3Wrapper_UseX64=y
-#AutoIt3Wrapper_Res_Description=Scraper XML Universel
-#AutoIt3Wrapper_Res_Fileversion=2.2.0.0
-#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=p
-#AutoIt3Wrapper_Res_LegalCopyright=LEGRAS David
-#AutoIt3Wrapper_Res_Language=1036
-#AutoIt3Wrapper_AU3Check_Stop_OnWarning=y
-#AutoIt3Wrapper_Run_Tidy=y
-#Tidy_Parameters=/reel
-#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
-
-;*************************************************************************
-;** **
-;** Universal XML Scraper V2 **
-;** LEGRAS David **
-;** **
-;*************************************************************************
-
-;Autoit Librairy definitions
-;---------------------------
-
-#include
-#include
-#include
-#include
-#include
-#include
-#include
-#include
-#include
-#include
-#include
-#include
-#include
-#include
-#include
-
-TraySetState(2)
-
-;Global Values
-;---------------------------
-
-If Not _FileCreate(@ScriptDir & "\test") Then ; Testing UXS Directory
- Global $iScriptPath = @AppDataDir & "\UXMLS" ; If not, use Path to current user's Roaming Application Data
- DirCreate($iScriptPath) ;
-Else
- Global $iScriptPath = @ScriptDir
- FileDelete($iScriptPath & "\test")
-EndIf
-
-Global $iINIPath = $iScriptPath & "\UXS-config.ini"
-Global $iLOGPath = $iScriptPath & "\LOGs\log.txt"
-Global $iVerboseLVL = IniRead($iINIPath, "GENERAL", "$vVerbose", 0)
-Global $MS_AutoConfigItem
-
-;Personnal Librairy definitions
-;---------------------------
-
-;~ #include "./Include/_MultiLang.au3"
-;~ #include "./Include/_ExtMsgBox.au3"
-;~ #include "./Include/_Trim.au3"
-;~ #include "./Include/_Hash.au3"
-;~ #include "./Include/_XML.au3"
-;~ #include "./Include/_MailSlot.au3"
-;~ #include "./Include/_GraphGDIPlus.au3"
-;~ #include "./Include/_MyFunction.au3"
-;~ #include "./Include/_ITaskBarList.au3"
-;~ #include "./Include/_WinHttp.au3"
-;~ #include "./Include/_AutoItErrorTrap.au3"
-
-; Custom title and text...
-_AutoItErrorTrap("AutoItErrorTrap", "Hi!" & @CRLF & @CRLF & "An error was detected in the program, you can try again," & _
- " cancel to exit or continue to see more details of the error." & @CRLF & @CRLF & "Sorry for the inconvenience!")
-
-$oTaskbar = _ITaskBar_CreateTaskBarObj()
-
-;Checking Version
-;----------------
-_LOG_Ceation($iLOGPath) ; Starting Log
-
-If @OSArch = "X64" Then
- _LOG("Scrape in x64", 0, $iLOGPath)
- Local $iScraper = "Scraper64.exe"
-Else
- _LOG("Scrape in x86", 0, $iLOGPath)
- Local $iScraper = "Scraper.exe"
-EndIf
-
-_KillScrapeEngine($iScraper)
-
-Local $vMaj = 0
-If @Compiled Then
- Local $iScriptVer = FileGetVersion(@ScriptFullPath)
- Local $iINIVer = IniRead($iINIPath, "GENERAL", "$verINI", '0.0.0.0')
- Local $iSoftname = "UniversalXMLScraperV" & $iScriptVer
- If $iINIVer <> $iScriptVer Then
- $vMaj = 1
- FileDelete($iScriptPath & "\UXS-config.ini")
- FileDelete($iScriptPath & "\LanguageFiles")
- FileDelete($iScriptPath & "\Ressources")
- FileDelete($iScriptPath & "\Mix")
- FileDelete($iScriptPath & "\ProfilsFiles")
- _LOG("Update file needed from version " & $iINIVer & " to " & $iScriptVer, 1, $iLOGPath)
- FileDelete($iScraper)
- Else
- _LOG("No updated files needed (Version : " & $iScriptVer & ")", 1, $iLOGPath)
- EndIf
-Else
- Local $iScriptVer = 'In Progress'
- Local $iINIVer = IniRead($iINIPath, "GENERAL", "$verINI", '0.0.0.0')
- Local $iSoftname = "UniversalXMLScraper(TestDev)"
- _LOG("Dev version", 1, $iLOGPath)
-EndIf
-
-#Region FileInstall
-_LOG("Starting files installation", 0, $iLOGPath)
-DirCreate($iScriptPath & "\LanguageFiles")
-DirCreate($iScriptPath & "\Ressources")
-DirCreate($iScriptPath & "\Ressources\Licences")
-DirCreate($iScriptPath & "\Mix")
-DirCreate($iScriptPath & "\Mix\TEMP")
-DirCreate($iScriptPath & "\ProfilsFiles")
-DirCreate($iScriptPath & "\ProfilsFiles\Ressources")
-FileInstall(".\UXS-config.ini", $iScriptPath & "\UXS-config.ini")
-FileInstall(".\Ressources\7za.exe", $iScriptPath & "\Ressources\7za.exe", 0)
-FileInstall(".\Scraper.exe", $iScriptPath & "\Scraper.exe", 0)
-FileInstall(".\Scraper64.exe", $iScriptPath & "\Scraper64.exe", 0)
-FileSetAttrib($iScriptPath & "\Scraper.exe", "+H")
-FileSetAttrib($iScriptPath & "\Scraper64.exe", "+H")
-FileInstall(".\Ressources.zip", $iScriptPath & "\Ressources.zip")
-If $vMaj = 1 Then
- $vResult = _Unzip($iScriptPath & "\Ressources.zip", $iScriptPath & "\")
- If $vResult < 0 Then
- Switch $vResult
- Case 1
- _LOG("not a Zip file", 2, $iLOGPath)
- Case 2
- _LOG("Impossible to unzip", 2, $iLOGPath)
- Case Else
- _LOG("Unknown Zip Error (" & @error & ")", 2, $iLOGPath)
- EndSwitch
- EndIf
-EndIf
-_LOG("Ending files installation", 1, $iLOGPath)
-#EndRegion FileInstall
-
-;Splash Screen
-$F_Splashcreen = GUICreate("", 799, 449, -1, -1, $WS_POPUPWINDOW, $WS_EX_TOOLWINDOW)
-GUICtrlCreatePic($iScriptPath & "\Ressources\Images\UXS.jpg", -1, -1, 800, 450)
-SoundPlay($iScriptPath & "\Ressources\Sons\jingle_uxs.MP3")
-GUISetState()
-
-;Const def
-;---------
-Global $iDevId = BinaryToString(_Crypt_DecryptData("0x1552EDED2FA9B5", "1gdf1g1gf", $CALG_RC4))
-Global $iDevPassword = BinaryToString(_Crypt_DecryptData("0x1552EDED2FA9B547FBD0D9A623D954AE7BEDC681", "1gdf1g1gf", $CALG_RC4))
-Global $iTEMPPath = $iScriptPath & "\TEMP"
-Global $iRessourcesPath = $iScriptPath & "\Ressources"
-Global $iLangPath = $iScriptPath & "\LanguageFiles" ; Where we are storing the language files.
-Global $iProfilsPath = $iScriptPath & "\ProfilsFiles" ; Where we are storing the profils files.
-Global $iMIXPath = $iScriptPath & "\Mix" ; Where we are storing the MIX files.
-Global $iPathMixTmp = $iMIXPath & "\TEMP" ; Where we are storing the current MIX files.
-Global $iURLScraper = _TestServer(1)
-Global $sMailSlotMother = "\\.\mailslot\Mother"
-Global $sMailSlotCancel = "\\.\mailslot\Cancel"
-Global $sMailSlotCheckEngine = "\\.\mailslot\CheckEngine"
-Global $hMailSlotCheckEngine = _CreateMailslot($sMailSlotCheckEngine)
-Global $hMailSlotMother = _CreateMailslot($sMailSlotMother)
-_LOG("Verbose LVL : " & $iVerboseLVL, 1, $iLOGPath)
-_LOG("Path to ini : " & $iINIPath, 1, $iLOGPath)
-_LOG("Path to log : " & $iLOGPath, 1, $iLOGPath)
-_LOG("Path to language : " & $iLangPath, 1, $iLOGPath)
-
-;Variable def
-;------------
-Global $vUserLang = IniRead($iINIPath, "LAST_USE", "$vUserLang", -1)
-Global $MP_, $aPlink_Command, $vScrapeCancelled
-Global $vProfilsPath = IniRead($iINIPath, "LAST_USE", "$vProfilsPath", -1)
-Local $vXpath2RomPath, $vFullTimer, $vRomTimer, $vSelectedProfil = -1
-Local $L_SCRAPE_Parts[3] = [300, 480, -1]
-Local $oXMLProfil, $oXMLSystem, $oXMLCountry, $oXMLGenre
-Global $aConfig = 1, $aRomList, $aXMLRomList
-Local $nMsg
-Local $vNbThread = IniRead($iINIPath, "LAST_USE", "$vNbThread", 1)
-Local $vStart = 0, $vWizCancel = 0, $vLaunchScrape = 0, $aOptionMenu = -1
-
-;---------;
-;Principal;
-;---------;
-
-; Loading language
-Local $aLangList = _MultiLang_LoadLangDef($iLangPath, $vUserLang)
-If Not IsArray($aLangList) Or $aLangList < 0 Then
- _LOG("Impossible to load language", 2, $iLOGPath)
- Exit
-EndIf
-;~ _ArrayDisplay($aLangList, "$aLangList") ;Debug
-
-; Update Checking
-_LOG("Update Checking", 1, $iLOGPath)
-Local $iChangelogPath = $iScriptPath & "\changelog.txt"
-FileDelete($iChangelogPath)
-Local $Result = _DownloadWRetry("https://raw.githubusercontent.com/Universal-Rom-Tools/Universal-XML-Scraper/master/changelog.txt", $iChangelogPath)
-Switch $Result
- Case -1
- _LOG("Error downloading Changelog", 2, $iLOGPath)
- Case -2
- _LOG("Time Out downloading Changelog", 2, $iLOGPath)
- Case Else
- Local $iChangelogVer = FileReadLine($iChangelogPath)
- _LOG("Local : " & $iScriptVer & " - Github : " & $iChangelogVer, 0, $iLOGPath)
- If $iChangelogVer <> $iScriptVer And @Compiled = 1 Then
- _LOG("Asking to Update", 0, $iLOGPath)
- _GUI_Update($iChangelogPath)
- EndIf
-EndSwitch
-
-$vSSLogin = IniRead($iINIPath, "LAST_USE", "$vSSLogin", "")
-$vSSPassword = IniRead($iINIPath, "LAST_USE", "$vSSPassword", "")
-
-;Catching SystemList.xml
-$oXMLSystem = _XMLSystem_Create($vSSLogin, $vSSPassword)
-If $oXMLSystem = -1 Then Exit
-
-;Catching CountryList.xml
-$oXMLCountry = _XMLCountry_Create($vSSLogin, $vSSPassword)
-If $oXMLCountry = -1 Then Exit
-
-;Catching GenreList.xml
-$oXMLGenre = _XMLGenre_Create($vSSLogin, $vSSPassword)
-
-;Delete Splascreen
-GUIDelete($F_Splashcreen)
-
-#Region ### START Koda GUI section ### Form=
-Local $F_UniversalScraper = GUICreate(_MultiLang_GetText("main_gui"), 601, 370)
-GUISetBkColor(0x34495c, $F_UniversalScraper)
-Local $MF = GUICtrlCreateMenu(_MultiLang_GetText("mnu_file"), -1, 1)
-Local $MF_Separation = GUICtrlCreateMenuItem("", $MF)
-Local $MF_Exit = GUICtrlCreateMenuItem(_MultiLang_GetText("mnu_file_exit"), $MF)
-
-Local $MC = GUICtrlCreateMenu(_MultiLang_GetText("mnu_cfg"), -1, 2)
-Local $MC_Wizard = GUICtrlCreateMenuItem(_MultiLang_GetText("mnu_cfg_Wizard"), $MC)
-Local $MC_Separation = GUICtrlCreateMenuItem("", $MC)
-Local $MC_Profil = GUICtrlCreateMenuItem(_MultiLang_GetText("mnu_cfg_profil"), $MC)
-Local $MC_Langue = GUICtrlCreateMenuItem(_MultiLang_GetText("mnu_cfg_langue"), $MC)
-Local $MC_Separation = GUICtrlCreateMenuItem("", $MC)
-Local $MC_Mix = GUICtrlCreateMenu("Mix", $MC)
-Local $MC_Miximage = GUICtrlCreateMenuItem(_MultiLang_GetText("mnu_cfg_miximage"), $MC_Mix)
-Local $MC_MixDownload = GUICtrlCreateMenuItem(_MultiLang_GetText("mnu_cfg_download_miximage"), $MC_Mix)
-Local $MC_Separation = GUICtrlCreateMenuItem("", $MC)
-Local $MC_config_MISC = GUICtrlCreateMenuItem(_MultiLang_GetText("mnu_cfg_config_MISC"), $MC)
-Local $MC_config_Advanced = GUICtrlCreateMenu("Advanced", $MC)
-Local $MC_config_PIC = GUICtrlCreateMenuItem(_MultiLang_GetText("mnu_cfg_config_PIC"), $MC_config_Advanced)
-Local $MC_Config_LU = GUICtrlCreateMenuItem(_MultiLang_GetText("mnu_cfg_config_LU"), $MC_config_Advanced)
-Local $MC_config_autoconf = GUICtrlCreateMenuItem(_MultiLang_GetText("mnu_cfg_config_autoconf"), $MC_config_Advanced)
-
-Global $MOption = GUICtrlCreateMenu(_MultiLang_GetText("mnu_cfg_config_Option"), -1, 3)
-
-Local $MS = GUICtrlCreateMenu(_MultiLang_GetText("mnu_scrape"), -1, 4)
-Local $MS_AutoConfig = GUICtrlCreateMenu(_MultiLang_GetText("mnu_scrape_autoconf"), $MS, 1)
-Local $MS_Scrape = GUICtrlCreateMenuItem(_MultiLang_GetText("mnu_scrape_solo"), $MS)
-Local $MS_Separation = GUICtrlCreateMenuItem("", $MS)
-Local $MS_FullScrape = GUICtrlCreateMenuItem(_MultiLang_GetText("mnu_scrape_fullscrape"), $MS)
-
-Local $MP = GUICtrlCreateMenu(_MultiLang_GetText("mnu_ssh"), -1, 5)
-Local $MP_Parameter = GUICtrlCreateMenuItem(_MultiLang_GetText("mnu_ssh_Parameter"), $MP)
-Local $MP_Separation = GUICtrlCreateMenuItem("", $MP)
-GUICtrlSetState($MP, $GUI_DISABLE)
-
-Local $MH = GUICtrlCreateMenu(_MultiLang_GetText("mnu_help"), -1, 6)
-Local $MH_Help = GUICtrlCreateMenuItem(_MultiLang_GetText("mnu_help_wiki"), $MH)
-Local $MH_Support = GUICtrlCreateMenu(_MultiLang_GetText("mnu_help_support"), $MH)
-Local $MH_Support_Screenscraper = GUICtrlCreateMenuItem("Screenscraper", $MH_Support, 1)
-Local $MH_Support_Tipee = GUICtrlCreateMenuItem("Tipee (€)", $MH_Support, 2)
-Local $MH_Support_Patreon = GUICtrlCreateMenuItem("Patreon ($)", $MH_Support, 3)
-Local $MH_Link = GUICtrlCreateMenu(_MultiLang_GetText("mnu_help_link"), $MH)
-Local $MH_Link_Screenzone = GUICtrlCreateMenuItem("http://www.screenzone.fr/", $MH_Link, 1)
-Local $MH_Link_Recalbox = GUICtrlCreateMenuItem("https://www.recalbox.com/", $MH_Link, 2)
-Local $MH_Link_Retropie = GUICtrlCreateMenuItem("https://retropie.org.uk/", $MH_Link, 3)
-Local $MH_Changelog = GUICtrlCreateMenuItem('Changelog', $MH)
-Local $MH_Log = GUICtrlCreateMenuItem('Log', $MH)
-Local $MH_About = GUICtrlCreateMenuItem(_MultiLang_GetText("mnu_help_about"), $MH)
-
-Local $P_BACKGROUND = GUICtrlCreatePic($iScriptPath & "\ProfilsFiles\Ressources\empty.jpg", -1, 0, 600, 293)
-Global $P_MIX = GUICtrlCreatePic("", 58, 193, 165, 100, -1, -1)
-Global $P_WHEEL = GUICtrlCreatePic("", 270, 225, 120, 60, -1, -1)
-Local $PB_SCRAPE = GUICtrlCreateProgress(2, 297, 478, 25)
-Local $B_SCRAPE = GUICtrlCreateButton(_MultiLang_GetText("scrap_button"), 481, 296, 118, 27)
-Local $L_SCRAPE = _GUICtrlStatusBar_Create($F_UniversalScraper)
-_GUICtrlStatusBar_SetParts($L_SCRAPE, $L_SCRAPE_Parts)
-GUISetState(@SW_SHOW)
-#EndRegion ### END Koda GUI section ###
-
-_ITaskBar_SetThumbNailToolTip($F_UniversalScraper)
-
-$vProfilDefault = IniRead($iINIPath, "LAST_USE", "$vProfilsPath", "")
-If $vProfilDefault = "" Then
- $vStart = 1
- IniWrite($iINIPath, "LAST_USE", "$vMirror", 0)
-Else
- ;Opening XML Profil file
- $oXMLProfil = _XML_Open($vProfilsPath)
- If $oXMLProfil = -1 Then Exit
- $aOptionMenu = _OptionMenuConstruction($oXMLProfil, $aOptionMenu)
- ;Setting MIX Template
- _LOG("Setting Mix Template", 0, $iLOGPath)
- $vLastMIX = $iMIXPath & "\" & IniRead($iINIPath, "LAST_USE", "$vMixImage", "Standard (3img)") & ".zip"
- DirRemove($iPathMixTmp, 1)
- DirCreate($iPathMixTmp)
- $vResult = _Unzip($vLastMIX, $iPathMixTmp)
- If $vResult < 0 Then
- Switch $vResult
- Case 1
- _LOG("not a Zip file", 2, $iLOGPath)
- Case 2
- _LOG("Impossible to unzip", 2, $iLOGPath)
- Case Else
- _LOG("Unknown Zip Error (" & @error & ")", 2, $iLOGPath)
- EndSwitch
- EndIf
- $aDIRList = _Check_autoconf($oXMLProfil)
- _LoadConfig()
- _GUI_Refresh($oXMLProfil)
-EndIf
-_LOG("GUI Constructed", 1, $iLOGPath)
-
-While 1
- $nMsg = GUIGetMsg()
- If $vStart = 1 Then $nMsg = $MC_Wizard
- If $vLaunchScrape = 1 Then
- $vLaunchScrape = 0
- $nMsg = $B_SCRAPE
- EndIf
-
- Switch $nMsg
- Case $MC_Wizard ;Wizard
-;~ ---------OS Selection---------
- $vProfilsPath = _Wizz_OS()
- _LOG("Wizard - Profil selected : " & $vProfilsPath, 0, $iLOGPath)
- IniWrite($iINIPath, "LAST_USE", "$vProfilsPath", $vProfilsPath)
- $oXMLProfil = _XML_Open($vProfilsPath)
- If $oXMLProfil = -1 Then Exit
- IniWrite($iINIPath, "LAST_USE", "$vRechFiles", _Coalesce(_XML_Read("Profil/General/Research", 0, "", $oXMLProfil), "*.*|*.xml;*.txt;*.dv;*.fs;*.xor;*.drv;*.dat;*.cfg;*.nv;*.sav*|"))
-;~ ---------Media Selection---------
- $vMediaChoice = _Wizz_MediaChoice($oXMLProfil, $vProfilsPath)
- _LOG("Wizard - Media selected : " & $vMediaChoice, 0, $iLOGPath)
- If $vMediaChoice = "Simple" Then
-;~ ---------Media Simple Selection---------
- $vMainMedia = _Wizz_MediaSimpleChoice($oXMLProfil, $vProfilsPath)
- _LOG("Wizard - Main Media selected : " & $vMainMedia, 0, $iLOGPath)
- $vAltMedia = _Wizz_MediaSimpleAltChoice($oXMLProfil, $vProfilsPath, $vMainMedia)
- _LOG("Wizard - Main Media selected : " & $vAltMedia, 0, $iLOGPath)
- Else
-;~ ---------Media MIX Selection---------
- $vMix = _GUI_Config_MIX($iMIXPath, $iPathMixTmp, 1)
- _LOG("Wizard - Mix selected : " & $vMix, 0, $iLOGPath)
- EndIf
-;~ ---------Rom Path Selection---------
- $vRomPath = _Wizz_Rom($oXMLProfil)
- $aDIRList = _Check_autoconf($oXMLProfil)
- If IsArray($aDIRList) Then
- IniWrite($iINIPath, "LAST_USE", "$vSource_RomPath", $aDIRList[1][1])
- IniWrite($iINIPath, "LAST_USE", "$vTarget_RomPath", $aDIRList[1][2])
- IniWrite($iINIPath, "LAST_USE", "$vTarget_XMLName", $aDIRList[1][3])
- IniWrite($iINIPath, "LAST_USE", "$vSource_ImagePath", $aDIRList[1][4])
- IniWrite($iINIPath, "LAST_USE", "$vTarget_ImagePath", $aDIRList[1][5])
- _LoadConfig()
- _GUI_Refresh($oXMLProfil)
- IniWrite($iINIPath, "LAST_USE", "$vAutoconf_Use", 1)
- EndIf
- _LOG("Wizard - Rom Path selected : " & $vRomPath, 0, $iLOGPath)
- While 1
-;~ ---------SS Selection---------
- $vSS = _Wizz_SSChoice()
- _LOG("Wizard - SS Acount selected : " & $vSS, 0, $iLOGPath)
- If $vSS = "Yes" Then
-;~ ---------SS Id Selection---------
- $vNbThreadDefault = _Wizz_SSId()
- If $vNbThreadDefault > 0 Then
- _LOG("Wizard - SS Acount OK, Nb Thread selected : " & $vNbThreadDefault, 0, $iLOGPath)
- ExitLoop
- Else
- _LOG("Wizard - SS Acount NOK", 0, $iLOGPath)
- EndIf
- Else
- ExitLoop
- EndIf
- WEnd
-;~ ---------Scrape & Plateform Selection---------
- If _Wizz_Scrape() = "Yes" Then
- $vSystem = _Wizz_SystemChoice($oXMLProfil)
- $vLaunchScrape = 1
- _LOG("Wizard - Plateform selected : " & $vSystem, 0, $iLOGPath)
- EndIf
- $aOptionMenu = _OptionMenuConstruction($oXMLProfil, $aOptionMenu)
-
- _GUI_Refresh($oXMLProfil)
- If $vStart = 1 Then $vStart = 0
- Case $GUI_EVENT_CLOSE, $MF_Exit ; Exit
- DirRemove($iTEMPPath, 1)
- _LOG("Universal XML Scraper Closed", 0, $iLOGPath)
- Exit
- Case $MC_Profil ;Profil Selection
- $vProfilsPath = _ProfilSelection($iProfilsPath)
- IniWrite($iINIPath, "LAST_USE", "$vProfilsPath", $vProfilsPath)
- ;Opening XML Profil file
- $oXMLProfil = _XML_Open($vProfilsPath)
- If $oXMLProfil = -1 Then Exit
- $aOptionMenu = _OptionMenuConstruction($oXMLProfil, $aOptionMenu)
- IniWrite($iINIPath, "LAST_USE", "$vRechFiles", _Coalesce(_XML_Read("Profil/General/Research", 0, "", $oXMLProfil), "*.*||"))
- $aDIRList = _Check_autoconf($oXMLProfil)
- _GUI_Refresh($oXMLProfil)
- $nMsg = ""
- Case $MC_Langue ;Langue Selection
- $aLangList = _MultiLang_LoadLangDef($iLangPath, -1)
- If Not IsArray($aLangList) Or $aLangList < 0 Then
- _LOG("Impossible to load language", 2, $iLOGPath)
- Exit
- EndIf
- $aOptionMenu = _OptionMenuConstruction($oXMLProfil, $aOptionMenu)
- _LoadConfig()
- _GUI_Refresh($oXMLProfil)
- Case $MC_Config_LU ;Manual Path Configuration
- _GUI_Config_LU()
- _GUI_Refresh($oXMLProfil)
- Case $MC_config_PIC ;Picture Configuration
- _GUI_Config_Image($oXMLProfil, $iPathMixTmp)
- _GUI_Refresh($oXMLProfil)
- Case $MC_config_MISC ;General Configuration
- _GUI_Config_MISC()
- _GUI_Refresh($oXMLProfil)
- Case $MC_Miximage ;Mix Image Selection
- _GUI_Config_MIX($iMIXPath, $iPathMixTmp)
- Case $MC_MixDownload
- _GUI_Config_MIX_Download()
- Case $MC_config_autoconf ;Autoconf Configuration
- $GUI_Config_autoconf = _GUI_Config_autoconf($oXMLProfil)
- If $GUI_Config_autoconf = 1 Then
- FileDelete($vProfilsPath)
- _XML_SaveToFile($oXMLProfil, $vProfilsPath)
- EndIf
- $aDIRList = _Check_autoconf($oXMLProfil)
- _GUI_Refresh($oXMLProfil)
- Local $vSystem = StringSplit(IniRead($iINIPath, "LAST_USE", "$vSource_RomPath", ""), "\")
- $vSystem = $vSystem[UBound($vSystem) - 1]
-
- If $aDIRList <> -1 Then
- For $vBoucle = 1 To UBound($MS_AutoConfigItem) - 1
- If $aDIRList[$vBoucle][0] = $vSystem Then
- _LOG("Checked system :" & $aDIRList[$vBoucle][0], 0, $iLOGPath)
- IniWrite($iINIPath, "LAST_USE", "$vSource_RomPath", $aDIRList[$vBoucle][1])
- IniWrite($iINIPath, "LAST_USE", "$vTarget_RomPath", $aDIRList[$vBoucle][2])
- IniWrite($iINIPath, "LAST_USE", "$vTarget_XMLName", $aDIRList[$vBoucle][3])
- IniWrite($iINIPath, "LAST_USE", "$vSource_ImagePath", $aDIRList[$vBoucle][4])
- IniWrite($iINIPath, "LAST_USE", "$vTarget_ImagePath", $aDIRList[$vBoucle][5])
- $nMsg = 0
- _GUI_Refresh($oXMLProfil)
- EndIf
- Next
- EndIf
- Case $MP_Parameter
- $GUI_Config_SSHParameter = _GUI_Config_SSHParameter($oXMLProfil)
- If $GUI_Config_SSHParameter = 1 Then
- FileDelete($vProfilsPath)
- _XML_SaveToFile($oXMLProfil, $vProfilsPath)
- EndIf
- $aDIRList = _Check_autoconf($oXMLProfil)
- _GUI_Refresh($oXMLProfil)
- Case $MH_Help
- ShellExecute("https://github.com/Universal-Rom-Tools/Universal-XML-Scraper/wiki")
- Case $MH_Support_Screenscraper
- ShellExecute("http://www.screenscraper.fr/")
- Case $MH_Support_Tipee
- ShellExecute("https://www.tipeee.com/screenscraper")
- Case $MH_Support_Patreon
- ShellExecute("https://www.patreon.com/screenscraper")
- Case $MH_Link_Screenzone
- ShellExecute("http://www.screenzone.fr/")
- Case $MH_Link_Recalbox
- ShellExecute("https://www.recalbox.com/")
- Case $MH_Link_Retropie
- ShellExecute("https://retropie.org.uk/")
- Case $MH_Changelog
- _GUI_Update($iChangelogPath, $F_UniversalScraper)
- Case $MH_Log
- _GUI_Log($F_UniversalScraper)
- Case $MH_About ;Help
- SoundPlay($iScriptPath & "\Ressources\Sons\jingle_uxs.MP3")
- $sMsg = "UNIVERSAL XML SCRAPER - " & $iScriptVer & @CRLF
- $sMsg &= _MultiLang_GetText("win_About_By") & @CRLF & @CRLF
- $sMsg &= _MultiLang_GetText("win_About_Thanks") & @CRLF
- $sMsg &= "All Screenzone comunity" & @CRLF
- $sMsg &= "All Recalbox comunity" & @CRLF
- $sMsg &= "All Friends on IRC and forum" & @CRLF
- $sMsg &= "Special dedicace :" & @CRLF
- $sMsg &= "MarbleMad for Screenscraper" & @CRLF
- $sMsg &= "Kam3leon for Splashscreen" & @CRLF
- $sMsg &= "Neogeronimo for the Jingle" & @CRLF
- $sMsg &= "Madmeggo, Paradadf and Lackyluuk for German translation" & @CRLF
- $sMsg &= "Paradadf for Spanish translation" & @CRLF
- $sMsg &= "Cricetomutante for Italian translation" & @CRLF
- $sMsg &= "Digital Lumberjack for the Mirror" & @CRLF
- $sMsg &= "Verybadsoldier for the 'In ZIP scrape'" & @CRLF
-
- _ExtMsgBoxSet(1, 2, 0x34495c, 0xFFFF00, 10, "Arial")
- _ExtMsgBox($EMB_ICONINFO, "OK", _MultiLang_GetText("win_About_Title"), $sMsg, 15)
- Case $B_SCRAPE, $MS_Scrape ;Solo Scrape or Cancel
- _GUI_Refresh($oXMLProfil, 1)
- $vFullTimer = TimerInit()
- _GUICtrlStatusBar_SetText($L_SCRAPE, "Please Wait...")
- $vNbThread = IniRead($iINIPath, "LAST_USE", "$vNbThread", 1)
- _KillScrapeEngine($iScraper)
- $aScrapeEngine = _LaunchEngine($oXMLProfil, $vNbThread)
- If IsArray($aScrapeEngine) Then
- $aRomList = _SCRAPE($oXMLProfil, $aScrapeEngine, $vNbThread)
- If IsArray($aRomList) Then
- _LOG("-- Full Scrape in " & Round((TimerDiff($vFullTimer) / 1000), 2) & "s", 0, $iLOGPath)
- _Results($aRomList, Round((TimerDiff($vFullTimer) / 1000), 2))
- EndIf
- _KillScrapeEngine($iScraper)
- EndIf
- $vScrapeCancelled = 0
- _GUI_Refresh($oXMLProfil)
- Case $MS_FullScrape ;FullScrape
- _GUI_Refresh($oXMLProfil, 1)
- Dim $aRomList_FULL[1][12]
- $vFullTimer = TimerInit()
- $vNbThread = IniRead($iINIPath, "LAST_USE", "$vNbThread", 1)
- _KillScrapeEngine($iScraper)
- $aScrapeEngine = _LaunchEngine($oXMLProfil, $vNbThread)
- If IsArray($aScrapeEngine) Then
- For $vBoucleSysteme = 1 To UBound($MS_AutoConfigItem) - 1
- _LOG("-- Scrape System n°" & $vBoucleSysteme, 0, $iLOGPath)
- IniWrite($iINIPath, "LAST_USE", "$vSource_RomPath", $aDIRList[$vBoucleSysteme][1])
- IniWrite($iINIPath, "LAST_USE", "$vTarget_RomPath", $aDIRList[$vBoucleSysteme][2])
- IniWrite($iINIPath, "LAST_USE", "$vTarget_XMLName", $aDIRList[$vBoucleSysteme][3])
- IniWrite($iINIPath, "LAST_USE", "$vSource_ImagePath", $aDIRList[$vBoucleSysteme][4])
- IniWrite($iINIPath, "LAST_USE", "$vTarget_ImagePath", $aDIRList[$vBoucleSysteme][5])
- _GUI_Refresh($oXMLProfil)
- _GUI_Refresh($oXMLProfil, 1)
- $aRomList = _SCRAPE($oXMLProfil, $aScrapeEngine, $vNbThread, 1)
- If IsArray($aRomList) Then
- For $i = 1 To UBound($aRomList, 1) - 1
- ReDim $aRomList_FULL[UBound($aRomList_FULL, 1) + 1][UBound($aRomList, 2)]
- For $j = 0 To UBound($aRomList, 2) - 1
- $aRomList_FULL[UBound($aRomList_FULL, 1) - 1][$j] = $aRomList[$i][$j]
- Next
- Next
- EndIf
- If Not _Check_Cancel() Then $vBoucleSysteme = UBound($MS_AutoConfigItem) - 1
- Next
- $vNbThread = IniRead($iINIPath, "LAST_USE", "$vNbThread", 1)
- _LOG("-- Full Scrape in " & Round((TimerDiff($vFullTimer) / 1000), 2) & "s", 0, $iLOGPath)
- _Results($aRomList_FULL, Round((TimerDiff($vFullTimer) / 1000), 2), 1)
- _KillScrapeEngine($iScraper)
- EndIf
- $vScrapeCancelled = 0
- _GUI_Refresh($oXMLProfil)
- EndSwitch
-
- ;Option Menu
- If IsArray($aOptionMenu) And $aOptionMenu <> -1 Then
- For $vBoucle = 1 To $aOptionMenu[0][0]
- If $nMsg = $aOptionMenu[$vBoucle][0] Then
- _XML_Replace('Profil/Element[@Type="' & $aOptionMenu[$vBoucle][3] & '"]/' & $aOptionMenu[$vBoucle][4], $aOptionMenu[$vBoucle][6], 0, "", $oXMLProfil)
- FileDelete($vProfilsPath)
- _XML_SaveToFile($oXMLProfil, $vProfilsPath)
- $nMsg = ""
- $vBoucle = $aOptionMenu[0][0]
- $aOptionMenu = _OptionMenuConstruction($oXMLProfil, $aOptionMenu)
- $aOptionMenu = _OptionMenuCheck($aOptionMenu, $oXMLProfil)
- _GUI_Refresh($oXMLProfil)
- EndIf
- Next
- EndIf
-
- ;SSH Menu
- If IsArray($MP_) Then
- For $vBoucle = 1 To UBound($MP_) - 1
- If $nMsg = $MP_[$vBoucle] Then _Plink($oXMLProfil, $aPlink_Command[$vBoucle][0])
- Next
- EndIf
-
- ;Auto Conf Sub Menu
- If $aDIRList <> -1 Then
- For $vBoucle = 1 To UBound($MS_AutoConfigItem) - 1
- If $nMsg = $MS_AutoConfigItem[$vBoucle] Then
- _LOG("Autoconfig Selected :" & $aDIRList[$vBoucle][0], 0, $iLOGPath)
- For $vBoucle2 = 1 To UBound($MS_AutoConfigItem) - 1
- GUICtrlSetState($MS_AutoConfigItem[$vBoucle2], $GUI_UNCHECKED)
- Next
- GUICtrlSetState($MS_AutoConfigItem[$vBoucle], $GUI_CHECKED)
- IniWrite($iINIPath, "LAST_USE", "$vSource_RomPath", $aDIRList[$vBoucle][1])
- IniWrite($iINIPath, "LAST_USE", "$vTarget_RomPath", $aDIRList[$vBoucle][2])
- IniWrite($iINIPath, "LAST_USE", "$vTarget_XMLName", $aDIRList[$vBoucle][3])
- IniWrite($iINIPath, "LAST_USE", "$vSource_ImagePath", $aDIRList[$vBoucle][4])
- IniWrite($iINIPath, "LAST_USE", "$vTarget_ImagePath", $aDIRList[$vBoucle][5])
- $nMsg = 0
- _GUI_Refresh($oXMLProfil)
- EndIf
- Next
- EndIf
-
-WEnd
-
-;---------;
-;Fonctions;
-;---------;
-
-Func _LoadConfig()
- Local $aMatchingCountry
- Dim $aConfig[15]
- $aConfig[0] = IniRead($iINIPath, "LAST_USE", "$vTarget_XMLName", " ")
- $aConfig[1] = IniRead($iINIPath, "LAST_USE", "$vSource_RomPath", "")
- $aConfig[2] = IniRead($iINIPath, "LAST_USE", "$vTarget_RomPath", "./")
- $aConfig[3] = IniRead($iINIPath, "LAST_USE", "$vSource_ImagePath", "")
- $aConfig[4] = IniRead($iINIPath, "LAST_USE", "$vTarget_ImagePath", "./downloaded_images/")
- $aConfig[5] = IniRead($iINIPath, "LAST_USE", "$vScrape_Mode", 0)
- $aConfig[6] = IniRead($iINIPath, "LAST_USE", "$vMissingRom_Mode", 0)
- $aConfig[7] = IniRead($iINIPath, "LAST_USE", "$vCountryPic_Mode", 0)
- If IniRead($iINIPath, "LAST_USE", "$vLangPref", "0") = "0" Then IniWrite($iINIPath, "LAST_USE", "$vLangPref", _MultiLang_GetText("langpref"))
- If IniRead($iINIPath, "LAST_USE", "$vCountryPref", "0") = "0" Then IniWrite($iINIPath, "LAST_USE", "$vCountryPref", _MultiLang_GetText("countrypref"))
- $aConfig[9] = IniRead($iINIPath, "LAST_USE", "$vLangPref", "")
- $aConfig[10] = IniRead($iINIPath, "LAST_USE", "$vCountryPref", "")
- $aConfig[11] = $iRessourcesPath & "\regionlist.txt"
- $aConfig[12] = 0
- $aConfig[13] = IniRead($iINIPath, "LAST_USE", "$vSSLogin", "")
- $aConfig[14] = IniRead($iINIPath, "LAST_USE", "$vSSPassword", "")
-
- If Not FileExists($aConfig[1]) Then
- _ExtMsgBox($EMB_ICONEXCLAM, "OK", _MultiLang_GetText("err_title"), _MultiLang_GetText("err_PathRom"), 15)
- _LOG("Error Access to : " & $aConfig[1], 2, $iLOGPath)
- Return 0
- EndIf
-
- _LOG("$vTarget_XMLName = " & $aConfig[0], 1, $iLOGPath)
- _LOG("$vSource_RomPath = " & $aConfig[1], 1, $iLOGPath)
- _LOG("$vTarget_RomPath = " & $aConfig[2], 1, $iLOGPath)
- _LOG("$vSource_ImagePath = " & $aConfig[3], 1, $iLOGPath)
- _LOG("$vTarget_ImagePath = " & $aConfig[4], 1, $iLOGPath)
- _LOG("$vScrape_Mode = " & $aConfig[5], 1, $iLOGPath)
- _LOG("$vMissingRom_Mode = " & $aConfig[6], 1, $iLOGPath)
- _LOG("$vCountryPic_Mode = " & $aConfig[7], 1, $iLOGPath)
- _LOG("$vLangPref = " & $aConfig[9], 1, $iLOGPath)
- _LOG("$vCountryPref = " & $aConfig[10], 1, $iLOGPath)
- _LOG("$aMatchingCountry = " & $aConfig[11], 1, $iLOGPath)
-
- If Not FileExists($aConfig[3]) Then DirCreate($aConfig[3] & "\")
-
- Return $aConfig
-EndFunc ;==>_LoadConfig
-
-Func _ProfilSelection($iProfilsPath, $vProfilsPath = -1) ;Profil Selection
- ; Loading profils list
- $aProfilList = _FileListToArrayRec($iProfilsPath, "*.xml", $FLTAR_FILES, $FLTAR_NORECUR, $FLTAR_SORT, $FLTAR_FULLPATH)
-;~ _ArrayDisplay($aProfilList, "$aProfilList") ;Debug
- If Not IsArray($aProfilList) Then
- _LOG("No Profils found", 2, $iLOGPath)
- Exit
- EndIf
- _ArrayColInsert($aProfilList, 0)
- _ArrayColInsert($aProfilList, 0)
- _ArrayDelete($aProfilList, 0)
-
- For $vBoucle = 0 To UBound($aProfilList) - 1
- $aProfilList[$vBoucle][0] = _XML_Read("Profil/Name", 1, $aProfilList[$vBoucle][2])
- If StringInStr($aProfilList[$vBoucle][0], $vProfilsPath) Then $vProfilsPath = $aProfilList[$vBoucle][2]
- Next
-;~ _ArrayDisplay($aProfilList, "$aProfilList") ;Debug
-
- If $vProfilsPath = -1 Then $vProfilsPath = _SelectGUI($aProfilList, $aProfilList[0][2], "Profil")
- _LOG("Profil selected : " & $vProfilsPath, 0, $iLOGPath)
- Return $vProfilsPath
-EndFunc ;==>_ProfilSelection
-
-Func _Plink($oXMLProfil, $vPlinkCommand_Menu, $vSilentPlink = 0) ;Send a Command via Plink
- Local $vPlink_Ip = _XML_Read("Profil/Plink/Ip", 0, "", $oXMLProfil)
- Local $vPlink_Root = _XML_Read("Profil/Plink/Root", 0, "", $oXMLProfil)
- Local $vPlink_Pswd = _XML_Read("Profil/Plink/Pswd", 0, "", $oXMLProfil)
-
- If $vSilentPlink = 0 Then
- Local $vPlink_Command = _XML_Read("Profil/Plink/Command/" & $vPlinkCommand_Menu, 0, "", $oXMLProfil)
- If MsgBox($MB_OKCANCEL, $vPlinkCommand_Menu, _MultiLang_GetText("mess_ssh_" & $vPlinkCommand_Menu)) = $IDOK Then
- _LOG("SSH : " & $vPlink_Command, 0, $iLOGPath)
- $sRun = $iScriptPath & "\Ressources\plink.exe " & $vPlink_Ip & " -ssh -l " & $vPlink_Root & " -pw " & $vPlink_Pswd & " " & $aPlink_Command
- $iPid = Run($sRun, '', @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD) ;@ComSpec & " /c " &
- $PlinkTimeout = TimerInit()
- While ProcessExists($iPid)
- If TimerDiff($PlinkTimeout) > 5000 Then
- MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), _MultiLang_GetText("err_PlinkGlobal") & @CRLF & "(Timeout)")
- _LOG("TimeOut with Plink (" & $vPlink_Root & ":" & $vPlink_Pswd & "@" & $vPlink_Ip & ")", 2, $iLOGPath)
- StdioClose($iPid)
- Return -1
- EndIf
- $_StderrRead = StderrRead($iPid)
- If Not @error And $_StderrRead <> '' Then
- If StringInStr($_StderrRead, 'Unable to open connection') Then
- MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), _MultiLang_GetText("err_PlinkGlobal") & @CRLF & _MultiLang_GetText("err_PlinkConnection"))
- _LOG("Unable to open connection with Plink (" & $vPlink_Root & ":" & $vPlink_Pswd & "@" & $vPlink_Ip & ")", 2, $iLOGPath)
- StdioClose($iPid)
- Return -1
- EndIf
- EndIf
- WEnd
- Else
- _LOG("SSH canceled : " & $vPlink_Command, 1, $iLOGPath)
- Return -2
- EndIf
- Else
- $sRun = $iScriptPath & "\Ressources\plink.exe " & $vPlink_Ip & " -ssh -l " & $vPlink_Root & " -pw " & $vPlink_Pswd & " " & $vPlinkCommand_Menu
- _LOG("SSH : " & $sRun, 1, $iLOGPath)
- $iPid = Run(@ComSpec & " /c " & $sRun, '', @SW_HIDE, $STDIN_CHILD + $STDERR_CHILD + $STDOUT_CHILD) ;@ComSpec & " /c " &
- $PlinkTimeout = TimerInit()
- While ProcessExists($iPid)
- If TimerDiff($PlinkTimeout) > 300000 Then
- MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), _MultiLang_GetText("err_PlinkGlobal") & @CRLF & "(Timeout)")
- _LOG("TimeOut with Plink (" & $vPlink_Root & ":" & $vPlink_Pswd & "@" & $vPlink_Ip & ")", 2, $iLOGPath)
- StdioClose($iPid)
- Return -1
- EndIf
- $_StderrRead = StderrRead($iPid)
- If Not @error And $_StderrRead <> '' Then
- If StringInStr($_StderrRead, 'Unable to open connection') Then
- _LOG("Unable to open connection with Plink (" & $vPlink_Root & ":" & $vPlink_Pswd & "@" & $vPlink_Ip & ")", 2, $iLOGPath)
- StdioClose($iPid)
- Return -1
- EndIf
- EndIf
- $_StdoutRead = StdoutRead($iPid)
- If $_StdoutRead <> '' Then
- _LOG("SSH Return : " & $_StdoutRead, 1, $iLOGPath)
- StdioClose($iPid)
- Return $_StdoutRead
- EndIf
- WEnd
- EndIf
- Return
-EndFunc ;==>_Plink
-
-Func _GUI_Config_Image($oXMLProfil, $iPathMixTmp)
- #Region ### START Koda GUI section ### Form=
- $F_CONFIG = GUICreate(_MultiLang_GetText("win_config_PIC_Title"), 474, 122, -1, -1, -1, BitOR($WS_EX_TOPMOST, $WS_EX_WINDOWEDGE))
- $G_Picture = GUICtrlCreateGroup(_MultiLang_GetText("win_config_PIC_GroupPICParam"), 8, 0, 225, 113)
- $L_PicSize = GUICtrlCreateLabel(_MultiLang_GetText("win_config_PIC_GroupPICParam_PicSize"), 16, 16)
- $I_Width = GUICtrlCreateInput("", 16, 36, 89, 21)
- $I_Height = GUICtrlCreateInput("", 136, 36, 89, 21)
- $L_X = GUICtrlCreateLabel("X", 116, 40, 11, 17)
- $L_PicExt = GUICtrlCreateLabel(_MultiLang_GetText("win_config_PIC_GroupPICParam_PicExt"), 16, 76)
- $C_PicExt = GUICtrlCreateCombo("", 136, 72, 89, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE))
- GUICtrlSetData($C_PicExt, "defaut|jpg|png", StringLower(_Coalesce(IniRead($iINIPath, "LAST_USE", "$vTarget_Image_Ext", ""), _XML_Read('Profil/General/Target_Image_Extension', 0, "", $oXMLProfil))))
- GUICtrlCreateGroup("", -99, -99, 1, 1)
- $B_CONFENREG = GUICtrlCreateButton(_MultiLang_GetText("win_config_Enreg"), 240, 72, 105, 41)
- $B_CONFANNUL = GUICtrlCreateButton(_MultiLang_GetText("win_config_Cancel"), 358, 72, 105, 41)
- GUISetState(@SW_SHOW)
- GUISetState(@SW_DISABLE, $F_UniversalScraper)
- #EndRegion ### END Koda GUI section ###
-
- If StringLower(_XML_Read('Profil/General/Mix', 0, "", $oXMLProfil)) = "true" Then
- GUICtrlSetData($I_Width, _Coalesce(IniRead($iINIPath, "LAST_USE", "$vTarget_Image_Width", ""), _XML_Read("Profil/General/Target_Width", 0, $iPathMixTmp & "\config.xml")))
- GUICtrlSetData($I_Height, _Coalesce(IniRead($iINIPath, "LAST_USE", "$vTarget_Image_Height", ""), _XML_Read("Profil/General/Target_Height", 0, $iPathMixTmp & "\config.xml")))
- Else
- GUICtrlSetData($I_Width, _Coalesce(IniRead($iINIPath, "LAST_USE", "$vTarget_Image_Width", ""), _XML_Read("Profil/General/Target_Image_Width", 0, "", $oXMLProfil)))
- GUICtrlSetData($I_Height, _Coalesce(IniRead($iINIPath, "LAST_USE", "$vTarget_Image_Height", ""), _XML_Read("Profil/General/Target_Image_Height", 0, "", $oXMLProfil)))
- EndIf
-
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE, $B_CONFANNUL
- GUIDelete($F_CONFIG)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- _LOG("Image Configuration Canceled", 0, $iLOGPath)
- Return
- Case $B_CONFENREG
- IniWrite($iINIPath, "LAST_USE", "$vTarget_Image_Width", GUICtrlRead($I_Width))
- IniWrite($iINIPath, "LAST_USE", "$vTarget_Image_Height", GUICtrlRead($I_Height))
- $vPicExt = GUICtrlRead($C_PicExt)
- If $vPicExt = "defaut" Then $vPicExt = ""
- IniWrite($iINIPath, "LAST_USE", "$vTarget_Image_Ext", $vPicExt)
- _LOG("Image Configuration Saved", 0, $iLOGPath)
- _LOG("------------------------", 1, $iLOGPath)
- _LOG("$vTarget_Image_Width = " & GUICtrlRead($I_Width), 1, $iLOGPath)
- _LOG("$vTarget_Image_Height = " & GUICtrlRead($I_Height), 1, $iLOGPath)
- _LOG("$vTarget_Image_Ext = " & $vPicExt, 1, $iLOGPath)
- GUIDelete($F_CONFIG)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- Return
- EndSwitch
- WEnd
-EndFunc ;==>_GUI_Config_Image
-
-Func _GUI_Config_MIX($iMIXPath, $iPathMixTmp, $vCancelButton = 0)
- Local $vMIXListC = ""
- $aMIXList = _FileListToArrayRec($iMIXPath, "*.zip", $FLTAR_FILES, $FLTAR_NORECUR, $FLTAR_SORT, $FLTAR_NOPATH)
- For $vBoucle = 1 To UBound($aMIXList) - 1
- $vMIXListC = $vMIXListC & "|" & StringTrimRight($aMIXList[$vBoucle], 4)
- Next
-
- $vMIXLast = _Coalesce(_XML_Read("/Profil/Name", 1, $iPathMixTmp & "\config.xml"), StringTrimRight($aMIXList[1], 4), -1)
- _Unzip($iMIXPath & "\" & $vMIXLast & ".zip", $iPathMixTmp)
-
- #Region ### START Koda GUI section ### Form=
- $F_MIXIMAGE = GUICreate(_MultiLang_GetText("win_config_mix_Title"), 830, 425, -1, -1, BitOR($WS_POPUP, $WS_BORDER), -1, $F_UniversalScraper)
- $P_UXS = GUICtrlCreatePic(@ScriptDir & "\" & "Ressources\Images\UXS_Wizard_Half.jpg", 5, 263, 100, 160, -1, -1)
- $G_MIXSelection = GUICtrlCreateGroup("Votre Mix", 5, 1, 820, 260, -1, -1)
- GUICtrlSetBkColor(-1, "0xF0F0F0")
- $L_MIXSelection = GUICtrlCreateLabel("Quel type de Mix souhaitez vous :", 13, 21, 214, 25, $SS_CENTERIMAGE, -1)
- GUICtrlSetBkColor(-1, "-2")
- $P_Empty = GUICtrlCreatePic("", 13, 53, 400, 200, -1, -1)
- GUICtrlSetTip(-1, _MultiLang_GetText("win_config_mix_empty"))
- $P_Full = GUICtrlCreatePic("", 420, 53, 400, 200, -1, -1)
- GUICtrlSetTip(-1, _MultiLang_GetText("win_config_mix_exemple"))
- $C_MIXIMAGE = GUICtrlCreateCombo("", 200, 21, 620, 21, BitOR($CBS_AUTOHSCROLL, $CBS_DROPDOWN), -1)
- GUICtrlSetData($C_MIXIMAGE, $vMIXListC, $vMIXLast)
- $B_OK = GUICtrlCreateButton(_MultiLang_GetText("win_config_mix_Enreg"), 725, 393, 100, 30, -1, -1)
- $B_CANCEL = GUICtrlCreateButton(_MultiLang_GetText("win_config_mix_Cancel"), 620, 393, 100, 30, -1, -1)
- If $vCancelButton = 1 Then GUICtrlSetState(-1, $GUI_HIDE)
- $B_LINK = GUICtrlCreateButton("Link", 515, 393, 100, 30, -1, -1)
- $E_Description = GUICtrlCreateEdit("", 110, 269, 715, 115, BitOR($ES_AUTOVSCROLL, $ES_READONLY, $WS_VSCROLL), -1)
- GUISetState(@SW_SHOW)
- GUISetState(@SW_DISABLE, $F_UniversalScraper)
- #EndRegion ### END Koda GUI section ###
-
- $vMIXExempleEmptyPath = $iPathMixTmp & "\" & _XML_Read("/Profil/General/Empty_Exemple", 0, $iPathMixTmp & "\config.xml")
- $vMIXExempleFullPath = $iPathMixTmp & "\" & _XML_Read("/Profil/General/Full_Exemple", 0, $iPathMixTmp & "\config.xml")
- GUICtrlSetImage($P_Empty, $vMIXExempleEmptyPath)
- GUICtrlSetImage($P_Full, $vMIXExempleFullPath)
- $vDescription = "Author : " & _Coalesce(_XML_Read("/Profil/Infos/Author", 0, $iPathMixTmp & "\config.xml"), "", -1)
- $vDescription = $vDescription & @CRLF & "Description :" & @CRLF & StringReplace(_Coalesce(_XML_Read("/Profil/Infos/Description", 0, $iPathMixTmp & "\config.xml"), "", -1), "@CRLF", @CRLF)
- GUICtrlSetData($E_Description, $vDescription)
- $vLink = _Coalesce(_XML_Read("/Profil/Infos/Link", 0, $iPathMixTmp & "\config.xml"), "", -1)
- If $vLink = "" Then
- GUICtrlSetState($B_LINK, $GUI_HIDE)
- Else
- GUICtrlSetState($B_LINK, $GUI_SHOW)
- EndIf
-
- While 1
- Local $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE, $B_CANCEL
- DirRemove($iPathMixTmp, 1)
- DirCreate($iPathMixTmp)
- $vResult = _Unzip($iMIXPath & "\" & $vMIXLast & ".zip", $iPathMixTmp)
- If $vResult < 0 Then
- Switch $vResult
- Case 1
- _LOG("not a Zip file", 2, $iLOGPath)
- Case 2
- _LOG("Impossible to unzip", 2, $iLOGPath)
- Case Else
- _LOG("Unknown Zip Error (" & @error & ")", 2, $iLOGPath)
- EndSwitch
- EndIf
- IniWrite($iINIPath, "LAST_USE", "$vMixImage", $vMIXLast)
- GUIDelete($F_MIXIMAGE)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- _LOG("MIX Configuration Canceled", 0, $iLOGPath)
- Return -1
- Case $B_OK
- $vMix = GUICtrlRead($C_MIXIMAGE)
- IniWrite($iINIPath, "LAST_USE", "$vTarget_Image_Width", "")
- IniWrite($iINIPath, "LAST_USE", "$vTarget_Image_Height", "")
- IniWrite($iINIPath, "LAST_USE", "$vMixImage", $vMix)
- _LOG("MIX Configuration Saved : " & $vMix, 0, $iLOGPath)
- GUIDelete($F_MIXIMAGE)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- Return $vMix
- Case $B_LINK
- $vLink = _Coalesce(_XML_Read("/Profil/Infos/Link", 0, $iPathMixTmp & "\config.xml"), "", -1)
- ShellExecute($vLink)
- Case $C_MIXIMAGE
- If GUICtrlRead($C_MIXIMAGE) <> _XML_Read("/Profil/Name", 1, $iPathMixTmp & "\config.xml") Then
- DirRemove($iPathMixTmp, 1)
- DirCreate($iPathMixTmp)
- $vResult = _Unzip($iMIXPath & "\" & GUICtrlRead($C_MIXIMAGE) & ".zip", $iPathMixTmp)
- If $vResult < 0 Then
- Switch $vResult
- Case 1
- _LOG("not a Zip file", 2, $iLOGPath)
- Case 2
- _LOG("Impossible to unzip", 2, $iLOGPath)
- Case Else
- _LOG("Unknown Zip Error (" & @error & ")", 2, $iLOGPath)
- EndSwitch
- EndIf
- $vMIXExempleEmptyPath = $iPathMixTmp & "\" & _XML_Read("/Profil/General/Empty_Exemple", 0, $iPathMixTmp & "\config.xml")
- $vMIXExempleFullPath = $iPathMixTmp & "\" & _XML_Read("/Profil/General/Full_Exemple", 0, $iPathMixTmp & "\config.xml")
- GUICtrlSetImage($P_Empty, $vMIXExempleEmptyPath)
- GUICtrlSetImage($P_Full, $vMIXExempleFullPath)
- $vDescription = "Author : " & _XML_Read("/Profil/Infos/Author", 0, $iPathMixTmp & "\config.xml")
- $vDescription = $vDescription & @CRLF & "Description :" & @CRLF & StringReplace(_XML_Read("/Profil/Infos/Description", 0, $iPathMixTmp & "\config.xml"), "@CRLF", @CRLF)
- GUICtrlSetData($E_Description, $vDescription)
- $vLink = _Coalesce(_XML_Read("/Profil/Infos/Link", 0, $iPathMixTmp & "\config.xml"), "", -1)
- If $vLink = "" Then
- GUICtrlSetState($B_LINK, $GUI_HIDE)
- Else
- GUICtrlSetState($B_LINK, $GUI_SHOW)
- EndIf
- EndIf
- EndSwitch
- WEnd
-
-EndFunc ;==>_GUI_Config_MIX
-
-Func _GUI_Config_MIX_Download()
- Local $vMIXListC = "", $vLastMIX = "", $aMIXList
- Local $vMIXExempleEmptyPath = $iRessourcesPath & "\Images\Temp\Empty_exemple.jpg"
- Local $vMIXExempleFullPath = $iRessourcesPath & "\Images\Temp\Full_exemple.jpg"
- Local $vMIXDescriptionPath = $iRessourcesPath & "\Images\Temp\Description.txt"
-
- Local $Result = _DownloadWRetry("https://raw.githubusercontent.com/Universal-Rom-Tools/Universal-XML-Scraper/master/MIX%20Repository/_MIXList.txt", $iRessourcesPath & "\_MIXList.txt")
- Switch $Result
- Case -1
- _LOG("Error downloading _MIXList", 2, $iLOGPath)
- Return 0
- Case -2
- _LOG("Time Out downloading _MIXList", 2, $iLOGPath)
- Return 0
- EndSwitch
- _FileReadToArray($Result, $aMIXList)
- For $vBoucle = 1 To UBound($aMIXList) - 1
- $vMIXListC = $vMIXListC & "|" & $aMIXList[$vBoucle]
- Next
-
- #Region ### START Koda GUI section ### Form=
- $F_MIXIMAGE = GUICreate(_MultiLang_GetText("win_config_mix_Download_Title"), 830, 425, -1, -1, BitOR($WS_POPUP, $WS_BORDER), -1, $F_UniversalScraper)
- $P_UXS = GUICtrlCreatePic(@ScriptDir & "\" & "Ressources\Images\UXS_Wizard_Half.jpg", 5, 263, 100, 160, -1, -1)
- $G_MIXSelection = GUICtrlCreateGroup("Votre Mix", 5, 1, 820, 260, -1, -1)
- GUICtrlSetBkColor(-1, "0xF0F0F0")
- $L_MIXSelection = GUICtrlCreateLabel("Quel type de Mix souhaitez vous :", 13, 21, 214, 25, $SS_CENTERIMAGE, -1)
- GUICtrlSetBkColor(-1, "-2")
- $P_Empty = GUICtrlCreatePic("", 13, 53, 400, 200, -1, -1)
- GUICtrlSetTip(-1, _MultiLang_GetText("win_config_mix_empty"))
- $P_Full = GUICtrlCreatePic("", 420, 53, 400, 200, -1, -1)
- GUICtrlSetTip(-1, _MultiLang_GetText("win_config_mix_exemple"))
- $C_MIXIMAGE = GUICtrlCreateCombo("", 200, 21, 620, 21, BitOR($CBS_AUTOHSCROLL, $CBS_DROPDOWN), -1)
- GUICtrlSetData($C_MIXIMAGE, $vMIXListC)
- $B_OK = GUICtrlCreateButton(_MultiLang_GetText("win_config_mix_Download_Download"), 725, 393, 100, 30, -1, -1)
- $B_CANCEL = GUICtrlCreateButton(_MultiLang_GetText("win_config_mix_Download_Exit"), 620, 393, 100, 30, -1, -1)
- $B_LINK = GUICtrlCreateButton("Link", 515, 393, 100, 30, -1, -1)
- GUICtrlSetState(-1, $GUI_HIDE)
- $E_Description = GUICtrlCreateEdit("", 110, 269, 715, 115, BitOR($ES_AUTOVSCROLL, $ES_READONLY, $WS_VSCROLL), -1)
- GUISetState(@SW_SHOW)
- GUISetState(@SW_DISABLE, $F_UniversalScraper)
- #EndRegion ### END Koda GUI section ###
-
- While 1
- Local $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE, $B_CANCEL
- GUIDelete($F_MIXIMAGE)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- _LOG("MIX Download Exit", 0, $iLOGPath)
- Return
- Case $B_OK
- $vMIXURL = 'https://raw.githubusercontent.com/Universal-Rom-Tools/Universal-XML-Scraper/master/MIX Repository/' & GUICtrlRead($C_MIXIMAGE) & '.zip'
- _DownloadWRetry($vMIXURL, $iMIXPath & "\" & GUICtrlRead($C_MIXIMAGE) & '.zip')
- _LOG("MIX Download : " & GUICtrlRead($C_MIXIMAGE), 0, $iLOGPath)
- GUIDelete($F_MIXIMAGE)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- Return
- Case $C_MIXIMAGE
- If GUICtrlRead($C_MIXIMAGE) <> $vLastMIX Then
- $vMIXExempleURL = 'https://raw.githubusercontent.com/Universal-Rom-Tools/Universal-XML-Scraper/master/MIX Repository/Preview/' & GUICtrlRead($C_MIXIMAGE) & '/'
- $vMIXExempleEmptyPath = _DownloadWRetry($vMIXExempleURL & "Empty_exemple.jpg", $vMIXExempleEmptyPath)
- $vMIXExempleFullPath = _DownloadWRetry($vMIXExempleURL & "Full_exemple.jpg", $vMIXExempleFullPath)
- GUICtrlSetImage($P_Empty, $vMIXExempleEmptyPath)
- GUICtrlSetImage($P_Full, $vMIXExempleFullPath)
- $vMIXDescriptionURL = 'https://raw.githubusercontent.com/Universal-Rom-Tools/Universal-XML-Scraper/master/MIX Repository/Preview/' & GUICtrlRead($C_MIXIMAGE) & '/'
- ConsoleWrite($vMIXDescriptionURL & "Description.txt" & @CRLF)
- $vMIXDescriptionPath = _DownloadWRetry($vMIXDescriptionURL & "Description.txt", $vMIXDescriptionPath)
- $vDescription = StringReplace(FileRead($vMIXDescriptionPath), @LF, @CRLF)
- GUICtrlSetData($E_Description, $vDescription)
- $vLastMIX = GUICtrlRead($C_MIXIMAGE)
- EndIf
- EndSwitch
- WEnd
-
-EndFunc ;==>_GUI_Config_MIX_Download
-
-Func _GUI_Config_MISC()
- Local $aRechFiles = StringSplit(IniRead($iINIPath, "LAST_USE", "$vRechFiles", "*.*|*.xml;*.txt;*.dv;*.fs;*.xor;*.drv;*.dat;*.cfg;*.nv;*.sav*|"), '|', $STR_ENTIRESPLIT + $STR_NOCOUNT)
- Local $aScrapeMode = StringSplit(_MultiLang_GetText("win_config_MISC_GroupMISC_ScrapeModeChoice"), '|', $STR_ENTIRESPLIT + $STR_NOCOUNT)
- Local $aScrapeSearchMode = StringSplit(_MultiLang_GetText("win_config_MISC_GroupMISC_ScrapeSearchModeChoice"), '|', $STR_ENTIRESPLIT + $STR_NOCOUNT)
- Local $aVerbose = StringSplit(_MultiLang_GetText("win_config_MISC_GroupMISC_VerboseChoice"), '|', $STR_ENTIRESPLIT + $STR_NOCOUNT)
- Local $vNbThreadDefault = 0, $vRootPathOnPI = ""
-
- #Region ### START Koda GUI section ### Form=
- $F_CONFIG = GUICreate(_MultiLang_GetText("win_config_MISC_Title"), 475, 372, -1, -1, -1, BitOR($WS_EX_TOPMOST, $WS_EX_WINDOWEDGE))
- $G_Misc = GUICtrlCreateGroup(_MultiLang_GetText("win_config_MISC_GroupMISC"), 8, 0, 225, 321)
- $L_CountryPref = GUICtrlCreateLabel(_MultiLang_GetText("win_config_MISC_GroupMISC_CountryPref"), 16, 15)
- $I_CountryPref = GUICtrlCreateInput(IniRead($iINIPath, "LAST_USE", "$vCountryPref", ""), 16, 34, 209, 21)
- $L_LangPref = GUICtrlCreateLabel(_MultiLang_GetText("win_config_MISC_GroupMISC_LangPref"), 16, 60)
- $I_LangPref = GUICtrlCreateInput(IniRead($iINIPath, "LAST_USE", "$vLangPref", ""), 16, 80, 209, 21)
- $L_ScrapeMode = GUICtrlCreateLabel(_MultiLang_GetText("win_config_MISC_GroupMISC_ScrapeMode"), 16, 108)
- $C_ScrapeMode = GUICtrlCreateCombo("", 16, 128, 209, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE))
- GUICtrlSetData($C_ScrapeMode, _MultiLang_GetText("win_config_MISC_GroupMISC_ScrapeModeChoice"), $aScrapeMode[IniRead($iINIPath, "LAST_USE", "$vScrape_Mode", 0)])
- $L_ScrapeSearchMode = GUICtrlCreateLabel(_MultiLang_GetText("win_config_MISC_GroupMISC_ScrapeSearchMode"), 16, 156)
- $C_ScrapeSearchMode = GUICtrlCreateCombo("", 16, 176, 209, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE))
- GUICtrlSetData($C_ScrapeSearchMode, _MultiLang_GetText("win_config_MISC_GroupMISC_ScrapeSearchModeChoice"), $aScrapeSearchMode[IniRead($iINIPath, "LAST_USE", "$vScrapeSearchMode", 0)])
- $L_Verbose = GUICtrlCreateLabel(_MultiLang_GetText("win_config_MISC_GroupMISC_Verbose"), 16, 204)
- $C_Verbose = GUICtrlCreateCombo("", 16, 224, 209, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE))
- GUICtrlSetData($C_Verbose, _MultiLang_GetText("win_config_MISC_GroupMISC_VerboseChoice"), $aVerbose[IniRead($iINIPath, "GENERAL", "$vVerbose", 0)])
- $CB_MissingRom_Mode = GUICtrlCreateCheckbox(_MultiLang_GetText("win_config_MISC_GroupMISC_MissingMode"), 16, 252)
- $CB_RechSys = GUICtrlCreateCheckbox(_MultiLang_GetText("win_config_MISC_GroupMISC_RechSys"), 16, 274)
-;~ $CB_Mirror = GUICtrlCreateCheckbox(_MultiLang_GetText("win_config_MISC_GroupMISC_Mirror"), 16, 296)
- $CB_ScrapeZip = GUICtrlCreateCheckbox(_MultiLang_GetText("win_config_MISC_GroupMISC_ScrapeZip"), 16, 296)
- GUICtrlCreateGroup("", -99, -99, 1, 1)
- $G_ScreenScraper = GUICtrlCreateGroup(_MultiLang_GetText("win_config_MISC_GroupScreenScraper"), 240, 0, 225, 153)
- $L_SSLogin = GUICtrlCreateLabel(_MultiLang_GetText("win_config_MISC_GroupScreenScraper_Login"), 248, 15)
- $I_SSLogin = GUICtrlCreateInput(IniRead($iINIPath, "LAST_USE", "$vSSLogin", ""), 248, 34, 113, 21)
- $L_SSPassword = GUICtrlCreateLabel(_MultiLang_GetText("win_config_MISC_GroupScreenScraper_Password"), 248, 61)
- $I_SSPassword = GUICtrlCreateInput(BinaryToString(_Crypt_DecryptData(IniRead($iINIPath, "LAST_USE", "$vSSPassword", ""), "1gdf1g1gf", $CALG_RC4)), 248, 80, 113, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_PASSWORD))
- $L_Thread = GUICtrlCreateLabel(_MultiLang_GetText("win_config_MISC_GroupScreenScraper_NbThread"), 376, 15)
- $C_Thread = GUICtrlCreateCombo("1", 376, 34, 81, 21, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE))
- GUICtrlSetData($C_Thread, "", "")
- $B_SSCheck = GUICtrlCreateButton(_MultiLang_GetText("win_config_MISC_GroupScreenScraper_Check"), 368, 80, 91, 21)
- $B_SSRegister = GUICtrlCreateButton(_MultiLang_GetText("win_config_MISC_GroupScreenScraper_SSRegister"), 248, 112, 211, 25)
- GUICtrlCreateGroup("", -99, -99, 1, 1)
- $G_RechFiles = GUICtrlCreateGroup(_MultiLang_GetText("win_config_MISC_GroupRechFiles"), 240, 160, 225, 161)
- $L_Include = GUICtrlCreateLabel(_MultiLang_GetText("win_config_MISC_GroupRechFiles_Include"), 248, 175)
- $I_Include = GUICtrlCreateInput($aRechFiles[0], 248, 194, 209, 21)
- $L_Exclude = GUICtrlCreateLabel(_MultiLang_GetText("win_config_MISC_GroupRechFiles_Exclude"), 248, 220)
- $I_Exclude = GUICtrlCreateInput($aRechFiles[1], 248, 240, 209, 21)
- $L_ExcludeFolder = GUICtrlCreateLabel(_MultiLang_GetText("win_config_MISC_GroupRechFiles_ExcludeFolder"), 248, 268)
- $I_ExcludeFolder = GUICtrlCreateInput($aRechFiles[2], 248, 288, 209, 21)
- GUICtrlCreateGroup("", -99, -99, 1, 1)
- $G_Experimental = GUICtrlCreateGroup("Experimental", 8, 320, 225, 49)
- $CB_SSHHash = GUICtrlCreateCheckbox("SSH HASH", 16, 340, 89, 17)
- $B_Local_RomPath = GUICtrlCreateButton("Rom Path", 112, 336, 115, 25)
- GUICtrlCreateGroup("", -99, -99, 1, 1)
- $B_CONFENREG = GUICtrlCreateButton(_MultiLang_GetText("win_config_Enreg"), 240, 328, 105, 33)
- $B_CONFANNUL = GUICtrlCreateButton(_MultiLang_GetText("win_config_Cancel"), 358, 328, 105, 33)
- GUISetState(@SW_SHOW)
- GUISetState(@SW_DISABLE, $F_UniversalScraper)
- #EndRegion ### END Koda GUI section ###
-
- GUICtrlSetState($CB_MissingRom_Mode, $GUI_UNCHECKED)
- If IniRead($iINIPath, "LAST_USE", "$vMissingRom_Mode", "0") = "1" Then GUICtrlSetState($CB_MissingRom_Mode, $GUI_CHECKED)
- GUICtrlSetState($CB_RechSys, $GUI_UNCHECKED)
- If IniRead($iINIPath, "LAST_USE", "$vRechSYS", "1") = "1" Then GUICtrlSetState($CB_RechSys, $GUI_CHECKED)
- GUICtrlSetState($CB_ScrapeZip, $GUI_UNCHECKED)
- If IniRead($iINIPath, "LAST_USE", "$vScrapeZip", "0") = "1" Then GUICtrlSetState($CB_ScrapeZip, $GUI_CHECKED)
- GUICtrlSetState($CB_SSHHash, $GUI_UNCHECKED)
- GUICtrlSetState($B_Local_RomPath, $GUI_DISABLE)
- If IniRead($iINIPath, "LAST_USE", "$vHashOnPI", "0") = "1" Then
- GUICtrlSetState($CB_SSHHash, $GUI_CHECKED)
- GUICtrlSetState($B_Local_RomPath, $GUI_ENABLE)
- EndIf
-
- $vNbThread = IniRead($iINIPath, "LAST_USE", "$vNbThread", "1")
- $vTEMPPathSSCheck = $iScriptPath & "\Ressources\SSCheck.xml"
- $vSSLogin = GUICtrlRead($I_SSLogin) ;$vSSLogin
- $vSSPassword = GUICtrlRead($I_SSPassword) ;$vSSPassword
-
- $vTEMPPathSSCheck = _DownloadWRetry($iURLScraper & "api/ssuserInfos.php?devid=" & $iDevId & "&devpassword=" & $iDevPassword & "&softname=" & $iSoftname & "&output=XML&ssid=" & $vSSLogin & "&sspassword=" & $vSSPassword, $vTEMPPathSSCheck)
- $vNbThreadMax = _Coalesce(Number(_XML_Read("/Data/ssuser/maxthreads", 0, $vTEMPPathSSCheck)), 1)
- _LOG("SS Check ssid=" & $vSSLogin & " maxthreads = " & $vNbThreadMax, 1, $iLOGPath)
-
- $vNbThreadC = ""
- For $vBoucle = 1 To $vNbThreadMax
- $vNbThreadC = $vNbThreadC & $vBoucle & "|"
- Next
-
- If $vNbThread > $vNbThreadMax Then $vNbThread = $vNbThreadMax
- GUICtrlSetData($C_Thread, $vNbThreadC, $vNbThread)
-
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE, $B_CONFANNUL
- GUIDelete($F_CONFIG)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- _LOG("MISC Configuration Canceled", 0, $iLOGPath)
- Return
- Case $B_Local_RomPath
- $vRootPathOnPI = InputBox("Local Path to the Rom folder", "Enter the local path to the general rom folder from the root (ex : /recalbox/share/roms)", "", "", -1, -1, Default, Default, 0, $F_CONFIG)
- Case $CB_SSHHash
- If _IsChecked($CB_SSHHash) Then
- GUICtrlSetState($B_Local_RomPath, $GUI_ENABLE)
- Else
- GUICtrlSetState($B_Local_RomPath, $GUI_DISABLE)
- EndIf
- Case $B_CONFENREG
- IniWrite($iINIPath, "LAST_USE", "$vScrape_Mode", StringLeft(GUICtrlRead($C_ScrapeMode), 1))
- IniWrite($iINIPath, "LAST_USE", "$vScrapeSearchMode", StringLeft(GUICtrlRead($C_ScrapeSearchMode), 1))
- IniWrite($iINIPath, "GENERAL", "$vVerbose", StringLeft(GUICtrlRead($C_Verbose), 1))
- $iVerboseLVL = StringLeft(GUICtrlRead($C_Verbose), 1)
- IniWrite($iINIPath, "LAST_USE", "$vMissingRom_Mode", 0)
- If _IsChecked($CB_MissingRom_Mode) Then IniWrite($iINIPath, "LAST_USE", "$vMissingRom_Mode", 1)
- IniWrite($iINIPath, "LAST_USE", "$vRechSYS", 0)
- If _IsChecked($CB_RechSys) Then IniWrite($iINIPath, "LAST_USE", "$vRechSYS", 1)
- IniWrite($iINIPath, "LAST_USE", "$vScrapeZip", 0)
- If _IsChecked($CB_ScrapeZip) Then IniWrite($iINIPath, "LAST_USE", "$vScrapeZip", 1)
-
- If _IsChecked($CB_SSHHash) Then
- IniWrite($iINIPath, "LAST_USE", "$vHashOnPI", 1)
- IniWrite($iINIPath, "LAST_USE", "$vRootPathOnPI", $vRootPathOnPI)
- Else
- IniWrite($iINIPath, "LAST_USE", "$vHashOnPI", 0)
- EndIf
-
- IniWrite($iINIPath, "LAST_USE", "$vRechFiles", GUICtrlRead($I_Include) & "|" & GUICtrlRead($I_Exclude) & "|" & GUICtrlRead($I_ExcludeFolder))
- $vCountryPref = GUICtrlRead($I_CountryPref) ;$vCountryPref
- IniWrite($iINIPath, "LAST_USE", "$vCountryPref", $vCountryPref)
- $vLangPref = GUICtrlRead($I_LangPref) ;$vLangPref
- IniWrite($iINIPath, "LAST_USE", "$vLangPref", $vLangPref)
- $vSSLogin = GUICtrlRead($I_SSLogin) ;$vSSLogin
- IniWrite($iINIPath, "LAST_USE", "$vSSLogin", $vSSLogin)
- $vSSPassword = _Crypt_EncryptData(GUICtrlRead($I_SSPassword), "1gdf1g1gf", $CALG_RC4) ;$vSSPassword
- IniWrite($iINIPath, "LAST_USE", "$vSSPassword", $vSSPassword)
- IniWrite($iINIPath, "LAST_USE", "$vNbThread", GUICtrlRead($C_Thread))
- _LOG("Thread selected = " & GUICtrlRead($C_Thread), 1, $iLOGPath)
- GUIDelete($F_CONFIG)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- Return GUICtrlRead($C_Thread)
- Case $B_SSRegister
- _LOG("Launch Internet Browser to Register", 0, $iLOGPath)
- ShellExecute("http://www.screenscraper.fr/membreinscription.php")
- Case $B_SSCheck
- GUICtrlSetData($C_Thread, "", "")
- $vTEMPPathSSCheck = $iScriptPath & "\Ressources\SSCheck.xml"
- $vSSLogin = GUICtrlRead($I_SSLogin) ;$vSSLogin
- $vSSPassword = GUICtrlRead($I_SSPassword) ;$vSSPassword
- $vTEMPPathSSCheck = _DownloadWRetry($iURLScraper & "api/ssuserInfos.php?devid=" & $iDevId & "&devpassword=" & $iDevPassword & "&softname=" & $iSoftname & "&output=XML&ssid=" & $vSSLogin & "&sspassword=" & $vSSPassword, $vTEMPPathSSCheck)
-
- $vSSLevel = Number(_XML_Read("/Data/ssuser/niveau", 0, $vTEMPPathSSCheck))
-
- $vNbThreadMax = _Coalesce(Number(_XML_Read("/Data/ssuser/maxthreads", 0, $vTEMPPathSSCheck)), 1)
- _LOG("SS Check ssid=" & $vSSLogin & " maxthreads = " & $vNbThreadMax, 1, $iLOGPath)
-
- Switch $vSSLevel
- Case 0
- $vNbThreadMax = 1
- _LOG("Not Registered", 0, $iLOGPath)
- MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), _MultiLang_GetText("err_NotRegistered"), 10, $F_CONFIG)
- Case 499 To 9999999
- $vNbThreadMax = 99
- _LOG("God Mode", 0, $iLOGPath)
- MsgBox($MB_ICONWARNING, _MultiLang_GetText("mess_ssregister_title"), _MultiLang_GetText("mess_ssregister_GodMode"), 10, $F_CONFIG)
- Case Else
- _LOG("Nb Thread Available : " & $vNbThreadMax, 0, $iLOGPath)
- MsgBox($MB_ICONINFORMATION, _MultiLang_GetText("mess_ssregister_title"), _MultiLang_GetText("mess_ssregister_OK") & " " & $vNbThreadMax & " Threads", 10, $F_CONFIG)
- EndSwitch
- $iURLScraper = _TestServer($vNbThreadMax)
-
- $vNbThreadC = ""
- For $vBoucle = 1 To $vNbThreadMax
- $vNbThreadC = $vNbThreadC & $vBoucle & "|"
- Next
- If $vNbThreadMax > 5 Then
- $vNbThreadDefault = 5
- Else
- $vNbThreadDefault = $vNbThreadMax
- EndIf
- GUICtrlSetData($C_Thread, $vNbThreadC, $vNbThreadDefault)
- EndSwitch
- WEnd
-EndFunc ;==>_GUI_Config_MISC
-
-Func _GUI_Config_LU()
- #Region ### START Koda GUI section ### Form=
- $F_CONFIG = GUICreate(_MultiLang_GetText("win_config_LU_Title"), 477, 209, -1, -1, -1, BitOR($WS_EX_TOPMOST, $WS_EX_WINDOWEDGE))
- $G_Scrape = GUICtrlCreateGroup(_MultiLang_GetText("win_config_LU_GroupScrap"), 8, 0, 225, 201)
- $L_Source_RomPath = GUICtrlCreateLabel(_MultiLang_GetText("win_config_LU_GroupScrap_Source_RomPath"), 16, 16)
- GUICtrlSetTip(-1, _MultiLang_GetText("tips_config_GroupScrap_PathRom"))
- $I_Source_RomPath = GUICtrlCreateInput(IniRead($iINIPath, "LAST_USE", "$vSource_RomPath", ""), 16, 35, 177, 21)
- $B_Source_RomPath = GUICtrlCreateButton("...", 198, 35, 27, 21)
- $L_Target_XMLName = GUICtrlCreateLabel(_MultiLang_GetText("win_config_LU_GroupScrap_Target_XMLName"), 16, 63)
- GUICtrlSetTip(-1, _MultiLang_GetText("tips_config_GroupScrap_PathXML"))
- $I_Target_XMLName = GUICtrlCreateInput(IniRead($iINIPath, "LAST_USE", "$vTarget_XMLName", ""), 16, 83, 177, 21)
- $B_Target_XMLName = GUICtrlCreateButton("...", 198, 83, 27, 21)
- $L_Target_RomPath = GUICtrlCreateLabel(_MultiLang_GetText("win_config_LU_GroupScrap_Target_RomPath"), 16, 108)
- GUICtrlSetTip(-1, _MultiLang_GetText("tips_config_GroupScrap_PathRomSub"))
- $I_Target_RomPath = GUICtrlCreateInput(IniRead($iINIPath, "LAST_USE", "$vTarget_RomPath", ""), 16, 128, 177, 21)
- GUICtrlCreateGroup("", -99, -99, 1, 1)
- $G_Image = GUICtrlCreateGroup(_MultiLang_GetText("win_config_LU_GroupImage"), 240, 0, 225, 113)
- $L_Source_ImagePath = GUICtrlCreateLabel(_MultiLang_GetText("win_config_LU_GroupImage_Source_ImagePath"), 248, 15)
- GUICtrlSetTip(-1, _MultiLang_GetText("tips_config_GroupImage_PathImage"))
- $I_Source_ImagePath = GUICtrlCreateInput(IniRead($iINIPath, "LAST_USE", "$vSource_ImagePath", ""), 248, 34, 177, 21)
- $B_Source_ImagePath = GUICtrlCreateButton("...", 430, 34, 27, 21)
- $L_Target_ImagePath = GUICtrlCreateLabel(_MultiLang_GetText("win_config_LU_GroupImage_Target_ImagePath"), 248, 60)
- GUICtrlSetTip(-1, _MultiLang_GetText("tips_config_GroupImage_PathImageSub"))
- $I_Target_ImagePath = GUICtrlCreateInput(IniRead($iINIPath, "LAST_USE", "$vTarget_ImagePath", ""), 248, 80, 177, 21)
- GUICtrlCreateGroup("", -99, -99, 1, 1)
- $B_CONFENREG = GUICtrlCreateButton(_MultiLang_GetText("win_config_Enreg"), 240, 128, 105, 73)
- $B_CONFANNUL = GUICtrlCreateButton(_MultiLang_GetText("win_config_Cancel"), 358, 128, 105, 73)
- GUISetState(@SW_SHOW)
- GUISetState(@SW_DISABLE, $F_UniversalScraper)
- #EndRegion ### END Koda GUI section ###
-
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE, $B_CONFANNUL
- GUIDelete($F_CONFIG)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- _LOG("Path Configuration Canceled", 0, $iLOGPath)
- Return
- Case $B_Target_XMLName
- $vTarget_XMLName = FileSaveDialog(_MultiLang_GetText("win_config_GroupScrap_PathXML"), GUICtrlRead($I_Source_RomPath), "xml (*.xml)", 18, "gamelist.xml", $F_CONFIG)
- If @error Then $vTarget_XMLName = GUICtrlRead($I_Target_XMLName)
- GUICtrlSetData($I_Target_XMLName, $vTarget_XMLName)
- Case $B_Source_RomPath
- $vSource_RomPath = FileSelectFolder(_MultiLang_GetText("win_config_LU_GroupScrap_Source_RomPath"), GUICtrlRead($I_Source_RomPath), $FSF_CREATEBUTTON, GUICtrlRead($I_Source_RomPath), $F_CONFIG)
- GUICtrlSetData($I_Source_RomPath, $vSource_RomPath)
- Case $B_Source_ImagePath
- $vSource_ImagePath = FileSelectFolder(_MultiLang_GetText("win_config_LU_GroupScrap_Source_RomPath"), GUICtrlRead($I_Source_RomPath), $FSF_CREATEBUTTON, GUICtrlRead($I_Source_ImagePath), $F_CONFIG)
- GUICtrlSetData($I_Source_ImagePath, $vSource_ImagePath)
- Case $B_CONFENREG
- $vSource_RomPath = GUICtrlRead($I_Source_RomPath) ;$vSource_RomPath
- If (StringRight($vSource_RomPath, 1) = '\') Then StringTrimRight($vSource_RomPath, 1)
- IniWrite($iINIPath, "LAST_USE", "$vSource_RomPath", $vSource_RomPath)
- $vTarget_XMLName = GUICtrlRead($I_Target_XMLName) ;$vTarget_XMLName
- If StringInStr(FileGetAttrib($vTarget_XMLName), "D") > 0 Then
- MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), "XMLName must be a file, not a folder", 0, $F_CONFIG)
- _LOG("$vTarget_XMLName is a FOLDER = " & $vTarget_XMLName, 2, $iLOGPath)
- ContinueCase
- EndIf
- IniWrite($iINIPath, "LAST_USE", "$vTarget_XMLName", $vTarget_XMLName)
- $vTarget_RomPath = GUICtrlRead($I_Target_RomPath) ;$vTarget_RomPath
- IniWrite($iINIPath, "LAST_USE", "$vTarget_RomPath", $vTarget_RomPath)
- $vSource_ImagePath = GUICtrlRead($I_Source_ImagePath) ;$vSource_ImagePath
- IniWrite($iINIPath, "LAST_USE", "$vSource_ImagePath", $vSource_ImagePath)
- $vTarget_ImagePath = GUICtrlRead($I_Target_ImagePath) ;$vTarget_ImagePath
- IniWrite($iINIPath, "LAST_USE", "$vTarget_ImagePath", $vTarget_ImagePath)
- _LOG("Path Configuration Saved", 0, $iLOGPath)
- _LOG("------------------------", 1, $iLOGPath)
- _LOG("$vTarget_XMLName = " & $vTarget_XMLName, 1, $iLOGPath)
- _LOG("$vSource_RomPath = " & $vSource_RomPath, 1, $iLOGPath)
- _LOG("$vTarget_RomPath = " & $vTarget_RomPath, 1, $iLOGPath)
- _LOG("$vSource_ImagePath = " & $vSource_ImagePath, 1, $iLOGPath)
- _LOG("$vTarget_ImagePath = " & $vTarget_ImagePath, 1, $iLOGPath)
- GUIDelete($F_CONFIG)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- Return
- EndSwitch
- WEnd
-EndFunc ;==>_GUI_Config_LU
-
-Func _GUI_Config_autoconf($oXMLProfil)
- #Region ### START Koda GUI section ### Form=
- $F_CONFIG = GUICreate(_MultiLang_GetText("win_config_autoconf_Title"), 477, 209, -1, -1, -1, BitOR($WS_EX_TOPMOST, $WS_EX_WINDOWEDGE))
- $CB_Autoconf = GUICtrlCreateCheckbox(_MultiLang_GetText("win_config_autoconf_Use"), 8, 8, 225, 33, BitOR($GUI_SS_DEFAULT_CHECKBOX, $BS_CENTER, $BS_VCENTER))
- $G_Scrape = GUICtrlCreateGroup(_MultiLang_GetText("win_config_autoconf_GroupScrap"), 8, 40, 225, 161)
- $L_Source_RootPath = GUICtrlCreateLabel(_MultiLang_GetText("win_config_autoconf_GroupScrap_Source_RootPath"), 16, 56)
- GUICtrlSetTip(-1, _MultiLang_GetText("tips_config_GroupScrap_PathXML"))
- $I_Source_RootPath = GUICtrlCreateInput(_XML_Read("Profil/AutoConf/Source_RootPath", 0, "", $oXMLProfil), 16, 75, 177, 21)
- $B_Source_RootPath = GUICtrlCreateButton("...", 198, 75, 27, 21)
- $L_Target_XMLName = GUICtrlCreateLabel(_MultiLang_GetText("win_config_autoconf_GroupScrap_Target_XMLName"), 16, 103)
- GUICtrlSetTip(-1, _MultiLang_GetText("tips_config_GroupScrap_PathXML"))
- $I_Target_XMLName = GUICtrlCreateInput(_XML_Read("Profil/AutoConf/Target_XMLName", 0, "", $oXMLProfil), 16, 123, 177, 21)
- $L_Target_RomPath = GUICtrlCreateLabel(_MultiLang_GetText("win_config_autoconf_GroupScrap_Target_RomPath"), 16, 153)
- GUICtrlSetTip(-1, _MultiLang_GetText("tips_config_GroupScrap_PathRomSub"))
- $I_Target_RomPath = GUICtrlCreateInput(_XML_Read("Profil/AutoConf/Target_RomPath", 0, "", $oXMLProfil), 16, 173, 177, 21)
- GUICtrlCreateGroup("", -99, -99, 1, 1)
- $G_Image = GUICtrlCreateGroup(_MultiLang_GetText("win_config_autoconf_GroupImage"), 240, 0, 225, 113)
- $L_Source_ImagePath = GUICtrlCreateLabel(_MultiLang_GetText("win_config_autoconf_GroupImage_Source_ImagePath"), 248, 15)
- GUICtrlSetTip(-1, _MultiLang_GetText("tips_config_GroupImage_PathImage"))
- $I_Source_ImagePath = GUICtrlCreateInput(_XML_Read("Profil/AutoConf/Source_ImagePath", 0, "", $oXMLProfil), 248, 34, 177, 21)
- $L_Target_ImagePath = GUICtrlCreateLabel(_MultiLang_GetText("win_config_autoconf_GroupImage_Target_ImagePath"), 248, 60)
- GUICtrlSetTip(-1, _MultiLang_GetText("tips_config_GroupImage_PathImageSub"))
- $I_Target_ImagePath = GUICtrlCreateInput(_XML_Read("Profil/AutoConf/Target_ImagePath", 0, "", $oXMLProfil), 248, 80, 177, 21)
- GUICtrlCreateGroup("", -99, -99, 1, 1)
- $B_CONFENREG = GUICtrlCreateButton(_MultiLang_GetText("win_config_Enreg"), 240, 128, 105, 73)
- $B_CONFANNUL = GUICtrlCreateButton(_MultiLang_GetText("win_config_Cancel"), 358, 128, 105, 73)
- GUISetState(@SW_SHOW)
- GUISetState(@SW_DISABLE, $F_UniversalScraper)
- #EndRegion ### END Koda GUI section ###
-
- GUICtrlSetState($CB_Autoconf, $GUI_UNCHECKED)
- If IniRead($iINIPath, "LAST_USE", "$vAutoconf_Use", 0) = 1 Then GUICtrlSetState($CB_Autoconf, $GUI_CHECKED)
-
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE, $B_CONFANNUL
- GUIDelete($F_CONFIG)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- _LOG("Path Configuration Canceled", 0, $iLOGPath)
- Return
- Case $B_Source_RootPath
- $vSource_RootPath = FileSelectFolder(_MultiLang_GetText("win_config_LU_GroupScrap_Source_RootPath"), GUICtrlRead($I_Source_RootPath), $FSF_CREATEBUTTON, GUICtrlRead($I_Source_RootPath), $F_CONFIG)
- GUICtrlSetData($I_Source_RootPath, $vSource_RootPath)
- Case $B_CONFENREG
- $vSource_RootPath = GUICtrlRead($I_Source_RootPath) ;$vSource_RootPath
- If (StringRight($vSource_RootPath, 1) = '\') Then StringTrimRight($vSource_RootPath, 1)
- _XML_Replace("Profil/AutoConf/Source_RootPath", $vSource_RootPath, 0, "", $oXMLProfil)
- $vTarget_XMLName = GUICtrlRead($I_Target_XMLName) ;$vTarget_XMLName
- If StringInStr(FileGetAttrib($vTarget_XMLName), "D") > 0 Then
- MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), "XMLName must be a file, not a folder", 0, $F_CONFIG)
- _LOG("$vTarget_XMLName is a FOLDER = " & $vTarget_XMLName, 2, $iLOGPath)
- ContinueCase
- EndIf
- _XML_Replace("Profil/AutoConf/Target_XMLName", $vTarget_XMLName, 0, "", $oXMLProfil)
- $vTarget_RomPath = GUICtrlRead($I_Target_RomPath) ;$vTarget_RomPath
- _XML_Replace("Profil/AutoConf/Target_RomPath", $vTarget_RomPath, 0, "", $oXMLProfil)
- $vSource_ImagePath = GUICtrlRead($I_Source_ImagePath) ;$vSource_ImagePath
- _XML_Replace("Profil/AutoConf/Source_ImagePath", $vSource_ImagePath, 0, "", $oXMLProfil)
- $vTarget_ImagePath = GUICtrlRead($I_Target_ImagePath) ;$vTarget_ImagePath
- _XML_Replace("Profil/AutoConf/Target_ImagePath", $vTarget_ImagePath, 0, "", $oXMLProfil)
- If _IsChecked($CB_Autoconf) Then
- $vAutoconf_Use = 1
- Else
- $vAutoconf_Use = 0
- EndIf
-
- IniWrite($iINIPath, "LAST_USE", "$vAutoconf_Use", $vAutoconf_Use)
- _LOG("AutoConf Path Configuration Saved", 0, $iLOGPath)
- _LOG("------------------------", 1, $iLOGPath)
- _LOG("$vSource_RootPath = " & $vSource_RootPath, 1, $iLOGPath)
- _LOG("$vTarget_XMLName = " & $vTarget_XMLName, 1, $iLOGPath)
- _LOG("$vTarget_RomPath = " & $vTarget_RomPath, 1, $iLOGPath)
- _LOG("$vSource_ImagePath = " & $vSource_ImagePath, 1, $iLOGPath)
- _LOG("$vTarget_ImagePath = " & $vTarget_ImagePath, 1, $iLOGPath)
- GUIDelete($F_CONFIG)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- Return 1
- EndSwitch
- WEnd
-EndFunc ;==>_GUI_Config_autoconf
-
-Func _GUI_Config_SSHParameter($oXMLProfil)
- #Region ### START Koda GUI section ### Form=
- $F_SSH = GUICreate("SSH", 234, 130, -1, -1, -1, BitOR($WS_EX_TOPMOST, $WS_EX_WINDOWEDGE))
- $B_CONFENREG = GUICtrlCreateButton(_MultiLang_GetText("win_config_Enreg"), 8, 80, 105, 41)
- $B_CONFANNUL = GUICtrlCreateButton(_MultiLang_GetText("win_config_Cancel"), 121, 80, 105, 41)
- $L_Host = GUICtrlCreateLabel("Host", 16, 10)
- $I_Host = GUICtrlCreateInput(_XML_Read('Profil/Plink/Ip', 0, "", $oXMLProfil), 96, 8, 129, 21)
- $L_Login = GUICtrlCreateLabel("Login", 16, 34)
- $I_Login = GUICtrlCreateInput(_XML_Read('Profil/Plink/Root', 0, "", $oXMLProfil), 96, 32, 129, 21)
- $L_Pwd = GUICtrlCreateLabel("Password", 16, 58)
- $I_Pwd = GUICtrlCreateInput(_XML_Read('Profil/Plink/Pswd', 0, "", $oXMLProfil), 96, 56, 129, 21)
- GUISetState(@SW_SHOW)
- GUISetState(@SW_DISABLE, $F_UniversalScraper)
- #EndRegion ### END Koda GUI section ###
-
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE, $B_CONFANNUL
- GUIDelete($F_SSH)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- _LOG("SSH Parameter Canceled", 0, $iLOGPath)
- Return 0
- Case $B_CONFENREG
- _XML_Replace("Profil/Plink/Ip", GUICtrlRead($I_Host), 0, "", $oXMLProfil)
- _XML_Replace("Profil/Plink/Root", GUICtrlRead($I_Login), 0, "", $oXMLProfil)
- _XML_Replace("Profil/Plink/Pswd", GUICtrlRead($I_Pwd), 0, "", $oXMLProfil)
-
- _LOG("SSH Parameter Saved", 0, $iLOGPath)
- _LOG("------------------------", 1, $iLOGPath)
- _LOG("Host = " & GUICtrlRead($I_Host), 1, $iLOGPath)
- _LOG("Login = " & GUICtrlRead($I_Login), 1, $iLOGPath)
- _LOG("Password = " & GUICtrlRead($I_Pwd), 1, $iLOGPath)
- GUIDelete($F_SSH)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- Return 1
- EndSwitch
- WEnd
-EndFunc ;==>_GUI_Config_SSHParameter
-
-Func _GUI_Refresh($oXMLProfil = -1, $ScrapIP = 0, $vScrapeOK = 0) ;Refresh GUI
- Local $png, $hImage, $Bmp
- If $oXMLProfil <> -1 Then
- If $ScrapIP = 0 Then
- ; GUI Picture
- Local $vSourcePicturePath = _XML_Read("Profil/General/Source_Image", 0, "", $oXMLProfil)
- If $vSourcePicturePath < 0 Then
- $vSourcePicturePath = $iScriptPath & "\ProfilsFiles\Ressources\empty.jpg"
- Else
- $vSourcePicturePath = $iScriptPath & "\ProfilsFiles\Ressources\" & $vSourcePicturePath
- EndIf
-
- GUICtrlSetImage($P_BACKGROUND, $vSourcePicturePath)
-
- If _XML_Read('Profil/Element[@Type="Picture"]/Source_Type', 0, "", $oXMLProfil) = "MIX_Template" Then
- _XML_Replace('Profil/General/Mix', "True", 0, "", $oXMLProfil)
- _XML_Replace('Profil/General/Target_Image_Extension', "png", 0, "", $oXMLProfil)
- _XML_Replace('Profil/Element[@Type="Picture"]/Source_Download_Ext', "png", 0, "", $oXMLProfil)
- _XML_Replace('Profil/Element[@Type="Picture Alt"]/Source_Download_Ext', "png", 0, "", $oXMLProfil)
- _GDIPlus_Startup()
- $png = $iScriptPath & "\Ressources\Images\MIX.png"
- $hImage = _GDIPlus_ImageLoadFromFile($png)
- $Bmp = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
- _WinAPI_DeleteObject(GUICtrlSendMsg($P_MIX, $STM_SETIMAGE, $IMAGE_BITMAP, $Bmp))
- GUISetState()
- _WinAPI_DeleteObject($Bmp)
- _GDIPlus_ImageDispose($hImage)
- _GDIPlus_Shutdown()
-
- GUICtrlSetState($MC_Miximage, $GUI_ENABLE)
- Else
- _XML_Replace('Profil/General/Mix', "False", 0, "", $oXMLProfil)
- _XML_Replace('Profil/General/Target_Image_Extension', "jpg", 0, "", $oXMLProfil)
- _XML_Replace('Profil/Element[@Type="Picture"]/Source_Download_Ext', "jpg", 0, "", $oXMLProfil)
- _XML_Replace('Profil/Element[@Type="Picture Alt"]/Source_Download_Ext', "jpg", 0, "", $oXMLProfil)
- GUICtrlSetImage($P_MIX, "")
- GUICtrlSetState($MC_Miximage, $GUI_DISABLE)
- EndIf
- FileDelete($vProfilsPath)
- _XML_SaveToFile($oXMLProfil, $vProfilsPath)
-
- $vSystemID = _SelectSystem($oXMLSystem, 1)
- If $vSystemID > 0 Then
- Local $aLangPref = StringSplit(IniRead($iINIPath, "LAST_USE", "$vLangPref", ""), "|")
- $vWheelOk = 0
- For $vBoucle = 1 To UBound($aLangPref) - 1
- $vXpath = StringReplace('Data/systeme[id="' & $vSystemID & '"]/medias/media_wheelscarbon/media_wheelcarbon_%LANG%', '%LANG%', $aLangPref[$vBoucle])
- $vURLWheel = _XML_Read($vXpath, 0, $iScriptPath & "\Ressources\systemlist.xml") & "&maxwidth=120&maxheight=60"
- If $vURLWheel <> -1 And $vURLWheel <> "&maxwidth=120&maxheight=60" Then
- _DownloadWRetry($vURLWheel, $iScriptPath & "\Ressources\Images\Temp\Wheel.png")
- $vBoucle = UBound($aLangPref) - 1
- $vWheelOk += 1
- EndIf
- Next
- If $vWheelOk > 0 Then
- _GDIPlus_Startup()
- $png = $iScriptPath & "\Ressources\Images\Temp\Wheel.png"
- $hImage = _GDIPlus_ImageLoadFromFile($png)
- $Bmp = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
- _WinAPI_DeleteObject(GUICtrlSendMsg($P_WHEEL, $STM_SETIMAGE, $IMAGE_BITMAP, $Bmp))
- GUISetState()
- _WinAPI_RedrawWindow($F_UniversalScraper)
- _WinAPI_DeleteObject($Bmp)
- _GDIPlus_ImageDispose($hImage)
- _GDIPlus_Shutdown()
- Else
- GUICtrlSetImage($P_WHEEL, "")
- EndIf
- Else
- GUICtrlSetImage($P_WHEEL, "")
- EndIf
-
- ;Overall Menu
- Local $vSystem = StringSplit(IniRead($iINIPath, "LAST_USE", "$vSource_RomPath", ""), "\")
- $vSystem = $vSystem[UBound($vSystem) - 1]
-
- GUICtrlSetState($MF, $GUI_ENABLE)
- GUICtrlSetData($MF, _MultiLang_GetText("mnu_file"))
- GUICtrlSetData($MF_Exit, _MultiLang_GetText("mnu_file_exit"))
-
- GUICtrlSetState($MC, $GUI_ENABLE)
- GUICtrlSetData($MC, _MultiLang_GetText("mnu_cfg"))
- GUICtrlSetData($MC_Wizard, _MultiLang_GetText("mnu_cfg_Wizard"))
- GUICtrlSetData($MC_Config_LU, _MultiLang_GetText("mnu_cfg_config_LU"))
- GUICtrlSetData($MC_config_autoconf, _MultiLang_GetText("mnu_cfg_config_autoconf"))
- GUICtrlSetData($MC_config_PIC, _MultiLang_GetText("mnu_cfg_config_PIC"))
- GUICtrlSetData($MC_config_MISC, _MultiLang_GetText("mnu_cfg_config_MISC"))
- GUICtrlSetData($MC_MixDownload, _MultiLang_GetText("mnu_cfg_download_miximage"))
- GUICtrlSetData($MC_Profil, _MultiLang_GetText("mnu_cfg_profil"))
- GUICtrlSetData($MC_Miximage, _MultiLang_GetText("mnu_cfg_miximage"))
- GUICtrlSetData($MC_Langue, _MultiLang_GetText("mnu_cfg_langue"))
-
- GUICtrlSetState($MOption, $GUI_ENABLE)
- GUICtrlSetData($MOption, _MultiLang_GetText("mnu_cfg_config_Option"))
-
-
- GUICtrlSetState($MS, $GUI_ENABLE)
- GUICtrlSetData($MS, _MultiLang_GetText("mnu_scrape"))
- GUICtrlSetData($MS_AutoConfig, _MultiLang_GetText("mnu_scrape_autoconf"))
- GUICtrlSetData($MS_Scrape, _MultiLang_GetText("mnu_scrape_solo") & " - " & $vSystem)
- GUICtrlSetData($MS_FullScrape, _MultiLang_GetText("mnu_scrape_fullscrape"))
-
- GUICtrlSetData($MP_Parameter, _MultiLang_GetText("mnu_ssh_Parameter"))
-
- ;SSH Menu
- If _XML_NodeExists($oXMLProfil, "Profil/Plink/Ip") = $XML_RET_FAILURE Then
- _LOG("SSH Disable", 1, $iLOGPath)
- GUICtrlSetState($MP, $GUI_DISABLE)
- If IsArray($MP_) Then
- For $vBoucle = 1 To UBound($MP_) - 1
- GUICtrlDelete($MP_[$vBoucle])
- Next
- EndIf
-
- Else
- _LOG("SSH Enable", 1, $iLOGPath)
- GUICtrlSetState($MP, $GUI_ENABLE)
- GUICtrlSetData($MP, _MultiLang_GetText("mnu_ssh"))
- If IsArray($MP_) Then
- For $vBoucle = 1 To UBound($MP_) - 1
- GUICtrlDelete($MP_[$vBoucle])
- Next
- EndIf
- $aPlink_Command = _XML_ListNode("Profil/Plink/Command", "", $oXMLProfil)
- If IsArray($aPlink_Command) Then
- Dim $MP_[UBound($aPlink_Command)]
- For $vBoucle = 1 To UBound($aPlink_Command) - 1
- $MP_[$vBoucle] = GUICtrlCreateMenuItem(_MultiLang_GetText("mnu_ssh_" & $aPlink_Command[$vBoucle][0]), $MP)
- Next
- EndIf
- EndIf
-
- GUICtrlSetState($MH, $GUI_ENABLE)
- GUICtrlSetData($MH, _MultiLang_GetText("mnu_help"))
- GUICtrlSetData($MH_About, _MultiLang_GetText("mnu_help_about"))
- GUICtrlSetData($MH_Help, _MultiLang_GetText("mnu_help_wiki"))
- GUICtrlSetData($MH_Support, _MultiLang_GetText("mnu_help_support"))
- GUICtrlSetData($MH_Link, _MultiLang_GetText("mnu_help_link"))
-
- GUICtrlSetData($B_SCRAPE, _MultiLang_GetText("scrap_button"))
- _GUICtrlStatusBar_SetText($L_SCRAPE, "")
-
- If IniRead($iINIPath, "LAST_USE", "$vSource_RomPath", "") = "" Then
- GUICtrlSetState($MS_Scrape, $GUI_DISABLE)
- GUICtrlSetState($B_SCRAPE, $GUI_DISABLE)
- Else
- GUICtrlSetState($MS_Scrape, $GUI_ENABLE)
- GUICtrlSetState($B_SCRAPE, $GUI_ENABLE)
- EndIf
-
- _LOG("GUI Refresh", 1, $iLOGPath)
-
- Else
- _LOG("GUI Desactivated (Scrape in progress)", 1, $iLOGPath)
- GUICtrlSetState($MF, $GUI_DISABLE)
- GUICtrlSetState($MC, $GUI_DISABLE)
- GUICtrlSetState($MOption, $GUI_DISABLE)
- GUICtrlSetState($MS, $GUI_DISABLE)
- GUICtrlSetState($MP, $GUI_DISABLE)
- GUICtrlSetState($MH, $GUI_DISABLE)
- GUICtrlSetData($B_SCRAPE, _MultiLang_GetText("scrap_cancel_button"))
- EndIf
- EndIf
- Return
-EndFunc ;==>_GUI_Refresh
-
-Func _GUI_Update($iChangelogPath, $F_UniversalScraper = "")
- Local $fChangelog = StringReplace(FileRead($iChangelogPath), @LF, @CRLF)
-
- #Region ### START Koda GUI section ### Form=
- $F_Update = GUICreate(_MultiLang_GetText("mess_update_Title"), 605, 381, 192, 124)
- $P_Update = GUICtrlCreatePic($iScriptPath & "\Ressources\Images\UXS.jpg", 0, 0, 604, 380)
- GUICtrlSetState(-1, $GUI_DISABLE)
- $E_Changelog = GUICtrlCreateEdit($fChangelog, 8, 8, 585, 273, $ES_AUTOVSCROLL + $WS_VSCROLL + $ES_READONLY)
- $B_UPDATE = GUICtrlCreateButton(_MultiLang_GetText("mess_update_Question"), 8, 296, 275, 25)
- $B_CONFANNUL = GUICtrlCreateButton(_MultiLang_GetText("win_config_Cancel"), 320, 296, 275, 25)
- GUISetState(@SW_SHOW)
- #EndRegion ### END Koda GUI section ###
-
- If IsHWnd($F_UniversalScraper) Then GUISetState(@SW_DISABLE, $F_UniversalScraper)
-
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE, $B_CONFANNUL
- GUIDelete($F_Update)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- Return
- Case $B_UPDATE
- GUIDelete($F_Update)
- _LOG("Open GitHub Release Webpage", 0, $iLOGPath)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- ShellExecute("https://github.com/Universal-Rom-Tools/Universal-XML-Scraper/releases")
- Return
- EndSwitch
- WEnd
-
-EndFunc ;==>_GUI_Update
-
-Func _GUI_Log($F_UniversalScraper = "")
- _LOG("When you clic 'CANCEL' Log will be ready to be paste in http://pastebin.com/", 0, $iLOGPath)
- Local $sDrive, $sDir, $sFileName, $sExtension, $vLogList = ""
- Local $flog = StringReplace(FileRead($iLOGPath), @LF, @CRLF)
- Local $aPathSplit = _PathSplit($iLOGPath, $sDrive, $sDir, $sFileName, $sExtension)
- $aLogList = _FileListToArrayRec($sDrive & $sDir, "*", $FLTAR_FILES, $FLTAR_NORECUR, $FLTAR_SORT, $FLTAR_FULLPATH)
- For $vBoucle = 1 To UBound($aLogList) - 1
- $vLogList = $vLogList & $aLogList[$vBoucle] & "|"
- Next
-
- #Region ### START Koda GUI section ### Form=
- $F_Log = GUICreate("Log", 605, 381, 192, 124)
- $P_Log = GUICtrlCreatePic($iScriptPath & "\Ressources\Images\UXS.jpg", 0, 0, 604, 380)
- GUICtrlSetState(-1, $GUI_DISABLE)
- $E_log = GUICtrlCreateEdit($flog, 8, 8, 585, 273, $ES_AUTOVSCROLL + $WS_VSCROLL + $ES_READONLY)
- $C_Log = GUICtrlCreateCombo("", 8, 296, 275, 25)
- GUICtrlSetData($C_Log, $vLogList, $iLOGPath)
- $B_CONFANNUL = GUICtrlCreateButton(_MultiLang_GetText("win_config_Cancel"), 320, 296, 275, 25)
- GUISetState(@SW_SHOW)
- #EndRegion ### END Koda GUI section ###
-
- If IsHWnd($F_UniversalScraper) Then GUISetState(@SW_DISABLE, $F_UniversalScraper)
-
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE
- GUIDelete($F_Log)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- Return
- Case $C_Log
- Local $flog = StringReplace(FileRead(GUICtrlRead($C_Log)), @LF, @CRLF)
- GUICtrlSetData($E_log, $flog)
- Case $B_CONFANNUL
- GUIDelete($F_Log)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- ClipPut($flog)
- Return
- EndSwitch
- WEnd
-
-EndFunc ;==>_GUI_Log
-
-Func _Check_autoconf($oXMLProfil)
- $vAutoconf_Use = IniRead($iINIPath, "LAST_USE", "$vAutoconf_Use", "-1")
- If $vAutoconf_Use = "-1" Then
- If MsgBox(BitOR($MB_ICONQUESTION, $MB_YESNO), _MultiLang_GetText("mess_autoconf_ask_Title"), _MultiLang_GetText("mess_autoconf_ask_Question")) = $IDYES Then
- $vAutoconf_Use = 1
- Else
- $vAutoconf_Use = 0
- EndIf
- EndIf
- IniWrite($iINIPath, "LAST_USE", "$vAutoconf_Use", $vAutoconf_Use)
-
- Local $vSource_RootPath = _XML_Read("Profil/AutoConf/Source_RootPath", 0, "", $oXMLProfil)
- Local $vTarget_XMLName = _XML_Read("Profil/AutoConf/Target_XMLName", 0, "", $oXMLProfil)
- Local $vTarget_RomPath = _XML_Read("Profil/AutoConf/Target_RomPath", 0, "", $oXMLProfil)
- Local $vSource_ImagePath = _XML_Read("Profil/AutoConf/Source_ImagePath", 0, "", $oXMLProfil)
- Local $vTarget_ImagePath = _XML_Read("Profil/AutoConf/Target_ImagePath", 0, "", $oXMLProfil)
-
- If $vSource_RootPath = "" Or $vAutoconf_Use = 0 Then
- GUICtrlSetState($MS_AutoConfig, $GUI_DISABLE)
- GUICtrlSetState($MS_FullScrape, $GUI_DISABLE)
- Return -1
- EndIf
-
- If IsHWnd($F_UniversalScraper) Then GUISetState(@SW_DISABLE, $F_UniversalScraper)
- SplashTextOn(_MultiLang_GetText("mnu_edit_autoconf"), _MultiLang_GetText("mess_autoconf"), 400, 50)
- If StringRight($vSource_RootPath, 1) = '\' Then $vSource_RootPath = StringTrimRight($vSource_RootPath, 1)
- $aDIRList = _FileListToArrayRec($vSource_RootPath, "*", $FLTAR_FOLDERS, $FLTAR_NORECUR, $FLTAR_SORT, $FLTAR_RELPATH)
- If IsArray($aDIRList) Then
- If IsArray($MS_AutoConfigItem) Then
- For $B_ArrayDelete = 1 To UBound($MS_AutoConfigItem) - 1
- GUICtrlSetState($MS_AutoConfigItem[$B_ArrayDelete], $GUI_UNCHECKED)
- GUICtrlDelete($MS_AutoConfigItem[$B_ArrayDelete])
- Next
- EndIf
-
- GUICtrlSetState($MS_AutoConfig, $GUI_ENABLE)
- GUICtrlSetState($MS_FullScrape, $GUI_ENABLE)
- Dim $MS_AutoConfigItem[UBound($aDIRList)]
- For $vBoucle = 1 To 5
- _ArrayColInsert($aDIRList, $vBoucle)
- Next
- For $vBoucle = 1 To UBound($aDIRList) - 1
- $aDIRList[$vBoucle][1] = $vSource_RootPath & "\" & $aDIRList[$vBoucle][0]
- $aDIRList[$vBoucle][2] = _ReplacePath($vTarget_RomPath, $aDIRList, $vBoucle, $vSource_RootPath)
- $aDIRList[$vBoucle][3] = _ReplacePath($vTarget_XMLName, $aDIRList, $vBoucle, $vSource_RootPath)
- $aDIRList[$vBoucle][4] = _ReplacePath($vSource_ImagePath, $aDIRList, $vBoucle, $vSource_RootPath)
- $aDIRList[$vBoucle][5] = _ReplacePath($vTarget_ImagePath, $aDIRList, $vBoucle, $vSource_RootPath)
- $MS_AutoConfigItem[$vBoucle] = GUICtrlCreateMenuItem($aDIRList[$vBoucle][0], $MS_AutoConfig)
- Next
-;~ _ArrayDisplay($aDIRList, "$aDIRList") ; Debug
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- SplashOff()
- Return $aDIRList
- Else
- GUICtrlSetState($MS_AutoConfig, $GUI_DISABLE)
- GUICtrlSetState($MS_FullScrape, $GUI_DISABLE)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- SplashOff()
- MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), _MultiLang_GetText("err_autoconfPathRom"))
- IniWrite($iINIPath, "LAST_USE", "$vAutoconf_Use", 0)
- Return -1
- EndIf
-EndFunc ;==>_Check_autoconf
-
-Func _ReplacePath($vPath, $aDIRList, $vBoucle, $vSource_RootPath)
- Local $sDrive, $sDir, $sFileName, $sExtension
- Local $aPathSplit = _PathSplit($aDIRList[$vBoucle][1], $sDrive, $sDir, $sFileName, $sExtension)
- Local $vPathOld = $vPath
- $vPath = StringReplace($vPath, "%host%", $sDrive)
- $vPath = StringReplace($vPath, "%SystemDir%", $aDIRList[$vBoucle][1])
- $vPath = StringReplace($vPath, "%System%", $aDIRList[$vBoucle][0])
- $vPath = StringReplace($vPath, "%Source_RootPath%", $vSource_RootPath)
-;~ _LOG("ReplacePath : " & $vPathOld & " In : " & $vPath, 1, $iLOGPath) ; Debug
- Return $vPath
-EndFunc ;==>_ReplacePath
-
-Func _Check_Cancel()
- If GUIGetMsg() = $B_SCRAPE Or $vScrapeCancelled = 1 Then
- _LOG("Scrape Cancelled", 0, $iLOGPath)
- $vScrapeCancelled = 1
- Return False
- Else
- $vScrapeCancelled = 0
- Return True
- EndIf
-EndFunc ;==>_Check_Cancel
-
-Func _RomList_Create($aConfig, $vFullScrape = 0, $oXMLProfil = "")
- Local $sDrive = "", $sDir = "", $sFileName = "", $sExtension = "", $aPathSplit
- $vRechFiles = IniRead($iINIPath, "LAST_USE", "$vRechFiles ", "*.*z*")
- Local $vPicDir = StringSplit($aConfig[3], "\")
- $vPipeCount = StringSplit($vRechFiles, "|")
- If $vPipeCount[0] = 2 Then $vRechFiles = $vRechFiles & "|"
-
- If StringRight($vRechFiles, 1) = "|" Then
- $vRechFiles = $vRechFiles & $vPicDir[UBound($vPicDir) - 1]
- Else
- $vRechFiles = $vRechFiles & ";" & $vPicDir[UBound($vPicDir) - 1]
- EndIf
- _LOG("Listing ROM (" & $vRechFiles & ")", 1, $iLOGPath)
- $aRomList = _FileListToArrayRec($aConfig[1], $vRechFiles, $FLTAR_FILES, $FLTAR_RECUR, $FLTAR_SORT)
-
- If @error = 1 Then
- _LOG("Invalid Rom Path : " & $aConfig[1], 2, $iLOGPath)
- If $vFullScrape = 0 Then MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), _MultiLang_GetText("err_PathRom"))
- Return -1
- EndIf
- If @error = 4 Then
- _LOG("No rom in " & $aConfig[1], 2, $iLOGPath)
- If $vFullScrape = 0 Then MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), _MultiLang_GetText("err_FillRomList"))
- Return -1
- EndIf
-
- For $vBoucle = 1 To 12
- _ArrayColInsert($aRomList, $vBoucle)
- Next
-
- _LOG(UBound($aRomList) - 1 & " Rom(s) found", 0, $iLOGPath)
-
- For $vBoucle = 1 To UBound($aRomList) - 1
- $aRomList[$vBoucle][1] = $aConfig[1] & "\" & $aRomList[$vBoucle][0] ; Full Path
- $aPathSplit = _PathSplit($aRomList[$vBoucle][0], $sDrive, $sDir, $sFileName, $sExtension)
- $aRomList[$vBoucle][2] = $aPathSplit[3] ; Filename (without extension)
- $aRomList[$vBoucle][9] = -1 ;Rom Found
- Next
-
- $vSpecial = _XML_Read("Profil/General/Special", 0, "", $oXMLProfil)
- Switch StringLower($vSpecial)
- Case "folder"
- ConsoleWrite("!" & $vSpecial & @CRLF)
- For $vBoucle = 1 To UBound($aRomList) - 1
- $aPathSplit = StringSplit($aRomList[$vBoucle][1], '\')
- _ArrayAdd($aRomList, $aPathSplit[UBound($aPathSplit) - 2] & '|' & $aRomList[$vBoucle][1] & '|' & $aRomList[$vBoucle][2] & '|4||||||-1')
- Next
- EndSwitch
-
-;~ _ArrayDisplay($aRomList, "$aRomList") ; Debug
-
- Return $aRomList
-EndFunc ;==>_RomList_Create
-
-Func _Check_Rom2Scrape($aRomList, $vNoRom, $aXMLRomList, $vTarget_RomPath, $vScrape_Mode, $aExtToHide = "", $aValueToHide = "")
- Local $sDrive = "", $sDir = "", $sFileName = "", $sExtension = "", $aPathSplit
-
- If $aRomList[$vNoRom][3] > 0 Then Return $aRomList
-
- If IsArray($aExtToHide) Then
- $aPathSplit = _PathSplit($aRomList[$vNoRom][0], $sDrive, $sDir, $sFileName, $sExtension)
- $aFindDuplicate = _ArrayFindAll($aRomList, $sFileName, 0, 0, 0, 0, 2)
- For $vBoucle = 1 To UBound($aExtToHide) - 1
- If StringLeft($aExtToHide[$vBoucle], 1) <> "." Then $aExtToHide[$vBoucle] = "." & $aExtToHide[$vBoucle]
- If UBound($aFindDuplicate) > 1 And $sExtension = $aExtToHide[$vBoucle] Then
- $aRomList[$vNoRom][3] = 2
- _LOG($aRomList[$vNoRom][2] & " To Hide", 1, $iLOGPath)
- Return $aRomList
- EndIf
- Next
- EndIf
-
- If IsArray($aValueToHide) Then
- For $vBoucle = 1 To UBound($aValueToHide) - 1
- If StringInStr($aRomList[$vNoRom][0], $aValueToHide[$vBoucle]) Then
- $aRomList[$vNoRom][3] = 3
- _LOG($aRomList[$vNoRom][2] & " To Hide", 1, $iLOGPath)
- Return $aRomList
- EndIf
- Next
- EndIf
-
- Switch $vScrape_Mode
- Case 0
- _LOG($aRomList[$vNoRom][2] & " To Scrape ($vScrape_Mode=0)", 1, $iLOGPath)
- If $aRomList[$vNoRom][3] < 2 Then $aRomList[$vNoRom][3] = 1
- Return $aRomList
- Case 2
- _LOG($aRomList[$vNoRom][2] & " To Scrape ($vScrape_Mode=2)", 1, $iLOGPath)
- If $aRomList[$vNoRom][3] < 2 Then $aRomList[$vNoRom][3] = 1
- Return $aRomList
- Case Else
- If IsArray($aXMLRomList) Then
- If _ArraySearch($aXMLRomList, $vTarget_RomPath & StringReplace($aRomList[$vNoRom][0], "\", "/"), 0, 0, 0, 0, 1, 2) <> -1 Then
- _LOG($aRomList[$vNoRom][2] & " NOT Scraped ($vScrape_Mode=1)", 1, $iLOGPath)
- If $aRomList[$vNoRom][3] < 2 Then $aRomList[$vNoRom][3] = 0
- Return $aRomList
- EndIf
- EndIf
- _LOG($aRomList[$vNoRom][2] & " To Scrape ($vScrape_Mode=1)", 1, $iLOGPath)
- If $aRomList[$vNoRom][3] < 2 Then $aRomList[$vNoRom][3] = 1
- Return $aRomList
- EndSwitch
- Return $aRomList
-EndFunc ;==>_Check_Rom2Scrape
-
-Func _CalcHash($aRomList, $vNoRom, $oXMLProfil)
-;~ _ArrayDisplay($aRomList, "$aRomList") ; Debug
- Local $TimerHashCRC = "N/A", $TimerHashMD5 = "N/A", $TimerHashSHA1 = "N/A"
- If Not _Check_Cancel() Then Return $aRomList
- $TimerHash = TimerInit()
- _GUICtrlStatusBar_SetText($L_SCRAPE, "Hashing " & $aRomList[$vNoRom][2])
- $aRomList[$vNoRom][4] = FileGetSize($aRomList[$vNoRom][1])
- If IniRead($iINIPath, "LAST_USE", "$vHashOnPI", "0") = "1" Then
- $TimerHashMD5 = TimerInit()
- $vSysName = StringSplit(IniRead($iINIPath, "LAST_USE", "$vSource_RomPath", ""), "\")
- $vSysName = $vSysName[UBound($vSysName) - 1]
- $vRootPathOnPI = IniRead($iINIPath, "LAST_USE", "$vRootPathOnPI", "/recalbox/share/roms")
- $vPathtoHash = $vRootPathOnPI & "/" & $vSysName & "/" & StringReplace($aRomList[$vNoRom][0], "\", "/")
- $vPlinkCommand = '"' & "md5sum " & StringReplace(StringReplace($vPathtoHash, " ", "\ "), "'", "\'") & '"'
- _LOG("$vPlinkCommand : " & $vPlinkCommand, 1, $iLOGPath)
- $aPlinkReturn = StringSplit(_Plink($oXMLProfil, $vPlinkCommand, 1), " ", $STR_NOCOUNT)
- $aRomList[$vNoRom][6] = $aPlinkReturn[0]
- $TimerHashMD5 = Round((TimerDiff($TimerHashMD5) / 1000), 2)
- _LOG("Rom Info (" & $aRomList[$vNoRom][0] & ") Hash in " & Round((TimerDiff($TimerHash) / 1000), 2) & "s", 0, $iLOGPath)
- _LOG("MD5 : " & $aRomList[$vNoRom][6] & "(" & $TimerHashMD5 & "s)", 1, $iLOGPath)
- Return $aRomList
- EndIf
-
- If IniRead($iINIPath, "LAST_USE", "$vScrapeSearchMode", "0") = "2" Then
- _LOG("QUICK Mode ", 1, $iLOGPath)
- Else
- $TimerHashMD5 = TimerInit()
- $aRomList[$vNoRom][6] = _MD5ForFile($aRomList[$vNoRom][1])
- $TimerHashMD5 = Round((TimerDiff($TimerHashMD5) / 1000), 2)
- If Int(($aRomList[$vNoRom][4] / 1048576)) < 500 Then
- $TimerHashSHA1 = TimerInit()
- $aRomList[$vNoRom][7] = _SHA1ForFile($aRomList[$vNoRom][1])
- $TimerHashSHA1 = Round((TimerDiff($TimerHashSHA1) / 1000), 2)
- EndIf
- If Int(($aRomList[$vNoRom][4] / 1048576)) < 50 Then
- $TimerHashCRC = TimerInit()
- $aRomList[$vNoRom][5] = StringRight(_CRC32ForFile($aRomList[$vNoRom][1]), 8)
- $TimerHashCRC = Round((TimerDiff($TimerHashCRC) / 1000), 2)
- EndIf
- EndIf
- _LOG("Rom Info (" & $aRomList[$vNoRom][0] & ") Hash in " & Round((TimerDiff($TimerHash) / 1000), 2) & "s", 0, $iLOGPath)
- _LOG("Size : " & $aRomList[$vNoRom][4], 1, $iLOGPath)
- _LOG("CRC32 : " & $aRomList[$vNoRom][5] & "(" & $TimerHashCRC & "s)", 1, $iLOGPath)
- _LOG("MD5 : " & $aRomList[$vNoRom][6] & "(" & $TimerHashMD5 & "s)", 1, $iLOGPath)
- _LOG("SHA1 : " & $aRomList[$vNoRom][7] & "(" & $TimerHashSHA1 & "s)", 1, $iLOGPath)
- Return $aRomList
-EndFunc ;==>_CalcHash
-
-Func _XMLSystem_Create($vSSLogin = "test", $vSSPassword = "test")
- Local $oXMLSystem, $vXMLSystemPath = $iScriptPath & "\Ressources\systemlist.xml"
- $vXMLSystemPath = _DownloadWRetry($iURLScraper & "api/systemesListe.php?devid=" & $iDevId & "&devpassword=" & $iDevPassword & "&softname=" & $iSoftname & "&output=XML&ssid=" & $vSSLogin & "&sspassword=" & BinaryToString(_Crypt_DecryptData($vSSPassword, "1gdf1g1gf", $CALG_RC4)), $vXMLSystemPath, 3, 40)
- Switch $vXMLSystemPath
- Case -1
- MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), _MultiLang_GetText("err_UXSGlobal") & @CRLF & _MultiLang_GetText("err_Connection"))
- Return -1
- Case -2
- MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), _MultiLang_GetText("err_UXSGlobal") & @CRLF & _MultiLang_GetText("err_TimeOut"))
- Return -1
- Case Else
- $oXMLSystem = _XML_Open($vXMLSystemPath)
- If $oXMLSystem = -1 Then
- MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), _MultiLang_GetText("err_UXSGlobal") & @CRLF & _MultiLang_GetText("err_SystemList"))
- Return -1
- Else
- _LOG("systemlist.xml Opened", 1, $iLOGPath)
- Return $oXMLSystem
- EndIf
- EndSwitch
-EndFunc ;==>_XMLSystem_Create
-
-Func _XMLCountry_Create($vSSLogin = "test", $vSSPassword = "test")
- Local $oXMLCountry, $vXMLCountryPath = $iScriptPath & "\Ressources\Countrylist.xml"
- $vXMLCountryPath = _DownloadWRetry($iURLScraper & "api/regionsListe.php?devid=" & $iDevId & "&devpassword=" & $iDevPassword & "&softname=" & $iSoftname & "&output=XML&ssid=" & $vSSLogin & "&sspassword=" & BinaryToString(_Crypt_DecryptData($vSSPassword, "1gdf1g1gf", $CALG_RC4)), $vXMLCountryPath)
- Switch $vXMLCountryPath
- Case -1
- MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), _MultiLang_GetText("err_UXSGlobal") & @CRLF & _MultiLang_GetText("err_Connection"))
- Return -1
- Case -2
- MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), _MultiLang_GetText("err_UXSGlobal") & @CRLF & _MultiLang_GetText("err_TimeOut"))
- Return -1
- Case Else
- $oXMLCountry = _XML_Open($vXMLCountryPath)
- If $oXMLCountry = -1 Then
- MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), _MultiLang_GetText("err_UXSGlobal") & @CRLF & _MultiLang_GetText("err_SystemList"))
- Return -1
- Else
- _LOG("Countrylist.xml Opened", 1, $iLOGPath)
- Return $oXMLCountry
- EndIf
- EndSwitch
-EndFunc ;==>_XMLCountry_Create
-
-Func _XMLGenre_Create($vSSLogin = "test", $vSSPassword = "test")
- Local $oXMLGenre, $vXMLGenrePath = $iScriptPath & "\Ressources\Genresliste.xml"
- $vXMLGenrePath = _DownloadWRetry($iURLScraper & "api/genresListe.php?devid=" & $iDevId & "&devpassword=" & $iDevPassword & "&softname=" & $iSoftname & "&output=XML&ssid=" & $vSSLogin & "&sspassword=" & BinaryToString(_Crypt_DecryptData($vSSPassword, "1gdf1g1gf", $CALG_RC4)), $vXMLGenrePath)
- Switch $vXMLGenrePath
- Case -1
- MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), _MultiLang_GetText("err_UXSGlobal") & @CRLF & _MultiLang_GetText("err_Connection"))
- Return -1
- Case -2
- MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), _MultiLang_GetText("err_UXSGlobal") & @CRLF & _MultiLang_GetText("err_TimeOut"))
- Return -1
- Case Else
- $oXMLGenre = _XML_Open($vXMLGenrePath)
- If $oXMLGenre = -1 Then
- MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), _MultiLang_GetText("err_UXSGlobal") & @CRLF & _MultiLang_GetText("err_SystemList"))
- Return -1
- Else
- _LOG("Genrelist.xml Opened", 1, $iLOGPath)
- Return $oXMLGenre
- EndIf
- EndSwitch
-EndFunc ;==>_XMLGenre_Create
-
-Func _DownloadROMXML($aRomList, $vBoucle, $vSystemID, $vSSLogin = "", $vSSPassword = "", $vScrapeSearchMode = 0, $vForceUpdate = "")
- Local $sDrive = "", $sDir = "", $sFileName = "", $sExtension = "", $aPathSplit
- FileDelete($aRomList[$vBoucle][8])
- If Not _Check_Cancel() Then Return $aRomList
- Local $vXMLRom = $iTEMPPath & "\" & StringRegExpReplace($aRomList[$vBoucle][2], '[\[\]/\|\:\?"\*\\<>]', "") & ".xml"
- $aPathSplit = _PathSplit($aRomList[$vBoucle][0], $sDrive, $sDir, $sFileName, $sExtension)
- $vRomName = _URIEncode($sFileName & $sExtension)
- If $vScrapeSearchMode = 0 Or $vScrapeSearchMode = 1 Then $aRomList[$vBoucle][8] = _DownloadWRetry($iURLScraper & "api/jeuInfos.php?devid=" & $iDevId & "&devpassword=" & $iDevPassword & "&softname=" & $iSoftname & "&output=xml&ssid=" & $vSSLogin & "&sspassword=" & BinaryToString(_Crypt_DecryptData($vSSPassword, "1gdf1g1gf", $CALG_RC4)) & "&crc=" & $aRomList[$vBoucle][5] & "&md5=" & $aRomList[$vBoucle][6] & "&sha1=" & $aRomList[$vBoucle][7] & "&systemeid=" & $vSystemID & "&romtype=rom&romnom=" & $vRomName & "&romtaille=" & $aRomList[$vBoucle][4] & $vForceUpdate, $vXMLRom)
- If StringInStr(FileReadLine($aRomList[$vBoucle][8]), "API") Or (StringInStr(FileReadLine($aRomList[$vBoucle][8]), "Erreur") Or Not FileExists($aRomList[$vBoucle][8])) Then
- $vRomName = _URIEncode($sFileName)
- If $vScrapeSearchMode = 0 Or $vScrapeSearchMode = 2 Then $aRomList[$vBoucle][8] = _DownloadWRetry($iURLScraper & "api/jeuInfos.php?devid=" & $iDevId & "&devpassword=" & $iDevPassword & "&softname=" & $iSoftname & "&output=xml&ssid=" & $vSSLogin & "&sspassword=" & BinaryToString(_Crypt_DecryptData($vSSPassword, "1gdf1g1gf", $CALG_RC4)) & "&crc=&md5=&sha1=&systemeid=" & $vSystemID & "&romtype=rom&romnom=" & $vRomName & "&romtaille=" & $aRomList[$vBoucle][4] & $vForceUpdate, $vXMLRom)
- If StringInStr(FileReadLine($aRomList[$vBoucle][8]), "API") Or (StringInStr(FileReadLine($aRomList[$vBoucle][8]), "Erreur") Or Not FileExists($aRomList[$vBoucle][8])) Then
- FileDelete($aRomList[$vBoucle][8])
- $aRomList[$vBoucle][8] = ""
- $aRomList[$vBoucle][9] = 0
- Return $aRomList
- EndIf
- EndIf
- $aRomList[$vBoucle][9] = 1
- Return $aRomList
-EndFunc ;==>_DownloadROMXML
-
-Func _SelectSystem($oXMLSystem, $vFullScrape = 0)
- Local $vSystem, $vSystemID, $vSystemTEMP
- Local $aSystemListTXT, $aSystemListXML
- Local $vRechSYS = IniRead($iINIPath, "LAST_USE", "$vRechSYS", 1)
-
- $aSystemListXML = _XML_ListValue("Data/systeme/noms/*", "", $oXMLSystem)
-;~ _ArrayDisplay($aSystemListXML, "$aSystemListXML") ;Debug
- _ArrayColInsert($aSystemListXML, 1)
- _ArrayColInsert($aSystemListXML, 1)
- _ArrayDelete($aSystemListXML, 0)
-
- For $vBoucle = 0 To UBound($aSystemListXML) - 1
- $aSystemListXML[$vBoucle][1] = _XML_Read('Data/systeme[noms/* = "' & $aSystemListXML[$vBoucle][0] & '"]/id', 0, "", $oXMLSystem)
- $aSystemListXML[$vBoucle][2] = $aSystemListXML[$vBoucle][1]
- Next
- _ArraySort($aSystemListXML)
-;~ _ArrayDisplay($aSystemListXML, "$aSystemListXML") ;Debug
-
- If $vRechSYS = 1 Or $vFullScrape = 1 Then
- _FileReadToArray($iRessourcesPath & "\systemlist.txt", $aSystemListTXT, $FRTA_NOCOUNT, "|")
-;~ _ArrayDisplay($aSystemListTXT, "$aSystemListTXT") ;Debug
- $vSystem = StringSplit(IniRead($iINIPath, "LAST_USE", "$vSource_RomPath", ""), "\")
- $vSystem = StringLower($vSystem[UBound($vSystem) - 1])
- $iSystem = _ArraySearch($aSystemListTXT, $vSystem)
- If $iSystem > 0 Then
- $vSystemTEMP = $aSystemListTXT[$iSystem][1]
- $iSystem = _ArraySearch($aSystemListXML, $vSystemTEMP)
- If $iSystem > 0 Then
- _LOG("System detected : " & $aSystemListXML[$iSystem][0] & "(" & $aSystemListXML[$iSystem][1] & ")", 0, $iLOGPath)
- Return $aSystemListXML[$iSystem][1]
- EndIf
- EndIf
- _LOG("No system found for : " & $vSystem, 0, $iLOGPath)
- If $vFullScrape = 1 Then Return ""
- EndIf
-
- $vSystemID = _SelectGUI($aSystemListXML, "", "system")
- _LOG("System selected No " & $vSystemID, 0, $iLOGPath)
- Return $vSystemID
-EndFunc ;==>_SelectSystem
-
-Func _Results($aRomList, $vFullTimer, $vFullScrape = 0)
- Local $vTimeTotal, $vTimeMoy = 0, $vNbRom = 0, $vNbRomScraped = 0, $vNbRomOK = 0
- Local $vTitle
- $vNbThread = IniRead($iINIPath, "LAST_USE", "$vNbThread", 1)
- For $vBoucle = 1 To UBound($aRomList) - 1
- $vTimeMoy += $aRomList[$vBoucle][10]
- If $aRomList[$vBoucle][9] = 1 And $aRomList[$vBoucle][12] = 1 Then $vNbRomOK += 1
- If $aRomList[$vBoucle][12] = 1 Then $vNbRomScraped += 1
- Next
- If $vNbRomScraped > 0 Then
- $vTimeMoy = Round($vTimeMoy / $vNbRomScraped, 2) & " sec."
- Else
- $vTimeMoy = 'N/A'
- EndIf
- $vTimeMax = _ArrayMax($aRomList, 1, 0, Default, 10)
- $vTimeTotal = _FormatElapsedTime($vFullTimer)
- If $vNbRomScraped > 0 Then
- $vNbRomOKRatio = Round($vNbRomOK / $vNbRomScraped * 100) & "%"
- Else
- $vNbRomOKRatio = 'N/A'
- EndIf
- If IsArray($aRomList) Then $vNbRom = UBound($aRomList) - 1
-
- _LOG("Results", 0, $iLOGPath)
- _LOG("Roms : = " & $vNbRom, 0, $iLOGPath)
- _LOG("Roms Found = " & $vNbRomOK & "/" & $vNbRomScraped, 0, $iLOGPath)
- _LOG("Average Time by Rom = " & $vTimeMoy, 0, $iLOGPath)
- _LOG("Max Time = " & $vTimeMax, 0, $iLOGPath)
- _LOG("Total Time = " & $vTimeTotal, 0, $iLOGPath)
- _LOG("Nb Thread = " & $vNbThread, 0, $iLOGPath)
-
- If $vFullScrape = 1 Then
- $vTitle = "FullScrape"
- Else
- $vTitle = StringSplit(IniRead($iINIPath, "LAST_USE", "$vSource_RomPath", ""), "\")
- $vTitle = $vTitle[UBound($vTitle) - 1]
- EndIf
-
- If $vScrapeCancelled = 1 Then $vTitle = $vTitle & " (" & _MultiLang_GetText("scrap_cancel_button") & ")"
-
- #Region ### START Koda GUI section ### Form=
- $F_Results = GUICreate(_MultiLang_GetText("win_Results_Title"), 538, 403, -1, -1, BitOR($WS_EX_TOPMOST, $WS_EX_WINDOWEDGE))
- $L_Results = GUICtrlCreateLabel($vTitle, 8, 8, 247, 29)
- GUICtrlSetFont(-1, 15, 800, 0, "MS Sans Serif")
- $L_NbRom = GUICtrlCreateLabel(_MultiLang_GetText("win_Results_FilesFound"), 8, 56)
- $L_NbRomOK = GUICtrlCreateLabel(_MultiLang_GetText("win_Results_RomsFound"), 8, 80)
- $L_NbRomOKRatio = GUICtrlCreateLabel(_MultiLang_GetText("win_Results_PercentFound"), 8, 104)
- $L_TimeMoy = GUICtrlCreateLabel(_MultiLang_GetText("win_Results_MoyTime"), 305, 56)
- $L_TimeTotal = GUICtrlCreateLabel(_MultiLang_GetText("win_Results_FullTime"), 305, 80)
- $L_NbThread = GUICtrlCreateLabel(_MultiLang_GetText("win_Results_NbThread"), 305, 104)
- $L_NbRomValue = GUICtrlCreateLabel($vNbRom, 176, 56)
- $L_NbRomOKValue = GUICtrlCreateLabel($vNbRomOK & "/" & $vNbRomScraped, 176, 80)
- $L_NbRomOKRatioValue = GUICtrlCreateLabel($vNbRomOKRatio, 176, 104)
- $L_TimeMoyValue = GUICtrlCreateLabel($vTimeMoy, 448, 56)
- $L_TimeTotalValue = GUICtrlCreateLabel($vTimeTotal, 448, 80)
- $L_NbThreadValue = GUICtrlCreateLabel($vNbThread, 448, 104)
- $B_OK = GUICtrlCreateButton("OK", 104, 128, 147, 25)
-;~ $B_Missing = GUICtrlCreateButton("Generer le fichier Missing", 288, 128, 147, 25)
- $G_Time = _GraphGDIPlus_Create($F_Results, 25, 160, 500, 190, 0xFF000000, 0xFF34495c)
- $L_Xmin = GUICtrlCreateLabel("1", 26, 355, 10, 17)
- $L_Xmax = GUICtrlCreateLabel($vNbRom, 325, 355, 200, 17, $SS_RIGHT)
- $L_Ymin = GUICtrlCreateLabel("0s", 0, 340, 24, 17, $SS_RIGHT)
- $L_Ymax = GUICtrlCreateLabel(Round($vTimeMax, 1) & "s", 0, 160, 24, 17, $SS_RIGHT)
- GUISetState(@SW_SHOW)
- GUISetState(@SW_DISABLE, $F_UniversalScraper)
- #EndRegion ### END Koda GUI section ###
-
- $vXTicks = 50
- If $vNbRom <= 50 Then $vXTicks = $vNbRom
- _GraphGDIPlus_Set_RangeX($G_Time, 1, Round($vNbRom), Round($vXTicks), 0)
- _GraphGDIPlus_Set_RangeY($G_Time, 0, Round($vTimeMax * 10) + 2, ((Round($vTimeMax)) * 10) + 2, 0)
- _GraphGDIPlus_Set_GridX($G_Time, 1, 0xFF6993BE)
- _GraphGDIPlus_Set_GridY($G_Time, 1, 0xFF6993BE)
- _GraphGDIPlus_Plot_Start($G_Time, 0, 0)
- _GraphGDIPlus_Set_PenColor($G_Time, 0xFFff0000)
- _GraphGDIPlus_Set_PenSize($G_Time, 2)
-
- For $vBoucle = 1 To $vNbRom
- _GraphGDIPlus_Plot_Line($G_Time, $vBoucle, $aRomList[$vBoucle][10] * 10)
- Next
- _GraphGDIPlus_Refresh($G_Time)
-
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE, $B_OK
- _GraphGDIPlus_Delete($F_Results, $G_Time)
- GUIDelete($F_Results)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- Return
-
- EndSwitch
- WEnd
-
-EndFunc ;==>_Results
-
-Func _ScrapeZipContent($aRomList, $vBoucle)
- Local $sDrive = "", $sDir = "", $sFileName = "", $sExtension = ""
- Local $aPathSplit = _PathSplit($aRomList[$vBoucle][0], $sDrive, $sDir, $sFileName, $sExtension)
-
- ; check if it is a ZIP
- If $sExtension <> ".zip" Then
- Return $aRomList
- EndIf
-
- _LOG("File '" & $aRomList[$vBoucle][1] & "' is a ZIP. Scraping contents...", 1, $iLOGPath)
-
- ; now unzip it to a temp folder
- Local $vZipDir = @TempDir & "\" & "UXS_ZIP_Temp_" & $aRomList[$vBoucle][2]
- Local $vZipDirEx = $vZipDir & "\" & "_extract"
- Local $vSrcPath = $vZipDir & "\" & $aRomList[$vBoucle][0]
- DirRemove($vZipDir, 1)
- FileCopy($aRomList[$vBoucle][1], $vSrcPath, $FC_CREATEPATH)
-
- $vResult = _Unzip($vSrcPath, $vZipDirEx)
- If $vResult < 0 Then
- Switch $vResult
- Case 1
- _LOG("not a Zip file", 2, $iLOGPath)
- Return $aRomList
- Case 2
- _LOG("Impossible to unzip", 2, $iLOGPath)
- Return $aRomList
- Case Else
- _LOG("Unknown Zip Error (" & @error & ")", 2, $iLOGPath)
- Return $aRomList
- EndSwitch
- EndIf
-
- ; get a list of all unzipped files
- Local $aZipRomList = _FileListToArrayRec($vZipDirEx, "*", $FLTAR_FILES, $FLTAR_RECUR, $FLTAR_SORT)
- _LOG("Read files from ZIP: " & _ArrayToString($aZipRomList), 1, $iLOGPath)
-
- For $vIdx = 1 To 12
- _ArrayColInsert($aZipRomList, $vIdx)
- Next
-
- For $vIdx = 1 To UBound($aZipRomList) - 1
- $aZipRomList[$vIdx][1] = $vZipDirEx & "\" & $aZipRomList[$vIdx][0]
- $aPathSplit = _PathSplit($aZipRomList[$vIdx][0], $sDrive, $sDir, $sFileName, $sExtension)
- $aZipRomList[$vIdx][2] = $aPathSplit[3]
- $aZipRomList[$vIdx][9] = -1
- Next
-
- ; iterate over them and check if we can match one
- For $vBoucleZip = 1 To UBound($aZipRomList) - 1
- _LOG("Scraping ZIP content file: " & $aZipRomList[$vBoucleZip][0], 1, $iLOGPath)
- If $aZipRomList[$vBoucleZip][3] < 2 Then
- $aZipRomList = _CalcHash($aZipRomList, $vBoucleZip, 0)
- EndIf
- $aZipRomList = _DownloadROMXML($aZipRomList, $vBoucleZip, $aConfig[12], $aConfig[13], $aConfig[14])
- If ($aZipRomList[$vBoucleZip][9] = 1) Then
- _LOG("Found match for ZIP content file: " & $aZipRomList[$vBoucleZip][0], 1, $iLOGPath)
- ; we found a match so copy the match result to the original ZIP and stop
- $aRomList[$vBoucle][8] = $aZipRomList[$vBoucleZip][8]
- $aRomList[$vBoucle][9] = $aZipRomList[$vBoucleZip][9]
- ExitLoop
- EndIf
- Next
- DirRemove($vZipDir, 1)
- Return $aRomList
-EndFunc ;==>_ScrapeZipContent
-
-Func _LaunchEngine($oXMLProfil, $vNbThread = 1)
- Local $vTEMPPathSSCheck, $vNbThreadMax, $aScrapeEngine, $vPID = 1
- _MailSlotClose($hMailSlotCheckEngine)
- $hMailSlotCheckEngine = _CreateMailslot($sMailSlotCheckEngine)
-
- ;Checking NbThread
- $vTEMPPathSSCheck = _DownloadWRetry($iURLScraper & "api/ssuserInfos.php?devid=" & $iDevId & "&devpassword=" & $iDevPassword & "&softname=" & $iSoftname & "&output=XML&ssid=" & $aConfig[13] & "&sspassword=" & BinaryToString(_Crypt_DecryptData($vSSPassword, "1gdf1g1gf", $CALG_RC4)), $iScriptPath & "\Ressources\SSCheck.xml")
- $vNbThreadMax = _Coalesce(Number(_XML_Read("/Data/ssuser/maxthreads", 0, $vTEMPPathSSCheck)), 1)
-
- If $vNbThread > $vNbThreadMax Then
- _LOG("Are you a cheater ? BAD NbThread in INI : " & $vNbThread & "(MAX = " & $vNbThreadMax & ")", 0, $iLOGPath)
- $vNbThread = 1
- IniWrite($iINIPath, "LAST_USE", "$vNbThread", $vNbThread)
- EndIf
-
- $iURLScraper = _TestServer($vNbThread)
-
- Dim $aScrapeEngine[$vNbThread + 1][2]
- Local $vEngineLaunched = 1
- ;Starting Scrape Engine
- While $vEngineLaunched < $vNbThread + 1
- ShellExecute($iScriptPath & "\" & $iScraper, $vEngineLaunched)
- _LOG("Start Scrape Engine Number " & $vEngineLaunched, 1, $iLOGPath)
- ;Checking Scrape Engine
- Local $vEngineTimer = TimerInit()
- While 1
- If _MailSlotGetMessageCount($hMailSlotCheckEngine) >= 1 Then
- $aEngineState = StringSplit(_ReadMessage($hMailSlotCheckEngine), "|", $STR_NOCOUNT)
- $aScrapeEngine[$vEngineLaunched][0] = $aEngineState[0]
- $aScrapeEngine[$vEngineLaunched][1] = $aEngineState[1]
- _LOG("------------------------------------Engine Number " & $aEngineState[0] & " OK", 1, $iLOGPath)
- $vEngineLaunched += 1
- ExitLoop
- EndIf
- If Not _Check_Cancel() Then Return $aScrapeEngine
- If (TimerDiff($vEngineTimer) / 1000) > 20 Then
- _LOG("Scrape Engine " & $vEngineLaunched & " seems to not launch, check Antivirus and firewall", 2, $iLOGPath)
- MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), _MultiLang_GetText("err_UXSGlobal") & @CRLF & _MultiLang_GetText("err_ScrapeEngine"))
- $aScrapeEngine = -1
- Return -1
- EndIf
- WEnd
- WEnd
- Return $aScrapeEngine
-EndFunc ;==>_LaunchEngine
-
-Func _SCRAPE($oXMLProfil, $aScrapeEngine, $vNbThread = 1, $vFullScrape = 0)
- Local $vForceUpdate = ""
- Local $vEngineReady = 0
-
- _MailSlotClose($hMailSlotMother)
- $hMailSlotMother = _CreateMailslot($sMailSlotMother)
-
- DirRemove($iTEMPPath, 1)
- DirCreate($iTEMPPath)
- FileSetAttrib($iTEMPPath, "+H")
- DirCreate($iTEMPPath & "\scraped")
-
- If $aConfig <> 0 Then
- _GUICtrlStatusBar_SetText($L_SCRAPE, "Please Wait... Testing server connection...")
- Local $vScrapeCancelled = 0
- Local $aConfig = _LoadConfig()
- Local $aExtToHide = StringSplit(_XML_Read('/Profil/Element[Source_Value="%AutoHide%"]/AutoHideEXT', 0, "", $oXMLProfil), "|")
- Local $aValueToHide = StringSplit(_XML_Read('/Profil/Element[Source_Value="%AutoHide%"]/AutoHideValue', 0, "", $oXMLProfil), "|")
- Local $vSendTimerLeft = 0, $vCreateTimerLeft = 0, $vSendTimerMoy = 0, $vCreateTimerMoy = 0, $vSendTimerTotal = 0, $vSendTimerTotalbyRom = 0, $vCreateTimerTotal = 0, $PercentProgression = 0
- Local $vMissingRom_Mode = $aConfig[6]
- Local $vThreadUsed = 1
- Local $vScrapeSearchMode = IniRead($iINIPath, "LAST_USE", "$vScrapeSearchMode", 0)
- Local $vZipSearch = IniRead($iINIPath, "LAST_USE", "$vZipSearch", 0)
-
- $aConfig[8] = "0000"
-
- If StringLeft($aConfig[0], 2) = "\\" And $vFullScrape = 0 Then
- If _Plink($oXMLProfil, "killallForced") = -2 Then Return -1 ; Ask to kill ES
- EndIf
-
- $vNbThread = IniRead($iINIPath, "LAST_USE", "$vNbThread", 1)
- If $vNbThread > 1 Then $vForceUpdate = "&forceupdate=1"
-
- ;Creating the romlist
- $aConfig[12] = _SelectSystem($oXMLSystem, $vFullScrape)
- If $aConfig[12] = "" Then
- $vGlobSystemId = 0
- $aRomList = -1
- Else
- $vGlobSystemId = $aConfig[12]
- $aRomList = _RomList_Create($aConfig, $vFullScrape, $oXMLProfil)
- EndIf
-
- If IsArray($aRomList) And _Check_Cancel() Then
-
- ;Creating gamelist.xml
- If $aConfig[5] = 0 Or ($aConfig[5] > 0 And FileGetSize($aConfig[0]) < 100) Then
- _FileCreate($aConfig[0])
- FileDelete($aConfig[0])
- _LOG("vScrape_Mode = " & $aConfig[5] & " And " & $aConfig[0] & " = " & FileGetSize($aConfig[0]) & " ---> _XML_Make", 1, $iLOGPath)
- $oXMLTarget = _XML_Make($aConfig[0], _XML_Read("Profil/Root/Target_Value", 0, "", $oXMLProfil))
- EndIf
-
- ;Checking existing gamelist.xml
- $vXpath2RomPath = "/" & _XML_Read("Profil/Root/Target_Value", 0, "", $oXMLProfil) & "/" & _XML_Read("Profil/Element[@Type='RomPath']/Target_Value", 0, "", $oXMLProfil)
- If FileGetSize($aConfig[0]) > 100 And _Check_Cancel() Then $aXMLRomList = _XML_ListValue($vXpath2RomPath, $aConfig[0])
-
- _ITaskBar_SetProgressState($F_UniversalScraper, 2)
-
- Local $vBoucle = 0, $vRomSend = 0, $vRomReceived = 0
- While 1
- If $vBoucle < UBound($aRomList) - 1 Then
- $vSendTimer = TimerInit()
- $vBoucle += 1
- $aRomList = _Check_Rom2Scrape($aRomList, $vBoucle, $aXMLRomList, $aConfig[2], $aConfig[5], $aExtToHide, $aValueToHide) ;Check if rom need to be scraped
- If $aRomList[$vBoucle][3] >= 1 And _Check_Cancel() Then
- If $aRomList[$vBoucle][3] < 2 Then
- $aRomList = _CalcHash($aRomList, $vBoucle, $oXMLProfil) ;Hash calculation
- EndIf
- $aRomList = _DownloadROMXML($aRomList, $vBoucle, $aConfig[12], $aConfig[13], $aConfig[14], $vScrapeSearchMode, $vForceUpdate) ; Download the XML file from API
-
- ; check if the ROM could be found otherwise try to scrape inside ZIP
- $vZipSearch = IniRead($iINIPath, "LAST_USE", "$vScrapeZip", 0)
- If ($aRomList[$vBoucle][9] = 0) And $vZipSearch = 1 Then
- $aRomList = _ScrapeZipContent($aRomList, $vBoucle)
- EndIf
-
- If ($aRomList[$vBoucle][9] = 1 Or $vMissingRom_Mode = 1 Or $aRomList[$vBoucle][3] > 1) And _Check_Cancel() Then
-
- $vEngineReady = 0
- While $vEngineReady < 1
- If _MailSlotGetMessageCount($hMailSlotCheckEngine) >= 1 Then
- $aEngineState = StringSplit(_ReadMessage($hMailSlotCheckEngine), "|", $STR_NOCOUNT)
- $aScrapeEngine[$aEngineState[0]][1] = $aEngineState[1]
- _LOG("-Message reiceved : " & $aEngineState[0] & " - " & $aEngineState[1], 3, $iLOGPath)
- If $aScrapeEngine[$aEngineState[0]][1] = 0 Then
- _LOG("-Engine Number " & $aEngineState[0] & " Ready", 1, $iLOGPath)
- $vEngineReady = $aEngineState[0]
- EndIf
- EndIf
- If Not _Check_Cancel() Then ExitLoop
- WEnd
-
- If _Check_Cancel() Then
- If $aRomList[$vBoucle][3] = 4 Then
- _XML_Make($iTEMPPath & "\scraped\" & $vBoucle & ".xml", _XML_Read("Profil/FolderRoot/Target_Value", 0, "", $oXMLProfil))
- Else
- _XML_Make($iTEMPPath & "\scraped\" & $vBoucle & ".xml", _XML_Read("Profil/Game/Target_Value", 0, "", $oXMLProfil))
- EndIf
- $sMailSlotName = "\\.\mailslot\Son" & $vEngineReady
- $vMessage = _ArrayToString($aRomList, '{Break}', $vBoucle, $vBoucle, '{Break}')
- $vResultSM = _SendMail($sMailSlotName, $vMessage)
- $vResultSM = _SendMail($sMailSlotName, $vBoucle)
- $vMessage = _ArrayToString($aConfig, '{Break}')
- $vResultSM = _SendMail($sMailSlotName, $vMessage)
- $vResultSM = _SendMail($sMailSlotName, $vProfilsPath)
- $aRomList[$vBoucle][11] = 1
- $vRomSend += 1
- EndIf
- EndIf
- EndIf
-
- $aRomList[$vBoucle][10] = Round(TimerDiff($vSendTimer) / 1000, 2)
-
- If Not _Check_Cancel() Then $vBoucle = UBound($aRomList) - 1 ;Check Cancel
- EndIf
-
- If _MailSlotGetMessageCount($hMailSlotMother) >= 1 Then
- $vMessageFromChild = _ReadMessage($hMailSlotMother)
- $aMessageFromChild = StringSplit($vMessageFromChild, '|', $STR_ENTIRESPLIT + $STR_NOCOUNT)
- ReDim $aMessageFromChild[2]
- _LOG("Receveid Message Rom no " & $aMessageFromChild[0] & " in " & $aMessageFromChild[1] & "s", 1, $iLOGPath)
- $aRomList[$aMessageFromChild[0]][10] += $aMessageFromChild[1]
- $aRomList[$aMessageFromChild[0]][12] = 1
- $vRomReceived += 1
-
- ;Timers
- $vSendTimerTotal += $aRomList[$aMessageFromChild[0]][10]
- $vSendTimerMoy = Round(Round($vSendTimerTotal / $vRomReceived, 2) / $vNbThread, 2)
- $vSendTimerLeft = $vSendTimerMoy * (((UBound($aRomList) - 1 - $vBoucle) * ($vBoucle / $vRomSend)) + ($vRomSend - $vRomReceived))
-
- $PercentProgression = Round(($vRomReceived * 100) / UBound($aRomList) - 1)
- GUICtrlSetData($PB_SCRAPE, $PercentProgression)
- _ITaskBar_SetProgressValue($F_UniversalScraper, $PercentProgression)
- _GUICtrlStatusBar_SetText($L_SCRAPE, $aRomList[$aMessageFromChild[0]][2])
- _GUICtrlStatusBar_SetText($L_SCRAPE, "Time Left : " & _FormatElapsedTime($vSendTimerLeft), 1)
- _GUICtrlStatusBar_SetText($L_SCRAPE, @TAB & @TAB & $vRomReceived & "/" & UBound($aRomList) - 1, 2)
- EndIf
-
- If Not _Check_Cancel() Or ($vRomReceived = $vRomSend And $vBoucle = UBound($aRomList) - 1) Then ExitLoop
- WEnd
-
- GUICtrlSetData($PB_SCRAPE, 0)
- _ITaskBar_SetProgressState($F_UniversalScraper)
- _GUICtrlStatusBar_SetText($L_SCRAPE, " ", 0)
- _GUICtrlStatusBar_SetText($L_SCRAPE, " ", 1)
- _GUICtrlStatusBar_SetText($L_SCRAPE, " ", 2)
-
- _CreateXML($aRomList, $aConfig)
-
- _CreateMissing($aRomList, $aConfig)
-
- EndIf
- EndIf
-
- For $vBoucle = 1 To $vNbThread
- DirRemove($iTEMPPath & $vBoucle, 1)
- Next
- Return $aRomList
-EndFunc ;==>_SCRAPE
-
-Func _CreateXML($aRomList, $aConfig)
- ;Reading Target xml
- Dim $aXMLTarget
- _FileReadToArray($aConfig[0], $aXMLTarget)
- _ArrayDelete($aXMLTarget, 0)
- FileDelete($aConfig[0])
- $vBoucle = UBound($aXMLTarget) - 1
- While $vBoucle <> 0 ;Grabing last line (without "" )
- If $aXMLTarget[$vBoucle] = "" Then
- _ArrayDelete($aXMLTarget, $vBoucle)
- Else
- $vLastLine = $aXMLTarget[$vBoucle]
- _ArrayDelete($aXMLTarget, $vBoucle)
- ExitLoop
- EndIf
- $vBoucle -= 1
- WEnd
-
- If $vLastLine = '<' & _XML_Read("Profil/Root/Target_Value", 0, "", $oXMLProfil) & '/>' Then
- _ArrayAdd($aXMLTarget, '<' & _XML_Read("Profil/Root/Target_Value", 0, "", $oXMLProfil) & '>')
- $vLastLine = ''
- EndIf
-
- For $vBoucle = 1 To UBound($aRomList) - 1
- Dim $aXMLSource
- $PercentProgression = Round((UBound($aRomList) - 1 * 100) / UBound($aRomList) - 1)
- GUICtrlSetData($PB_SCRAPE, $PercentProgression)
- _ITaskBar_SetProgressValue($F_UniversalScraper, $PercentProgression)
- If $aRomList[$vBoucle][12] = 1 Then
- _GUICtrlStatusBar_SetText($L_SCRAPE, $aRomList[$vBoucle][2])
- _GUICtrlStatusBar_SetText($L_SCRAPE, @TAB & @TAB & $vBoucle & "/" & UBound($aRomList) - 1, 2)
- _FileReadToArray($iTEMPPath & "\scraped\" & $vBoucle & ".xml", $aXMLSource)
- For $vBoucle2 = 1 To UBound($aXMLSource) - 1
- _ArrayAdd($aXMLTarget, $aXMLSource[$vBoucle2])
- Next
- EndIf
- Next
-
- _ArrayAdd($aXMLTarget, $vLastLine)
- _FileWriteFromArray($aConfig[0], $aXMLTarget)
-
- Local $oXMLAfterTidy = _XML_CreateDOMDocument(Default)
- $oToTidy = _XML_Open($aConfig[0])
- Local $vXMLAfterTidy = _XML_TIDY($oToTidy, -1)
- _XML_LoadXML($oXMLAfterTidy, $vXMLAfterTidy)
- FileDelete($aConfig[0])
- _XML_SaveToFile($oXMLAfterTidy, $aConfig[0])
- Return
-EndFunc ;==>_CreateXML
-
-Func _CreateMissing($aRomList, $aConfig)
- Local $vMaxNameLen = 68
- $vSysName = _XML_Read('/Data/systeme[id=' & $aConfig[12] & ']/noms/nom_eu', 0, $iScriptPath & "\Ressources\systemlist.xml")
-;~ _ArrayDisplay($aConfig, "$aConfig") ;Debug
- If Not _FileCreate($aConfig[1] & '\_' & $vSysName & "_missing.txt") Then MsgBox(4096, "Error", " Erreur creation du Fichier missing error:" & @error)
- For $vBoucle = 1 To UBound($aRomList) - 1
- If $aRomList[$vBoucle][9] = 0 Then
- $tCur = _Date_Time_GetLocalTime()
- If StringLen($aRomList[$vBoucle][0]) > 68 Then $vMaxNameLen = StringLen($aRomList[$vBoucle][0]) + 1
- $vMissing_Line1 = StringLeft($aRomList[$vBoucle][0] & " ", $vMaxNameLen)
- $vMissing_Line2 = $aRomList[$vBoucle][5]
- $vMissing_Line3 = StringRight(" " & StringRegExpReplace($aRomList[$vBoucle][4], '\G(\d+?)(?=(\d{3})+(\D|$))', '$1 '), 17) & " "
- $hFile = _WinAPI_CreateFile($aRomList[$vBoucle][1], 2)
- $aTime = _Date_Time_GetFileTime($hFile)
- _WinAPI_CloseHandle($hFile)
- $vTime = _Date_Time_FileTimeToStr($aTime[2])
- $vTime = StringMid($vTime, 12, 5) & ".00 " & StringMid($vTime, 7, 4) & "-" & StringLeft($vTime, 2) & "-" & StringMid($vTime, 4, 2)
- $vMissing_Line4 = " " & $aRomList[$vBoucle][6]
- FileWrite($aConfig[1] & '\_' & $vSysName & "_missing.txt", $vMissing_Line1 & $vMissing_Line2 & $vMissing_Line3 & $vTime & $vMissing_Line4 & @CRLF)
- EndIf
- Next
-EndFunc ;==>_CreateMissing
-
-Func _Wizz_OS()
- #Region ### START Koda GUI section ### Form=
- $F_Wizz_OS = GUICreate("", 340, 165, -1, -1, BitOR($WS_POPUP, $WS_BORDER), -1, $F_UniversalScraper)
- $P_UXS = GUICtrlCreatePic(@ScriptDir & "\" & "Ressources\Images\UXS_Wizard_Half.jpg", 2, 2, 100, 160, -1, -1)
- $G_SystemSelection = GUICtrlCreateGroup(_MultiLang_GetText("Win_Wizard_OS_Group"), 108, 1, 230, 163, -1, -1)
- GUICtrlSetBkColor(-1, "0xF0F0F0")
- $L_SystemSelection = GUICtrlCreateLabel(_MultiLang_GetText("Win_Wizard_OS_Libelle"), 116, 21, 214, 25, $SS_CENTERIMAGE, -1)
- $P_Recalbox = GUICtrlCreatePic(@ScriptDir & "\" & "Ressources\Images\Recalbox_Logo.jpg", 116, 53, 102, 102, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_OS_Tip_Recalbox"))
- $P_Retropie = GUICtrlCreatePic(@ScriptDir & "\" & "Ressources\Images\Retropie_Logo.jpg", 228, 53, 100, 100, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_OS_Tip_Retropie"))
- #EndRegion ### END Koda GUI section ###
- GUISetState(@SW_SHOW)
- GUISetState(@SW_DISABLE, $F_UniversalScraper)
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $P_Recalbox
- GUIDelete($F_Wizz_OS)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- Return $iProfilsPath & "\Recalbox.xml"
- Case $P_Retropie
- GUIDelete($F_Wizz_OS)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- Return $iProfilsPath & "\Retropie.xml"
- EndSwitch
- WEnd
-EndFunc ;==>_Wizz_OS
-
-Func _Wizz_MediaChoice($oXMLProfil, $vProfilsPath)
- #Region ### START Koda GUI section ### Form=
- $F_Wizz_MediaChoice = GUICreate("", 340, 165, -1, -1, BitOR($WS_POPUP, $WS_BORDER), -1, $F_UniversalScraper)
- $P_UXS = GUICtrlCreatePic(@ScriptDir & "\" & "Ressources\Images\UXS_Wizard_Half.jpg", 2, 2, 100, 160, -1, -1)
- $G_MediaSelection = GUICtrlCreateGroup(_MultiLang_GetText("Win_Wizard_MediaChoice_Group"), 108, 1, 230, 163, -1, -1)
- GUICtrlSetBkColor(-1, "0xF0F0F0")
- $L_MediaSelection = GUICtrlCreateLabel(_MultiLang_GetText("Win_Wizard_MediaChoice_Libelle"), 116, 21, 214, 25, $SS_CENTERIMAGE, -1)
- $P_MediaSimple = GUICtrlCreatePic(@ScriptDir & "\" & "Ressources\Images\MediaSimpleSS_Logo.jpg", 116, 53, 102, 102, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_MediaChoice_Tip_Simple"))
- $P_MediaMIX = GUICtrlCreatePic(@ScriptDir & "\" & "Ressources\Images\MediaMIX_Logo.jpg", 228, 53, 100, 100, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_MediaChoice_Tip_Mix"))
- #EndRegion ### END Koda GUI section ###
- GUISetState(@SW_SHOW)
- GUISetState(@SW_DISABLE, $F_UniversalScraper)
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $P_MediaSimple
- GUIDelete($F_Wizz_MediaChoice)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- _XML_Replace('Profil/General/Mix', "False", 0, "", $oXMLProfil)
- _XML_Replace('Profil/General/Target_Image_Extension', "jpg", 0, "", $oXMLProfil)
- _XML_Replace('Profil/Element[@Type="Picture"]/Source_Type', "XML_Download", 0, "", $oXMLProfil)
- _XML_Replace('Profil/Element[@Type="Picture"]/Source_Download_Ext', "jpg", 0, "", $oXMLProfil)
- _XML_Replace('Profil/Element[@Type="Picture Alt"]/Source_Download_Ext', "jpg", 0, "", $oXMLProfil)
- FileDelete($vProfilsPath)
- _XML_SaveToFile($oXMLProfil, $vProfilsPath)
- Return "Simple"
- Case $P_MediaMIX
- GUIDelete($F_Wizz_MediaChoice)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- _XML_Replace('Profil/General/Mix', "True", 0, "", $oXMLProfil)
- _XML_Replace('Profil/General/Target_Image_Extension', "png", 0, "", $oXMLProfil)
- _XML_Replace('Profil/Element[@Type="Picture"]/Source_Type', "MIX_Template", 0, "", $oXMLProfil)
- _XML_Replace('Profil/Element[@Type="Picture"]/Source_Download_Ext', "png", 0, "", $oXMLProfil)
- _XML_Replace('Profil/Element[@Type="Picture Alt"]/Source_Download_Ext', "png", 0, "", $oXMLProfil)
- FileDelete($vProfilsPath)
- _XML_SaveToFile($oXMLProfil, $vProfilsPath)
- Return "MIX"
- EndSwitch
- WEnd
-EndFunc ;==>_Wizz_MediaChoice
-
-Func _Wizz_MediaSimpleChoice($oXMLProfil, $vProfilsPath)
- #Region ### START Koda GUI section ### Form=
- $F_Wizz_MediaSimpleChoice = GUICreate("", 340, 283, -1, -1, BitOR($WS_POPUP, $WS_BORDER), -1, $F_UniversalScraper)
- $P_UXS = GUICtrlCreatePic(@ScriptDir & "\" & "Ressources\Images\UXS_Wizard_Half.jpg", 2, 61.5, 100, 160, -1, -1)
- $G_MediaSimpleSelection = GUICtrlCreateGroup(_MultiLang_GetText("Win_Wizard_MediaSimpleChoice_Group"), 108, 1, 230, 280, -1, -1)
- GUICtrlSetBkColor(-1, "0xF0F0F0")
- $L_MediaSimpleSelection = GUICtrlCreateEdit(_MultiLang_GetText("Win_Wizard_MediaSimpleChoice_Libelle"), 116, 15, 218, 35, BitOR($ES_READONLY, $ES_MULTILINE, $SS_CENTERIMAGE), 0)
-;~ GUICtrlCreateLabel(_MultiLang_GetText("Win_Wizard_MediaSimpleChoice_Libelle"), 116, 21, 214, 25, $SS_CENTERIMAGE, -1)
- $P_MediaSimpleSS = GUICtrlCreatePic(@ScriptDir & "\" & "Ressources\Images\MediaSimpleSS_Logo.jpg", 116, 53, 102, 102, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_MediaSimpleChoice_Tip_SS"))
- $P_MediaSimpleWheel = GUICtrlCreatePic(@ScriptDir & "\" & "Ressources\Images\MediaSimpleWheel_Logo.jpg", 228, 53, 100, 100, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_MediaSimpleChoice_Tip_Wheel"))
- $P_MediaSimple2DBox = GUICtrlCreatePic(@ScriptDir & "\" & "Ressources\Images\MediaSimple2DBox_Logo.jpg", 116, 170, 100, 100, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_MediaSimpleChoice_Tip_2DBox"))
- $P_MediaSimple3DBox = GUICtrlCreatePic(@ScriptDir & "\" & "Ressources\Images\MediaSimple3DBox_Logo.jpg", 230, 170, 100, 100, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_MediaSimpleChoice_Tip_3DBox"))
- #EndRegion ### END Koda GUI section ###
- GUISetState(@SW_SHOW)
- GUISetState(@SW_DISABLE, $F_UniversalScraper)
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $P_MediaSimpleSS
- GUIDelete($F_Wizz_MediaSimpleChoice)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- _XML_Replace('Profil/Element[@Type="Picture"]/Source_Value', "Data/jeu/medias/media_screenshot", 0, "", $oXMLProfil)
- FileDelete($vProfilsPath)
- _XML_SaveToFile($oXMLProfil, $vProfilsPath)
- Return "Screenshot"
- Case $P_MediaSimpleWheel
- GUIDelete($F_Wizz_MediaSimpleChoice)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- _XML_Replace('Profil/Element[@Type="Picture"]/Source_Value', "Data/jeu/medias/media_wheels/media_wheel_%COUNTRY%", 0, "", $oXMLProfil)
- FileDelete($vProfilsPath)
- _XML_SaveToFile($oXMLProfil, $vProfilsPath)
- Return "Wheel"
- Case $P_MediaSimple2DBox
- GUIDelete($F_Wizz_MediaSimpleChoice)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- _XML_Replace('Profil/Element[@Type="Picture"]/Source_Value', "Data/jeu/medias/media_boxs/media_boxs2d/media_box2d_%COUNTRY%", 0, "", $oXMLProfil)
- FileDelete($vProfilsPath)
- _XML_SaveToFile($oXMLProfil, $vProfilsPath)
- Return "2DBox"
- Case $P_MediaSimple3DBox
- GUIDelete($F_Wizz_MediaSimpleChoice)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- _XML_Replace('Profil/Element[@Type="Picture"]/Source_Value', "Data/jeu/medias/media_boxs/media_boxs3d/media_box3d_%COUNTRY%", 0, "", $oXMLProfil)
- FileDelete($vProfilsPath)
- _XML_SaveToFile($oXMLProfil, $vProfilsPath)
- Return "3DBox"
- EndSwitch
- WEnd
-EndFunc ;==>_Wizz_MediaSimpleChoice
-
-Func _Wizz_MediaSimpleAltChoice($oXMLProfil, $vProfilsPath, $vMainMedia)
- #Region ### START Koda GUI section ### Form=
- $F_Wizz_MediaSimpleAltChoice = GUICreate("", 340, 283, -1, -1, BitOR($WS_POPUP, $WS_BORDER), -1, $F_UniversalScraper)
- $P_UXS = GUICtrlCreatePic(@ScriptDir & "\" & "Ressources\Images\UXS_Wizard_Half.jpg", 2, 61.5, 100, 160, -1, -1)
- $G_MediaSimpleAltSelection = GUICtrlCreateGroup(_MultiLang_GetText("Win_Wizard_MediaSimpleAltChoice_Group"), 108, 1, 230, 280, -1, -1)
- GUICtrlSetBkColor(-1, "0xF0F0F0")
-;~ $L_MediaSimpleAltSelection = GUICtrlCreateLabel(_MultiLang_GetText("Win_Wizard_MediaSimpleAltChoice_Libelle"), 116, 21, 214, 25, $SS_CENTERIMAGE, -1)
- $L_MediaSimpleAltSelection = GUICtrlCreateEdit(_MultiLang_GetText("Win_Wizard_MediaSimpleAltChoice_Libelle"), 116, 15, 218, 35, BitOR($ES_READONLY, $ES_MULTILINE, $SS_CENTERIMAGE), 0)
- $P_MediaSimpleAltSS = GUICtrlCreatePic(@ScriptDir & "\" & "Ressources\Images\MediaSimpleSS_Logo.jpg", 116, 53, 102, 102, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_MediaSimpleAltChoice_Tip_SS"))
- $P_MediaSimpleAltWheel = GUICtrlCreatePic(@ScriptDir & "\" & "Ressources\Images\MediaSimpleWheel_Logo.jpg", 228, 53, 100, 100, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_MediaSimpleAltChoice_Tip_Wheel"))
- $P_MediaSimpleAlt2DBox = GUICtrlCreatePic(@ScriptDir & "\" & "Ressources\Images\MediaSimple2DBox_Logo.jpg", 116, 170, 100, 100, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_MediaSimpleAltChoice_Tip_2DBox"))
- $P_MediaSimpleAlt3DBox = GUICtrlCreatePic(@ScriptDir & "\" & "Ressources\Images\MediaSimple3DBox_Logo.jpg", 230, 170, 100, 100, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_MediaSimpleAltChoice_Tip_3DBox"))
- #EndRegion ### END Koda GUI section ###
- GUISetState(@SW_SHOW)
- GUISetState(@SW_DISABLE, $F_UniversalScraper)
-
- Switch $vMainMedia
- Case "Screenshot"
- GUICtrlSetState($P_MediaSimpleAltSS, $GUI_DISABLE)
- GUICtrlSetStyle($P_MediaSimpleAltSS, -1, $WS_EX_STATICEDGE)
- Case "Wheel"
- GUICtrlSetState($P_MediaSimpleAltWheel, $GUI_DISABLE)
- GUICtrlSetStyle($P_MediaSimpleAltWheel, -1, $WS_EX_STATICEDGE)
- Case "2DBox"
- GUICtrlSetState($P_MediaSimpleAlt2DBox, $GUI_DISABLE)
- GUICtrlSetStyle($P_MediaSimpleAlt2DBox, -1, $WS_EX_STATICEDGE)
- Case "3DBox"
- GUICtrlSetState($P_MediaSimpleAlt3DBox, $GUI_DISABLE)
- GUICtrlSetStyle($P_MediaSimpleAlt3DBox, -1, $WS_EX_STATICEDGE)
- EndSwitch
-
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $P_MediaSimpleAltSS
- GUIDelete($F_Wizz_MediaSimpleAltChoice)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- _XML_Replace('Profil/Element[@Type="Picture Alt"]/Source_Value', "Data/jeu/medias/media_screenshot", 0, "", $oXMLProfil)
- FileDelete($vProfilsPath)
- _XML_SaveToFile($oXMLProfil, $vProfilsPath)
- Return "Screenshot"
- Case $P_MediaSimpleAltWheel
- GUIDelete($F_Wizz_MediaSimpleAltChoice)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- _XML_Replace('Profil/Element[@Type="Picture Alt"]/Source_Value', "Data/jeu/medias/media_wheels/media_wheel_%COUNTRY%", 0, "", $oXMLProfil)
- FileDelete($vProfilsPath)
- _XML_SaveToFile($oXMLProfil, $vProfilsPath)
- Return "Wheel"
- Case $P_MediaSimpleAlt2DBox
- GUIDelete($F_Wizz_MediaSimpleAltChoice)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- _XML_Replace('Profil/Element[@Type="Picture Alt"]/Source_Value', "Data/jeu/medias/media_boxs/media_boxs2d/media_box2d_%COUNTRY%", 0, "", $oXMLProfil)
- FileDelete($vProfilsPath)
- _XML_SaveToFile($oXMLProfil, $vProfilsPath)
- Return "2DBox"
- Case $P_MediaSimpleAlt3DBox
- GUIDelete($F_Wizz_MediaSimpleAltChoice)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- _XML_Replace('Profil/Element[@Type="Picture Alt"]/Source_Value', "Data/jeu/medias/media_boxs/media_boxs3d/media_box3d_%COUNTRY%", 0, "", $oXMLProfil)
- FileDelete($vProfilsPath)
- _XML_SaveToFile($oXMLProfil, $vProfilsPath)
- Return "3DBox"
- EndSwitch
- WEnd
-EndFunc ;==>_Wizz_MediaSimpleAltChoice
-
-Func _Wizz_Rom($oXMLProfil)
- #Region ### START Koda GUI section ### Form=
- $F_Wizz_Path = GUICreate("", 340, 165, -1, -1, BitOR($WS_POPUP, $WS_BORDER), -1, $F_UniversalScraper)
- $P_UXS = GUICtrlCreatePic(@ScriptDir & "\" & "Ressources\Images\UXS_Wizard_Half.jpg", 2, 2, 100, 160, -1, -1)
- $G_RomPathSelection = GUICtrlCreateGroup(_MultiLang_GetText("Win_Wizard_RomChoice_Group"), 108, 1, 230, 163, -1, -1)
- GUICtrlSetBkColor(-1, "0xF0F0F0")
- $L_RomPathSelection = GUICtrlCreateLabel(_MultiLang_GetText("Win_Wizard_RomChoice_Libelle"), 116, 21, 214, 25, $SS_CENTERIMAGE, -1)
- $P_RaspberryPi = GUICtrlCreatePic(@ScriptDir & "\" & "Ressources\Images\RaspberryPi_Logo.jpg", 116, 53, 100, 100, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_RomChoice_Tip_RPI"))
- $P_Computer = GUICtrlCreatePic(@ScriptDir & "\" & "Ressources\Images\Computer_Logo.jpg", 228, 53, 100, 100, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_RomChoice_Tip_Local"))
- #EndRegion ### END Koda GUI section ###
- GUISetState(@SW_SHOW)
- GUISetState(@SW_DISABLE, $F_UniversalScraper)
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $P_RaspberryPi
- $vSource_RootPath = _XML_Read("Profil/DefaultAutoConf/Source_RootPath", 0, "", $oXMLProfil)
- If FileExists($vSource_RootPath) Then
- _XML_Replace("Profil/AutoConf/Source_RootPath", $vSource_RootPath, 0, "", $oXMLProfil)
- _XML_Replace("Profil/AutoConf/Target_XMLName", _XML_Read("Profil/DefaultAutoConf/Target_XMLName", 0, "", $oXMLProfil), 0, "", $oXMLProfil)
- _XML_Replace("Profil/AutoConf/Target_RomPath", _XML_Read("Profil/DefaultAutoConf/Target_RomPath", 0, "", $oXMLProfil), 0, "", $oXMLProfil)
- _XML_Replace("Profil/AutoConf/Source_ImagePath", _XML_Read("Profil/DefaultAutoConf/Source_ImagePath", 0, "", $oXMLProfil), 0, "", $oXMLProfil)
- _XML_Replace("Profil/AutoConf/Target_ImagePath", _XML_Read("Profil/DefaultAutoConf/Target_ImagePath", 0, "", $oXMLProfil), 0, "", $oXMLProfil)
- IniWrite($iINIPath, "LAST_USE", "$vAutoconf_Use", 1)
- FileDelete($vProfilsPath)
- _XML_SaveToFile($oXMLProfil, $vProfilsPath)
- GUIDelete($F_Wizz_Path)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- Return $vSource_RootPath
- Else
- MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), _MultiLang_GetText("err_autoconfPathRom"))
- EndIf
- Case $P_Computer
- $vSource_RootPath = FileSelectFolder(_MultiLang_GetText("Win_Wizard_RomChoice_Browse"), "", $FSF_CREATEBUTTON, "", $F_Wizz_Path)
- If (StringRight($vSource_RootPath, 1) = '\') Then StringTrimRight($vSource_RootPath, 1)
- If FileExists($vSource_RootPath) Then
- Local $aMaskFolder, $vMaskFolder = '', $vPathOk = 0
- _FileReadToArray(@ScriptDir & "\" & "Ressources\systemlist.txt", $aMaskFolder, $FRTA_COUNT, "|")
- For $vBoucle = 1 To UBound($aMaskFolder) - 1
- $vMaskFolder = $vMaskFolder & $aMaskFolder[$vBoucle][0] & ';'
- Next
- $vMaskFolder = StringTrimRight($vMaskFolder, 1)
- $vMaskFolder = $vMaskFolder & "||"
- $vMaskFolder = StringReplace($vMaskFolder, "/", "")
- $aCheckRomPath = _FileListToArrayRec($vSource_RootPath & "\", $vMaskFolder, $FLTAR_FOLDERS)
- If @error Or Not IsArray($aCheckRomPath) Then
- If MsgBox($MB_YESNO, _MultiLang_GetText("Win_Wizard_RomChoice_Browse_Warning_Title"), _MultiLang_GetText("Win_Wizard_RomChoice_Browse_Warning_Label")) = $IDYES Then
- $vPathOk = 1
- EndIf
- Else
- $vPathOk = 1
- EndIf
- If $vPathOk = 1 Then
- _XML_Replace("Profil/AutoConf/Source_RootPath", $vSource_RootPath, 0, "", $oXMLProfil)
- _XML_Replace("Profil/AutoConf/Target_XMLName", _XML_Read("Profil/DefaultAutoConf/Target_XMLName", 0, "", $oXMLProfil), 0, "", $oXMLProfil)
- _XML_Replace("Profil/AutoConf/Target_RomPath", _XML_Read("Profil/DefaultAutoConf/Target_RomPath", 0, "", $oXMLProfil), 0, "", $oXMLProfil)
- _XML_Replace("Profil/AutoConf/Source_ImagePath", _XML_Read("Profil/DefaultAutoConf/Source_ImagePath", 0, "", $oXMLProfil), 0, "", $oXMLProfil)
- _XML_Replace("Profil/AutoConf/Target_ImagePath", _XML_Read("Profil/DefaultAutoConf/Target_ImagePath", 0, "", $oXMLProfil), 0, "", $oXMLProfil)
- IniWrite($iINIPath, "LAST_USE", "$vAutoconf_Use", 1)
- FileDelete($vProfilsPath)
- _XML_SaveToFile($oXMLProfil, $vProfilsPath)
- GUIDelete($F_Wizz_Path)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- Return $vSource_RootPath
- EndIf
- Else
- MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), _MultiLang_GetText("err_autoconfPathRom"))
- EndIf
- EndSwitch
- WEnd
-EndFunc ;==>_Wizz_Rom
-
-Func _Wizz_SSChoice()
- #Region ### START Koda GUI section ### Form=
- $F_Wizz_SSChoice = GUICreate("", 340, 165, -1, -1, BitOR($WS_POPUP, $WS_BORDER), -1, $F_UniversalScraper)
- $P_UXS = GUICtrlCreatePic(@ScriptDir & "\" & "Ressources\Images\UXS_Wizard_Half.jpg", 2, 2, 100, 160, -1, -1)
- $G_SSSelection = GUICtrlCreateGroup(_MultiLang_GetText("Win_Wizard_SSChoice_Group"), 108, 1, 230, 163, -1, -1)
- GUICtrlSetBkColor(-1, "0xF0F0F0")
- $L_SSSelection = GUICtrlCreateLabel(_MultiLang_GetText("Win_Wizard_SSChoice_Libelle"), 116, 21, 214, 25, $SS_CENTERIMAGE, -1)
- $P_SSYes = GUICtrlCreatePic(@ScriptDir & "\" & "Ressources\Images\SSYes_Logo.jpg", 116, 53, 100, 100, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_SSChoice_Tip_Yes"))
- $P_SSNo = GUICtrlCreatePic(@ScriptDir & "\" & "Ressources\Images\SSNo_Logo.jpg", 228, 53, 100, 100, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_SSChoice_Tip_No"))
- #EndRegion ### END Koda GUI section ###
- GUISetState(@SW_SHOW)
- GUISetState(@SW_DISABLE, $F_UniversalScraper)
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $P_SSYes
- GUIDelete($F_Wizz_SSChoice)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- Return "Yes"
- Case $P_SSNo
- If MsgBox($MB_YESNO, _MultiLang_GetText("Win_Wizard_SSChoice_Group"), _MultiLang_GetText("win_config_MISC_GroupScreenScraper_SSRegister")) = $IDYES Then
- ShellExecute("http://www.screenscraper.fr/membreinscription.php")
- Else
- GUIDelete($F_Wizz_SSChoice)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- Return "No"
- EndIf
- EndSwitch
- WEnd
-EndFunc ;==>_Wizz_SSChoice
-
-Func _Wizz_SSId()
- #Region ### START Koda GUI section ### Form=
- $F_Wizz_SSId = GUICreate("", 340, 165, -1, -1, BitOR($WS_POPUP, $WS_BORDER), -1, $F_UniversalScraper)
- $P_UXS = GUICtrlCreatePic(@ScriptDir & "\" & "Ressources\Images\UXS_Wizard_Half.jpg", 2, 2, 100, 160, -1, -1)
- $G_SSId = GUICtrlCreateGroup(_MultiLang_GetText("Win_Wizard_SSChoice_Group"), 108, 1, 230, 163, -1, -1)
- GUICtrlSetBkColor(-1, "0xF0F0F0")
- $L_SSId = GUICtrlCreateLabel(_MultiLang_GetText("Win_Wizard_SSIdChoice_Id"), 116, 25, 70, 25, $SS_CENTERIMAGE, -1)
- $L_SSPwd = GUICtrlCreateLabel(_MultiLang_GetText("Win_Wizard_SSIdChoice_Pwd"), 116, 50, 70, 25, $SS_CENTERIMAGE, -1)
- $I_SSId = GUICtrlCreateInput(IniRead($iINIPath, "LAST_USE", "$vSSLogin", ""), 186, 25, 145, 25, $ES_CENTER, $WS_EX_CLIENTEDGE)
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_SSIdChoice_Tip_Id"))
- $I_SSPwd = GUICtrlCreateInput(BinaryToString(_Crypt_DecryptData(IniRead($iINIPath, "LAST_USE", "$vSSPassword", ""), "1gdf1g1gf", $CALG_RC4)), 186, 50, 145, 25, BitOR($ES_CENTER, $ES_PASSWORD), $WS_EX_CLIENTEDGE)
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_SSIdChoice_Tip_Pwd"))
- $B_SSTest = GUICtrlCreateButton(_MultiLang_GetText("Win_Wizard_SSIdChoice_Test"), 116, 85, 215, 30, -1, -1)
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_SSIdChoice_Tip_Test"))
- $B_SSNext = GUICtrlCreateButton(_MultiLang_GetText("win_Wizard_Next"), 231, 125, 100, 30, -1, -1)
- $B_SSCancel = GUICtrlCreateButton(_MultiLang_GetText("win_Wizard_Back"), 116, 125, 100, 30, -1, -1)
- #EndRegion ### END Koda GUI section ###
- GUISetState(@SW_SHOW)
- GUISetState(@SW_DISABLE, $F_UniversalScraper)
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $B_SSNext
- $vSSError = 0
- $vTEMPPathSSCheck = $iScriptPath & "\Ressources\SSCheck.xml"
- $vSSLogin = GUICtrlRead($I_SSId) ;$vSSLogin
- $vSSPassword = GUICtrlRead($I_SSPwd) ;$vSSPassword
- $vTEMPPathSSCheck = _DownloadWRetry($iURLScraper & "api/ssuserInfos.php?devid=" & $iDevId & "&devpassword=" & $iDevPassword & "&softname=" & $iSoftname & "&output=XML&ssid=" & $vSSLogin & "&sspassword=" & $vSSPassword, $vTEMPPathSSCheck)
-
- $vSSLevel = Number(_XML_Read("/Data/ssuser/niveau", 0, $vTEMPPathSSCheck))
-
- $vNbThreadMax = _Coalesce(Number(_XML_Read("/Data/ssuser/maxthreads", 0, $vTEMPPathSSCheck)), 1)
- _LOG("SS Check ssid=" & $vSSLogin & " maxthreads = " & $vNbThreadMax, 1, $iLOGPath)
-
- Switch $vSSLevel
- Case 0
- $vNbThreadMax = 1
- _LOG("Not Registered", 0, $iLOGPath)
- MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), _MultiLang_GetText("err_NotRegistered"), 10, $F_Wizz_SSId)
- $vSSError = 1
- Case 499 To 9999999
- $vNbThreadMax = 99
- _LOG("God Mode", 0, $iLOGPath)
- MsgBox($MB_ICONWARNING, _MultiLang_GetText("mess_ssregister_title"), _MultiLang_GetText("mess_ssregister_GodMode"), 10, $F_Wizz_SSId)
- Case Else
- _LOG("Nb Thread Available : " & $vNbThreadMax, 0, $iLOGPath)
- MsgBox($MB_ICONINFORMATION, _MultiLang_GetText("mess_ssregister_title"), _MultiLang_GetText("mess_ssregister_OK") & " " & $vNbThreadMax & " Threads", 10, $F_Wizz_SSId)
- EndSwitch
-
- If $vNbThreadMax > 5 Then
- $vNbThreadDefault = 5
- Else
- $vNbThreadDefault = $vNbThreadMax
- EndIf
-
- If $vSSError = 0 Then
- IniWrite($iINIPath, "LAST_USE", "$vSSLogin", $vSSLogin)
- $vSSPassword = _Crypt_EncryptData(GUICtrlRead($I_SSPwd), "1gdf1g1gf", $CALG_RC4) ;$vSSPassword
- IniWrite($iINIPath, "LAST_USE", "$vSSPassword", $vSSPassword)
- IniWrite($iINIPath, "LAST_USE", "$vNbThread", $vNbThreadDefault)
- GUIDelete($F_Wizz_SSId)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- Return $vNbThreadDefault
- EndIf
- Case $B_SSCancel
- GUIDelete($F_Wizz_SSId)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- Return -1
- Case $B_SSTest
- $vTEMPPathSSCheck = $iScriptPath & "\Ressources\SSCheck.xml"
- $vSSLogin = GUICtrlRead($I_SSId) ;$vSSLogin
- $vSSPassword = GUICtrlRead($I_SSPwd) ;$vSSPassword
- $vTEMPPathSSCheck = _DownloadWRetry($iURLScraper & "api/ssuserInfos.php?devid=" & $iDevId & "&devpassword=" & $iDevPassword & "&softname=" & $iSoftname & "&output=XML&ssid=" & $vSSLogin & "&sspassword=" & $vSSPassword, $vTEMPPathSSCheck)
-
- $vSSLevel = Number(_XML_Read("/Data/ssuser/niveau", 0, $vTEMPPathSSCheck))
-
- $vNbThreadMax = _Coalesce(Number(_XML_Read("/Data/ssuser/maxthreads", 0, $vTEMPPathSSCheck)), 1)
- _LOG("SS Check ssid=" & $vSSLogin & " maxthreads = " & $vNbThreadMax, 1, $iLOGPath)
-
- Switch $vSSLevel
- Case 0
- $vNbThreadMax = 1
- _LOG("Not Registered", 0, $iLOGPath)
- MsgBox($MB_ICONERROR, _MultiLang_GetText("err_title"), _MultiLang_GetText("err_NotRegistered"), 10, $F_Wizz_SSId)
- Case 499 To 9999999
- $vNbThreadMax = 99
- _LOG("God Mode", 0, $iLOGPath)
- MsgBox($MB_ICONWARNING, _MultiLang_GetText("mess_ssregister_title"), _MultiLang_GetText("mess_ssregister_GodMode"), 10, $F_Wizz_SSId)
- Case Else
- _LOG("Nb Thread Available : " & $vNbThreadMax, 0, $iLOGPath)
- MsgBox($MB_ICONINFORMATION, _MultiLang_GetText("mess_ssregister_title"), _MultiLang_GetText("mess_ssregister_OK") & " " & $vNbThreadMax & " Threads", 10, $F_Wizz_SSId)
- EndSwitch
-
- If $vNbThreadMax > 5 Then
- $vNbThreadDefault = 5
- Else
- $vNbThreadDefault = $vNbThreadMax
- EndIf
- EndSwitch
- WEnd
-EndFunc ;==>_Wizz_SSId
-
-Func _Wizz_SystemChoice($oXMLProfil)
- $aDIRList = _Check_autoconf($oXMLProfil)
- Local $aDIRList_Combo[UBound($aDIRList)][3]
-
- For $vBoucle = 1 To UBound($aDIRList) - 1
- $aDIRList_Combo[$vBoucle][0] = $aDIRList[$vBoucle][0]
- $aDIRList_Combo[$vBoucle][2] = $vBoucle
- Next
-
- While 1
- $vSystemID = _SelectGUI($aDIRList_Combo, -1, "system")
- If $vSystemID <> "" Then ExitLoop
- WEnd
-
- _LOG("Autoconfig Selected :" & $aDIRList[$vSystemID][0], 0, $iLOGPath)
- For $vBoucle2 = 1 To UBound($MS_AutoConfigItem) - 1
- GUICtrlSetState($MS_AutoConfigItem[$vBoucle2], $GUI_UNCHECKED)
- Next
- GUICtrlSetState($MS_AutoConfigItem[$vSystemID], $GUI_CHECKED)
- IniWrite($iINIPath, "LAST_USE", "$vSource_RomPath", $aDIRList[$vSystemID][1])
- IniWrite($iINIPath, "LAST_USE", "$vTarget_RomPath", $aDIRList[$vSystemID][2])
- IniWrite($iINIPath, "LAST_USE", "$vTarget_XMLName", $aDIRList[$vSystemID][3])
- IniWrite($iINIPath, "LAST_USE", "$vSource_ImagePath", $aDIRList[$vSystemID][4])
- IniWrite($iINIPath, "LAST_USE", "$vTarget_ImagePath", $aDIRList[$vSystemID][5])
-
- Return $aDIRList[$vSystemID][0]
-
-EndFunc ;==>_Wizz_SystemChoice
-
-Func _Wizz_Scrape()
- #Region ### START Koda GUI section ### Form=
- $F_Wizz_ScrapeChoice = GUICreate("", 340, 165, -1, -1, BitOR($WS_POPUP, $WS_BORDER), -1, $F_UniversalScraper)
- $P_UXS = GUICtrlCreatePic(@ScriptDir & "\" & "Ressources\Images\UXS_Wizard_Half.jpg", 2, 2, 100, 160, -1, -1)
- $G_ScrapeSelection = GUICtrlCreateGroup(_MultiLang_GetText("Win_Wizard_ScrapeChoice_Group"), 108, 1, 230, 163, -1, -1)
- GUICtrlSetBkColor(-1, "0xF0F0F0")
- $L_ScrapeSelection = GUICtrlCreateLabel(_MultiLang_GetText("Win_Wizard_ScrapeChoice_Libelle"), 116, 21, 214, 25, $SS_CENTERIMAGE, -1)
- $P_ScrapeYes = GUICtrlCreatePic(@ScriptDir & "\" & "Ressources\Images\ScrapeYes_Logo.jpg", 116, 53, 102, 102, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_ScrapeChoice_Tip_Yes"))
- $P_ScrapeNo = GUICtrlCreatePic(@ScriptDir & "\" & "Ressources\Images\ScrapeNo_Logo.jpg", 228, 53, 100, 100, -1, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE))
- GUICtrlSetTip(-1, _MultiLang_GetText("Win_Wizard_ScrapeChoice_Tip_No"))
- #EndRegion ### END Koda GUI section ###
- GUISetState(@SW_SHOW)
- GUISetState(@SW_DISABLE, $F_UniversalScraper)
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $P_ScrapeYes
- GUIDelete($F_Wizz_ScrapeChoice)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- Return "Yes"
- Case $P_ScrapeNo
- GUIDelete($F_Wizz_ScrapeChoice)
- GUISetState(@SW_ENABLE, $F_UniversalScraper)
- WinActivate($F_UniversalScraper)
- Return "No"
- EndSwitch
- WEnd
-EndFunc ;==>_Wizz_Scrape
-
-Func _TestServer($vNbThreadMax = 1)
- Local $vTestPath, $vServerListPath = $iScriptPath & "\Ressources\ServerList.txt", $aServerList
- $vServerListPath = _DownloadWRetry("https://raw.githubusercontent.com/Universal-Rom-Tools/Universal-XML-Scraper/master/Ressources/ServerList.txt", $vServerListPath)
- _FileReadToArray($vServerListPath, $aServerList, $FRTA_NOCOUNT)
- Switch StringLower($aServerList[0])
- Case 'fallback'
- For $Boucle = 1 To UBound($aServerList) - 1
- If _CheckURL($aServerList[$Boucle]) Then
- _LOG("Server (fallback) = " & $aServerList[$Boucle], 1, $iLOGPath)
-;~ Return "http://new.screenscraper.fr/"
- Return $aServerList[$Boucle]
- EndIf
- Next
- Case 'priorisation'
- If $vNbThreadMax = 1 Then
- For $Boucle = UBound($aServerList) - 1 To 1 Step -1
- If _CheckURL($aServerList[$Boucle]) Then
- _LOG("Server (priorisation Unreg) = " & $aServerList[$Boucle], 1, $iLOGPath)
-;~ Return "http://new.screenscraper.fr/"
- Return $aServerList[$Boucle]
- EndIf
- Next
- Else
- For $Boucle = 1 To UBound($aServerList) - 1
- If _CheckURL($aServerList[$Boucle]) Then
- _LOG("Server (priorisation Reg)= " & $aServerList[$Boucle], 1, $iLOGPath)
-;~ Return "http://new.screenscraper.fr/"
- Return $aServerList[$Boucle]
- EndIf
- Next
- EndIf
- Case 'mono'
- _LOG("Server = (mono)" & $aServerList[1], 1, $iLOGPath)
-;~ Return "http://new.screenscraper.fr/"
- Return $aServerList[1]
- EndSwitch
-EndFunc ;==>_TestServer
-
-Func _OptionMenuConstruction($oXMLProfil, $aOptionMenu)
-
- If IsArray($aOptionMenu) Then
- For $vBoucle2 = 1 To $aOptionMenu[0][0]
- GUICtrlDelete($aOptionMenu[$vBoucle2][0])
- GUICtrlDelete($aOptionMenu[$vBoucle2][8])
- GUICtrlDelete($aOptionMenu[$vBoucle2][9])
- Next
- EndIf
-
-;~ $aOptionMenu = -1
- Dim $aOptionMenu[1][10]
- $aOptionGroup = _XML_ListValue('Profil/Options/Option/Option_Group', "", $oXMLProfil)
- _ArrayDelete($aOptionGroup, 0)
- $aOptionGroup = _ArrayUnique($aOptionGroup)
-;~ _ArrayDisplay($aOptionGroup) ; Debug
- For $vBoucle = 1 To UBound($aOptionGroup) - 1
- $MOption_Group = GUICtrlCreateMenu(_MultiLang_GetText("Option_Group_" & $aOptionGroup[$vBoucle]), $MOption, $vBoucle)
- $aOptionName = _XML_ListValue('Profil/Options/Option[Option_Group="' & $aOptionGroup[$vBoucle] & '"]/Option_Name', "", $oXMLProfil)
-;~ _ArrayDisplay($aOptionName,"Avant suppr") ; Debug
- For $vBoucle2 = UBound($aOptionName) - 1 To 1 Step -1
- $vOptionConditionNode = _XML_Read('Profil/Options/Option[Option_Name="' & $aOptionName[$vBoucle2] & '"]/Option_Condition', 0, "", $oXMLProfil)
- If $vOptionConditionNode <> "None" Then
- $vOptionConditionValue = _XML_Read('Profil/Options/Option[Option_Name="' & $aOptionName[$vBoucle2] & '"]/Option_Condition/Value', 1, "", $oXMLProfil)
- $vOptionConditionResult = _XML_Read($vOptionConditionNode, 0, "", $oXMLProfil)
- If $vOptionConditionValue <> $vOptionConditionResult Then _ArrayDelete($aOptionName, $vBoucle2)
- EndIf
- Next
-;~ _ArrayDisplay($aOptionName,"Après suppr") ; Debug
- For $vBoucle2 = 1 To UBound($aOptionName) - 1
- If $aOptionName[$vBoucle2] = "Separator" Then
- $MOption_Name = GUICtrlCreateMenuItem("", $MOption_Group, $vBoucle2)
- _ArrayAdd($aOptionMenu, $MOption_Name & "|" & $aOptionGroup[$vBoucle] & "|" & $aOptionName[$vBoucle2] & "|||||0|" & $MOption_Group & "|")
- Else
- $MOption_Name = GUICtrlCreateMenu(_MultiLang_GetText("Option_Name_" & $aOptionName[$vBoucle2]), $MOption_Group, $vBoucle2)
- $aOptionValue = _XML_ListValue('Profil/Options/Option[Option_Name="' & $aOptionName[$vBoucle2] & '"]/Source_Value_Option', "", $oXMLProfil)
- For $vBoucle3 = 1 To UBound($aOptionValue) - 1
- $vOptionValueName = _XML_Read('Profil/Options/Option[Option_Name="' & $aOptionName[$vBoucle2] & '"]/Source_Value_Option[' & $vBoucle3 & ']/Name', 1, "", $oXMLProfil)
- $vOptionValue = _XML_Read('Profil/Options/Option[Option_Name="' & $aOptionName[$vBoucle2] & '"]/Source_Value_Option[' & $vBoucle3 & ']', 0, "", $oXMLProfil)
- $vOptionType = _XML_Read('Profil/Options/Option[Option_Name="' & $aOptionName[$vBoucle2] & '"]/Type', 0, "", $oXMLProfil)
- $vOptionNodeName = _XML_Read('Profil/Options/Option[Option_Name="' & $aOptionName[$vBoucle2] & '"]/NodeName', 0, "", $oXMLProfil)
- $MOption_Value = GUICtrlCreateMenuItem(_MultiLang_GetText("Option_Value_" & $vOptionValueName), $MOption_Name, $vBoucle3)
- _ArrayAdd($aOptionMenu, $MOption_Value & "|" & $aOptionGroup[$vBoucle] & "|" & $aOptionName[$vBoucle2] & "|" & $vOptionType & "|" & $vOptionNodeName & "|" & $vOptionValueName & "|" & $vOptionValue & "|0|" & $MOption_Group & "|" & $MOption_Name)
- Next
- EndIf
- Next
- Next
- $aOptionMenu[0][0] = UBound($aOptionMenu) - 1
-;~ _ArrayDisplay($aOptionMenu) ; Debug
- $aOptionMenu = _OptionMenuCheck($aOptionMenu, $oXMLProfil)
-;~ _ArrayDisplay($aOptionMenu) ; Debug
- Return $aOptionMenu
-EndFunc ;==>_OptionMenuConstruction
-
-Func _OptionMenuCheck($aOptionMenu, $oXMLProfil)
- For $vBoucle = 1 To UBound($aOptionMenu) - 1
- If $aOptionMenu[$vBoucle][2] <> "Separator" Then
- $vOptionValue = _XML_Read('Profil/Element[@Type="' & $aOptionMenu[$vBoucle][3] & '"]/' & $aOptionMenu[$vBoucle][4], 0, "", $oXMLProfil)
-;~ _LOG($vBoucle &" - " &$aOptionMenu[$vBoucle][3] & "/" & $aOptionMenu[$vBoucle][4] &" = "&$vOptionValue &"<-->" & $aOptionMenu[$vBoucle][6], 1, $iLOGPath);Debug
- If $aOptionMenu[$vBoucle][6] = $vOptionValue Then
- GUICtrlSetState($aOptionMenu[$vBoucle][0], $GUI_CHECKED)
- $aOptionMenu[$vBoucle][7] = 1
- Else
- GUICtrlSetState($aOptionMenu[$vBoucle][0], $GUI_UNCHECKED)
- $aOptionMenu[$vBoucle][7] = 0
- EndIf
- EndIf
- Next
- Return $aOptionMenu
-EndFunc ;==>_OptionMenuCheck
-
-;~ $aPicParameters[0] = Target_Width
-;~ $aPicParameters[1] = Target_Height
-;~ $aPicParameters[2] = Target_TopLeftX
-;~ $aPicParameters[3] = Target_TopLeftY
-;~ $aPicParameters[4] = Target_TopRightX
-;~ $aPicParameters[5] = Target_TopRightY
-;~ $aPicParameters[6] = Target_BottomLeftX
-;~ $aPicParameters[7] = Target_BottomLeftY
-;~ $aPicParameters[8] = Target_Maximize
-;~ $aPicParameters[9] = Target_OriginX
-;~ $aPicParameters[10] = Target_OriginY
-;~ $aPicParameters[11] = Target_BottomRightX
-;~ $aPicParameters[12] = Target_BottomRightY
-
-;~ $aConfig[0]=$vTarget_XMLName
-;~ $aConfig[1]=$vSource_RomPath
-;~ $aConfig[2]=$vTarget_RomPath
-;~ $aConfig[3]=$vSource_ImagePath
-;~ $aConfig[4]=$vTarget_ImagePath
-;~ $aConfig[5]=$vScrape_Mode (0 = NEW, 1 = Update XML & Picture, [2 = Update Picture only To ADD])
-;~ $aConfig[6]=$vMissingRom_Mode (0 = No missing Rom, 1 = Adding missing Rom)
-;~ $aConfig[7]=$vCountryPic_Mode (0 = Language Pic, 1 = Rom Pic, 2 = Language Pic Strict, 3 = Rom Pic Strict)
-;~ $aConfig[8]=$oTarget_XML
-;~ $aConfig[9]=$aLangPref
-;~ $aConfig[10]=$aCountryPref
-;~ $aConfig[11]=$aMatchingCountry
-;~ $aConfig[12]=$vSystemId
-;~ $aConfig[13]=$vSSLogin
-;~ $aConfig[14]=$vSSPassword
-
-;~ $aRomList[][0]=Relative Path
-;~ $aRomList[][1]=Full Path
-;~ $aRomList[][2]=Filename (without extension)
-;~ $aRomList[][3]=XML to Scrape (0 = No, 1 = Yes, 2 = To hide, 3 = To hide, 4 = Folder)
-;~ $aRomList[][4]=File Size
-;~ $aRomList[][5]=File CRC32
-;~ $aRomList[][6]=File MD5
-;~ $aRomList[][7]=File SHA1
-;~ $aRomList[][8]=XML File Scraped
-;~ $aRomList[][9]=Rom Found
-;~ $aRomList[][10]=Time By Rom
-;~ $aRomList[][11]=Send to the scraper
-;~ $aRomList[][12]=Return from the scraper
-
-;~ $aDIRList[][0] = Source System directory
-;~ $aDIRList[][1] = Source System full directory Local path
-;~ $aDIRList[][2] = Target System directory full Local path
-;~ $aDIRList[][3] = Target gamelist.xml full Local path
-;~ $aDIRList[][4] = Source Image directory full Local path
-;~ $aDIRList[][5] = Target Image directory full Local path
-
diff --git a/changelog.txt b/changelog.txt
index 7f81491..a7e4325 100644
--- a/changelog.txt
+++ b/changelog.txt
@@ -1,3 +1,13 @@
+2.2.0.3
+Corrected :
+ - Random Error making UXS crash. (Changing a part of MAIN <-> ENGINE communication system)
+ - Changing color progressbar is now only green (Maybe a raison of random crash)
+ - SSH finally will work (sorry for that)
+ - Apostrophes in filename now works... (Thanks Marblemad)
+
+Added :
+ - ProgressBar when creating the XML File
+
2.2.0.2
Corrected :
- Full Scrape don't neverend anymore.
diff --git a/changelog_next.txt b/changelog_next.txt
index 7f81491..a7e4325 100644
--- a/changelog_next.txt
+++ b/changelog_next.txt
@@ -1,3 +1,13 @@
+2.2.0.3
+Corrected :
+ - Random Error making UXS crash. (Changing a part of MAIN <-> ENGINE communication system)
+ - Changing color progressbar is now only green (Maybe a raison of random crash)
+ - SSH finally will work (sorry for that)
+ - Apostrophes in filename now works... (Thanks Marblemad)
+
+Added :
+ - ProgressBar when creating the XML File
+
2.2.0.2
Corrected :
- Full Scrape don't neverend anymore.
diff --git a/test.au3 b/test.au3
deleted file mode 100644
index f9a0353..0000000
--- a/test.au3
+++ /dev/null
@@ -1,58 +0,0 @@
-#include
-#include
-#include
-#include
-#include
-#include
-#include
-#Include
-#include
-#include
-#Include
-#Include
-#Include
-#include
-#include
-#Include
-#include "StringSize.au3"
-#include
-#include
-
-$maingui = GUICreate("Text over progress bar", 200, 40)
-
-$progress = GUICtrlCreateProgress(5, 5, 190, 30, $PBS_SMOOTH)
-$text = GUICtrlCreateLabel("", 5, 12, 190, 30, $SS_CENTER) ;text shows on white background
-GUICtrlSetColor(-1, 0x008000) ; choose some color which will be visible on progress background and also foreground
-GUICtrlSetBkColor(-1, -2)
-GUISetState()
-$p = 0
-$d = 1
-$value = 0
-$value_prev = 0
-_Timer_SetTimer($maingui,1000,"addup")
-While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE
- Exit
- EndSwitch
- #cs;If $p > 500 Then $d = -1
- If $p < 1 Then $d = 1
- $p += $d
- $value = StringFormat('%.1f', Round($p/5, 1))
- If $value <> $value_prev Then
- GUICtrlSetData($progress, $value)
- GUICtrlSetData($text, $value)
- $value_prev = $value
- #ce;EndIf
- Sleep(50)
-WEnd
-_Timer_KillAllTimers($maingui)
-func addup($a, $b, $c, $d)
- $value += 1
- If $value <> $value_prev Then
- GUICtrlSetData($progress, $value)
- GUICtrlSetData($text, $value)
- $value_prev = $value
- EndIf
-endfunc
\ No newline at end of file