Valhalla Legends Archive

Yea but with that dll it will handle the queries 1 by 1 , in order not all at once  this is wat it says on the file i found came with .dll and module's text



' MySQL Module for Visual Basic written in Delphi
'
' Introduction: The dll this module links to is in fact a wrapper for libmySQL.dll,
' which, because of the complicated data structures would be harder to implement in VB.
' libmySQL.dll is part of the mySQL package and can be freely distributed as such.


my web channel is done in php.... use vb to connect if you dont know alot about packets and blah flags use CSB by  cuphead.... on the Userjoins Event use OCD or sqlvb6.dll to update who joins  and then send it to MySql.


Private Sub CSB_UserJoins(ByVal Username As String, ByVal Flags As Long, ByVal Message As String, ByVal Ping As Long, ByVal Product As String, SimulatedEvent As Boolean)

txtsqlq.text = "Insert into `table name` where `ID` =" & Username & "and `ping` =" & ping & "and `icon` ="  & icon
call sqlinsert(txtsql.text)
End Sub

then when the lea i think its UserLeaves use


Private Sub CSB_UserLeaves(ByVal Username As String, ByVal Flags As Long, SimulatedEvent As Boolean)

txtsqlq.text = "Delete from `blah` where `ID` =" &  Username
call del(txtsql.text)
End Sub

for the calls you need the dll thats the way i use... just search on google for Vb To MySql and im sure youll find something just as ez ... heres a link to my web bot...  http://www.eternalsoldiers.net/esbot/chnnel.php and if you want to just use spht web bot you can and use this link for just users in channel.  http://www.valhallalegends.com/skywing/isapi/BinaryChatISAPI.dll?channellistex=accname

Quote from: blinkdude on December 15, 2003, 03:10 AM
use CSB to connect or use a bot source...

Duno maybe he Wants this bot to have other features too..Just Suggestions..

use CSB to connect or use a bot source..then use MyDql OBC drivers to connect to mysql and insert the info , my web channel uses MySqL for it... http://www.eternalsoldiers.net/esbot/chnnel.php hmm this is a good site http://www.codeguru.com/forum/forumdisplay.php?s=&forumid=12 for info on it ... how i would do it is this...
--Con.. to battle net
--Connect to MySql Database
--D.L list to text file
--Open Txt file Either add it to a listview or just read stright from file
--Have a Timer call 1 name at a time in 45 - 1.3 minz and /stats name them.
--Update name (stats in mysql)
--disble Timer.

thanks works!

//checks to see if Username is in listview and if it is it deletes it, i get a Index out of bounds error sometimes ? ideas?


For X = 1 To Form1.lstls.ListItems.Count
 If Form1.lstls.ListItems.Item(X).Text = Username Then
   Form1.lstls.ListItems.Remove X
 End If
Next X


Ha! heres a ss i also added more stuff but like A Remove Load/save Lists ..You can run it wiht bot or with out...
http://eternalsoldiers.net/esbot/ss/ss7.gif
http://eternalsoldiers.net/esbot/ss/ss7.gif

ah thanks works!

Maybe with more infromation it will help Its for an Mp3 player and then "Next Song" Button Will play the Next Song in the listview...any ideas?

With a ListBox this will select the next Item added.

List1.ListIndex = List1.ListIndex + 1

I was wondering How you would do this with a ListView?

ah thx! Splt(UBound(Splt)) works just right

OK this is for a Mp3 player on my bot...

the text box txtfile.text = "The DIR to file..c:\folder\folder\file.mp3"
txtname.text = "short name " only .mp3 not hole Dir link




Dim Splt() As String
If InStr(txtfile.Text, "\") Then
Splt() = Split(txtfile.Text, "\")
txtname.text = ""
'need help on this part .. is there any way to count how many "\" are in a text box?  or only count the last Splt(x) after the "\"
txtname.text =  Splt(x)



add a Command Button to connect. double click on that button add the code

With CleanSlateBot1
   .Accept = 579728
   .CDKey = "XXXXYYYYYZZZZ"
   .ChangePassword = False
   .Character = ""
   .HomeChannel = "Clan [vL]"
   .LODKey = "AAAABBBBCCCCDDDD"
   .NewPassword = "None"
   .Password = "YourPassword"
   .Product = "PXES"
   .Realm = "USEast"
   .Server = "useast.battle.net"
   .UseRealm = False
   .Username = "YourUsername"
   .UseUDP = False
End With

then after the code have this

CleanSlateBot1.connect

after you make the button it will look like this ( assuming you double click on the Button

Private Sub name-of-button_Click()
With CleanSlateBot1
   .Accept = 579728
   .CDKey = "XXXXYYYYYZZZZ"
   .ChangePassword = False
   .Character = ""
   .HomeChannel = "Clan [vL]"
   .LODKey = "AAAABBBBCCCCDDDD"
   .NewPassword = "None"
   .Password = "YourPassword"
   .Product = "PXES"
   .Realm = "USEast"
   .Server = "useast.battle.net"
   .UseRealm = False
   .Username = "YourUsername"
   .UseUDP = False
End With
CleanSlateBot1.connect
End Sub


[Edit: added blinkdude's missing line; removed his separate post which mentioned it; editing is restricted due to the number of people who kept deleting their own posts by editing the content to a null string]

yea thanks for the help i just put a table @ the end of all the php and id'ed it so it gos stright to that table with .com#idname

ok i found it

window.scrollBy(0, window.innerHeight);