Text only | Text with Images

Valhalla Legends Archive

Programming => Battle.net Bot Development => Topic started by: tty on March 04, 2005, 07:03 PM

Title: Re: For all VB users using cleanslatebot.ocx
Post by: tty on March 04, 2005, 07:03 PM
..
Title: Re: Whois BNET Command
Post by: tty on March 04, 2005, 07:04 PM
.
Title: Re: For all VB users using cleanslatebot.ocx
Post by: Spilled on March 04, 2005, 07:11 PM
Quote from: The_Lost_One on March 17, 2003, 06:23 AM
can u make the addchat() in vb...?

here:

Code Select

Public Function AddChat(ParamArray saElements() As Variant)
    Dim i As Integer
        With frmMain.rtbChat
        .SelStart = 999999999
        .SelLength = 0
        .SelColor = &HE0E0E0
        .SelText = "[" & Format$(Time, "hh:mm:ss] ")
        .SelStart = 999999999
        End With
    For i = LBound(saElements) To UBound(saElements) Step 2
        With frmMain.rtbChat
        .SelStart = 999999999
        .SelLength = 0
        .SelColor = saElements(i)
        .SelText = saElements(i + 1) & Left$(vbCrLf, -2 * CLng((i + 1) = UBound(saElements)))
        .SelStart = 999999999
        End With
    Next i
       
End Function


use it like this:
Code Select

Addchat vbGreen, "message here"


Enjoy.
Title: Re: Whois BNET Command
Post by: Warrior on March 04, 2005, 09:08 PM
Stop reviving old posts
Title: Re: For all VB users using cleanslatebot.ocx
Post by: Warrior on March 04, 2005, 09:08 PM
Quote from: MrRaza on March 21, 2003, 05:43 PM
~



Look at the DATE
Text only | Text with Images