Discussion :

[dajij]

hello

je veux excuter des command dos de ftp sur vb
=====================================
comme
ftp
o
site.com
user:site12
pass:123456
=====================================
j'ais utiliser cette commands et j'aime bien cacher la fenetre commands.com
comment le cacher svp aider moi ca fait leng temps que je cherche

Shell "cmd /c " & sYourCommand, vbHide

[Vld44]

t'as essayé avec vbMinimizedNoFocus ?

[ProgElecT]

Currieux que cela ne fonctionne pas, vbHide est bien executé chez moi (platforme Vista avec VB6.)
Une alternative, integrer la fenêtre Dos dans ton Form, la positionner en negatif dans ce Form.
Sur un Form, 4 CommandButtons

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Option Explicit
Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long
 
Private Declare Function SetParent Lib "User32" ( _
    ByVal hWndChild As Long, _
    ByVal hWndNewParent As Long) As Long
 
Private Declare Function MoveWindow Lib "User32" ( _
    ByVal hWnd As Long, ByVal x As Long, ByVal y As Long, _
    ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
 
Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" ( _
    ByVal hWnd As Long, ByVal wMsg As Long, _
    ByVal wParam As Long, _
    lParam As Any) As Long
Private Const WM_CLOSE = &H10
 
Dim Result As Long
Dim ChemNom As String
Dim Titre As String
Public Sub RetarD(Durer As Single)
Dim R As Single
R = Timer + Durer
Do While Timer < R
 DoEvents
Loop
End Sub
Private Sub Form_Load()
Command1.Caption = "Cmd Dos": Command1.Move 60, 75, 1200, 345
Command2.Caption = "Masquer": Command2.Move 1305, 75, 1200, 345
Command3.Caption = "Démasquer": Command3.Move 2535, 75, 1200, 345
Command4.Caption = "Fermer": Command4.Move 3795, 75, 1200, 345
Me.WindowState = vbMaximized
End Sub
Private Sub Form_Unload(Cancel As Integer)
If Result <> 0 Then
 SendMessage Result, WM_CLOSE, 0, 0
End If
End Sub
 
Private Sub Command1_Click()
'Cmd Dos
ChemNom = "cmd ": Titre = "C:\Windows\System32\Cmd.exe"
Result = Shell(ChemNom, vbNormalFocus)
If Result <> 0 Then
 RetarD 0.05
 Result = FindWindow(vbNullString, Titre)
 SetParent Result, Me.hWnd
 'pour masquer
 RetarD 0.05
 'Command2_Click
End If
End Sub
Private Sub Command2_Click()
'Masquer
MoveWindow Result, -Me.Width, Me.Height, 200, 200, 1
End Sub
Private Sub Command3_Click()
'Démasquer
MoveWindow Result, 100, 100, 720, 600, 1
End Sub
Private Sub Command4_Click()
'Fermer
SendMessage Result, WM_CLOSE, 0, 0
Result = 0
End Sub

[Delbeke]

Sinon, il y a des solutions en n'utilisant pas le ftp fourni par windows. Tu peux essayer de voir dans mes contributions (suivre le lien de ma signature) un composant DiFtpCli6.ocx qui est un client FTP dans un composant Ocx. Donc pilotable de façon totalement transparent depuis vb.
Un exemple de mise en oeuvre du composant est fourni ansi que toutes les sources.

[dajij]

merci
mais le problem avec ftp fourni par windows
si le programme execute sur session INVETé on peux pas ajouter le fichier DiFtpCli6.ocx sur system32


c pour ca je veux utiliser dos pour envoyer mon fichier sur ftp


ProgElecT MERCI pour le code je c'ait que tu peux m'aider
svp je veux que tu me donne un exemple d'une aplication
execute des coomands dos sont aficher la fenetre dos

comme ca
ftp
o
site.com
password
svp aide moi

[ProgElecT]

il est vrai que l'outil de Delbeke (salut) serait l'idéal, lors d'un repassage de sa par, il paurra peu être t'en dire plus sur l'utilisation de son composant DiFtpCli6.ocx.

je veux que tu me donne un exemple d'une aplication
execute des coomands dos sont aficher la fenetre dos

Sur un Form, 4 CommandButtons
Code :

dans Private Sub Command1_Click(), addapter les deux instructions, ligne =>

Code :

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

1
2
ChemNom = "cmd ": Titre = "C:\Windows\System32\Cmd.exe"
Result = Shell(ChemNom, vbNormalFocus)

ChemNom = "cmd /c " & sYourCommand, pour se que j'en ai compris;

[dajij]

ChemNom = "cmd /c "

si je pose la commande ftp il faut sendkey entrer pour suivre l'autre commands
o

comment faire :s:s

ChemNom = "cmd /c ftp o site.com " pas compris pardon

[SfJ5Rpw8]

B'soir,


si tu continue à utilise ftp, penche toi sur l'option -s , qui te permet d'utiliser un fichier script, pour ftp

[dajij]

j'ais rien compris avec l'option -s

je veux une method pour transfert un fichier txt sur mon ftp cmment svp

san avoir une fichier .dll ou osc avec vb svp