S
Supra
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
n 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
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
n 1 ca 2(4) ft 10(10) trin 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
