Sign in to follow this  
Followers 0
vip3ron

Need help designing interface

4 posts in this topic

#1 ·  Posted (edited)

10char

Edited by vip3ron

Share this post


Link to post
Share on other sites



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


My UDF:Freeze.au3-Freeze values like CE, ML, ETC[i][/i][u][/u]

Share this post


Link to post
Share on other sites

friend :) , how about this one :) ?

But it your script intervel is too long.

try with a timer function to Sleep()

SoRRy About my English......

#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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
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
Sign in to follow this  
Followers 0