Okay ich arbeite immoment an einem Screenshot tool das Dateien auf einen FTP Server läd.
Ich habe bereits geschafft das es ausgewählte Dateien hochläd und mir die URL dann ins Clipboard kopiert.
Wie kann ich einen Screenshot direkt hochladen, ohne diesen irgendwo zu speichern?
Ich habe bereits geschafft das es ausgewählte Dateien hochläd und mir die URL dann ins Clipboard kopiert.
Wie kann ich einen Screenshot direkt hochladen, ohne diesen irgendwo zu speichern?
VB.NET-Quellcode
- Public Class Form1
- Dim file As String
- Dim username As String = "username"
- Dim password As String = "pw"
- Dim randoming As String
- Public Function RandomString(ByVal length As Integer) As String
- Dim sb As New System.Text.StringBuilder
- Dim chars() As String = {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", _
- "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "X", _
- "1", "2", "3", "4", "5", "6", "7", "8", "9", "0"}
- Dim upperBound As Integer = UBound(chars)
- For x As Integer = 1 To length
- sb.Append(chars(Int(Rnd() * upperBound)))
- Next
- Return sb.ToString
- End Function
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- OpenFileDialog1.ShowDialog()
- file = OpenFileDialog1.FileName
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- On Error Resume Next
- randoming = RandomString(7)
- My.Computer.Network.UploadFile(file, "ftp://ftpserver.com" & randoming & ".png", username, password)
- MsgBox("Upload complete.")
- Clipboard.SetText("ftppath" & randoming & ".png")
- End Sub
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Dim wc As New Net.WebClient
- wc.Credentials = New Net.NetworkCredential("username", "passwort")
- End Sub
- End Class