Ücretsiz Asp Winsock (Port programlama) Bileşeni

iistr
23-12-2009, 18:52   |  #1  
OP Yeni Üye
Teşekkür Sayısı: 0
22 mesaj
Kayıt Tarihi:Kayıt: Ağu 2009

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
 

iistr
24-12-2009, 16:15   |  #2  
OP Yeni Üye
Teşekkür Sayısı: 0
22 mesaj
Kayıt Tarihi:Kayıt: Ağu 2009


  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. %>   
ASP WİNSOCK Tarama Modulu