send

[tommeke228]

i want

If button is clicked Then

launch program

he clicks the revbot compat checkbox

hits start

and thats it

here is pic

Edited April 27, 2008 by tommeke228

[LiLShinta]

use au3info.exe in -->C:\Program Files\AutoIt3

get the ControlClickID then write codes like this..

Run("Filename", "working directory")
WinWaitActive("SrProxy")
ControlClick("SrProxy", RevBot compatibility", "ControlClickID") ->each button or box has its own controlclickid..
ControlClick("SrProxy", Start", "ControlClickID")
WinSetState("SrProxy", "", @SW_MINIMIZE)

[Jos]

.. and your questions is : What?

[C2C]

You would have to use the window info tool to map out the control ID's of the checkboxes buttons etc to make it work

[tommeke228]

thx gona try these xD xD if its not working i gona reply xD

[tommeke228]

expandcollapse popup

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.2.10.0
 Author:         myName

 Script Function:
    Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 144, 62, 193, 125)
$Button1 = GUICtrlCreateButton("Button1", 8, 8, 113, 33, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case $Form1
        Case $Form1
        Case $Form1
        Case $Form1
        Case $Button1
            if $nmsg = $button1 Then    
                lol()
            endif
    EndSwitch
WEnd

func lol
ShellExecute($Text11, "", $Text1)
WinWaitActive("SrProxy")
ControlClick("SrProxy", RevBot compatibility", "1008") ->each button or box has its own controlclickid..
ControlClick("SrProxy", Start", "1000")
WinSetState("SrProxy", "", @SW_MINIMIZE)
endfunc

now i have this (it gives an error

==> Unterminated string.:

ControlClick("SrProxy", RevBot compatibility", "1008")

revbot checkbox is 1008

start if 1000

or must i enter something else ?

>>>> Window <<<<

Title: SrProxy

Class: #32770

Position: 669, 205

Size: 288, 327

Style: 0x94CA00C4

ExStyle: 0x00050101

Handle: 0x0007063E

>>>> Control <<<<

Class: Button

Instance: 6

ClassnameNN: Button6

ID: 1008

Text: RevBot compatibility

Position: 156, 218

Size: 116, 16

ControlClick Coords: 30, 6

Style: 0x50010003

ExStyle: 0x00000004

Handle: 0x0005060C

///////////////////////////////////////////

>>>> Window <<<<

Title: SrProxy

Class: #32770

Position: 669, 205

Size: 288, 327

Style: 0x94CA00C4

ExStyle: 0x00050101

Handle: 0x0007063E

>>>> Control <<<<

Class: Button

Instance: 3

ClassnameNN: Button3

ID: 1000

Text: Start

Position: 11, 268

Size: 75, 23

ControlClick Coords: 32, 12

Style: 0x50010000

ExStyle: 0x00000004

Handle: 0x0008064E

Edited April 27, 2008 by tommeke228

[LiLShinta]

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 144, 62, 193, 125)
$Button1 = GUICtrlCreateButton("Button1", 8, 8, 113, 33, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
                lol()
    EndSwitch
WEnd

func lol()
run(@scriptdir & "\text.exe", @scriptdir);-->> put the text.exe together with your script.
WinWaitActive("SrProxy")
ControlClick("SrProxy", "RevBot compatibility", "1008") ->each button or box has its own controlclickid..
ControlClick("SrProxy", "Start", "1000")
WinSetState("SrProxy", "", @SW_MINIMIZE)
endfunc

Edited April 27, 2008 by LiLShinta

[tommeke228]

now its opening the prog but clicks nothing and then minimiz

[tommeke228]

Got it lol

it must be 1008 not "1008" xD

thx people

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 144, 62, 193, 125)
$Button1 = GUICtrlCreateButton("Button1", 8, 8, 113, 33, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
                lol()
    EndSwitch
WEnd

func lol()
run(@scriptdir & "\SrProxy.exe", @scriptdir);-->> put the text.exe together with your script.
WinWaitActive("SrProxy")
ControlClick("SrProxy", "RevBot compatibility", 1008)
ControlClick("SrProxy", "Start", 1000)
WinSetState("SrProxy", "", @SW_MINIMIZE)
endfunc

[LiLShinta]

..