ASP Winsock Bileşeni ASPINDIR.COM 'da Mevcuttur
http://www.aspindir.com/goster/5979
PORT TARAMA PLATFORMU
[vb]<%
Dim objMsg
'-------------------------------------------------------------------
' 0 sckClosed connection closed
' 1 sckOpen open
' 2 sckListening listening for incoming connections
' 3 sckConnectionPending connection pending
' 4 sckResolvingHost resolving remote host name
' 5 sckHostResolved remote host name successfully resolved
' 6 sckConnecting connecting to remote host
' 7 sckConnected connected to remote host
' 8 sckClosing connection is closing
' 9 sckError error occured
'--------------------------------------------------------------------
Response.Expires = -1000
Set objMsg = Server.CreateObject("Port.CSocket")
ipx=request.querystring("ip")
port2=request.querystring("port")
for AX = 1 to port2
objMsg.connect ipx, AX
select case objMsg.State
case "0"
msg="closed"
case "1"
msg="open"
case "2"
msg="listening for incoming connections" 'BU DEĞİŞKEN MESAJLAR ORJİNAL WİNSOCK 'A AİTTİR DEĞİŞTİRMENİZDE HERHANGİ BİR SORUN YOK ÇALSIMAYI ETKİLEMEZ
case "3"
msg="connection pending"
case "4"
msg="resolving remote host name"
case "5"
msg="remote host name successfully resolved"
case "6"
msg="<font color=#808000>Sunucu Bağlanıyor...</font>"
case "7"
msg="<font color=#008000>Sunucu Bağlı</font>"
case "8"
msg="connection is closing"
case "9"
msg="error occured"
end select
response.write (" " & objMsg.RemoteHostIP & "<br>" & msg & " <br>Port:" & objMsg.RemotePort)
objMsg.closeSocket
next
response.flush
response.end
%>
[/vb]