for ken tucker

[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.E U.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_onDataA rrival(ByVal Data() As Byte, ByVal
TotalBytes As Integer) Handles Netsock.onDataA rrival
Dim inData As String = Netsock.Bytesto String(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.rtbStat us.DisplayMessa ge(nStatus.rtbS tatus, "PONG :" &
C(1).Substring( 1))
RaiseEvent onSeverMessage( "PONG :" & C(1).Substring( 1))
Netsock.SendDat a(Netsock.Strin gToBytes("PONG :" &
C(1).Substring( 1) & vbCrLf))
End If

If C(0) = "ERROR" Then
Dim int2 As Integer = CLi.IndexOf(":" )
CLi = CLi.Substring(i nt2 + 1)
RaiseEvent onSeverMessage( CLi.ToString())
End If

If Not C(0) = "NOTICE" And C(1) = "AUTH" Then
Dim int3 As Integer = CLi.IndexOf("NO TICE AUTH")
' CLi = CLi.Substring(i nt3)
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(Net sock.Nick)
CLi = CLi.Substring(i ntI + Netsock.Nick.Le ngth)
RaiseEvent onSeverMessage( CLi.ToString())
End If
End Select
Debug.WriteLine (CLi.ToString)
Next
End Sub

[Ken Tucker [MVP]]

Hi,

Maybe this will help.
http://www.irixbox.com/?s=irc

Ken
-----------------
"Supra" <su*****@rogers .com> wrote in message
news:%2******** ********@TK2MSF TNGP10.phx.gbl. ..
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.E U.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_onDataA rrival(ByVal Data() As Byte, ByVal
TotalBytes As Integer) Handles Netsock.onDataA rrival
Dim inData As String = Netsock.Bytesto String(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.rtbStat us.DisplayMessa ge(nStatus.rtbS tatus, "PONG :" &
C(1).Substring( 1))
RaiseEvent onSeverMessage( "PONG :" & C(1).Substring( 1))
Netsock.SendDat a(Netsock.Strin gToBytes("PONG :" &
C(1).Substring( 1) & vbCrLf))
End If

If C(0) = "ERROR" Then
Dim int2 As Integer = CLi.IndexOf(":" )
CLi = CLi.Substring(i nt2 + 1)
RaiseEvent onSeverMessage( CLi.ToString())
End If

If Not C(0) = "NOTICE" And C(1) = "AUTH" Then
Dim int3 As Integer = CLi.IndexOf("NO TICE AUTH")
' CLi = CLi.Substring(i nt3)
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(Net sock.Nick)
CLi = CLi.Substring(i ntI + Netsock.Nick.Le ngth)
RaiseEvent onSeverMessage( CLi.ToString())
End If
End Select
Debug.WriteLine (CLi.ToString)
Next
End Sub

[Supra]

thank, tucker. :-)

Ken Tucker [MVP] wrote:

Hi,

Maybe this will help.
http://www.irixbox.com/?s=irc

Ken
-----------------
"Supra" <su*****@rogers .com> wrote in message
news:%2******* *********@TK2MS FTNGP10.phx.gbl ...
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_onDataA rrival(ByVal Data() As Byte, ByVal
TotalBytes As Integer) Handles Netsock.onDataA rrival
Dim inData As String = Netsock.Bytesto String(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.rtbSta tus.DisplayMess age(nStatus.rtb Status, "PONG :" &
C(1).Substring (1))
RaiseEvent onSeverMessage( "PONG :" & C(1).Substring( 1))
Netsock.SendDat a(Netsock.Strin gToBytes("PONG :" &
C(1).Substring (1) & vbCrLf))
End If

If C(0) = "ERROR" Then
Dim int2 As Integer = CLi.IndexOf(":" )
CLi = CLi.Substring(i nt2 + 1)
RaiseEvent onSeverMessage( CLi.ToString())
End If

If Not C(0) = "NOTICE" And C(1) = "AUTH" Then
Dim int3 As Integer = CLi.IndexOf("NO TICE AUTH")
' CLi = CLi.Substring(i nt3)
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(Net sock.Nick)
CLi = CLi.Substring(i ntI + Netsock.Nick.Le ngth)
RaiseEvent onSeverMessage( CLi.ToString())
End If
End Select
Debug.WriteLine (CLi.ToString)
Next
End Sub