Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
  		RegistrierenRegistrieren  LoginLogin

Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB.NET] Fragen - Antworten
Autor
Nachricht
Truz
Newbie
Newbie

Anmeldedatum: 06.07.2009
Beiträge: 4
Hilfe bei Projekt (2 Fragen) FTP & Verschieben
Verfasst am: 06.07.2009, 08: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
Newbie

Anmeldedatum: 25.06.2009
Beiträge: 4

Verfasst am: 06.07.2009, 11: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
Newbie

Anmeldedatum: 11.04.2009
Beiträge: 14

Verfasst am: 06.07.2009, 16: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
Newbie



Anmeldedatum: 20.04.2009
Beiträge: 7
Wohnort: Neustadt a.d.W
Um das fenster zu verschieben:
Verfasst am: 21.07.2009, 08: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
Newbie

Anmeldedatum: 02.08.2009
Beiträge: 1

Verfasst am: 02.08.2009, 17: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

_________________
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB.NET] Fragen - Antworten

Tags: ftp, verschieben, projekt

  
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge [suche] Tuturials winsock & daten senden 869 09.06.2011, 12:19
Keine neuen Beiträge [Video] *.dll & *.ocx Installer 2433 06.03.2008, 20:19
Keine neuen Beiträge ListView speichern & laden 1243 05.08.2008, 12:32
Keine neuen Beiträge Registry & Co Fragen 1101 03.05.2007, 09:57
Keine neuen Beiträge Listbox speichern & laden 2047 22.03.2007, 20:25
 




[ Time: 0.2407s ][ Queries: 97 (0.0195s) ][ GZIP on - Debug on ]