Idle

[TeEhEiMaN]

I did, I got no clue why its not working, Did the script I send look right?

[______]

Code Select Expand


Private Sub Timer1_Timer()
   Static counter As Integer
   If CleanSlateBot1.Connected Then
       If Form5.chkIdle.Value = Checked Then
           counter = counter + 1
           If counter >= 1 Then '5min = 5  2hrs = 120
               CleanSlateBot1.Send Form5.txtIdle.Text  'send the idle message
               counter = 0
           End If
       End If
   End If
End Sub


Seems to be fine to me  

Edit: fixed badly corrupting tags.

[TeEhEiMaN]

If anyone has aim  and could walk me throught this, I would really appreciate it. Thanks
Aim: xTeEhEiMaNx

[tA-Kane]

[/Code]

Please remember that for some dumb reason, the tags are case-sensitive, and only work when they're completely lower-case.

[TeEhEiMaN]

Here are both of the codes

Form 5 With all the TXT box's

Code Select Expand


Private Sub Command1_Click()
WriteStuff "Misc", "Master", txtMaster.Text
WriteStuff "Misc", "Trigger", txtTrigger.Text
WriteStuff "Misc", "Idle", txtIdle.Text
WriteStuff "Misc", "chkIdle", chkIdle.Value

Unload Me

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

Private Sub Form_Load()

txtMaster.Text = GetStuff("Misc", "Master")
txtTrigger.Text = GetStuff("Misc", "Trigger")
txtIdle.Text = GetStuff("Misc", "Idle")
chkIdle.Value = GetStuff("Misc", "chkIdle")
End Sub


Forum 1 With the Code

Code Select Expand


Private Sub Timer1_Timer()
   Static counter As Integer
   If CleanSlateBot1.Connected Then
       If Form5.chkIdle.Value = Checked Then
           counter = counter + 1
           If counter >= 1 Then '5min = 5  2hrs = 120
               CleanSlateBot1.Send Form5.txtIdle.Text  'send the idle message
               AddChat vbBlue, txtUsername.Text & ": ", vbWhite, Form5.txtIdle.Text
                   counter = 0
           End If
       End If
   End If
End Sub



What the fuck, Its set up perfect?!

[TeEhEiMaN]

Can someone please help me with this?

[Tazo]

Forum 1 With the Code

[RhiNo]

well your code is

Code Select Expand

Private Sub Timer1_Timer()
   Static counter As Integer
   If CleanSlateBot1.Connected Then
       If Form5.chkIdle.Value = Checked Then
           counter = counter + 1
           If counter >= 1 Then '5min = 5  2hrs = 120
               CleanSlateBot1.Send Form5.txtIdle.Text  'send the idle message
               AddChat vbBlue, txtUsername.Text & ": ", vbWhite, Form5.txtIdle.Text
                   counter = 0
           End If
       End If
   End If
End Sub
It may help if you add Form5.txtIdle.text &vbCrLf this seems to always be what my problem is when sending stuff to battle.net

[Stealth]

It may help if you add Form5.txtIdle.text &vbCrLf this seems to always be what my problem is when sending stuff to battle.net

CleanSlateBot will automatically add vbCrLf to the end of the string to be sent.

I noticed your code refers to your timer running once every minute. To my knowledge, timer object intervals are stored in integer-types [+/- 32767] that translate into milliseconds, so the highest interval you could have would be a little under 33 seconds. What interval did you specify?

What you may want to try is adding a series of messageboxes or AddChats that will occur if certain parts of the code run (ie, one inside each If statement) to see at what point it fails.

[______]

is the timer1 on your main form?

[RhiNo]

ehhh sr dont really use bnls all that often for certain reasons but thats besides the point

[CrAz3D]

Private Sub AntiIdle_Timer()
If frmOptions.txtIdle.text = "" Then
   Exit Sub
End If
If frmOptions.txtInterval.text = "" Then
   Exit Sub
End If


Idle2 = Idle2 + 1
If Idle2 >= frmOptions.txtInterval.text Then
   CleanSlateBot1.Send frmOptions.txtIdle.text
   Idle2 = 0
End If
End Sub

In your declares area Public Idle2 sa an integer