Hallo, Ich arbeite an einem Remote Admin Tool, mit Remote Desktop und sowas, das geht auch alles gut. Ich habe jetzt noch eine Funktion eingebaut, Firewall an und aus. Ich poste mal mein QC:
Hier sende ich den Befehl:
Das geht auch gut, der Server nimmt den Befehl an und führt ihn aus:
Wenn ich auf dem Button klicke, der die Firewall an macht, passiert garnichts
Wenn ich auf dem Button Aus kicke, macht er sie aus, dann klicke ich 2 - 5 mal drauf und sie geht wieder an.
Wie kann ich es machen das An = an ist und Aus = aus ist, wenn ihr mich versteht?
Hier sende ich den Befehl:
VB.NET-Quellcode
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- myVic.SendeText("Firewall~+~" & "ON")
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- myVic.SendeText("Firewall~+~" & "OFF")
- End Sub
Das geht auch gut, der Server nimmt den Befehl an und führt ihn aus:
VB.NET-Quellcode
- Function SetWindowsFirewallOut() As Long 'Firewall aus
- Shell("netsh firewall set opmode disable", AppWinStyle.Hide)
- Return 1
- End Function
- Function SetWindowsFirewallOn() As Long ' Firewall an
- Shell("netsh firewall set opmode enable", AppWinStyle.Hide)
- Return 1
- End Function
- Sub BefehleInterpretieren(ByVal sText As String)'Hier spalte ich den Befehl in: Befehl~+~aufgabe
- Dim BefehlsTeile() As String = Split(sText, "~+~")
- If BefehlsTeile.Count > 0 Then
- If BefehlsTeile(0) = "Firewall" Then
- If BefehlsTeile(1) = "OFF" Then
- SetWindowsFirewallOn()
- End If
- If BefehlsTeile(1) = "OFF" Then
- ' MyClient.TextSenden("Firewall_Answer~+~OFF")
- SetWindowsFirewallOut()
- End If
- end if
- end sub
Wenn ich auf dem Button klicke, der die Firewall an macht, passiert garnichts
Wenn ich auf dem Button Aus kicke, macht er sie aus, dann klicke ich 2 - 5 mal drauf und sie geht wieder an.
Wie kann ich es machen das An = an ist und Aus = aus ist, wenn ihr mich versteht?