Need help designing interface

[vip3ron]

10char

Edited September 2, 2011 by vip3ron

[liten]

Shure, i would love to help, see you need to either open (if you have it) or download Koda GUI on Forums

[Randeniya]

friend , how about this one ?

But it your script intervel is too long.

try with a timer function to Sleep()

SoRRy About my English......

expandcollapse popup

#cs ----------------------------------------------------------------------------
    
    AutoIt Version: 3.3.0.0
    Author:         K_ZONE (Randeniya) k_zone_r@yahoo.com
    
    Script Function:
    Simple GUI script.
    
#ce ----------------------------------------------------------------------------

; Script Start here

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiButton.au3>

$Form1 = GUICreate("A simple GUI For Run A macro ", 521, 155, 193, 125)
$Button1 = GUICtrlCreateButton("Start", 344, 112, 73, 25, 0)
$Button2 = GUICtrlCreateButton("Close", 424, 112, 73, 25, 0)
$Group1 = GUICtrlCreateGroup("", 8, 8, 505, 137)
$Label1 = GUICtrlCreateLabel("You Are About to run A MaCrO", 16, 32, 476, 57)
GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
$Button3 = GUICtrlCreateButton("About", 264, 112, 73, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)

DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Form1, "int", 1000, "long", 262160)
GUISetState()
WinSetTrans($Form1, "", 210)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $Button1
            If $Button1 = "Start" Then
                _GUICtrlButton_SetText($Button1, "Open")
                _macro()
            Else
                _GUICtrlButton_SetText($Button1, "Close")
;~              ExitLoop
            EndIf
        Case $Button2
            _QUIT()
        Case $Button3
            MsgBox(0, "Hi", "By K_ZONE®  k_zone_r@yahoo.com")
        Case $GUI_EVENT_CLOSE
            _QUIT()

    EndSwitch
WEnd

Func _macro()
    While 1;starts loop
        Sleep(1200000)
        Send("{F2}")
        Sleep(1200000)
        Send("{F3}")
    WEnd;where loop ends
EndFunc   ;==>_macro

Func _QUIT()
    DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Form1, "int", 1000, "long", 327696)
    Exit
EndFunc   ;==>_QUIT

[vip3ron]

it doesn't work, but i will use this as an example thank you