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, 12:57

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
sylvanie
Modérateur
Modérateur


Nombre de messages : 300
Date d'inscription : 10/03/2007

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

Bonjour
voici une petite gui proposant ce que tu cherches.
Inspire toi de ceci afin de l'intégrer soit dans la GUI principale, ou dans une gui intermédaire, un menu ...

[code]
#region --- GuiBuilder code Start ---
; Script generated by AutoBuilder 0.6 Prototype

#include <GuiConstants.au3>

GuiCreate("MyGUI", 392, 323,-1, -1 )

$Label_1 = GuiCtrlCreateLabel("url", 10, 70, 90, 20)
$Input_2 = GuiCtrlCreateInput("http://", 130, 70, 170, 20)
$Label_3 = GuiCtrlCreateLabel("Login", 10, 120, 70, 30)
$Input_4 = GuiCtrlCreateInput("", 130, 120, 170, 20)
$Label_5 = GuiCtrlCreateLabel("Password", 10, 180, 60, 30)
$Input_6 = GuiCtrlCreateInput("", 120, 180, 180, 20,$ES_PASSWORD )
$Button_7 = GuiCtrlCreateButton("select file", 10, 230, 50, 20)
$Input_8 = GuiCtrlCreateInput("", 120, 230, 180, 20)
$Button_9 = GuiCtrlCreateButton("Lecture paramètres", 250, 280, 140, 30)

GuiSetState()
While 1
$msg = GuiGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Button_9
Lecture()
Case $msg = $Button_7
Browse()
Case Else
;;;
EndSelect
WEnd
Exit

Func Lecture()
Local $msg="Paramètres :"&@CRLF&"url : "&GUICtrlRead($Input_2)&@CRLF& _
"Login :"&GUICtrlRead($Input_4)&@CRLF&"Password : "&GUICtrlRead($Input_6)&@CRLF& _
"File selected :"&GUICtrlRead($Input_8)
MsgBox(0,"Paramètres",$msg)
EndFunc

Func Browse()
local $fic=FileOpenDialog("Select file",@MyDocumentsDir,"All (*.*)",3) ; voire aide de cette fonction
GUICtrlSetData($Input_8,$fic)
EndFunc


#endregion --- GuiBuilder generated code End ---
[/code]
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
killerthibs
Débutant
Débutant


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

MessageSujet: Re: Selection d'un fichier, et input string.   2007-07-27, 17:59

Merci beaucoup

J'ai ici des réponses que j'attendait.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
killerthibs
Débutant
Débutant


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

MessageSujet: Re: Selection d'un fichier, et input string.   2007-07-27, 19:41

Double post que ça se voit:

Voila, j'ai pu y appliquer les modifications necessaires, mais j'ai toujours un probleme qui persiste:

Le fichier se télécharge bien, mais la barre de progression ne bouge pas, et le log ne se rempli pas à la fin.

Voila la partie qui télécharge:

[code]
;label et inputbox serv
$Label_1 = GuiCtrlCreateLabel("adresse du serveur", 60, 100, 90, 50)
$Input_2 = GuiCtrlCreateInput("http://", 170, 100, 170, 20)

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)
$test=INetGet($sDownload,$ssFilename)
ProgressOn("Téléchargement", "Obtention de la dernière archive...")
While @InetGetActive
Dim $p = (100 * @InetGetBytesRead) / $ssSize
ProgressSet($p, @InetGetBytesRead & "/" & $ssSize & " Ko", "Téléchargement en cours")
ProgressOff()
If $test1 Then
GUICtrlSetData($log,'-----Download impossible: vérifiez vos infos serveur')
Else
GUICtrlSetData($log,'-----Derniere archive téléchargée avec succès')
EndIf
WEnd
Else
$test=InetGet($sDownload, $ssFilename)
sleep(2000)
If $test1 Then
GUICtrlSetData($log,'-----Download impossible: vérifiez vos infos serveur')
Else
GUICtrlSetData($log,'-----Derniere archive téléchargée avec succès')
EndIf
EndIf
EndFunc



$sDownload = GUICtrlRead($Input_2)
$sFilename='fichier.rar'
$sSize=0
$sFolder=@ScriptDir & 'Skybot'
$sProxy=0
$sName=0
$sPass=0
$sProgress=0

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

_download($sDownload, $sFilename, $sSize, $sFolder, $sProxy, $sName, $sPass, $sProgress)[/code]

Merci encore
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Selection d'un fichier, et input string.   Aujourd'hui à 22:41

Revenir en haut Aller en bas
 
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: