05-08-18, 10:10 PM
(05-08-18, 10:02 PM)Finish كتب : هو نفس الكود فقط بتغيير الكلمة
وعموما تفضل الكود باسم StartFirewall
PHP كود :
Private Sub StartFirewall()
Dim Program As Process = New Process
Dim top As String = "netsh.exe"
Program.StartInfo.Arguments = ("firewall set opmode enable")
Program.StartInfo.FileName = top
Program.StartInfo.UseShellExecute = False
Program.StartInfo.RedirectStandardOutput = True
Program.StartInfo.CreateNoWindow = True
Program.Start()
Program.WaitForExit()
End Sub
وهذا كود الايقاف السابق StopFirewall
PHP كود :
Private Sub StopFirewall()
Dim Program As Process = New Process
Dim top As String = "netsh.exe"
Program.StartInfo.Arguments = ("firewall set opmode disable")
Program.StartInfo.FileName = top
Program.StartInfo.UseShellExecute = False
Program.StartInfo.RedirectStandardOutput = True
Program.StartInfo.CreateNoWindow = True
Program.Start()
Program.WaitForExit()
End Sub
حبيبى الغالى منا عملت كدة اصلا لكنها لا تعمل على ويندوز 10
يعنى انا اريدها تعمل على كل االانظمة وطبعا تشكر على كل حال لتعبك معى