Question

[DarkOne]

I've tried everything I possibly can, but this is not working. I've used the function Grok kindly posted a week or so ago and implemented it. However, since then I haven't had time to look at any real problems with what I've done, until today. I found that ever after checking the database textfile and comparing all names with those of the names of people who speak aloud in the channel, anyone can access my commands. It ignores my access level specifications, any help on this issue would be appreciated. Here's a snippet of my command code:

Code Select Expand

Select Case LCase(cTalk(0))
    Case varTrig & "say"
        If aCheck >= 90 Then
            Send cTalk(1), frmMain.WSbnet
        End If


[Grok]

Zip up your project code and email it to me [email protected] and I'll take a look.  Include all VBP, FRM, FRX, BAS, CLS, or RES that you are using.

If you don't ZIP it, or if you send me an executable, I will simply delete it and not bother.

[DarkOne]

I'm trying to add a new feature to my bot which involves updating an HTM document. I'm trying to have the bot check through an HTM document and add all lines to an array. After this has been completed, it will then look for a specific string within the document and convert it to a null string along with the 3 lines above and two lines below. Here's what I have so far:

Code Select Expand

Public Function HTMLGenerate_Delete()
Dim strLine() As String
Dim w, nLines As Integer

nLines = 0

Open App.Path & "\channel.htm" For Input As #1

    Do While EOF(1) = False
        nLines = nLines + 1
        Line Input #1, strLine(nLines)
    Loop
    
Close #1

Open App.Path & "\channel.htm" For Output As #1

    For w = 1 To nLines
        If strLine(w) = "test" Then
            
            strLine(w - 3) = ""
            strLine(w - 2) = ""
            strLine(w - 1) = ""
            strLine(w) = ""
            strLine(w + 1) = ""
            strLine(w + 2) = ""
            
        Else
        
            Print #1, strLine(w)
            
        End If
    Next
        
Close #1

End Function