I am doing irc chat similar to mirc chat if i connected to
irc.webamster.c om i had no problem. but if connected to eu.undernet.org .
i got error....somthi ng bug me! O:-)
'February 2004
'An unhandled exception of type 'System.NullRef erenceException ' occurred
in system.windows. forms.dll
'Additional information: Object reference not set to an instance of an
object.
Option Explicit On
Option Strict Off
Imports System
Imports System.Text
'Imports System.Net.Dns
'Imports System.Net.Sock ets
Namespace PirateChat
Public Class mainPirateChat <============ error occurred here in bold
Inherits System.Windows. Forms.Form
Private WithEvents netBots As New PirateChat.Clie ntFactory
Private WithEvents Netsock As New PirateChat.Sock Factory
Private clsReader As New PirateChat.clsR eadWriteXML
Private Sub mnuWindowCascad e_Click_1(ByVal sender As
System.Object, ByVal e As System.EventArg s) Handles
mnuWindowCascad e.Click, mnuWindowTitleH .Click, mnuWindowTitleV .Click,
mnuWindowArrang e.Click
Dim mi As MenuItem = CType(sender, MenuItem)
Select Case mi.Text
Case "&Cascade"
Me.LayoutMdi(Md iLayout.Cascade )
Case "Title Horizontal"
Me.LayoutMdi(Md iLayout.TileHor izontal)
Case "Title &Vertical"
Me.LayoutMdi(Md iLayout.TileVer tical)
Case "&Arrange Icons"
Me.LayoutMdi(Md iLayout.Arrange Icons)
End Select
End Sub
Private Sub mnuIrc_Click(By Val sender As System.Object, ByVal e
As System.EventArg s) Handles mnuIrcConnect.C lick, mnuIrcPref.Clic k,
mnuIrcExit.Clic k
Dim mi As MenuItem = CType(sender, MenuItem)
Select Case mi.Text
Case "Connect"
netBots.Connect Server()
Case "Preferences... "
Dim frmPref As New PirateChat.frmP references
frmPref.MdiPare nt = Me
frmPref.Show()
Case "Exit"
Me.Close()
End Select
End Sub
Private Sub mnuServer_Click (ByVal sender As System.Object, ByVal
e As System.EventArg s) Handles mnuSerAdm.Click , mnuSerMotd.Clic k,
mnuSerInfo.Clic k, _
mnuSerMap.Click , mnuSerLink.Clic k, mnuSerVer.Click ,
mnuSerCom.Click , mnuSerTime.Clic k, mnuSerLoAU.Clic k
Dim mi As MenuItem = CType(sender, MenuItem)
Select Case mi.Text
Case "Admin Info"
Netsock.SendDat a(Netsock.Strin gToBytes("admin " &
vbCrLf))
Case "MOTD"
Netsock.SendDat a(Netsock.Strin gToBytes("motd" & vbCrLf))
Case "Server Info"
Netsock.SendDat a(Netsock.Strin gToBytes("serve r" &
vbCrLf))
Case "Map Info"
Netsock.SendDat a(Netsock.Strin gToBytes("map" & vbCrLf))
Case "Link Info"
Netsock.SendDat a(Netsock.Strin gToBytes("links " &
vbCrLf))
Case "Server's Commands"
Case "Server's Time"
Netsock.SendDat a(Netsock.Strin gToBytes("time" & vbCrLf))
Case "Server's Version"
Netsock.SendDat a(Netsock.Strin gToBytes("versi on" &
vbCrLf))
Case "List of All Users"
End Select
End Sub
Private Sub mnuInfo_Click(B yVal sender As System.Object, ByVal e
As System.EventArg s) Handles mnuInfoAlias.Cl ick, mnuInfoStart.Cl ick,
mnuInfoChan.Cli ck, _
mnuInfoNot.Clic k, mnuInfoserInf.C lick
Dim mi As MenuItem = CType(sender, MenuItem)
Select Case mi.Text
Case "Aliases... "
mnuFrmHandling( mi.Text)
Case "Startup... "
mnuFrmHandling( mi.Text)
Case "Channels.. ."
mnuFrmHandling( mi.Text)
Case "Notify lists..."
Dim nlform As New frmNotifyLists
nlform.MdiParen t = Me
nlform.Show()
Case "Server's status"
netBots.nStatus .MdiParent = Me
netBots.nStatus .Show()
End Select
End Sub
Private Sub mnuFrmHandling( ByVal frmName As String)
For Each frm As Form In Me.MdiChildren
If frm.Name = frmName Then
frm.BringToFron t()
Exit Sub
End If
Next
Dim frmNew As frmAlias
frmNew = New frmAlias
frmNew.MdiParen t = Me
frmNew.Name = frmName
Select Case frmName
Case "Aliases... "
frmNew.Text = frmName
Case "Startup... "
frmNew.Text = frmName
Case "Channels.. ."
frmNew.Text = frmName
End Select
frmNew.Show()
End Sub
End Class
End Namespace
