idle msg

[Crim-Training]

i know this has been answered before, but i have been searching the forum and cant find it..

anyway i just need a quick idle message for a vb bot,

thx, Daniel

[Yoni]

Building a binary Battle.net bot in a cumbersome language such as VB requires great expertise. Surely after accomplishing this feat you can manage a mind-boggingly trivial objective consisting of nothing more than a timer and a line or two of code?

[hismajesty]

i know this has been answered before, but i have been searching the forum and cant find it..

anyway i just need a quick idle message for a vb bot,

thx, Daniel

Hmm, heres a good idle message - "Omg hismajesty is the coolest guy ever he rox0rs my box0rs" good eh?  

Edit: Oh Oh Oh...you wanted code. Well assuming you're using VB place a timer on your form and name it tmrIdle. The double click on tmrIdle which will bring up the code screen for the timer.

Then you may or may not want to reset the timer. In this example we will set the timer to a preset time. You can alter this to have it send the timer at an interval of your choice. OK

Code Select Expand


tmrIdle.Interval = "60000" '1 Minute
'This Sets The Interval


Then the idle code is this (you will need to change send to your send method, such as adding to a queue or Something.Send etc.) Also let strIdleMsg = your textbox that includes the idle message you want (Example Form2.txtIdle.text or something)

Code Select Expand


Send strIdleMsg & " ~[ YourBot By SomeLeetGuy ]~"


A full code would be like this (let strIdleOn equal a checkbox on the setup form checking if idles are enabled)

Code Select Expand


Private Sub tmrIdle_Timer()

Dim strIdleMsg As String 'Declare Variable
Dim strIdleOn As String 'Declare Variable
strIdleMsg = frmSetup.txtIdleMsg.text 'Set Variable Value
strIdleOn = frmSetup.txtIdleOn.Value 'Set Variable Value

If strIdleOn = vbChecked Then ' If the Checkbox is checked
   tmrIdle.Interval = 60000 'Set The Interval To 1 Minute
   Send strIdleMsg & " ~[ YourBot By SomeLeetGuy ]~" 'Send Idle Message Text
   End If
End Sub


[Stealth]

Or.. much more simply, and without declaring two unnecessary variables:

Code Select Expand


Private Sub tmrIdle_Timer()
    If frmSetup.txtIdleOn.Value = vbChecked Then ' If the Checkbox is checked
        tmrIdle.Interval = 60000 'Set The Interval To 1 Minute
        Send frmSetup.txtIdleMsg.text & " ~[ YourBot By SomeLeetGuy ]~" 'Send Idle Message Text
    End If
End Sub


[hismajesty]

Or.. much more simply, and without declaring two unnecessary variables:

Code Select Expand


Private Sub tmrIdle_Timer()
    If frmSetup.txtIdleOn.Value = vbChecked Then ' If the Checkbox is checked
        tmrIdle.Interval = 60000 'Set The Interval To 1 Minute
        Send frmSetup.txtIdleMsg.text & " ~[ YourBot By SomeLeetGuy ]~" 'Send Idle Message Text
    End If
End Sub


I figured he'd be able to tell the variables are not required...I don't use variables within my code but I thought maybe if he didn't know how to declare variables that it would help.

[Grok]

I figured he'd be able to tell the variables are not required...I don't use variables within my code but I thought maybe if he didn't know how to declare variables that it would help.

Yes, variables are overrated.

[Zakath]

Variables? Who needs variables? Or functions, for that matter. My last bot was just a big list of mathematical operations involving numeric constants. I didn't even use a single string!

[hismajesty]

Variables? Who needs variables? Or functions, for that matter. My last bot was just a big list of mathematical operations involving numeric constants. I didn't even use a single string!

Math sucks.

[UserLoser]

Much simpler, better, and non-gayer.

Code Select Expand


lTimerID = SetTimer(frmBot.hwnd, 0, 60000, AddressOf TimerProc)

Set the timer to 60 seconds.

Code Select Expand


Public Sub TimerProc(ByVal hwnd As Long, ByVal lMsg As Long, ByVal lTimerId As Long, ByVal lTime As Long)
    QueueChatMessage "Hello world!"
End Sub


Timer's callback function.

Also, make sure you kill the timer.

Code Select Expand


Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long

[Stealth]

I figured he'd be able to tell the variables are not required...I don't use variables within my code but I thought maybe if he didn't know how to declare variables that it would help.

Yes, variables are overrated.

It would seem that, unless he were making modifications to the contents of those two text boxes or using them extensively before sending them to Battle.net, there's no reason to create individual variables to mirror their contents. Is my thinking wrong?

[hismajesty]

Is my thinking wrong?

Is it ever?  

[iago]

Is my thinking wrong?

Is it ever?  

Well yeah, an example would be putting vL's homechannel on StealthBot's channel list

[hismajesty]

Is my thinking wrong?

Is it ever?  

Well yeah, an example would be putting vL's homechannel on StealthBot's channel list

It wouldn't make a difference seeing as 3/4 of bnet is banned from [vL] anyway.  

[iago]

Is my thinking wrong?

Is it ever?  

Well yeah, an example would be putting vL's homechannel on StealthBot's channel list

It wouldn't make a difference seeing as 3/4 of bnet is banned from [vL] anyway.  

eewy spam, mostly.

[hismajesty]

Is my thinking wrong?

Is it ever?  

Well yeah, an example would be putting vL's homechannel on StealthBot's channel list

It wouldn't make a difference seeing as 3/4 of bnet is banned from [vL] anyway.  

eewy spam, mostly.

How dare you call me a spammer?  

Edit: This topic has really gotten off topic.