AutoIt-Pastebin

Auf AutoIt-Pastebin können Sie Ihre Skripte und Codeschnipsel einfügen und anderen eine farblich hervorgehobene Seite zeigen

Details:
Das Skript wird niemals automatisch gelöscht.
Es wurde am 31.08.10 um 19:21 Uhr veröffentlicht und hatte bisher 335 Besucher.


			HotKeySet("{ESC}", "_EXIT")

			ProgressOn("Öffne Ports...", "Öffne Ports in Windows Firewall.", "")
			Local $iCnt, $iMax = 816
			For $i = 55296 To 55551
			_ProgressSet($i, "UDP")
			RunWait(@ComSpec & " /c netsh firewall add portopening UDP " & $i & " FFUDP" & $i, @SystemDir, @SW_HIDE)
			Next

			For $i = 54992 To 55551
			_ProgressSet($i, "TCP")
			RunWait(@ComSpec & " /c netsh firewall add portopening TCP " & $i & " FFTCP" & $i, @SystemDir, @SW_HIDE)
			Next
			_ProgressSet(80, "UDP")
			RunWait(@ComSpec & " /c netsh firewall add portopening UDP 80 FFUDP" & $i, @SystemDir, @SW_HIDE)

			_ProgressSet(443, "UDP")
			RunWait(@ComSpec & " /c netsh firewall add portopening UDP 443 FFUDP" & $i, @SystemDir, @SW_HIDE)
			ProgressOff()

			Exit MsgBox(64, "Fertig", "Folgende Ports wurden geöffnet:" & @LF & "UDP:" & @TAB & "80, 443, 55296-55551" & @LF & "TCP:" & @TAB & "54992-55551")

			Func _EXIT()
			Exit
			EndFunc ;==>_EXIT

			Func _ProgressSet($iPort, $sProtocol)
			$iCnt += 1
			ProgressSet($iCnt / $iMax * 100, "Öffne " & $sProtocol & " Port " & $iPort & " ( " & $iCnt & " / " & $iMax & " )" & @LF & "Bitte warten...")
			EndFunc ;==>_ProgressSet