|
| Autor |
Nachricht |
Truz
Newbie
Anmeldedatum: 06.07.2009
Beiträge: 4
|
Hilfe bei Projekt (2 Fragen) FTP & Verschieben
Verfasst am: 06.07.2009, 09:50 |
|
|
Hallo,
Ich bin mit einem Freund ein Projekt angefangen, bei dem wir jetzt vor zwei fragen stehen.
Frage1:
Ich habe mehrere Textboxen, (3-5) in die was eingetragen wird, und ich möchte dann das diese als Datei auf meinen FTP oder an meine E-Mail geschickt wird (als Feedback).
Frage2:
Ich habe den FormBorderStyle auf NONE, aber jetzt kann ich das Fenster nicht verschieben, ich habe oben schon eine Bild und möchte wenn man das gedrückt hält das man das Fenster dann verdchieben kann.
MFG:
Truz, Jannik |
|
| |
|
 |
Chester37
Newbie
Anmeldedatum: 25.06.2009
Beiträge: 4
|
Verfasst am: 06.07.2009, 12:40 |
|
|
Hi, vll kann dir das weiterhelfen:
Dim clsRequest As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://deinftpserver.de/www/""Dateizumupload.txt"), System.Net.FtpWebRequest)
clsRequest.Credentials = New System.Net.NetworkCredential("benutzername", "passwort")
clsRequest.Method = System.Net.WebRequestMethods.Ftp.UploadFile
Dim bFile() As Byte = System.IO.File.ReadAllBytes("dateipfad")
Dim clsStream As System.IO.Stream = clsRequest.GetRequestStream()
clsStream.Write(bFile, 0, bFile.Length)
clsStream.Close()
clsStream.Dispose()
Mfg
Chester |
|
| |
|
|
staebche
Newbie
Anmeldedatum: 11.04.2009
Beiträge: 14
|
Verfasst am: 06.07.2009, 17:37 |
|
|
zu deinem ersten punkt.
wir erstellen eine txt datei :
| Code: | Dim sw As New StreamWriter(My.Application.Info.DirectoryPath & "\Log.txt", True)
With sw
' Setze alle Daten Zusammen und speichere sie ab
.WriteLine(TextBox1.Text & " " & TextBox2.Text & " " & TextBox3.Text & " " & TextBox4.Text & " " & TextBox5.Text)
' Stream Spühlen
.Flush()
' Stream Schliessen
.Close()
End With |
und dann nur noch uploaden
| Code: | Dim Server as string = "ftp.extra.hu" ' zB muss zu deinem ftp passen
Dim User As String = "DeinBenutzer"
Dim Passwort As String = "DeinPasswort"
My.Computer.Network.UploadFile(My.Application.Info.DirectoryPath & "\Log.txt", "ftp://" & Server & "/" & System.Environment.MachineName & ".txt", User, Passwort) |
|
|
| |
|
|
skateforetnies
Newbie
Anmeldedatum: 20.04.2009
Beiträge: 7
Wohnort: Neustadt a.d.W
|
Um das fenster zu verschieben:
Verfasst am: 21.07.2009, 09:40 |
|
|
| Code: | Private _move As Boolean = False
Dim differencePoint As New Point
Private Sub PictureBox1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
_move = True
differencePoint = e.Location
End Sub
Private Sub PictureBox1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
If _move Then
Dim newX As Int32 = (Me.Location.X - differencePoint.X) + (e.X)
Dim newY As Int32 = (Me.Location.Y - differencePoint.Y) + (e.Y)
Me.Location = New Point(newX, newY)
End If
End Sub
Private Sub PictureBox1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
_move = False
End Sub |
Mein Aktuelles Projekt wer hätte es gedacht?;-D ein Webbrowser mit tabs auf gecko basis. Habe noch keinen Namen gefunden, könnt ja ein paar ideen springen lasse.
THX im Vorraus
SKATEFORETNIES |
|
| |
|
|
xdrazor
Newbie
Anmeldedatum: 02.08.2009
Beiträge: 1
|
Verfasst am: 02.08.2009, 18:38 |
|
|
| staebche hat Folgendes geschrieben: | zu deinem ersten punkt.
wir erstellen eine txt datei :
| Code: | Dim sw As New StreamWriter(My.Application.Info.DirectoryPath & "\Log.txt", True)
With sw
' Setze alle Daten Zusammen und speichere sie ab
.WriteLine(TextBox1.Text & " " & TextBox2.Text & " " & TextBox3.Text & " " & TextBox4.Text & " " & TextBox5.Text)
' Stream Spühlen
.Flush()
' Stream Schliessen
.Close()
End With |
und dann nur noch uploaden
| Code: | Dim Server as string = "ftp.extra.hu" ' zB muss zu deinem ftp passen
Dim User As String = "DeinBenutzer"
Dim Passwort As String = "DeinPasswort"
My.Computer.Network.UploadFile(My.Application.Info.DirectoryPath & "\Log.txt", "ftp://" & Server & "/" & System.Environment.MachineName & ".txt", User, Passwort) |
|
Wenn ich den Code einfüge und ihn dann compilen will, kommt folgendes Probem:
| Code: | Fehler 2 Der Typ "StreamWriter" ist nicht definiert. C:\Dokumente und Einstellungen\Internet\Eigene Dateien\Visual Studio 2008\Projects\Senden\Senden\Form1.vb 14 23 Senden
|
|
|
| |
|
|
|
|
Registrieren
Login
