automated vent comment

[skitt]

trying to make a simple server check, then report results in ventrilo comment, but its not working (obviously as im posting here).

HotKeySet('{esc}', '_Exit')

While 1
$var_3 = Msgbox(1,"login checker", "check login")
if $var_3 = 1 then
$var = Ping ("93.174.93.179")
$var_2 = Winactive("Ventrilo")
    if $var >= 0 then 
    WinActivate("Ventrilo", "Comment")
    Winwaitactive("Ventrilo")
    
    ControlSend("Ventrilo", "Comment","[CLASS:Button; INSTANCE:5]", "Comment")
    Winwaitactive("Comment - Advanced ")
    Send("Login = up")
    sleep 200
    Controlsend("Comment - Advanced","[CLASS:Button;INSTANCE:2]","OK")
    
    elseif $var = 0 then 
    WinActivate("Ventrilo", "Comment")
    Winwaitactive("Ventrilo")
    ControlSend("Ventrilo", "Comment","[CLASS:Button; INSTANCE:5]", "Comment")
    Winwaitactive("Comment - Advanced ")
    Send("Login = down")
    sleep 200
    Controlsend("Comment - Advanced","[CLASS:Button;INSTANCE:2]","OK")
    Endif
endif
WEnd

func _Exit()
    sleep(100)
    Exit
EndFunc

Edited June 10, 2009 by skitt

[bogQ]

dono why its not working

dono if your using Controlsend like it shud becose your refering to button

Controlsend("Comment - Advanced","[CLASS:Button;INSTANCE:2]","{ENTER}")
or
Controlsend("Comment - Advanced","[CLASS:Button;INSTANCE:2]","{SPACE}")

and this dont make any sense

if $var >= 0 then 
elseif $var = 0 then

probably

if $var > 0 then 
elseif $var = 0 then

edit:

you did not write what sint working? whot part of the script you have problems with?

Edited June 10, 2009 by bogQ

[skitt]

Ya, its supposed to switch windows to vent, which i would rather make it do all of this in the background, then its, SUPPOSED, to hit the comment button, which in window info was instance 5, but instead it DCed me from the vent server, i guess pressing the disconnect button? I'm still a bit unsure on the controlsend func.

if $var >= 0 then 
elseif $var = 0 then

probably

if $var > 0 then 
elseif $var = 0 then

I used >= 1 before, but like an idiot i changed it to 0, and yes, thats another problem with the code. Edited June 10, 2009 by skitt

[bogQ]

I'm still a bit unsure on the controlsend func.

try with

ControlClick

[skitt]

try with

ControlClick

doesnt that just click at a certain position on the computer? thats kind what i didn't want to do.

[bogQ]

doesnt that just click at a certain position on the computer? thats kind what i didn't want to do.

i think that its better then trying to send with controlsend click on button

example:

ControlClick ("Ventrilo", "Comment","[CLASS:Button; INSTANCE:5]")

Controlsend("Comment - Advanced ","[CLASS:xxxxx-or whats the class tupe]","Login = down")

edit:

mouseclick click certain position on the computer

ControlClick only preform click on control, try example in help file.

Edited June 10, 2009 by bogQ