[VB.NET Source] WINFirewall En/Disable

[Th3_Cr4xX]

Jo ;)

Public Class Form1

Private Sub Enable_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Proc As Process = New Process
Dim top As String = "netsh.exe"
Proc.StartInfo.Arguments = ("firewall set opmode enable")
Proc.StartInfo.FileName = top
Proc.StartInfo.UseShellExecute = False
Proc.StartInfo.RedirectStandardOutput = True
Proc.StartInfo.CreateNoWindow = True
Proc.Start()
Proc.WaitForExit()
End Sub

Private Sub Disable_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim Proc As Process = New Process
Dim top As String = "netsh.exe"
Proc.StartInfo.Arguments = ("firewall set opmode disable")
Proc.StartInfo.FileName = top
Proc.StartInfo.UseShellExecute = False
Proc.StartInfo.RedirectStandardOutput = True
Proc.StartInfo.CreateNoWindow = True
Proc.Start()
Proc.WaitForExit()
End Sub

End Class

[hackerking]

Per shell() ist es eine zeile...

[Th3_Cr4xX]

nice?

[hackerking]

Was?
Dein Code ist bestimmt nicht toller/übersichtlicher, da deiner 18 Zeilen hat, per Shell() wären es 2 :P

[Th3_Cr4xX]

Ich find den sehr übersichtlich. Klar kann man das in 2 Zeilen quetschen aber das Auge codet mit

[hackerking]

Was? Wieso denn bitte quetschen?
Das ist doch sinnlos:
18 Zeilen sind mehr als 2 Zeilen. Wieso sollte es dann einfacher sein 18 Zeilen zu lesen/schreiben als 2 Zeilen.. Unlogisch deine Logik..

[Sawyer]

Es ist doch völlig Irrelevant ob man für eine Aufgabe 1 oder 10 Zeilen benötigt. Das Ergebnis und die Technische Umsetzung muss überzeugen. In diesem Fall hat er die Objektorientierte Klasse Process verwendet, die viel mehr Optionen zur Verfügung stellt, als der einfache Aufruf mit shell.

Man könnte den Code jedoch etwas Optimieren und ihn in eine Eigene Funktion auslagern. Wodurch dann wiederum ein Einzeiliger Aufruf mit Parametern möglich wäre. Wie Th3_Cr4xX es schon angedeutet hat, ist die kürze eines Codes nicht ausschlaggebend für die Bewertung einer Lösung.

MfG, Sawyer