Quelques petits problèmes, et besoin de script.

Quelques petits problèmes, et besoin de script. - VB/VBA/VBS - Programmation

Marsh Posté le 24-04-2015 à 18:13:33    

Bonjour,
J'aimerais simplement créer un trainer, je m'explique :
C'est totalement légal sur le jeu ou je veux le réaliser.
J'ai besoin de 2 infos :
1:
J'aimerais avoir un script qui permet d'utiliser les donnés de cheat engine, exemple :
(J'aimerais qu'an cliquant sur un bouton, la value xxxxxxxxxxx dans le procesus xxx.exe soit changer par ((texte dans un textbox)) ou par une value prédéfini )
 
2:
J'aimerais avoir un script qui permet de proceder a un remplacement de fichier j'explique :
(en cliquant sur un bouton, le fichier xxxxxxx.xxx se trouvant sur une adresse internet soit directement upload et qui remplace un fichier se trouvant dans un chemin de dossier par defaut ((c://document/user/xxxxx/xxx)) ou qui peut etre modifier par l'utilisateur.)
 
J’espère avoir était claire.
Merci de votre aide
Au revoir.

Reply

Marsh Posté le 24-04-2015 à 18:13:33   

Reply

Marsh Posté le 28-04-2015 à 16:16:02    

Alors personne ?
Up !

Reply

Marsh Posté le 03-05-2015 à 15:31:40    

Pour le 1- je voudrais connaître le nom du jeu en question.

 

Pour le 2- tu cherches en gros à avoir un script de téléchargement avec l'emplacement à définir par l'utilisateur ?
Perso ça ne sera pas du VBScript/HTA, même si c'est réalisable avec, je ferais ça en AutoIT en partant de ça...


Message édité par bardiel le 03-05-2015 à 16:19:46

---------------
Grippe ? Coronavirus ? Portez votre masque correctement ! :D
Reply

Marsh Posté le 03-05-2015 à 19:47:36    

Pour le 2-, en AutoIT ça donne :


#include <InetConstants.au3>
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
 
 
$GUI = GUICreate("Téléchargement", 400, 250)
GUISetBkColor (0xffffff)
GUICtrlSetColor(-1, 0xff6347)
GUICtrlSetBkColor(-1, 0xf0f8ff)
GUICtrlCreateLabel("Lien :",5,5,50,15)
$strCible = GUICtrlCreateInput("http://ftp.freebsd.org/pub/FreeBSD/ISO-IMAGES-amd64/10.0/FreeBSD-10.0-RELEASE-amd64-dvd1.iso", 55, 5,300,20)
GUICtrlCreateLabel("Cible :",5,25,50,15)
$strTarget = GUICtrlCreateInput("FreeBSD-10.0-RELEASE-amd64-dvd1.iso", 55, 25, 250, 20)
$lancer = GUICtrlCreateButton("Lancer", 25, 50, 80, 20)
$stopper = GUICtrlCreateButton("Stopper", 130, 50, 80, 20)
$rzo_lu=GUICtrlCreateLabel("lu", 5, 80, 300, 15)
$rzo_size=GUICtrlCreateLabel("size", 5, 100, 300, 15)
$rzo_complete=GUICtrlCreateLabel("complete", 5, 120, 300, 15)
$rzo_successful=GUICtrlCreateLabel("successful", 5, 140, 300, 15)
$rzo_erreur=GUICtrlCreateLabel("error", 5, 160, 300, 15)
$rzo_etendue=GUICtrlCreateLabel("extend", 5, 180, 300, 15)
GUISetState(@SW_SHOW)
GUISetOnEvent(-3, "_Exit" )
 
While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
  Case $GUI_EVENT_CLOSE
   _Exit()
  Case $lancer
   _lancer()
  Case $stopper
   _Exit()
 EndSwitch
WEnd
 
Func _lancer()
 GUICtrlSetData($rzo_lu, "Bytes read: initialisation" )
 GUICtrlSetData($rzo_size,"Size: initialisation" )
 GUICtrlSetData($rzo_complete, "Complete: initialisation" )
 GUICtrlSetData($rzo_successful, "successful: initialisation" )
 GUICtrlSetData($rzo_erreur, "@error: initialisation" )
 GUICtrlSetData($rzo_etendue, "@extended: initialisation" )
 Global $sFilePath = GUICtrlRead($strTarget)
 $cible = GUICtrlRead($strCible)
 Global $hDownload = InetGet($cible, $sFilePath, $INET_FORCERELOAD, $INET_DOWNLOADBACKGROUND)
 While InetGetInfo()
  $aData = InetGetInfo($hDownload)
  GUICtrlSetData($rzo_lu, "Bytes read: " & $aData[$INET_DOWNLOADREAD] )
  GUICtrlSetData($rzo_size,"Size: " & $aData[$INET_DOWNLOADSIZE] )
  GUICtrlSetData($rzo_complete, "Complete: " & $aData[$INET_DOWNLOADCOMPLETE] )
  GUICtrlSetData($rzo_successful, "successful: " & $aData[$INET_DOWNLOADSUCCESS] )
  GUICtrlSetData($rzo_erreur, "@error: " & $aData[$INET_DOWNLOADERROR] )
  GUICtrlSetData($rzo_etendue, "@extended: " & $aData[$INET_DOWNLOADEXTENDED] )
  Sleep(100)
  $nMsg = GUIGetMsg()
  Switch $nMsg
   Case $GUI_EVENT_CLOSE
    _Exit()
   Case $stopper
    _Exit()
  EndSwitch
 Wend
 InetClose($hDownload)
EndFunc
 
Func _Exit()
 If (InetGetInfo()) Then
  InetClose($hDownload)
 EndIf
    Exit
EndFunc   ;==>_Exit


En prime ça te dit combien tu as téléchargé et la taille du fichier (si le serveur web en face le supporte)
Tu remplaces :
- http://ftp.freebsd.org/pub/FreeBSD [...] 4-dvd1.iso par ton lien
- FreeBSD-10.0-RELEASE-amd64-dvd1.iso par le nom du fichier et son emplacement (C:\... D:\...)
Ainsi ça sera les valeurs par défaut, mais l'utilisateur final pourra les changer...


---------------
Grippe ? Coronavirus ? Portez votre masque correctement ! :D
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed