Merhabalar.
Visual basic meraklıları için winsock ile irc'e bağlantı protokolünü anlatacağım...
İsteyenler bu bilgiden yola çıkarak exe tabanlı IRC botu yazabilir, kendi IRC sunucusunu yönetebilir...
- Winsock Nedir? Nasıl Eklenir?
Winsock bilgisayar arasında veya web siteleriyle (kısaca internet ile) bağlantı alış-verişi sağlayan Microsoft component'ıdır. Açılımı Windows Socket dir.Ctrl + T Components Menüsünden "Microsoft Winsock Control" ile eklenir ...
Form_Load PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
Private Sub Form_Load()
Winsock1.Close
Winsock1.Connect "irc.mynet.com", 6667
End Sub
-
Winsock1_Connect PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
Private Sub Winsock1_Connect()
With Winsock1
.SendData "NICK CanCeL" & vbCrLf
.SendData "USER TEST TEST TEST TEST TEST" & vbCrLf
.SendData "JOIN #CanCeL" & vbCrLf
End With
End Sub
-
Winsock1_DataArrival PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim sRecv As String
Winsock1.GetData sRecv
If InStr(sRecv, "PING") = 1 Then
Winsock1.SendData "PONG " & Split(sRecv, " ")(1)
End If
End Sub
Kısaca IRC Bağlantı protokolü...
Bu kodları tek bir form üzerinden çalıştırınız. Tek gereken Winsock Component'idir...