PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : Programm, dass datein auf FTP hochläd oder per e-mail verschickt


Breekachu
30.07.2009, 01:05
guten abend leute,
ich würde gerne in VB ein programm schreiben, dass eine bestimmte datei an eine e-mail adresse sendet oder diese datei auf einen FTP hochläd.
leider sind meine VB kenntnisse dafür nicht weit genug ausgeprägt :(
könnt ihr mir helfen?
danke im voraus!
CurRy
30.07.2009, 01:07
Hey,
hast du Google schon benutzt, da findest du gleich schon Source Codes mit denen du sehr leicht lernen kannst.

http://www.google.de/search?hl=de&q=vb+ftp+upload&btnG=Suche&meta=
nathex
30.07.2009, 01:18
Du könntest ja auch mal ein bisschen Eigeninitiative zeigen, und erst mit Google/SuFu nach einer Lösung suchen, bevor du irgendwelche Fragen stellst.

Hier mal ein Code für einen simplen FTP-Upload:


Dim ftp As New ChilkatFtp2

Dim success As Long

' Any string unlocks the component for the 1st 30-days.
success = ftp.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
MsgBox ftp.LastErrorText
Exit Sub
End If

ftp.Hostname = "ftp.chilkatsoft.com"
ftp.Username = "****"
ftp.Password = "****"

' The default data transfer mode is "Active" as opposed to "Passive".

' Connect and login to the FTP server.
success = ftp.Connect()
If (success <> 1) Then
MsgBox ftp.LastErrorText
Exit Sub
End If

' Change to the remote directory where the file will be uploaded.
success = ftp.ChangeRemoteDir("junk")
If (success <> 1) Then
MsgBox ftp.LastErrorText
Exit Sub
End If

' Upload a file.
Dim localFilename As String
localFilename = "hamlet.xml"
Dim remoteFilename As String
remoteFilename = "hamlet.xml"

success = ftp.PutFile(localFilename,remoteFilename)
If (success <> 1) Then
MsgBox ftp.LastErrorText
Exit Sub
End If

ftp.Disconnect

MsgBox "File Uploaded!"

Du musst natürlich Login, Dateinamen etc. ändern. Aber das solltest du selbst hinbekommen, sonst lern mal lieber noch ein bisschen :)
_

Und hier noch ein Beispielcode für den Versand einer HTML-Email:


' This Visual Basic example program to send a very
' simple HTML email.
Private Sub SendMail_Click()

' Create a MailMan instance to send email
Dim mailman As New ChilkatMailMan2

' Unlock the email component - anything begins the 30-day trial.
mailman.UnlockComponent "UnlockCode"

' Change this to your SMTP server.
mailman.SmtpHost = "smtp.earthlink.net"

' Create an email for sending
Dim email As New ChilkatEmail2

' Set the email subject
email.Subject = "test"

' Set the HTML email body
email.SetHtmlBody "<html><body><font face=""Courier New"" size=""3"">This text has a specific font and size.</font></body></html>"

' Add a plain-text alternative for recipients that may not be able to display HTML.
email.AddPlainTextAlternativeBody "If the recipient uses an email client that cannot " + _
"display HTML, then this plain-text alternative will be displayed."

email.AddTo "John Doe", "john@chilkatsoft.com"
email.AddCC "Matt", "matt@chilkatsoft.com"
email.FromAddress = "bill@chilkatsoft.com"
email.FromName = "Bill Doe"

' Send mail. Returns 1 if successful, 0 if failed.
success = mailman.SendEmail(email)
If (success = 0) Then
' Save errors to a log file.
MsgBox mailman.LastErrorText
mailman.SaveLastError "errorLog.xml"
Else
MsgBox "Message Sent!"
End If


End Sub

Auch hier musst du wieder die personenspeziefischen Dinge (z.B. Absender und Empfänger E-Mails) ändern.

Quellen: www.example-code.com
Breekachu
30.07.2009, 01:39
ok nächste mal benutz ich erst mal google^^
aber danke für den code :)
nur da komm die fehlermeldung:
""der typ "ChilkatFtp2" ist nicht deklariert""
weiß jemand was da flasch gelaufen ist?
Publix
30.07.2009, 02:01
Also ich hatte ganz früher dass auch mal gemacht.. Vbparadise ist ein super Board was dir deinen Anfang auf jeden Fall erleichtern wird.
Breekachu
30.07.2009, 02:28
ich habe mir jetzt durch googlen folgenden code gefunden:

Dim wcl As New Net.WebClient
wcl.Credentials = New Net.NetworkCredential("DeinBenutzername", "DeinPasswort")
wcl.UploadString("ftp://deinserver.de/deineTextdatei.txt", TextBox1.Text)

also es funktioniert super nur leider erstellt dieser code nur eine textdatei auf dem FTP und ich will ja eine datei uploaden.
kann mir vllt. jemanden den code so abändern, dass es funktiert ich hab schon vieles ersucht aber nichts hat funktioniert -.-
biggermanbomber
30.07.2009, 05:05
Man eh ich kann nicht verstehen warum manche einfach keinen plan haben wie man google used. Denn wenn man nach "ftp upload vb.net" sucht findet man so so so viele codes die jeder noob per c&p verwenden kann.
Sawyer
30.07.2009, 13:07
Wir hatten das Thema FTP Upload schon zu genüge , deshalb hätte die Suchfunktion sicher einiges dazu Ausgespukt , aber hier:

http://free-hack.com/showpost.php?p=353976&postcount=4

Da es sich um .NET handelt , werde ich das Thema mal verschieben.

MfG , ThePapst
Sirect
30.07.2009, 13:43
My.Computer.Network.UploadFile("", "")


Einfacher gehts eigentlich nich mehr :D