codice:
Public Class user
'NMDC
Public ultimomex As String
Public ultimoconnecttome As Int64
Public ip As String
Public nick As String = ""
Public share As Int64
Public isop As Boolean
Public profile As Integer
Public ultimamyinfo As Int64
Public ultimosearch As Int64
Public ultimonicklist As Int64
Public ultimomexint As Int64
Public ultimopvt As Int64
Public ultimopvtachi As String
Public conteggiomyinfo As Integer
Public conteggiogetnicklist As Integer
Public zline As Boolean
Public usercommand As Boolean
Public stato As String
Public inizialistato As String
Public myinfo As String = ""
Public altronick As String = ""
Public avvertimenti As Integer
Public temp As String = ""
Public falso As Boolean
Public sharenascosto As Boolean
Public loggato As Byte = 0
Public timecontrol As Int64
Public fraseparla As String
Public nicklist As Boolean = False
Public cambiata As Boolean = False
Public primavotla As Boolean = True
Public fallato As Integer
Public supportotthsearch As Boolean = False
Public infomandate As Boolean = False
Public client As System.Net.Sockets.Socket
Public modalita As Char = "M"
Public contr As Byte = 0
Public quit As Byte = 0
Public nickadc As Byte = 0
Public ReadBuffer(1024) As Byte
'ADC
Public adc As Boolean = False
Public cod As String
Public id As String
Public pd As String
Public slots As Integer
Public email As String
Public descr As String
Public taguser As Integer
Public tagreg As Integer
Public tagop As Integer
Public binf As String
Public Sub finale()
Me.Finalize()
End Sub
End Class
codice:
Public Sub disconnettiuser(ByRef user As user)
On Error Resume Next
IMPOSTAZIONI.oplist.Remove(user)
IMPOSTAZIONI.vero.Remove(user)
IMPOSTAZIONI.users.Remove(user)
mandaatutti2adc("IQUI" & Chr(32) & user.cod, user)
If user.nickadc = 0 Then
If user.isop Then
mandaoplistconthread()
End If
If user.quit = 0 Then
mandaatutti2("$Quit " & user.nick)
End If
If user.altronick <> "" Then
mandaatutti2("$Quit " & user.altronick)
End If
End If
user.client.Close()
user.cod = Nothing
user.id = Nothing
user.pd = Nothing
user.email = Nothing
user.descr = Nothing
user.binf = Nothing
user.altronick = Nothing
user.fraseparla = Nothing
user.inizialistato = Nothing
user.ip = Nothing
user.myinfo = Nothing
user.nick = Nothing
user.stato = Nothing
user.temp = Nothing
user.ultimomex = Nothing
user.ultimopvtachi = Nothing
user.modalita = Nothing
user.ReadBuffer = Nothing
user.finale()
End Sub
quella è la classe user... e poi ce la procedura per eliminarla...