I had problem in irc chat. first server from UNDERNET i had crashed and
some other servers had no plobem such as DALNET, WEBMASTER, EFFNET,
CHATNET, etc. why? Undernet do not sent server name plus NOTICE AUTH...
this what i see on debug window... in undernet if i send MOTD again i
will get crash again. but in dalnet i never get crash again
NOTICE AUTH :*** Looking up your hostname
NOTICE AUTH :*** Found your hostname, cached
NOTICE AUTH :*** Checking Ident
plus sent another one along with nick b4 THE END OF MESSAGE DAY
Amsterdam2.NL.EU.undernet.org NOTICE djanjo2 :on 1 ca 2(4) ft 10(10) tr
in DALNET's server, i had no problem but i couldn't get "NOTICE AUTH" to
displayed. it different from undernet. dalnet send server name along
with msg
broadway.ny.us.dal.net NOTICE AUTH :*** Looking up your hostname...
broadway.ny.us.dal.net NOTICE AUTH :*** Checking Ident
broadway.ny.us.dal.net NOTICE AUTH :*** Found your hostname
broadway.ny.us.dal.net NOTICE AUTH :*** No Ident response
plus sent another NOTICE along with nick
broadway.ny.us.dal.net NOTICE djanjo2 :*** Notice -- This server runs an
open proxy monitor to prevent abuse.
broadway.ny.us.dal.net NOTICE djanjo2 :*** Notice -- If you see
connections on various ports from proxy1.monitor.dal.net
broadway.ny.us.dal.net NOTICE djanjo2 :*** Notice -- please disregard
them, as they are the monitor in action.
broadway.ny.us.dal.net NOTICE djanjo2 :*** Notice -- For more
information please visit http://
I have attempted many times and modifed and redo again but no help.
hopefully u can solve problem. i will do rest.
Private Sub Netsock_onDataArrival(ByVal Data() As Byte, ByVal
TotalBytes As Integer) Handles Netsock.onDataArrival
Dim inData As String = Netsock.BytestoString(Data)
Dim lData(), C(), CLi As String, tData, CL, a As Integer
Dim b() As String
lData = Split(inData, Chr(10))
tData = UBound(lData) - LBound(lData)
For a = 0 To tData
If Mid(lData(a), 1, 1) = ":" Then
lData(a) = Mid(lData(a), 2)
End If
Next
For CL = 0 To tData
C = Split(lData(CL), " ")
ReDim Preserve C(32767)
CLi = lData(CL)
Dim spNick As String(), sNick As String
Dim strNick As String = CLi
spNick = strNick.Split("!")
sNick = spNick(0)
If C(0) = "PING" Then
'
nStatus.rtbStatus.DisplayMessage(nStatus.rtbStatus , "PONG :" &
C(1).Substring(1))
RaiseEvent onSeverMessage("PONG :" & C(1).Substring(1))
Netsock.SendData(Netsock.StringToBytes("PONG :" &
C(1).Substring(1) & vbCrLf))
End If
If C(0) = "ERROR" Then
Dim int2 As Integer = CLi.IndexOf(":")
CLi = CLi.Substring(int2 + 1)
RaiseEvent onSeverMessage(CLi.ToString())
End If
If Not C(0) = "NOTICE" And C(1) = "AUTH" Then
Dim int3 As Integer = CLi.IndexOf("NOTICE AUTH")
' CLi = CLi.Substring(int3)
RaiseEvent onSeverMessage(CLi.ToString())
End If
Select Case C(1)
Case "001" To "009", "251" To "259", "322", "372" To
"376"
If C(2) = Netsock.Nick Then
Dim intI As Integer = CLi.IndexOf(Netsock.Nick)
CLi = CLi.Substring(intI + Netsock.Nick.Length)
RaiseEvent onSeverMessage(CLi.ToString())
End If
End Select
Debug.WriteLine(CLi.ToString)
Next
End Sub
