Service Status in Label anzeigen

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 23 Antworten in diesem Thema. Der letzte Beitrag () ist von xxlynusxx.

    Service Status in Label anzeigen

    Hallo Community.

    Quellcode

    1. Imports System.ServiceProcess
    3. Public Class Form1
    5. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    6. Try
    7. Dim sc As New System.ServiceProcess.ServiceController("ServiceName")
    8. sc.Start()
    9. Label1.Text = ("Dienst gestartet!")
    10. Catch
    11. Label1.Text = ("Starten Fehlgeschlagen")
    12. End Try
    13. End Sub
    15. Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    16. Try
    17. Dim sc As New System.ServiceProcess.ServiceController("ServiceNem")
    18. sc.Stop()
    19. Label1.Text = ("Dienst beendet")
    20. Catch
    21. Label1.Text = ("Beenden Fehlgeschlagen")
    22. End Try
    23. End Sub
    25. End Class


    Wie kann ich zusätzlich den Status (Gestartet/Beendet) per Label ausgeben?

    Vielen Dank

    Der ServiceController besitzt eine Eigenschaft Status. Das konnte ich sehr leicht googlen.

    ~ Alex-Digital :D
    ~ Alex-Digital :D

    if(!Internet.VBP.Get<User>("Alex-Digital").IsOnline) this.Close(); :D

    Alex-Digital schrieb:

    Eigenschaft Status
    Jou.
    @xxlynusxx Allerdings sendet ServiceController keine Events bei Änderung, also müsstest Du die Änderung pollen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    xxlynusxx schrieb:

    aber das funktioniert nicht bei mir
    Mit welchem Code?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Edit: Hat funktioniert:

    VB.NET-Quellcode

    1. Imports System.ServiceProcess
    3. Public Class vpnchange
    4. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    5. Try
    6. Dim sc As New System.ServiceProcess.ServiceController("openvpnservice")
    7. sc.Start()
    9. If sc.Status.Equals(ServiceControllerStatus.Stopped) Or sc.Status.Equals(ServiceControllerStatus.StopPending) Then
    10. Label1.Text = ("Beendet")
    11. Else
    12. Label1.Text = ("Gestartet")
    13. End If
    14. sc.Refresh()
    15. Catch
    16. Label1.Text = ("Starten Fehlgeschlagen")
    17. End Try
    18. End Sub
    19. Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    20. Try
    21. Dim sc As New System.ServiceProcess.ServiceController("openvpnservice")
    22. sc.Stop()
    24. If sc.Status.Equals(ServiceControllerStatus.Stopped) Or sc.Status.Equals(ServiceControllerStatus.StopPending) Then
    25. Label1.Text = ("Beendet")
    26. Else
    27. Label1.Text = ("Gestartet")
    28. End If
    29. sc.Refresh()
    30. Catch
    31. Label1.Text = ("Beenden Fehlgeschlagen")
    32. End Try
    33. End Sub
    35. Private Sub vpnchange_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    36. Dim sc As New ServiceController("openvpnservice")
    38. If sc.Status.Equals(ServiceControllerStatus.Stopped) Or sc.Status.Equals(ServiceControllerStatus.StopPending) Then
    39. Label1.Text = ("Beendet")
    40. Else
    41. Label1.Text = ("Gestartet")
    42. End If
    43. sc.Refresh()
    44. End Sub
    45. End Class


    Nun habe ich das Problem das wenn der Dienst z.B. gestartet ist und ich nochmal auf den Startbutton klicke ein Fehler ausgespuckt wird.

    Eine Ausnahme (erste Chance) des Typs "System.InvalidOperationException" ist in System.ServiceProcess.dll aufgetreten.

    Habe dazu nur "Unterbrechen bei folgendem Ausnahmezustand" gefunden. Das sagt mir aber überhaupt nix und meine Suche war erfolglos.

    Zudem würde ich noch gerne wissen wie ich das Programm ins Systemtray minimieren kann wenn man auf das X klickt. Auf dem Trayicon soll dann ein Kontextmenü mit nem Exit Button.


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

    xxlynusxx schrieb:

    und ich nochmal auf den Startbutton klicke

    xxlynusxx schrieb:

    VB.NET-Quellcode

    1. Dim sc As New System.ServiceProcess.ServiceController("openvpnservice")
    Pack die Instanz in die Klasse.
    Wenn Du eine Aktion ausführen willst, musst Du vorher den Status abfragen und dann wissen, dass ein gestarteter Prozess nicht noch einmal gestartet werden kann.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ich kann ja nicht aufhören mir immer wieder selber nen Bein zu stellen daher brauch ich nochmal eure Hilfe.

    Ich wollte die public IP anzeigen lassen wenn man den Dienst startet/beendet aber das dauert ja immer einen Moment bis alles umgeschaltet ist.
    Beim Start des Programms wird die aktuelle IP ausgegeben.

    Habe schon nen Timer eingebaut aber so bekomme ich immer eine Fehlermeldung.

    VB.NET-Quellcode

    1. Imports System.ServiceProcess
    2. Imports System.Net
    4. Public Class vpnchange
    6. Private Sub vpnchange_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    7. e.Cancel = True
    8. Me.Hide()
    9. NotifyIcon1.ShowBalloonTip(1000, "VPN Change minimiert", "Zum beenden rechtsklick auf das Icon.", ToolTipIcon.None)
    10. End Sub
    11. Private Sub NotifyIcon1_DoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.DoubleClick
    12. Me.Show()
    13. Me.Activate()
    14. NotifyIcon1.Visible = True
    15. End Sub
    17. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    19. Try
    20. Dim sc As New System.ServiceProcess.ServiceController("openvpnservice")
    21. sc.Start()
    23. If sc.Status.Equals(ServiceControllerStatus.Stopped) Or sc.Status.Equals(ServiceControllerStatus.StopPending) Then
    24. Label1.Text = ("Beendet")
    26. Else
    27. Label1.Text = ("Gestartet")
    29. End If
    30. sc.Refresh()
    32. Catch
    33. Label1.Text = ("Ist bereits gestartet!")
    34. End Try
    35. End Sub
    37. Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    38. Try
    39. Dim sc As New System.ServiceProcess.ServiceController("openvpnservice")
    40. sc.Stop()
    42. If sc.Status.Equals(ServiceControllerStatus.Stopped) Or sc.Status.Equals(ServiceControllerStatus.StopPending) Then
    43. Label1.Text = ("Beendet")
    45. Else
    46. Label1.Text = ("Gestartet")
    48. End If
    49. sc.Refresh()
    51. Catch
    52. Label1.Text = ("Ist bereits beendet!")
    53. End Try
    54. End Sub
    55. Private WithEvents _wC As New WebClient
    56. Private Sub vpnchange_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    57. _wC.Proxy = Nothing
    58. _wC.DownloadStringAsync(New Uri("http://checkip.dyndns.org/"), Nothing)
    60. NotifyIcon1.ContextMenuStrip = ContextMenuStrip1
    61. Dim sc As New System.ServiceProcess.ServiceController("openvpnservice")
    62. If sc.Status.Equals(ServiceControllerStatus.Stopped) Or sc.Status.Equals(ServiceControllerStatus.StopPending) Then
    63. Label1.Text = ("Beendet")
    65. Else
    66. Label1.Text = ("Gestartet")
    68. End If
    69. sc.Refresh()
    70. End Sub
    71. Private Sub _wC_DownloadStringCompleted(sender As Object, e As DownloadStringCompletedEventArgs) Handles _wC.DownloadStringCompleted
    72. Dim ip As String = e.Result.Split(New String() {"Current IP Address: ", "</body>"}, StringSplitOptions.RemoveEmptyEntries)(1)
    73. Me.Label3.Text = ip
    75. End Sub
    76. Private Sub exitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
    77. End
    78. NotifyIcon1.Visible = False
    79. End Sub
    81. Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
    82. _wC.Proxy = Nothing
    83. _wC.DownloadStringAsync(New Uri("http://checkip.dyndns.org/"), Nothing)
    84. End Sub
    85. End Class


    Und falls jemand Lust hat wäre es nett wenn das mal aufgeräumt werden könnte von jemanden der mehr Ahnung hat als ich^^

    Freu mich über eure Antworten.

    Timer gehört hier verboten. Langsam anlaufendes musste mittm Async-Pattern lösen: Async, Await und Task

    Aber ich hab mal die "schlimmsten" Sachen bereinigt - das waren:
    • TryCatchens, die das Debuggen verhindern TryCatch ist ein heißes Eisen
    • unnötige Abfragen (erst Service starten, und dann den Status abfragen - naja, der wird wohl Started sein , odr?)
    • Unsicheren Code ins Form_Shown verlegt - damit man Exceptions bekommt (zB bei mir gibts diesen Dienst überhaupt nicht)
    • Das immer wieder neu Instanzieren des Services reduziert auf einmal und das reicht.
    • Anwendung ordentlich beenden, inklusive des Service s

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.ServiceProcess
    2. Imports System.Net
    3. Imports System.Threading.Tasks
    5. Public Class vpnchange
    6. Dim sc As ServiceController
    7. Private WithEvents _wC As New WebClient With {.Proxy = Nothing}
    9. Private Sub vpnchange_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    10. _wC.DownloadStringAsync(New Uri("http://checkip.dyndns.org/"), Nothing)
    11. AddHandler Me.FormClosing, AddressOf vpnchange_FormClosing
    12. End Sub
    14. Private Sub vpnchange_Shown(sender As Object, e As EventArgs) Handles Me.Shown
    15. sc = New ServiceController("openvpnservice") 'so Wackelkandidaten erst im _Shown-Event instanzieren, sonst werden wertvolle Exceptions verschluckt
    16. EnableService(True)
    17. End Sub
    19. Private Sub vpnchange_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs)
    20. e.Cancel = True
    21. Me.Hide()
    22. NotifyIcon1.ShowBalloonTip(1000, "VPN Change minimiert", "Zum beenden rechtsklick auf das Icon.", ToolTipIcon.None)
    23. End Sub
    24. Private Sub NotifyIcon1_DoubleClick(ByVal sender As Object, ByVal e As EventArgs) Handles NotifyIcon1.DoubleClick
    25. Me.Show()
    26. Me.Activate()
    27. NotifyIcon1.Visible = True
    28. End Sub
    30. Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    31. EnableService(True)
    32. End Sub
    34. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    35. EnableService(False)
    36. End Sub
    38. Async Sub EnableService(value As Boolean)
    39. If value Then
    40. Await task.Run(AddressOf sc.Start)
    41. Else
    42. Await task.Run(AddressOf sc.Stop)
    43. End If
    44. Label1.Text = sc.Status.ToString
    45. End Sub
    47. Private Sub _wC_DownloadStringCompleted(sender As Object, e As DownloadStringCompletedEventArgs) Handles _wC.DownloadStringCompleted
    48. Dim ip As String = e.Result.Split(New String() {"Current IP Address: ", "</body>"}, StringSplitOptions.RemoveEmptyEntries)(1)
    49. Me.Label3.Text = ip
    50. End Sub
    52. Private Sub exitToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ExitToolStripMenuItem.Click
    53. EnableService(False)
    54. NotifyIcon1.Dispose()
    55. RemoveHandler Me.FormClosing, AddressOf vpnchange_FormClosing
    56. Me.Close()
    57. End Sub
    59. End Class
    Schlimm auch deine Benamung, aber für die Wiedererkennung hab ich die so belassen.
    Und - da ich den Service nicht habe - weiß natürlich nicht, obs funktioniert.

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

    Ich danke dir vielmals. Ich habe den Code mal C&P jedoch bekomme ich den 12 Fehler:

    Spoiler anzeigen
    Fehler 1 "EnableService" wurde nicht deklariert. Auf das Objekt kann aufgrund seiner Schutzstufe möglicherweise nicht zugegriffen werden. C:\Users\xxx\Documents\Visual Studio 2010\Projects\VPN Change\VPN Change\Form1.vb 13 9 VPN Change
    Fehler 2 "EnableService" wurde nicht deklariert. Auf das Objekt kann aufgrund seiner Schutzstufe möglicherweise nicht zugegriffen werden. C:\Users\xxx\Documents\Visual Studio 2010\Projects\VPN Change\VPN Change\Form1.vb 26 9 VPN Change
    Fehler 3 "EnableService" wurde nicht deklariert. Auf das Objekt kann aufgrund seiner Schutzstufe möglicherweise nicht zugegriffen werden. C:\Users\xxx\Documents\Visual Studio 2010\Projects\VPN Change\VPN Change\Form1.vb 29 9 VPN Change
    Fehler 4 Deklaration erwartet. C:\Users\xxx\Documents\Visual Studio 2010\Projects\VPN Change\VPN Change\Form1.vb 31 1 VPN Change
    Fehler 5 Die Anweisung kann nicht außerhalb einer Methode/eines mehrzeiligen lambda-Ausdrucks stehen. C:\Users\xxx\Documents\Visual Studio 2010\Projects\VPN Change\VPN Change\Form1.vb 32 1 VPN Change
    Fehler 6 Deklaration erwartet. C:\Users\xxx\Documents\Visual Studio 2010\Projects\VPN Change\VPN Change\Form1.vb 33 1 VPN Change
    Fehler 7 Die Anweisung kann nicht außerhalb einer Methode/eines mehrzeiligen lambda-Ausdrucks stehen. C:\Users\xxx\Documents\Visual Studio 2010\Projects\VPN Change\VPN Change\Form1.vb 34 1 VPN Change
    Fehler 8 Deklaration erwartet. C:\Users\xxx\Documents\Visual Studio 2010\Projects\VPN Change\VPN Change\Form1.vb 35 1 VPN Change
    Fehler 9 "End If" muss ein entsprechendes "If" voranstehen. C:\Users\xxx\Documents\Visual Studio 2010\Projects\VPN Change\VPN Change\Form1.vb 36 1 VPN Change
    Fehler 10 Deklaration erwartet. C:\Users\xxx\Documents\Visual Studio 2010\Projects\VPN Change\VPN Change\Form1.vb 37 1 VPN Change
    Fehler 11 "End Sub" muss ein entsprechendes "Sub" voranstehen. C:\Users\xxx\Documents\Visual Studio 2010\Projects\VPN Change\VPN Change\Form1.vb 38 1 VPN Change
    Fehler 12 "EnableService" wurde nicht deklariert. Auf das Objekt kann aufgrund seiner Schutzstufe möglicherweise nicht zugegriffen werden. C:\Users\xxx\Documents\Visual Studio 2010\Projects\VPN Change\VPN Change\Form1.vb 44 9 VPN Change



    Ich habe vorher noch nie etwas von Async, Await und Task gehört und habe daher mal etwas im Netz gesucht. Dazu habe ich ein Videotutorial gefunden. Die funktionsweise von Async, Await und Task ist mir nun bekannt aber ich kann trotzdem noch nicht richtig damit umgehen. Zu den Fehler habe ich auch leider nix gefunden.

    oh nein - keine Video-Tutorials!
    Wieso suchst du im Netz nach Video-Tutorials - ist das von mir verlinkte Tut so mangelhaft?

    Und der Fehler ist in meinem Tut doch bereits nach dem ersten Halb-Satz vollständig aufgeklärt:

    ErfinderDesRades schrieb:

    Mit VS2012 haben 2 neue Schlüsselworte Einzug gehalten

    Es liegt nicht an deiner Anleitung. Mir fällt es aus gesundheitlichen Gründen (Augen OP) zur Zeit schwer lange Texte zu lesen. Daher suche ich nach Quellen die mir "vorlesen" bzw es vorführen.^^ Sobald es wieder besser ist werde ich mich natürlich auch an deinem Tut vergreifen ;)

    Da wünsche ich dir gute besserung, und das Handicap ist schlecht - also ohne viel und gründliches Lesen kann man eiglich nicht programmieren

    naja, jdfs. in VisualStudio2010 muss man halt ältere Formen von Threading in Anschlag bringen:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.ServiceProcess
    2. Imports System.Net
    3. Imports System.IO
    5. Public Class VpnChange2
    6. Dim sc As ServiceController
    8. Private Sub vpnchange_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    9. AddHandler Me.FormClosing, AddressOf vpnchange_FormClosing
    10. End Sub
    12. Private Sub vpnchange_Shown(sender As Object, e As EventArgs) Handles Me.Shown
    13. sc = New ServiceController("openvpnservice") 'so Wackelkandidaten erst im _Shown-Event instanzieren, sonst werden wertvolle Exceptions verschluckt
    14. _ServiceEnabler.BeginInvoke(True, AddressOf _ServiceEnabler.EndInvoke, Nothing)
    15. End Sub
    17. Private Sub vpnchange_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs)
    18. e.Cancel = True
    19. Me.Hide()
    20. NotifyIcon1.ShowBalloonTip(1000, "VPN Change minimiert", "Zum beenden rechtsklick auf das Icon.", ToolTipIcon.None)
    21. End Sub
    22. Private Sub NotifyIcon1_DoubleClick(ByVal sender As Object, ByVal e As EventArgs) Handles NotifyIcon1.DoubleClick
    23. Me.Show()
    24. Me.Activate()
    25. NotifyIcon1.Visible = True
    26. End Sub
    28. Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    29. Dim dlg As Action = AddressOf GetMyIp
    30. dlg.BeginInvoke(AddressOf dlg.EndInvoke, Nothing)
    31. End Sub
    33. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    34. _ServiceEnabler.BeginInvoke(False, AddressOf _ServiceEnabler.EndInvoke, Nothing)
    35. End Sub
    37. Private _ServiceEnabler As New Action(Of Boolean)(AddressOf EnableService)
    38. Private Sub EnableService(value As Boolean)
    39. If value Then sc.Start() Else sc.Stop()
    40. Me.BeginInvoke(Sub() Label1.Text = sc.Status.ToString)
    41. End Sub
    43. Private Sub GetMyIp()
    44. Dim wr = WebRequest.Create("http://checkip.dyndns.org/")
    45. wr.Proxy = Nothing
    46. Using rsp = wr.GetResponse, rd = New StreamReader(rsp.GetResponseStream)
    47. Dim s = rd.ReadToEnd.Split({"Current IP Address: ", "</body>"}, StringSplitOptions.RemoveEmptyEntries)(1)
    48. Me.BeginInvoke(Sub() Label3.Text = s)
    49. End Using
    50. End Sub
    52. Private Sub exitToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ExitToolStripMenuItem.Click
    53. _ServiceEnabler.BeginInvoke(False, AddressOf _ServiceEnabler.EndInvoke, Nothing)
    54. NotifyIcon1.Dispose()
    55. RemoveHandler Me.FormClosing, AddressOf vpnchange_FormClosing
    56. Me.Close()
    57. End Sub
    59. End Class
    Funktioniert vielleicht, aber hat nicht viel Sinn, denn die Erklärungen bedeuten wieder längere Text-Arbeit.

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

    Danke dir. Wird von Tag zu Tag besser aber es ist noch zu anstrengend. Ich programmiere ja nur aus Langeweile da spielen nicht geht^^

    Mit deinem Code funktionieren die Buttons nicht mehr zum starten/beenden des Dienstes. Wenn ich den Dienst per Hand starte/beende wird die richtige IP im Label per Button klick angezeigt. Im Label1 wird ständig "Running" angezeigt egal ob gestartet oder beendet.

    die IP hat ja nix mit dem Service zu tun.

    Und Label1 zeigt sc.Status.Tostring() an, wenn das nicht stimmt, kann ich auch nicht für.
    Wie gesagt: Testen kann ich grade das nicht, denn ich hab den Service garnet.

    Edit: Hab den Code nochmal editiert, weil bei Button2 hab ich EnableService(True) gehabt, und beabsichtigt ist wohl False.

    Schade, dann ist son ServiceController wohl nicht Threadsicher.
    Daraus folgt dann, dass es wohl keinen Weg gibt, zu vermeiden, dass die Anwendung einfriert, solange der Service am Starten ist.
    Da kann man den Code also auch einfach lassen
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.ServiceProcess
    2. Imports System.Net
    3. Imports System.IO
    5. Public Class VpnChange2
    6. Dim sc As ServiceController
    8. Private Sub vpnchange_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    9. AddHandler Me.FormClosing, AddressOf vpnchange_FormClosing
    10. End Sub
    12. Private Sub vpnchange_Shown(sender As Object, e As EventArgs) Handles Me.Shown
    13. sc = New ServiceController("openvpnservice") 'so Wackelkandidaten erst im _Shown-Event instanzieren, sonst werden wertvolle Exceptions verschluckt
    14. EnableService(True)
    15. End Sub
    17. Private Sub vpnchange_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs)
    18. e.Cancel = True
    19. Me.Hide()
    20. NotifyIcon1.ShowBalloonTip(1000, "VPN Change minimiert", "Zum beenden rechtsklick auf das Icon.", ToolTipIcon.None)
    21. End Sub
    22. Private Sub NotifyIcon1_DoubleClick(ByVal sender As Object, ByVal e As EventArgs) Handles NotifyIcon1.DoubleClick
    23. Me.Show()
    24. Me.Activate()
    25. NotifyIcon1.Visible = True
    26. End Sub
    28. Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    29. Dim dlg As Action = AddressOf GetMyIp
    30. dlg.BeginInvoke(AddressOf dlg.EndInvoke, Nothing)
    31. End Sub
    33. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    34. EnableService(False)
    35. End Sub
    37. Private Sub EnableService(value As Boolean)
    38. If value Then sc.Start() Else sc.Stop()
    39. Label1.Text = sc.Status.ToString
    40. End Sub
    42. Private Sub GetMyIp()
    43. Dim wr = WebRequest.Create("http://checkip.dyndns.org/")
    44. wr.Proxy = Nothing
    45. Using rsp = wr.GetResponse, rd = New StreamReader(rsp.GetResponseStream)
    46. Dim s = rd.ReadToEnd.Split({"Current IP Address: ", "</body>"}, StringSplitOptions.RemoveEmptyEntries)(1)
    47. Me.BeginInvoke(Sub() Label3.Text = s)
    48. End Using
    49. End Sub
    51. Private Sub exitToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ExitToolStripMenuItem.Click
    52. EnableService(False)
    53. NotifyIcon1.Dispose()
    54. RemoveHandler Me.FormClosing, AddressOf vpnchange_FormClosing
    55. Me.Close()
    56. End Sub
    58. End Class

    Eine Ausnahme (erste Chance) des Typs "System.InvalidOperationException" ist in System.ServiceProcess.dll aufgetreten.

    Edit: das problem ist glaube ich das er den dienst automatisch bei programmstart ausführen/beenden will. wenn der aber schon gestartet/beendet ist gibts den fehler.^^

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