Discussion :

[wil340]

Bonjour , jai créer un programme qui prend des photo de mon écran a chaque minute et il sauvegarde les photo dans un dossier comme ça .
image1 , image2 , image3...
La je veux les mettre sur mon ftp avec inet1 mais jai une erreur qui dit
still executing last request et le programme ferme.
Voila mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Timer1_Timer()
Dim ret As Long
Static i As Long
 
i = i + 1
ret = GetDC(GetDesktopWindow)
 
If ret Then
 
Capture_Desktop "C:\WINDOWS\LPD\image" & i & ".bmp"
 
End If
Inet1.Execute , "PUT " + Chr(34) + "C:\WINDOWS\LPD\image" + CStr(i) + ".bmp" + Chr(34) + " " + Chr(34) + CStr(i) + ".bmp" + Chr(34)
 
If Inet1.StillExecuting = True Then
DoEvents
End If
 
 
End Sub

Merci.

[Akim13]

Bonjour,

Voila un bout de code qui transfert tous le contenue EX(JPG) qui ce trouve a la racine de ton EXE()VB) directement dans le dossier EX(images/photos) de ton FTP.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub Command1_Click()
fichier = Dir(orig + "*.jpg") 'la variable fichier prend le nom du fichier jpg.
Text1 = fichier
If fichier = "" Then 'Si la variable fichier est vide alors on quitte la boucle do.
Exit Sub
End If
 
 
With Inet1
.URL = "ftp.xxx.com"
.UserName = "user@xxx.com"
.Password = "*****"
.AccessType = icDirect
.protocol = icFTP 'Le protocole est FTP.
.Execute , "CD /images/photos" + dest 'Aller dans le repertoire de stockage.
 
End With
Do
fichier = Dir(orig + "*.jpg") 'la variable fichier prend le nom du fichier jpg.
If fichier = "" Then 'Si la variable fichier est vide alors on quite la boucle do.
 
Exit Do
Else
fichiersource = orig + fichier
 
While Inet1.StillExecuting = True 'tanque le controle inet est occupe'
DoEvents 'Attente que le fichier soit copie' pour continuer.
Wend
Inet1.Execute , "PUT " & fichiersource & " " & fichier 'copie du fichier.
 
While Inet1.StillExecuting = True
DoEvents 'Attente que le fichier soit copie' pour continuer.
Wend
 
Kill fichiersource 'supprimer le fichier jpg dans le re'pertoire source.
End If
Loop
Inet1.Cancel 'Fin de la connection au FTP.
End Sub