Sign in to follow this  
Followers 0
ihenvyr

Paste Using editbox.au3

1 post in this topic

Hi all! :D

the scenario is:

when pressing "OK" it will automatically paste each numbers to a browser forms..

thank you.. :D

;====================================================
;================= Example of a GUI =================
;====================================================
; AutoIt version: 3.0.103
; Language:       English
; Author:         "SlimShady"
;
; ----------------------------------------------------------------------------
; Script Start
; ----------------------------------------------------------------------------

;Include constants
#include <GUIConstantsEx.au3>

Opt('MustDeclareVars', 1)

_Main()

Func _Main()

    ;Initialize variables
    Local $GUIWidth = 300, $GUIHeight = 250
    Local $Edit_1, $OK_Btn, $Cancel_Btn, $msg

    #forceref $Edit_1

    ;Create window
    GUICreate("New GUI", $GUIWidth, $GUIHeight)

    ;Create an edit box with no text in it
    $Edit_1 = GUICtrlCreateEdit("", 10, 10, 280, 190)

    ;Create an "OK" button
    $OK_Btn = GUICtrlCreateButton("OK", 75, 210, 70, 25)

    ;Create a "CANCEL" button
    $Cancel_Btn = GUICtrlCreateButton("Cancel", 165, 210, 70, 25)

    ;Show window/Make the window visible
    GUISetState(@SW_SHOW)

    ;Loop until:
    ;- user presses Esc
    ;- user presses Alt+F4
    ;- user clicks the close button
    While 1
        ;After every loop check if the user clicked something in the GUI window
        $msg = GUIGetMsg()

        Select

            ;Check if user clicked on the close button
            Case $msg = $GUI_EVENT_CLOSE
                ;Destroy the GUI including the controls
                GUIDelete()
                ;Exit the script
                Exit

                ;Check if user clicked on the "OK" button
            Case $msg = $OK_Btn
                MsgBox(64, "New GUI", "You clicked on the OK button!")

                ;Check if user clicked on the "CANCEL" button
            Case $msg = $Cancel_Btn
                MsgBox(64, "New GUI", "You clicked on the Cancel button!")

        EndSelect

    WEnd
EndFunc   ;==>_Main

post-8694-12515915954479_thumb.jpg


Umbrella Member

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