Port 5900

**Alina**

Wie kann ich den Port 5900 auf meinem PC sperren?
Möchte einfach, wenn ich eine Datei erstelle, dabei den Port 5900 sperren.

LG,
Crazy-A.

anno2008

Hi, probier mal:

Spoiler anzeigen

[autoit]

TcpStartup()

[/autoit] [autoit][/autoit] [autoit]

$blockingPort = 5900

[/autoit] [autoit][/autoit] [autoit]

While 1
$ConnectedSocket = -1
$MainSocket = -1
$MainSocket = TcpListen(@IPAddress1, $blockingPort)
If $MainSocket = -1 Then Exit

Do
$ConnectedSocket = TCPAccept($MainSocket)
Until $ConnectedSocket <> -1

[/autoit] [autoit][/autoit] [autoit]

TCPSend($ConnectedSocket,'Port '&$blockingPort&' is blocked.')

[/autoit] [autoit][/autoit] [autoit]

While 1
$RogueSocket = TCPAccept( $MainSocket)
If $RogueSocket > 0 Then
TCPSend( $RogueSocket, 'Port '&$blockingPort&' is blocked.' )
EndIf
$recv = TCPRecv($ConnectedSocket,1000)
If @error Then
;connection closed.
TCPCloseSocket($ConnectedSocket)
$ConnectedSocket = -1
$MainSocket = -1
EndIf
WEnd
WEnd

[/autoit]

**Alina**

anno2008

vielen dank, aber das möchte keinen port sperren.

lg,
crazy-a.

**Der_Doc**

probiere es über die Commandline. Es gibt das Tool Netsh, das editiert Firewalleinstellungen und Netzwerkschnittstellen.

Spoiler anzeigen

Code

netsh firewall set port 5900=disable

Natürlich einfach mit dem run oder shellexecute Befehl. Adminrechte sind hier aber glaube ich notwendig.
enablen geht wie ..... ?

MfG
Der_Dco