Launcher Personnalisé

[mikell]

Tu postes un code en demandant des avis, mais le code en question ne fonctionne pas parce qu'entre temps tu as déplacé tes fichiers sur un autre hébergeur
Pour avoir des réponses, j'ai du mal à imaginer plus mauvais plan ^^

[liberodark]

Re,

Donc voilà c'est réglé après environ 4h de travail et 3h d'upload ^^
Le problème ce situer bien dans un le serveur les fichiers était pas à jour il restait en cache.
Tout ceci est résolu maintenant.

Je pense patienter encore un peut car il me faut plus d'avis mais sinon il sont tous très favorable
Donc je reviens prochainement pour avancer sur le reste.

Cordialement

[liberodark]

Bonsoir à tous j'espère que vous voulez allez tous très bien ^^,

Je vous dérange encore une fois, car j'ai donc un tout nouveau problème grâce aux utilisateurs.
On ma transmis le fait que la mise à jour ce fait bien maintenant mais que le téléchargement ne ce complète pas selon les utilisateurs.
En gros j'ai pu constater que cela est du au débit !

J'aimerais donc avoir votre avis pour mettre par exemple une fonction pour que le téléchargement ce complète à 100% avant de passer à une autre étape.

Cordialement
Ci dessous voici le code :

Code : Tout sélectionner

; ====== update launcher ========

If _CheckVersion() = 1 Then MsgBox(0, "Update", "New version downloaded")

Func _CheckVersion()
	; read dat in server
	Local $remotedat = BinaryToString(InetRead("http://yurfile.altervista.org/download.php?fid=L3ZlcnNpb24udHh0"))
	If @error Then Return 0 ; error
	Local $lastversion = StringRegExp($remotedat, 'version=(\N+)', 1)[0] ; exemple 2.0.5
	; read dat in local
	$localdat = FileRead("version.dat")
	Local $currentversion = StringRegExp($localdat, 'version=(\N+)', 1)[0] ; exemple 2.0.4
	; compare versions
	If StringReplace($currentversion, ".", "") < StringReplace($lastversion, ".", "") Then ; ex. si 204 < 205
		If MsgBox(36, "Update", "Have new version" & @CRLF & "Download ?") = 6 Then
			$adresse = StringRegExp($remotedat, 'adresse=(\N+)', 1)[0]
			InetGet($adresse, @ScriptDir & "\Launcher_v." & $lastversion & ".exe")

			; ====== update sse ========

			$remoteFile = "http://yurfile.altervista.org/download.php?fid=L3VwZGF0ZS43eg=="
			$localFile = @ScriptDir & "\Game\update.7z"

			$fileSize = InetGetSize($remoteFile)
			InetGet($remoteFile, $localFile, 1, 1)

			While 1
				Sleep(1000)
				If Not @InetGetActive Then ExitLoop

				ToolTip("Progress : " & Round(@InetGetBytesRead * 100 / $fileSize) & "%")
			WEnd

			MsgBox(64, "Success", "Download")
			FileDelete("Game\SSELauncher.exe")
			DirRemove("Game\SmartSteamEmu", 1)
			MsgBox(64, "Success", "Remove")

			$7zaPath = @ScriptDir & "\Game\7za.exe"
			$Archive = @ScriptDir & "\Game\update.7z"

			$Res = _Extract7zaExe($7zaPath, $Archive, @ScriptDir & "\Game", 1)
			FileDelete("Game\update.7z")
			MsgBox(64, "Success", "Extract")
			If Not @error Then
				IniWrite("version.dat", "OpenSourceLauncher", "version", $lastversion)
				Return 1 ; ok
			EndIf
		EndIf
	EndIf
	Return 0 ; error
EndFunc   ;==>_CheckVersion

[orax]

Est-ce que tu utilises bien la dernière version d'AutoIt ? Les macros @InetGetActive et @InetGetBytesRead ont été supprimées dans la v3.3.4.0.

[liberodark]

Voici la version que j'utilise la dernière version 3.3.14.2 !
Que me conseillez vous ?

