PortMonitor.cmd

@goto :batch
<html><!--
:batch
@echo off
if NOT "%*"=="" goto :scan
mode con: cols=31 lines=5
title [%~n0]
color 0b
echo.
echo.
echo.          loading ...
for /f "tokens=3" %%A in ('netsh wlan show int ^| find /i "state"') do if /I NOT "%%A"=="connected" (
echo.msgbox "You're not connected to any type of network so there's no foregn hosts for your your computer to have port-connects to. There are no connections in existance to monitor.",0,"[Network Scanner]" >"%temp%\NetScannerErrorMSG.vbs"
call cscript //nologo "%temp%\NetScannerErrorMSG.vbs"
del /f /q "%temp%\NetScannerErrorMSG.vbs" >nul
exit
)
reg add HKCU\Software\Classes\%~x0 /d "htafile" /f >nul
start "" mshta.exe "%~dpnx0" "%compip%"
exit
:scan
echo.
for /f "skip=4 tokens=1,2,3,4,5" %%A in ('netsh int ipv4 show tcpconnections') do (
if NOT "%%C"=="0.0.0.0" (
if NOT "%%C"=="127.0.0.1" (
echo LocalPort[%%B] is connected to RemoteAddress[%%C:%%D]
)
)
)
exit
-->
<head>
<title>[ImDeepWithWindows] - Port-Connections Monitorer</title>
<HTA:APPLICATION ID="ThisApp"
APPLICATIONNAME="[ImDeepWithWindows] - Port-Connections Monitorer"
scroll="no"
icon=""
showintaskbar="yes"
sysmenu="yes"
caption="yes"
maximizebutton="yes"
minamizebutton="yes"
>
</head>
<script language="VBScript">
sub Window_OnLoad
Ext = split(split(ThisApp.commandline,chr(34))(1),".")(ubound(split(split(ThisApp.commandline,chr(34))(1),".")))
createobject("wscript.shell").run "reg add HKCU\Software\Classes\."&Ext&" /d "&chr(34)&Ext&"file"&chr(34)&" /f",0,true

window.resizeTo 500,400
set x = createobject("wscript.shell")
args = split(ThisApp.commandline,chr(34))
cmmdline = chr(34)&"%comspec%"&chr(34)&" /D /C "
do
x.run cmmdline&"@call "&chr(34)&args(1)&chr(34)&" {scan} >"&chr(34)&"%temp%\TCPportConnectionsScan.dat"&chr(34),0,true
set datfile = createobject("scripting.filesystemobject").opentextfile(x.expandenvironmentstrings("%temp%")&"\TCPportConnectionsScan.dat")
document.all.scandisplay.value = datfile.readall
datfile.close
x.run cmmdline&"@timeout /t 4 >nul",0,true
loop
end sub
</script>
<body bgcolor=black style=border:0px;padding:0px;margin:0px;color:black;font-size:0;font-family:arial ><br/><font color=cyan size=2><b>
<center><font size=4 face=terminal>
<a style=color:red;text-decoration:none target=_blank href=https://hackforums.net/member.php?action=profile&uid=3089494 >by <u>ImDeepWithWindows</u></a>
</font><br/>
<hr noshade=noshade style=color:purple;border-color:purple;border-style:solid;padding:0px;margin:0px />
<div align=left> Port-Connections Monitorer</div>
<hr noshade=noshade style=color:purple;border-color:purple;border-style:solid;padding:0px;margin:0px /><br/>
<textarea readonly name=scandisplay rows=16 wrap=off style=text-align:center;width:100%;margin:0px;padding:0px;border:0px;background-color:black;color:#00ff00;overflow:auto;font-family:arial >
</textarea>