Tekil Mesaj gösterimi
  #4  
Alt 11 Eylül 2009, 22:20
CoCoRiCo - ait Kullanıcı Resmi (Avatar)
CoCoRiCo CoCoRiCo isimli Üye şimdilik offline konumundadır
 Chief 

mS Puan: 571
mS Derece: CoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo Çalışkan
 
Üyelik tarihi: 10 Temmuz 2009
Bulunduğu yer: \xml:http\
Yaş: 41
Mesajlar: 135
Konular: 22
Eklentiler: 0
Alınan Teşekkür: 85
Yapılan Teşekkür: 19
Standart mirc - http sniffer

Soketlerin kötü bir yanı var mevcut acılmıs ve üzerinden veri tasınması iç görevlendirilmiş
bir proc'a baglantı saglayamıyor sadece bos NULL data alıyor, yani bu şu demektir kendisinin acıp listen etmedigi bi portu dinleme yetenegi yok.
Elbette bu herseyin sonu degil keza snifferlar enthernet cıkısını ve girişini dinler, biraz COM wShell ile bu işinde üstesinden gelinir..

örnek bir VB şöyledir ki bundan mIRC ye dönüş DDE üzeriden mümkündür.

Kod:
option explicit
Private Const CALLERID_UDP_BROADCAST_PORT   As Long = 6500

Public Sub StartMonitoringCalls()

With Winsock2
    .Close
    .Protocol = 1
    .Bind CALLERID_UDP_BROADCAST_PORT
End With

End Sub

Private Sub AnswerTheCall(ByVal Index As Long)
Call BroadCast("Hi")
End Sub

Private Sub ReOpenTheCall(ByVal Index As Long)
Call BroadCast("hello")
End Sub

Private Sub BroadCast(data As String)

   With Winsock2
        .RemoteHost = "255.255.255.255"
        .RemotePort = CALLERID_UDP_BROADCAST_PORT
        .SendData data
   End With

End Sub

Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
Dim strData         As String

Winsock1.GetData strData, vbString, bytesTotal

MsgBox strData, vbOKOnly, bytesTotal

End Sub
__________________
3m2t
//alias $str($+(alias,$chr(32)),4) | alias
Alıntı ile Cevapla
 
1 2 13 14 16 17 18 19 21 22 23 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 49 50 51 52 54 55 56 57 58 59 60 61 62 63 67 68 69 70 71 72 73 74 75 76