Ücretsiz Asp Winsock (Port programlama) Bileşeni

SUNUCU BİLEŞENİ TÜMÜ İLE ÜCRETSİZ 'dir.
(PHP fsockopen) Nesnesi Bildiğimiz Bigi Net ortamında Port İşlemi Gerçeklestiriyor . Asp içinde Client.dll Winsock 6.0 İletişim Kuralını Sağlıyor
Yani Artık Webte istediğniz Soket Programlamasını yapabilirsiniz.
BEN Zipli Dosyanın İçine Bir ornek Yaptım ASP olark
Bu bilesen Windowsun Kendi içindeki Winsock nesnesini Temel Alır Bu nedenle Apilerini Devamını Bulmanız Cok kolay  Netten aratmanız yeterli ben ornegini içine attım. herkeze iyi calsımalar dilerim.
Client.dll Sunucuza Kurduktan Sonra
WİNDOWS Winsock6.0 İletişim Kurallarını Web uzerinde Kullanmaya Baslıyabilirsiniz.
ÖRNEK GORUNTU :
Bu sadece Bir özelliği Siz Tüm WinSock Özelliklerini Online ortamda kullabilirsiniz.

DOWNLOAD :
http://www.vmreboot.com/Bilesen.zip
 

1. <%   
2. Dim objMsg   
3. '-------------------------------------------------------------------   
4. ' 0 sckClosed connection closed    
5. ' 1 sckOpen open    
6. ' 2 sckListening listening for incoming connections    
7. ' 3 sckConnectionPending connection pending    
8. ' 4 sckResolvingHost resolving remote host name    
9. ' 5 sckHostResolved remote host name successfully resolved    
10. ' 6 sckConnecting connecting to remote host    
11. ' 7 sckConnected connected to remote host    
12. ' 8 sckClosing connection is closing    
13. ' 9 sckError error occured    
14. '--------------------------------------------------------------------   
15. Response.Expires = -1000   
16. Set objMsg = Server.CreateObject("Port.CSocket")   
17. ipx=request.querystring("ip")   
18. port2=request.querystring("port")   
19. for AX = 1 to port2   
20. objMsg.connect ipx, AX   
21. select case objMsg.State   
22. case "0"  
23. msg="closed"  
24. case "1"  
25. msg="open"  
26. case "2"  
27. 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   
28. case "3"  
29. msg="connection pending"  
30. case "4"  
31. msg="resolving remote host name"  
32. case "5"  
33. msg="remote host name successfully resolved"  
34. case "6"  
35. msg="<font color=#808000>Sunucu Bağlanıyor...</font>"  
36. case "7"  
37. msg="<font color=#008000>Sunucu Bağlı</font>"  
38. case "8"  
39. msg="connection is closing"  
40. case "9"  
41. msg="error occured"  
42. end select   
43. response.write (" " & objMsg.RemoteHostIP & "<br>" & msg & " <br>Port:" & objMsg.RemotePort)   
44. objMsg.closeSocket   
45. next   
46. response.flush   
47. response.end   
48. %>