Jump to content

send


Recommended Posts

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)
Link to comment
Share on other sites

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

----------------------------------90% of teens today would die if Myspace,Bebo + FaceBook had a system failure and was completely destroyed. If you are one of the 10% that would be laughing, copy and paste this to your signature.----------------------------------Code to win, 'till you die, 'till the compiler dies from your linesCode to win, take it all, just keep coding till you fallDay by day, codin' all the way, I'm not cavin' inLet another App begin, code to win

Link to comment
Share on other sites

#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 by tommeke228
Link to comment
Share on other sites

#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 by LiLShinta
Link to comment
Share on other sites

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
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...