[orax]

Tout va bien alors. La 3.3.14.2 est la dernière version. Mais ce code doit retourner des erreurs puisque les macros @InetGetActive et @InetGetBytesRead n'existent plus. Le script ne devrait même pas pouvoir s'exécuter ou être compilé.

[liberodark]

Pourtant il fonctionne parfaitement avec mon débit mais pas certain utilisateur

[orax]

J'ai récupéré Launcher v2.au3 depuis GitHub. Quand je fais CTRL+F5 sous SciTE (pour vérifier la syntaxe), je confirme ce que j'ai dit, j'ai des erreurs dans la console.

Code : Tout sélectionner

>Running AU3Check (3.3.14.2)  from:C:\Program Files (x86)\AutoIt3  input:C:\Launcher-SSE-master\Launcher v2.au3
"C:\Launcher-SSE-master\Launcher v2.au3"(74,27) : error: undefined macro.
				If Not @InetGetActive Then
				~~~~~~~~~~~~~~~~~~~~~~^
"C:\Launcher-SSE-master\Launcher v2.au3"(76,53) : error: undefined macro.
				ToolTip("Progress : " & Round(@InetGetBytesRead *
				~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Launcher-SSE-master\Launcher v2.au3 - 2 error(s), 0 warning(s)

[liberodark]

Vous auriez un code à me fournir pour corriger cela ?

[mikell]

Ben tu pourrais jeter un coup d'oeil à InetGetInfo ...

[liberodark]

Merci j'ai corrigé le problème !

Cordialement

[liberodark]

Bonsoir à tous,

J'ai un problème de longue date pour quitter quand ma fonction est positive !
Avec un "Exit" par exemple.
Voici le code :

Code : Tout sélectionner

If _CheckVersion() = 1 Then MsgBox(0, "Update", "New version downloaded")

Cela parait idiot mais j'aimerais avoir votre aide sur ce point.

Cordialement

[gothgothhh]

Code : Tout sélectionner

If _CheckVersion() = "1" Then
	MsgBox(0, "Update", "New version downloaded")
	Exit
EndIf

comme ça ?

[liberodark]

Merci cela à corrigé mon soucis, j'ai vu ou ce trouvais le problème !

[liberodark]

Bonjour,
à tous encore un énorme merci pour tout !

J'ai donc simplifié mon code :

Code: [Tout sélectionner] [Déplier/Replier]

; ==================
; Redistribuable Detection

; Check msvcr100.dll
Local $sDLL1 = "C:\Windows\System32\msvcr100.dll"
Local $sDLL2 = "C:\Windows\SysWOW64\msvcr100.dll"

If (not FileExists($sDLL1)) AND (not FileExists($sDLL2)) Then ; Returns 0 if the file does not exist
; If not detect Microsoft Visual C++ 2010
MsgBox(64,"Error Microsoft Visual C++ 2010", "Download & Install Microsoft Visual C++ 2010 x86")
ShellExecute ("https://www.microsoft.com/en-US/download/details.aspx?id=5555")
Exit
EndIf

GeSHi © Extension Codebox Plus

Par contre je c'est pas comment faire avec Net framwork 4

Code: [Tout sélectionner] [Déplier/Replier]

$Installer = False

$VersionNET = "4.0.0"

$NETFramework  RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\Client", "Version") ; Clé pour detecter .NET Framework 4.0

If $AppliPresente = "" Then
    $Installer = True
Else
    $AncienneVersion = StringSplit($AppliPresente, ".")
    $NouvelleVersion = StringSplit($VersionAInstaller, ".")
    For $i = 1 To 4
        If $NouvelleVersion[$i] > $AncienneVersion[$i] Then
            $Installer = True
        EndIf
    Next
EndIf

If $Installer = True Then
ShellExecute http://yurfile.altervista.org/download.php?fid=L2RvdE5ldEZ4NDBfRnVsbF9zZXR1cC5leGU=

GeSHi © Extension Codebox Plus

Si vous avez des avis ?

[liberodark]

Bonjour,

J'aimerais vous soumettre un script qui à une erreur et je ne c'est pas ou justement.
Il s'agit de l'update mais cela ne fonctionne pas bien avec la maj 7za.exe.

Code: [Tout sélectionner] [Déplier/Replier]

#include <7zaExe.au3>
#include <InetConstants.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIFiles.au3>

Download()

Func Download()
    ; Save the downloaded file to the folder.
    Local $sFilePath = @ScriptDir & "\Game\update.7z"
    Local $sFilePath1 = @ScriptDir & "\Game\7za.exe"

    ; Download the file in the background with the selected option of 'force a reload from the remote site.'
    Local $hDownload = InetGet("http://yurfile.altervista.org/download.php?fid=L3VwZGF0ZS43eg==", $sFilePath, $INET_FORCERELOAD, $INET_DOWNLOADBACKGROUND)

   ; Update 7za.exe.
   FileDelete("Game\7za.exe")
   Local $hDownload = InetGet("http://yurfile.altervista.org/download.php?fid=Lzd6YS5leGU=", $sFilePath1, $INET_FORCERELOAD, $INET_DOWNLOADBACKGROUND)

    ; Wait for the download to complete by monitoring when the 2nd index value of InetGetInfo returns True.
    Do
        Sleep(250)
    Until InetGetInfo($hDownload, $INET_DOWNLOADCOMPLETE)

    ; Retrieve details about the download file.
    Local $aData = InetGetInfo($hDownload)
    If @error Then
        FileDelete($sFilePath)
        Return False ; If an error occurred then return from the function and delete the file.
    EndIf

MsgBox(64,"Success", "Download")
FileDelete("Game\SSELauncher.exe")
DirRemove("Game\SmartSteamEmu", 1)
MsgBox(64,"Success", "Remove")

$7zaPath = @ScriptDir & "\Game\7za.exe"
$Archive = @ScriptDir & "\Game\update.7z"

$Res = _Extract7zaExe($7zaPath, $Archive, @ScriptDir&"\Game", 1)
MsgBox(64,"Success", "Extract")

    ; Close the handle returned by InetGet.
    InetClose($hDownload)

    ; Display details about the downloaded file.
    MsgBox($MB_SYSTEMMODAL, "", "Bytes read: " & $aData[$INET_DOWNLOADREAD] & @CRLF & _
            "Size: " & $aData[$INET_DOWNLOADSIZE] & @CRLF & _
            "Complete: " & $aData[$INET_DOWNLOADCOMPLETE] & @CRLF & _
            "successful: " & $aData[$INET_DOWNLOADSUCCESS] & @CRLF & _
            "error: " & $aData[$INET_DOWNLOADERROR] & @CRLF & _
            "extended: " & $aData[$INET_DOWNLOADEXTENDED] & @CRLF)

    ; Delete the file.
    FileDelete($sFilePath)
EndFunc   ;==>Download

GeSHi © Extension Codebox Plus

Cordialement

[liberodark]

Bonjour,

Je souhaite ecrire dans un fichier .ini mais je me retrouve avec une erreur d'argument.

Code: [Tout sélectionner] [Déplier/Replier]

Case $aPanel[1]
         Switch $nMsg[0]
            Case $hButton1
               IniWrite($sINIPath, "PlayerName", GUICtrlRead($hInput1))

GeSHi © Extension Codebox Plus

error: IniWrite() [built-in] called with wrong number of args.

Vous savez comment la corriger ?

Cordialement

[jchd]

Oui.


(En regardant l'aide sur cette fonction ! )

[liberodark]

Cela est déjà fait j'ai trouvé que cela pourrait etre un IniWriteSection ou IniRenameSection qui fonctionne mais ne remplace pas mais ecrit à la ligne.
Cordialement

[orax]

> error: IniWrite() [built-in] called with wrong number of args.
La fonction IniWrite() est appelée avec un nombre incorrect d'arguments. Il y a 4 arguments obligatoires.