Valhalla Legends Archive

Anyone have a spam ban code that is really good pelase give it to me? Thnx

what the hell do you mean, spamban? if you mean to check if they are spamming the same thing, just save the message and username in a variable or array then check it everytime someone talks. ^^

No is someone started spammnig like hi hi hi hi over and over they get kicked or either banned.

Quote from: haze the cow on April 12, 2003, 12:09 PM
what the hell do you mean, spamban? if you mean to check if they are spamming the same thing, just save the message and username in a variable or array then check it everytime someone talks. ^^

You would still do that.

would you know what is wrong with this code it always says compile error me a newbie at this i just need help from other ppl so i can learn

'Form Code
Private Sub form_load()      ( Highlighted Yellow )
   Dim s As String
   Close #1
   rtbChat.BackColor = vbBlack
   rtbChat.Font.Size = 8
   lvChannel.View = lvwSmallIcon
   AddChat &H99CC00, "Welcome to Vi0lNtBot v1.00 Test Edition by l)ayclone]XV["
   frmChat.KeyPreview = True
   frmChat.Caption = ":: Vi0lNtBot v1.00 Test Edition :: Disconnected ::"
   frmAbout.lblTitle.Caption = ":: Vi0lNtBot v1.00 Test Edition"
   Me.Show
   Me.Refresh
   AutoClear = True
   
   s = Dir$(App.Path & "\quickchannels.txt")
           If s = "" Then
               lbQC.AddItem "Clan x]XV[x"
               mnuQC1.Caption = lbQC.List(0)
               mnuQC2.Caption = lbQC.List(1)
               mnuQC3.Caption = lbQC.List(2)
               mnuQC4.Caption = lbQC.List(3)
               mnuQC5.Caption = lbQC.List(4)
               Exit Sub
           End If
   
   Open (App.Path & "\quickchannels.txt") For Input As #1
   Do
       Input #1, s
       lbQC.AddItem s
   Loop Until EOF(1)
       mnuQC1.Caption = lbQC.List(0)
       mnuQC2.Caption = lbQC.List(1)
       mnuQC3.Caption = lbQC.List(2)
       mnuQC4.Caption = lbQC.List(3)
       mnuQC5.Caption = lbQC.List(4)
End Sub

What's it highlight.

and i'm thinking the part that's wrong is  

lvChannel.View = lvwSmallIcon        

but i edited the one up top where it's highlighted

What does the error state?, and what does it highlight?

Dayclone, buy a VB book.

I never required a VB book.. :p

Well Dayclone does, along with a good spanking and visit from the copyright police.

Is it Copyright legally ? hmmmm thnik about that b4 u say soemthin like that. and a VB book heh.... mayb

Ther error is


Compile Error:   Method or data member not found.

'Form Code
Private Sub form_load()   ( highlighted yellow )
   Dim s As String
   Close #1
   rtbChat.BackColor = vbBlack
   rtbChat.Font.Size = 8
   lvChannel.View = lvwSmallIcon         ( something wrong here? )
   AddChat &H99CC00, "Welcome to Vi0lNtBot v1.00 Test Edition by l)ayclone]XV["
   frmChat.KeyPreview = True
   frmChat.Caption = ":: Vi0lNtBot v1.00 Test Edition :: Disconnected ::"
   frmAbout.lblTitle.Caption = ":: Vi0lNtBot v1.00 Test Edition"
   Me.Show
   Me.Refresh
   AutoClear = True
   
   s = Dir$(App.Path & "\quickchannels.txt")
           If s = "" Then
               lbQC.AddItem "Clan x]XV[x"
               mnuQC1.Caption = lbQC.List(0)
               mnuQC2.Caption = lbQC.List(1)
               mnuQC3.Caption = lbQC.List(2)
               mnuQC4.Caption = lbQC.List(3)
               mnuQC5.Caption = lbQC.List(4)
               Exit Sub
           End If
   
   Open (App.Path & "\quickchannels.txt") For Input As #1
   Do
       Input #1, s
       lbQC.AddItem s
   Loop Until EOF(1)
       mnuQC1.Caption = lbQC.List(0)
       mnuQC2.Caption = lbQC.List(1)
       mnuQC3.Caption = lbQC.List(2)
       mnuQC4.Caption = lbQC.List(3)
       mnuQC5.Caption = lbQC.List(4)
End Sub

Does it say copyright in the src you stole? Most likely.

Nope not really i got it off a site i think it was the disclaimer or somethin

Quote from: Dayclone on April 12, 2003, 10:02 PM
Nope not really i got it off a site i think it was the disclaimer or somethin

I somehow doubt that very much.