Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/
ZoneAlarm mäßig, was? Nein nein nein, so geht das doch nicht. Wenn jeder wüsste wie das geht gäbe es ja nurnoch Spyware, Viren, ..., die die Blockade wieder entblocken. Und so ist das ja nicht gedacht.Nach den eher etwas mechanisch orientierten Ansätzen hätte ich folgende Ideen:winduff hat geschrieben:Gibts einen Befehl / Prozedur / API , alle Netzwerkverbindungen (Internet etc) zu blockieren?
Code: Alles auswählen
IPCONFIG /RELEASECode: Alles auswählen
strComputer = "."
Set objWMIService = GetObject( _
"winmgmts:\" & strComputer & "\root\cimv2")
Set colNetCards = objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration " _
& "Where IPEnabled = True")
For Each objNetCard in colNetCards
objNetCard.ReleaseDHCPLease()
NextCode: Alles auswählen
IPCONFIG /RENEWCode: Alles auswählen
strComputer = "."
Set objWMIService = GetObject( _
"winmgmts:\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration " _
& "where IPEnabled=TRUE")
strIPAddress = Array("192.168.1.141")
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.168.1.100")
strGatewayMetric = Array(1)
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic( _
strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(_
strGateway, strGatewaymetric)
Next