Dienst, macht keinen Mux

  • VB.NET

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

    Dienst, macht keinen Mux

    Hallo,
    habe mir einen kleinen Windows Dienst geschrieben, nix besonderes... der leider keinen Mux von sich gibts

    ERstmal der Aufbau:
    - Mit VB 2010 einen Dienst erstellt
    - Automatisch erstellte Datei "Service1" gleich belassen nicht umbenannt
    - Projectinstaller.vb hinzugefügt
    - eine Klasse angelegt "ServicePgm"
    Unter My Projekt habe ich unter Startobjekt Service1 stehen...

    Code: Service1:
    (Timer auf das Element gelegt und eingestellt auf 200 - nur zum testen)

    VB.NET-Quellcode

    1. Imports System.Net.Mail
    3. Public Class Service1
    5. Protected Overrides Sub OnStart(ByVal args() As String)
    6. ' Code zum Starten des Dienstes hier einfügen. Diese Methode sollte Vorgänge
    7. ' ausführen, damit der Dienst gestartet werden kann.
    8. Timer1.Start()
    9. End Sub
    11. Protected Overrides Sub OnStop()
    12. ' Hier Code zum Ausführen erforderlicher Löschvorgänge zum Beenden des Dienstes einfügen.
    13. Timer1.Stop()
    14. End Sub
    16. Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
    17. Dim Start As New ServicePgm
    18. Start.IPServiceRun()
    19. End Sub
    20. End Class


    Code ServicePgm:

    VB.NET-Quellcode

    1. Imports System.Net.Mail
    3. Public Class ServicePgm
    4. Friend Sub IPServiceRun()
    5. Dim IPtest As String = ReturnWANIP()
    6. If IPtest <> My.Settings.vorhandeneIP Then
    7. My.Settings.vorhandeneIP = IPtest
    8. mailversand(IPtest)
    9. End If
    10. End Sub
    12. Private Sub mailversand(ByVal neueIP As String)
    13. Dim appname As String = My.Application.Info.Title
    14. Dim objEventLog As New EventLog()
    15. Try
    16. Dim SmtpServer As New SmtpClient()
    17. Dim mail As New MailMessage()
    18. mail = New MailMessage()
    19. mail.From = New MailAddress("xxx@xxx-xxx.de") 'Same email addres as used above
    20. mail.To.Add("xxx@xxx-xxx.de") 'to e.g. blah@blah.com
    21. mail.Subject = "WAN IP Änderung!" 'This is the subject
    22. mail.Body = "Neue IP: " & neueIP 'This is the message"
    23. SmtpServer.Credentials = New Net.NetworkCredential("info@xxx-xxx.de", "PASSWORT") 'gmail email address and its password
    24. SmtpServer.UseDefaultCredentials = True
    25. SmtpServer.Host = "xxx.xxx-xxx.de" 'Host is gmail
    26. SmtpServer.Send(mail)
    27. WriteToEventLog("MS IPservice hat festgestellt, dass eine neue IP vorhanden ist - Meldung: " & neueIP)
    28. Catch ex As Exception
    29. MsgBox(ex.ToString)
    30. WriteToEventLog("MS IPservice hat einen Fehler - Meldung: " & ex.Message)
    31. End Try
    33. End Sub
    35. Function ReturnWANIP()
    36. Dim web As New Net.WebClient
    37. Try
    38. Dim WANip As String = web.DownloadString("http://ip.mcandy007.de")
    39. Return WANip
    40. Catch ex As Exception
    41. Return 0
    42. End Try
    43. End Function
    45. Public Sub WriteToEventLog(ByVal Fehler As String)
    46. Dim sSource As String
    47. Dim sLog As String
    48. Dim sEvent As String
    49. sSource = "EventLog-Beispiel"
    50. sLog = "Application" ' oder "System" oder "Security" oder
    51. ' selbstdefiniertes Ereignisprotokoll
    52. sEvent = Fehler
    53. If Not EventLog.SourceExists(sSource) Then
    54. EventLog.CreateEventSource(sSource, sLog)
    55. End If
    56. End Sub
    57. End Class


    Installiert habe ich mit installutil blablabla - funktioniert, wird eingetragen und ich kann ihn auch starten - aber -
    er macht keinen Mux und er schreibt auch nix nichts in Ereignisanteige/Anwendung rein... sollte er aber, dass einzigste was er schreibt ist, dass er den Dienst installiert hat (automatisch durch windows wird das ja angelegt) und er schreib Dienst gestaret... das wars... mehr macht er nicht...

    was habe ich da falsch gemacht ??

    Könntet Ihr mir da weiterhelfen ?

    Gruß
    lris


    EDIT:

    Unter My Projekt habe ich noch ein Feld für My.Settings angelegt...

    Ich kann dir nur emphelen MessageBoxen an verschieden positionen
    zu setzen dann weisst du wo er nicht weitermacht

    VB.NET-Quellcode

    1. Friend Sub IPServiceRun()
    2. MsgBox("IPServiceRun() ist gestartet")
    3. Dim IPtest As String = ReturnWANIP()
    5. If IPtest <> My.Settings.vorhandeneIP Then
    6. My.Settings.vorhandeneIP = IPtest
    7. mailversand(IPtest)
    8. End If
    9. End Sub

    nein, den teimer kann mann auf bei diesnten auflegen...

    Fehler ist Netzwerkpfad nicht gefunden -
    Der Dienst kann nicht gestartet werden. System.IO.IOException: Der Netzwerkpfad wurde nicht gefunden. bei Microsoft.Win32.RegistryKey.Win32ErrorStatic(Int32 errorCode, String str) bei Microsoft.Win32.RegistryKey.OpenRemoteBaseKey(RegistryHive hKey, String machineName, RegistryView view) bei System.Diagnostics.EventLogInternal.GetEventLogRegKey(String machine, Boolean writable) bei System.Diagnostics.EventLogInternal.FindSourceRegistration(String source, String machineName, Boolean readOnly, Boolean wantToCreate) bei System.Diagnostics.EventLogInternal.SourceExists(String source, String machineName, Boolean wantToCreate) bei System.Diagnostics.EventLogInternal.VerifyAndCreateSource(String sourceName, String currentMachineName) bei System.Diagnostics.EventLogInternal.WriteEntry(String message, EventLogEntryType type, Int32 eventID, Int16 category, Byte[] rawData) bei System.Diagnostics.EventLog.WriteEntry(String message) bei IPService.Service1.mailversand(String _Titel, String _Body) bei IPService.Service1..



    Service1:

    VB.NET-Quellcode

    1. Imports System.Net.Mail
    3. Public Class Service1
    5. Protected Overrides Sub OnStart(ByVal args() As String)
    6. ' Code zum Starten des Dienstes hier einfügen. Diese Methode sollte Vorgänge
    7. ' ausführen, damit der Dienst gestartet werden kann.
    8. mailversand("IPService-Meldung", "Der Dienst IPService wurde um " & Date.Now & " neu gestartet.")
    9. EventLog1.WriteEntry("Der Dienst IPService wurde um " & Date.Now & " neu gestartet.")
    10. Timer1.Start()
    11. End Sub
    13. Protected Overrides Sub OnStop()
    14. ' Hier Code zum Ausführen erforderlicher Löschvorgänge zum Beenden des Dienstes einfügen.
    15. Timer1.Stop()
    16. End Sub
    18. Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
    19. Dim IPtest As String = ReturnWANIP()
    20. If IPtest <> "y" Then
    21. My.Settings.vorhandeneIP = IPtest
    22. mailversand("WAN IP Änderung!", "Neue IP: " & IPtest)
    23. End If
    24. End Sub
    26. Private Sub mailversand(ByVal _Titel As String, ByVal _Body As String)
    27. Dim appname As String = My.Application.Info.Title
    28. Dim objEventLog As New EventLog()
    29. Dim EventLog1 As New EventLog("Application", "myserver", "newsource")
    30. Try
    31. Dim SmtpServer As New SmtpClient()
    32. Dim mail As New MailMessage()
    33. mail = New MailMessage()
    34. mail.From = New MailAddress("xxxxxxxxxxxxxxx") 'Same email addres as used above
    35. mail.To.Add("xxxxxxxxxxxxxxx") 'to e.g. blah@blah.com
    36. mail.Subject = _Titel '
    37. mail.Body = _Body
    38. SmtpServer.Credentials = New Net.NetworkCredential("xxxxxxxxxxxxxxx", "xxxxxxxxxxxxxxx") 'gmail email address and its password
    39. SmtpServer.UseDefaultCredentials = True
    40. SmtpServer.Host = "xxxxxxxxxxxxxxx"
    41. SmtpServer.Send(mail)
    42. Catch ex As Exception
    43. EventLog1.WriteEntry("Fehler beim Versenden der Mail von IPService " & ex.Message)
    44. End Try
    45. End Sub
    47. Private Function ReturnWANIP()
    48. Dim web As New Net.WebClient
    49. Try
    50. Dim WANip As String = web.DownloadString("http://ip.mcandy007.de")
    51. Return WANip
    52. Catch ex As Exception
    53. Return 0
    54. End Try
    55. End Function
    57. End Class


    habe das gefühl das der timer nichtläuft....

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „lris08“ ()

    ...
    also nun habe ich das teil zum laufen gebracht, habe das eventlog richtig eingestellt und Code sollte nun passen

    nun klappt nur eines noch nicht und zwar die authentifizierung beim Mailserver (SBS 2011).

    Fehlermeldung im Log:
    IPService-Meldung: Fehler beim Versenden der Mail von IPService. Für den SMTP-Server ist eine sichere Verbindung erforderlich, oder der Client wurde nicht authentifiziert. Die Serverantwort war: 5.7.1 Client was not authenticated

    das komische daran ist aber, wenn ich eine "normale" Windows Form erstelle und den gleichen code verwende, werden Emails versendet... als Dienst hat er das das problem mit dem authentifizierung...

    Hat da jemand eine Idee wie ich das bei einem Dienst lösen könnte???

    Und irgendwie habe ich den verdacht das der Timer unter einem Dienst auch nicht läuft...
    Den Timer kann man ja bei VB2010 auf das Service1 legen - wie in einer Form auch...
    Aufmerksam wurde ich, da die Fehlermeldung dass keine authentifikation möglich war nur einmal nach dem start des dienstes kommt... sollte ja eigentlich dnn alle paar min kommen, das keine mails versendet werdenkönnen... oder ?


    Wäre echt dankbar...

    hier der code Service1:

    VB.NET-Quellcode

    1. Imports System.Net.Mail
    3. Public Class Service1
    5. Protected Overrides Sub OnStart(ByVal args() As String)
    6. ' Code zum Starten des Dienstes hier einfügen. Diese Methode sollte Vorgänge
    7. ' ausführen, damit der Dienst gestartet werden kann.
    8. EventLog1.WriteEntry("IPService-Meldung: Der Dienst IPService wurde um " & Date.Now & " neu gestartet.")
    9. mailversand("IPService-Meldung", "Der Dienst IPService wurde um " & Date.Now & " neu gestartet.")
    10. Timer1.Start()
    11. End Sub
    13. Protected Overrides Sub OnStop()
    14. ' Hier Code zum Ausführen erforderlicher Löschvorgänge zum Beenden des Dienstes einfügen.
    15. Timer1.Stop()
    16. End Sub
    18. Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
    19. Dim IPtest As String = ReturnWANIP()
    20. If IPtest <> "y" Then ' nur zum test........
    21. My.Settings.vorhandeneIP = IPtest
    22. mailversand("WAN IP Änderung!", "Neue IP: " & IPtest)
    23. End If
    24. End Sub
    26. Private Sub mailversand(ByVal _Titel As String, ByVal _Body As String)
    27. Dim appname As String = My.Application.Info.Title
    28. Dim objEventLog As New EventLog()
    29. Try
    30. Dim SmtpServer As New SmtpClient()
    31. Dim mail As New MailMessage()
    32. mail = New MailMessage()
    33. mail.From = New MailAddress("xxxxxxxxxxxxxxx") 'Same email addres as used above
    34. mail.To.Add("xxxxxxxxxxxxx") 'to e.g. blah@blah.com
    35. mail.Subject = _Titel '
    36. mail.Body = _Body
    37. SmtpServer.UseDefaultCredentials = True
    38. SmtpServer.Credentials = New Net.NetworkCredential("xxxxxxxxxxxxx", "xxxxxxxxxxx") 'gmail email address and its password
    39. SmtpServer.Host = "xxxxxxxxxxxxxx"
    40. SmtpServer.Send(mail)
    41. EventLog1.WriteEntry("IPService-Meldung: Mail versendet.")
    42. Catch ex As Exception
    43. EventLog1.WriteEntry("IPService-Meldung: Fehler beim Versenden der Mail von IPService. " & vbCrLf & ex.Message)
    44. End Try
    45. End Sub
    47. Public Function ReturnWANIP()
    48. Dim web As New Net.WebClient
    49. Try
    50. Dim WANip As String = web.DownloadString("http://ip.mcandy007.de")
    51. Return WANip
    52. Catch ex As Exception
    53. Return 0
    54. End Try
    55. End Function
    57. End Class

    Wenn ich sowas schon sehe -.-

    VERGISS DEN TIMER! Streiche ihn aus deinem Gehirn, wirf ihn aus dem Fenster, Fahr mit dem Auto drüber und schieß ihn dann ins große weite Weltall.

    Dann liest du die Dokumentation über Dienste:
    msdn.microsoft.com/de-de/library/d56de412%28v=vs.80%29.aspx
    msdn.microsoft.com/de-de/library/9k985bc9%28v=vs.80%29.aspx
    msdn.microsoft.com/de-de/library/y817hyb6%28v=vs.80%29.aspx
    msdn.microsoft.com/de-de/library/yzk7ksy2%28v=vs.80%29.aspx
    msdn.microsoft.com/de-de/libra…onstart%28v=vs.80%29.aspx

    ...und startest einen Thread in OnStart(), dessen Workermethode deine Arbeit erledigt. Hier noch ein paar allgemeine Infos:
    - OnStart() darf maximal 30 Sekunden laufen
    - Dienste haben keine Verbindung zum angemeldeten Benutzer
    - Dienste haben keine Verbindung zum Desktop
    - Dienste haben keine Grafikausgabe (keine Form, keine Messagebox oder sonst irgendwas, was man sehen kann)
    - Dienste haben Systemprivilegien. <-- Weißt du wirklich genau, was du tust? [ ] Ja [x] Nein

    Und: Wirf unbedingt das über den Haufen, was du mit dem Timer gefrickelt hast (auch wenns funktioniert). Es ist Bullshit. Kurzer Abriss:

    VB.NET-Quellcode

    1. OnStart()
    2. - Thread.Start(worker)
    4. OnStop()
    5. - Set exit Flag
    7. worker()
    8. LOOP
    9. - Check exit Flag
    10. - Do work
    11. - Sleep (x)

    Was gerne vergessen wird: Synchronisiere deine Threads!
    Gruß
    hal2000

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