| Author | Message | Time |
|---|---|---|
| KkBlazekK | [code]Private Sub QueTimer_Timer() Dim RemoveItem As String If Que.ListCount = "0" Then QueTimer.Interval = QueTimer.Interval - 300 End If If Que.ListCount =>1 Then Main.CleanSlateBot1.Send Que.List(0) Que.RemoveItem Que.List(0) QueTimer.Interval = QueTimer.Interval + 300 End If If QueTimer.Interval < 1000 Then QueTimer.Interval = 1000 End If If QueTimer.Interval > 15000 Then QueTimer.Interval = 15000 End If If Que.ListCount > 30 Then AddChat "Queue Cleared" & vbNewLine, vbRed Que.Clear End If End Sub [/code] That is my code for my que timer and its being evil. I really don't know how to use listboxs because I never use them... It keeps giving me an error on this line... [code] Que.RemoveItem Que.List(0) [/code] | May 18, 2004, 12:34 PM |
| InSeCuRe | If you posted this on the vb section you might get more responces but... As far as I know for a listbox to remove it you need to que.remove (i). (If I am wrong I am sorry...pain pills are fun to have because I can't remember much) | May 18, 2004, 1:38 PM |
| Eli_1 | que.Remove takes in an integer as it's parameter, and your giving it a string. Try [code] que.Remove 0 [/code] On a side note, your TAB key is dieing for some attention. :( | May 18, 2004, 2:48 PM |
| BinaryzL | Unfixed code but "formatted". [code]Private Sub QueTimer_Timer() Dim RemoveItem As String If Que.ListCount = "0" Then QueTimer.Interval = QueTimer.Interval - 300 End If If Que.ListCount >= 1 Then Main.CleanSlateBot1.Send Que.List(0) Que.RemoveItem Que.List(0) QueTimer.Interval = QueTimer.Interval + 300 End If If QueTimer.Interval < 1000 Then QueTimer.Interval = 1000 End If If QueTimer.Interval > 15000 Then QueTimer.Interval = 15000 End If If Que.ListCount > 30 Then AddChat "Queue Cleared" & vbNewLine, vbRed Que.Clear End If End Sub[/code] | May 18, 2004, 3:40 PM |
| KkBlazekK | [quote author=Eli_1 link=board=17;threadid=6861;start=0#msg60650 date=1084891700] On a side note, your TAB key is dieing for some attention. :( [/quote] Actually I removed the tab space entries when adding my code here... I think my code is working because its been saying hello all day without getting kicked... | May 18, 2004, 7:39 PM |
| FuzZ | [quote author=Blaze link=board=17;threadid=6861;start=0#msg60688 date=1084909198] [quote author=Eli_1 link=board=17;threadid=6861;start=0#msg60650 date=1084891700] On a side note, your TAB key is dieing for some attention. :( [/quote] Actually I removed the tab space entries when adding my code here... I think my code is working because its been saying hello all day without getting kicked... [/quote] sure you're not muted? :P | May 18, 2004, 8:34 PM |
| KkBlazekK | Yes because my my other bot picked up all the chating... Now I have to find a way to make it display the text when it is sent rather then when it is typed and entered... | May 18, 2004, 11:58 PM |
| Eli_1 | [quote author=Blaze link=board=17;threadid=6861;start=0#msg60739 date=1084924716] Yes because my my other bot picked up all the chating... Now I have to find a way to make it display the text when it is sent rather then when it is typed and entered... [/quote] You might be able to use Socket_SendComplete(), then again you might not... | May 19, 2004, 12:13 AM |
| Myndfyr | off-topic.... Mahaha, the first thing I thought of when I saw the title was.... [code] ListBox1.Remove(things) [/code] 8) | May 19, 2004, 12:43 AM |
| Lenny | You should really use arrays to store your queue, especially if you're not displaying the listbox.... Also, the queue also depends on the size of the message, not just how many messages in an interval... [quote] Now I have to find a way to make it display the text when it is sent rather then when it is typed and entered... [/quote] That's just a matter of how you send text, the Send function should both add the text to the display and actually send the data to battle.net...This function would be called every time the queue function has passed.... | May 19, 2004, 7:00 PM |