Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- @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>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement