Screenshot auf FTP Server

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von ThePlexian.

    Screenshot auf FTP Server

    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?

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim file As String
    4. Dim username As String = "username"
    5. Dim password As String = "pw"
    7. Dim randoming As String
    9. Public Function RandomString(ByVal length As Integer) As String
    10. Dim sb As New System.Text.StringBuilder
    11. 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", _
    12. "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", _
    13. "1", "2", "3", "4", "5", "6", "7", "8", "9", "0"}
    14. Dim upperBound As Integer = UBound(chars)
    16. For x As Integer = 1 To length
    17. sb.Append(chars(Int(Rnd() * upperBound)))
    18. Next
    20. Return sb.ToString
    22. End Function
    24. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    25. OpenFileDialog1.ShowDialog()
    26. file = OpenFileDialog1.FileName
    28. End Sub
    30. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    31. On Error Resume Next
    32. randoming = RandomString(7)
    33. My.Computer.Network.UploadFile(file, "ftp://ftpserver.com" & randoming & ".png", username, password)
    35. MsgBox("Upload complete.")
    37. Clipboard.SetText("ftppath" & randoming & ".png")
    38. End Sub
    40. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    41. Dim wc As New Net.WebClient
    42. wc.Credentials = New Net.NetworkCredential("username", "passwort")
    43. End Sub
    45. End Class

    Clipboard Zyklisch abfragen, befindet sich ein Bild darin, es auslesen und auf den Webspace hochladen.

    Edit: Bzw. vlt. gibt es auch ein WMI Event was ausgelöst wird wenn sich etwas in der Zwischenablage befindet.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Dodo“ ()

    Dodo schrieb:

    befindet sich ein Bild darin

    Code:

    VB.NET-Quellcode

    1. If Clipboard.ContainsImage() Then
    2. My.Computer.Network.UploadFile(Clipboard.GetImage(), "ftpserver" & randoming & ".png", username, password)
    3. End If


    Fehler:
    Spoiler anzeigen
    Fehler 1 Fehler bei der Überladungsauflösung, da keine zugreifbare "UploadFile" mit diesen Argumenten aufgerufen werden kann:
    "Public Sub UploadFile(sourceFileName As String, address As System.Uri, userName As String, password As String)": Der Wert vom Typ "System.Drawing.Image" kann nicht in "String" konvertiert werden.
    "Public Sub UploadFile(sourceFileName As String, address As System.Uri, userName As String, password As String)": Der Wert vom Typ "String" kann nicht in "System.Uri" konvertiert werden.
    "Public Sub UploadFile(sourceFileName As String, address As String, userName As String, password As String)": Der Wert vom Typ "System.Drawing.Image" kann nicht in "String" konvertiert werden. C:\Users\nichtmeinname\Documents\Visual Studio 2010\Projects\VB2010\ftpshare\ftpshare\Form1.vb 48 13 ftpshare

    ich denke UploadData hat die gleiche Signatur wie UploadImage, nur das der erste Parameter nicht der Pfad ist, sondern ein ByteArray.
    Zum Bytearray, siehe hier
    »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais

Facebook
Telefonspende