Valhalla Legends Archive

Everytime I add in War3 and TFT I get a problem due to the UDP part of my code I remove it and it says something about my BNLSID. Could someone help me? If you wanna see some code just say so.

Wow, Thank you so much ChR0NiC your code worked others I couldnt get working... maybe it was due my knowledge of vb... but not sure. But thank you again. I have another problem though, In the channels list view when people join channels instead of it going stright down it adds on the the right of it and you can click and drag and rearrange people in the channel anyway I can fix that?

Quote from: K on January 19, 2004, 01:49 PM
Suppose you know the time that you first connected to battle.net, and you also know the current time.  You now know how long you have been connected.  This question really shouldn't be that stupifying.

But how would I get it to say how long they are connected for really... I don't get it...

Uhh, Yea im back for more help because I know I can find it here err... atleast I hope. I was wondering how I would make it tell how long you are connected to bnet for I finally figured out System Uptime after 1 hour -_-, But Connection uptime is bothering me so I came here. I think im going to add everyone who helped me in the special thanks section of the bot. So... If anyone could please help me on how to do this that would be great.

Hmm, This doesnt have to do with what anyone said just wanted to show you all my signature I made in PS 7.0.

Wow, thanks for all the help. I did make my code smaller in size with the code and info you all told me and now I have W3XP image showing instead of when someone joins the channel the bot quits. Thank you all for helping me, If I ever need help with anything I always come here and get the problem figured out.

Ok thank you. I got all that working now I just can't get Warcraft 3:tft to work... How would I do that like I did with these


   If Product = "STAR" Then
       InChannel.ListItems.add , , Username, , 6
   ElseIf Product = "SEXP" Then
       InChannel.ListItems.add , , Username, , 9
   ElseIf Product = "D2DV" Then
       InChannel.ListItems.add , , Username, , 5
   ElseIf Product = "D2XP" Then
       InChannel.ListItems.add , , Username, , 13
   ElseIf Product = "W2BN" Then
       InChannel.ListItems.add , , Username, , 10
   ElseIf Product = "WAR3" Then
       InChannel.ListItems.add , , Username, , 61
   ElseIf Product = "CHAT" Then
       InChannel.ListItems.add , , Username, , 2
   ElseIf Product = "DRTL" Then
       InChannel.ListItems.add , , Username, , 12
   ElseIf Product = "DSHR" Then
       InChannel.ListItems.add , , Username, , 1
   ElseIf Product = "JSTR" Then
       InChannel.ListItems.add , , Username, , 11
   ElseIf Product = "SSHR" Then
       InChannel.ListItems.add , , Username, , 1
   Else
       InChannel.ListItems.add , , Username, , 8
   End If
   lbPing.AddItem Ping


What would the war3:tft be?

Ok, I have a problem in order to show game Icons by usernames do you have to have a file on your form for the icons? If so where can I find this file, If not can someone point me in the direction of find out how to make it show the icons.

I got it, I re-looked at cupheads example and for some reason I never noticed the .Accept value which is 579728 I not once have ever seen it there...

Oh forgot btw I got it working thanks everyone who helped and I guess since I got it working topic closed.

Hrm... Well guess what here is my code.


Public Sub Form_Load()
CleanSlateBot1.BNLSBotID = "My ID"
CleanSlateBot1.BNLSBotPassword = "My Id Password"
CleanSlateBot1.CDKey = "4???87???28??"
CleanSlateBot1.Product = "PXES"
CleanSlateBot1.HomeChannel = "Testing"
CleanSlateBot1.Password = "??????"
CleanSlateBot1.Username = "?????"
CleanSlateBot1.NewPassword = ""
CleanSlateBot1.ChangePassword = False
CleanSlateBot1.Server = "63.240.202.139"
CleanSlateBot1.Accept = -65
CleanSlateBot1.Connect
End Sub



And it still does not work. I think I am doing something majorly wrong the example says the bot will show up in the channel correct? well it don't do I have to make the rest of the bot before it will work?

Quote from: Soul Taker on January 14, 2004, 03:16 AM
Not positive as I've never used CSB, but I've noticed in previous posts people seemed to have to set an Accept value or something similar.

An accept value? What other posts were these they may help.

Heck if I know that code just doesnt work... It is right isnt it.. If not could someone please help me get it right.

Private Sub Form_Load()
With CleanSlateBot1
   .BNLSBotID = "My BNLS ID"
   .BNLSBotPassword = "My BNLS Pass"
   .CDKey = "My CD-Key"
   .ChangePassword = False
   .Character = ""
   .HomeChannel = "Testing"
   .LODKey = ""
   .NewPassword = "None"
   .Password = "My Password"
   .Product = "PXES"
   .Realm = "USEast"
   .Server = "useast.battle.net"
   .UseRealm = False
   .Username = "My Username"
   .UseUDP = False
End With
End Sub

That is my code thats all I have since im not making anymore until I get BNLS to work. Thats stright from cup heads example and yes I did fill in the correct info.

yes the language is VB. I can compile and run it, its just my account doenst show up in the channel. I have tried changing things like my cdkeys and servers. It had no effect what so ever on it. Yes I do have a BNLS account.

I hope that helps if not just say so and I will post more.

I am in need of help with BNLS I have followed cupheads example but for some odd reason I cannot get it to work. I can get hashes to work just want BNLS also so could someone please help me with this. I would really like the help.