AutoIt Français

Nouveau forum : http://www.autoitscript.fr/
 
AccueilFAQRechercherS'enregistrerMembresGroupesConnexionhttp://www.autoitscript.fr

Partagez | 
 

 Selection d'un fichier, et input string.

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
killerthibs
Débutant
Débutant


Nombre de messages : 5
Date d'inscription : 26/07/2007

MessageSujet: Selection d'un fichier, et input string.   2007-07-26, 17:30

Salut à tous,

Je suis en train de scripter un programme permettant de programmer à plusieurs, qui récupere en temps réel les dernieres sources,et qui, une fois modifiée, les re-upload.

Je bloque juste sur 1-2 points.
Je voudrais pouvoir taper l'url, account, et mot de passe du serveur, dans 3 fields differents, et qu'ils s'enregistrent au fur et a mesure dans une variable.

Deplus, il faudrait que je puisse selectionner l'archive à uploader à partir du menu windobe qu'on retrouve partout, par exemple quand on clique sur "ouvrir" dans Scite...

Ca peut paraitre un peu idiot, mais j'ai aucune idée de la maniere dont je pourrai faire ça....

Je vous post déjà ce qui est fait

[code]#include
#include
#include
;Variables
Global $largeur
Global $hauteur
$largeur= 400
$hauteur = 270
;Creation de la fenêtre
GUICreate("Sources SkyBot",$largeur,$hauteur)
;Creer le field de log
$log = GUICtrlCreateEdit("Log de transferts", 60, 10, 280, 190)
;bouton download
$download = GUICtrlCreateButton("Download", 75, 210, 70, 25)
;bouton upload
$upload = GUICtrlCreateButton("Upload", 165, 210, 70, 25)
;bouton de fermeture
$exit = GUICtrlCreateButton("Fermer", 285, 210, 70, 25)

$serveur=
$login=
$pass=
;Il me faudrait ici des fields d'input pour mettre les infos serveur

;affichage de la fenêtre
GUISetState()

While 1
$msg = GUIGetMsg()
Select

;Detection du clic
Case $msg = $exit
;Si il clique sur exit, alors on ferme le tout
GUIDelete()
Exit

;Si il clique sur download, alors on déclare la fonction de téléchargement, puis on télécharge
Case $msg = $download

Func _Download($sDownload, $sFilename=0, $sSize=0, $sFolder=0, $sProxy=0, $sName=0, $sPass=0, $sProgress=0)
Opt("ExpandEnvStrings", 1)

; Setting Proxy
If $sProxy = 1 Then
HttpSetProxy(0)
FtpSetProxy(0)
EndIf

If $sProxy <> 0 And $sProxy <> 1 And $sName <> 0 And $sPass <> 0 Then
HttpSetProxy(2, $sProxy, $sName, $sPass)
FtpSetProxy(2, $sProxy, $sName, $sPass)
EndIf

; Setting Size
If $sSize = 0 Then
$ssSize = InetGetSize($sDownload)
Else
$ssSize = $sSize
EndIf

If StringRight($sSize, 2) = "kb" Then $sSizeTimes = 1024
If StringRight($sSize, 2) = "mb" Then $sSizeTimes = 1048576
If StringRight($sSize, 2) = "gb" Then $sSizeTimes = 1073741824

; Finding Filename
If $sFilename = 0 Then
$ssFilename = StringTrimLeft($sDownload,StringInStr($sDownload,"/",1,-1))
Else
$ssFileName = $sFileName
EndIf

; Progress/Download
If $sProgress = 0 then
Dim $ssSize = InetGetSize($sDownload)
INetGet($sDownload,$ssFilename)
ProgressOn("Downloading...", "Retrieving new version.")
While @InetGetActive
Dim $p = (100 * @InetGetBytesRead) / $ssSize
ProgressSet($p, @InetGetBytesRead & "/" & $ssSize & " bytes", "Download in progress.")
Sleep(250)
ProgressOff()
WEnd
Else
$test=InetGet($sDownload, $ssFilename)
sleep(2000)
If $test<>1 Then
GUICtrlSetData($log,'-----Download impossible: vérifiez vos infos serveur')
Else
GUICtrlSetData($log,'-----Derniere archive de Skybot téléchargée avec succès')
EndIf
EndIf
EndFunc


$sDownload=$serveur
$sFilename='sky.rar'
$sSize=0
$sFolder=@ScriptDir & 'Sky'
$sProxy=0
$sName=0
$sPass=0
$sProgress=0

GUICtrlSetData($log,'----- Download en cours...')

_download($sDownload, $sFilename, $sSize=0, $sFolder, $sProxy=0, $sName=0, $sPass=0, $sProgress=0)


;Fonction d'upload
Case $msg = $upload

$Dll=DllOpen("Wininet.dll")
$server = ''
$username = $login
$pass = $password
$from = ' '
;Il me faudrait ici le menu de fichier windows

$to = 'dev/'

$Open = _FTPOpen('MyFTP Control')
$Conn = _FTPConnect($Open, $server, $username, $pass)
$Ftpp = _FtpPutFile($Conn, $from, $to)
$Ftpc = _FTPClose($Open)
GUICtrlSetData($log,'----- Upload en cours...')
Sleep(2000)

if $ftpp=1 then
GUICtrlSetData($log,'----- Uploadé avec succès')
else
GUICtrlSetData($log,'----- Upload impossible: vérifiez vos infos serveur')
EndIf

DllClose($Dll)

EndSelect

WEnd

[/code]

Merci beaucoup à tous,et bonne journée
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Max485
Membre avancé


Nombre de messages : 53
Date d'inscription : 06/07/2007

MessageSujet: Re: Selection d'un fichier, et input string.   2007-07-26, 18:56

Bon voila par rapport a ca ce que je peut te dire:

[quote]Je voudrais pouvoir taper l'url, account, et mot
de passe du serveur, dans 3 fields differents, et qu'ils s'enregistrent
au fur et a mesure dans une variable.[/quote]

il suffit de créer une inputbox et que ca ecrivent dans un fichier ini

[code]
$url = InputBox ( "url","indiquer l'urlauquel vous allez vous connecter" )
IniWrite ( "iniflottes.ini", "connex", "url", $url)
$connex = InputBox ( "Connection","indiquer le nom d'utilisateur")
IniWrite ( "iniflottes.ini", "connex", "login", $connex)
$pass = InputBox ( "password", "indiquer le mot de pass de connection")
IniWrite ( "iniflottes.ini", "connex", "pass", $pass)[/code]

puis apres tu fait des iniread:

[code]$url = IniRead("iniflottes.ini", "connex", "url", "")[/code]

en esperant que c est ce que tu cherchait, mais te connaissant un peu je suis pas sur parck ca tu devrait connaitre

a+ bonne journée
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
 
Selection d'un fichier, et input string.
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» fichier Thunderbird Document
» faire une copie du fichier de la license de SZ ?
» fichier swf
» Fichier endommager
» inserer un fichier swf

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
AutoIt Français :: AutoIt v3 :: Entraide-
Sauter vers: