Einen Vorgang wiederholen ?

  • VB.NET

Es gibt 15 Antworten in diesem Thema. Der letzte Beitrag () ist von Chaky.

    Einen Vorgang wiederholen ?

    Hallo,

    VB.NET-Quellcode

    1. Imports System.Net.Mail
    3. Public Class Form1
    5. Dim msg As New MailMessage
    6. Dim Adress As New System.Net.NetworkCredential
    10. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    13. Adress.UserName = TextBox1.Text
    14. Adress.Password = TextBox2.Text
    15. msg.IsBodyHtml = False
    17. Dim smtp As New SmtpClient
    19. smtp.Host = TextBox3.Text
    20. smtp.Port = 25
    21. smtp.UseDefaultCredentials = False
    22. smtp.Credentials = Adress
    24. Try
    25. msg.From = New MailAddress(TextBox1.Text)
    26. msg.To.Add(TextBox4.Text)
    27. msg.Subject = TextBox5.Text
    28. msg.Body = RichTextBox1.Text
    29. msg.Attachments.Add(New Net.Mail.Attachment("C:\01.jpg"))
    31. smtp.Send(msg)
    33. Catch ex As Exception
    39. End Try
    40. End Sub
    42. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    43. ScreenToPicture("C:\01.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
    45. End Sub
    47. Function ScreenToPicture(ByVal Location As String, ByVal Format As System.Drawing.Imaging.ImageFormat) As String
    49. Try
    50. Dim currentScreenSize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
    51. Dim ScreenToBitmap As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
    52. Dim gGraphics As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(ScreenToBitmap)
    54. gGraphics.CopyFromScreen(New Point(0, 0), New Point(0, 0), currentScreenSize)
    56. ' Screenshot speichern
    57. ScreenToBitmap.Save(Location, Format)
    59. ' Screenshot in Zwischenablage kopieren
    60. Clipboard.SetImage(ScreenToBitmap)
    62. Return Location
    64. Catch ex As Exception
    65. Return ex.Message
    66. End Try
    68. End Function
    69. End Class


    Ich will damit erreichen, dass wenn auf SENDEN geklickt wird der Screen der vorher gemacht wurde
    per Anhang an eine Email Adresse gesendet wird.

    So nun mein Problem:

    Ich möchte diesen Vorgang über unbestimmte Zeit wiederholen also das die SCREENS
    alle 2sek gesendet werden zum Bespiel.
    Hatte eigentlich vor es mit If / Then zu versuchen aber ist natürlich eine Schnapsidee ;P

    Über Hlfe und Anregungen wäre ich seehr Dankbar.

    Mfg Chaky

    Hmm okay.

    Also habe den Timer Intervall auf 1000 gesetz.

    Wie kann ich es so hinbekommen dass er nach 2sek mir ein neuen Screen macht und nach 3sek es dann
    via Email schickt? Kann mir jemand freundlicher weise eine Source dazu schnell basteln?
    Vielen Dank im Voraus. :=

    Also so schwer ist das doch nicht :) Ich als anfänger versuch aber mal zu helfen.

    timer 1 code:
    screen
    timer 2 einschalten
    timer 1 ausschalten

    timer 2 code:
    senden
    timer 1 einschalten
    timer 2 ausschalten

    So dürfte das klappen glaub ich ^^

    du könntest eine for schleife benutzen :

    VB.NET-Quellcode

    1. For i = 0 to 3 'jetzt wird es 3 mal getan
    2. 'das was getan werden soll
    3. next


    und pausen machst du so :

    VB.NET-Quellcode

    1. Threading.Thread.Sleep(1000) '(1 sec pause)


    €dit: wenn du ne entlosschleife machen willst benutze einfach ein goto

    VB.NET-Quellcode

    1. Anfang:
    2. 'code
    3. goto Anfang

    @tomekk: Ja das hätte ich mir auch denken können aber wie soll ich das da integrieren.
    Und meine Frage ist nun ob mir jemand dei ersten 2-3 Schritte vormachen kann.
    Ich bekomms i-wie nicht auf die reihe :S

    @Zukatene: Wo muss ich MEINEN Code reinschreiben.??



    BIG EDIT: Also das mit GOTO klappt i.wie nicht er sagt mir dass ein bezeichner erwartet wird

    ;D;D hää XD


    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    5. Adress.UserName = TextBox1.Text
    6. Adress.Password = TextBox2.Text
    7. msg.IsBodyHtml = False
    9. Dim smtp As New SmtpClient
    11. smtp.Host = TextBox3.Text
    12. smtp.Port = 25
    13. smtp.UseDefaultCredentials = False
    14. smtp.Credentials = Adress
    16. Try
    17. msg.From = New MailAddress(TextBox1.Text)
    18. msg.To.Add(TextBox4.Text)
    19. msg.Subject = TextBox5.Text
    20. msg.Body = RichTextBox1.Text
    21. msg.Attachments.Add(New Net.Mail.Attachment("C:\01.jpg"))
    23. smtp.Send(msg)
    25. Catch ex As Excepti
    27. End Try


    Wo muss er jetzt hin ;D;D unter END TRY ?^^

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    3. ' hier ist der anfang oder? :D
    4. 'also kommt hier Anfang: hin
    6. Anfang:
    8. Adress.UserName = TextBox1.Text
    9. Adress.Password = TextBox2.Text
    10. msg.IsBodyHtml = False
    12. Dim smtp As New SmtpClient
    14. smtp.Host = TextBox3.Text
    15. smtp.Port = 25
    16. smtp.UseDefaultCredentials = False
    17. smtp.Credentials = Adress
    19. Try
    20. msg.From = New MailAddress(TextBox1.Text)
    21. msg.To.Add(TextBox4.Text)
    22. msg.Subject = TextBox5.Text
    23. msg.Body = RichTextBox1.Text
    24. msg.Attachments.Add(New Net.Mail.Attachment("C:\01.jpg"))
    26. smtp.Send(msg)
    28. Catch ex As Excepti
    30. End Try
    32. 'hier ist das ende
    33. 'hier kommt goto anfang
    34. goto Anfang
    36. End sub ' end sub haste vergessen :D

    ja ^^ aber das war halt erstmal die for schleife

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    3. 'hier ist der anfang oder? :D
    4. 'also kommt hier Anfang: hin
    5. Anfang:
    7. 'jetzt der screeshot...
    8. ScreenToPicture("C:\01.jpg", System.Drawing.Imaging.ImageFormat.Jpeg
    10. 'jetzt noch warten
    11. Threading.Thread.Sleep(3000)
    13. 'jetzt weiter mit dem code
    14. Adress.UserName = TextBox1.Text
    15. Adress.Password = TextBox2.Text
    16. msg.IsBodyHtml = False
    18. Dim smtp As New SmtpClient
    20. smtp.Host = TextBox3.Text
    21. smtp.Port = 25
    22. smtp.UseDefaultCredentials = False
    23. smtp.Credentials = Adress
    25. Try
    26. msg.From = New MailAddress(TextBox1.Text)
    27. msg.To.Add(TextBox4.Text)
    28. msg.Subject = TextBox5.Text
    29. msg.Body = RichTextBox1.Text
    30. msg.Attachments.Add(New Net.Mail.Attachment("C:\01.jpg"))
    32. smtp.Send(msg)
    34. Catch ex As Excepti
    36. End Try
    38. 'hier ist das ende
    39. 'hier kommt goto anfang
    40. goto Anfang
    42. End sub ' end sub haste vergessen :D