I was wondering if someone can post a Basic VB Idle for cleanslatebot.
Thx
TeEhEiMaN

A very simple way of doing it in Minutes

[code]Private Sub Timer1_Timer()
Static counter As Integer
If CleanSlateBot1.Connected Then
If frmOptions.chkIdle.Value = Checked Then
counter = counter + 1
If counter >= 5 Then '5min = 5 2hrs = 120
CleanSlateBot1.Send frmOptions.antiidlemsg.Text 'send the idle message
Addtext vbBlue, txtName.Text & ": ", vbWhite, frmOptions.antiidlemsg.Text
counter = 0
End If
End If
End If
End Sub[/code]

Edit - Make it a habit to use the intergrated [ code ] and [ /code ] tags, please. Thanks.

thank you

I get an error on "Addtext" vbBlue

u need Gorks addtext function
http://www.valhallalegends.com/docs/rtbox.htm

i alrdy have that , Im not sure what the problem is?

Addtext vbBlue, txtName.Text & ": ",

I think the txtName.Text it the thing that mess's me up, What is the txtName?

[quote author=TeEhEiMaN link=board=17;threadid=1429;start=0#msg10629 date=1053892278]
Addtext vbBlue, txtName.Text & ": ",

I think the txtName.Text it the thing that mess's me up, What is the txtName?
[/quote]

just make txtname your name u logon as
the txtname.text is under my logon event. like logged on as username
edit: txtname.text = username

Im still gettin the error on Addtext vbBlue, I installed that script u told me to do also.What the heck is wrong! >:(

create a text box name it txtname then under ur logon even when successful

txtname.text = username


or if your still having problems then you dont have the antiidle msg text box or frmoptions

Edit: All in else fails just take it out but you wont see it on your bot, but bnet will see it.

Does this look right for the txt Box's cause I get an error on chkIdle = GetStuff("Misc", "chkedIdle"), Once I get this im pretty sure the idle will work.


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

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 = GetStuff("Misc", "chkedIdle")
End Sub

[quote author=TeEhEiMaN link=board=17;threadid=1429;start=0#msg10637 date=1053895909]
Does this look right for the txt Box's cause I get an error on chkIdle = GetStuff("Misc", "chkedIdle"), Once I get this im pretty sure the idle will work.


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

Unload Me

End Sub

[/quote]


wheres the writestuff "Misc", "chkedIdle,chkedIdle.value
im assuming chkeidle is a check box

TeEhEiMaN, please use the [ code ] and [ /code ] tags.

[code]
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
[/Code]

Thats what I have set, It Looks i put It in perfect, It runs with out errors but does no idle, HELP ME PLZZZZZZZZZZzz
[/code]

[quote author=TeEhEiMaN link=board=17;threadid=1429;start=0#msg10655 date=1053898969]
[code]

It runs with out errors but does no idle, HELP ME PLZZZZZZZZZZzz
[/code]
[/quote]

do u have text in the txtIdle.Text if so you have to wait 1 min after you turn it on.

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

[quote author=TeEhEiMaN link=board=17;threadid=1429;start=0#msg10655 date=1053898969]
[code]
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
[/code][/quote]

Seems to be fine to me :-\

Edit: fixed badly corrupting tags.

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

[quote author=______ link=board=17;threadid=1429;start=15#msg10664 date=1053903772]
[quote author=TeEhEiMaN link=board=17;threadid=1429;start=0#msg10655 date=1053898969][/Code][/quote]Please remember that for some dumb reason, the tags are case-sensitive, and only work when they're completely lower-case.[/quote]

Here are both of the codes

Form 5 With all the TXT box's
[code]
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
[/code]

Forum 1 With the Code
[code]
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
[/code]


What the fuck, Its set up perfect?!

Can someone please help me with this?

[quote author=TeEhEiMaN link=board=17;threadid=1429;start=15#msg10789 date=1053977903]
Forum 1 With the Code
[/quote]

well your code is
[code]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[/code]
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

[quote author=RhiNo link=board=17;threadid=1429;start=15#msg10869 date=1054043907]
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
[/quote]

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?

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

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