Sign in to follow this  
Followers 0
keotix

Ok button

12 posts in this topic

i have a ok button in my gui now, i have a script below, gui above; like

[gui stuff]

>[okay button]

[script]

how do i pause at the main gui until ok button is pushed, then okay button would carry on to the script or go to the script,

i did try some things but couldn't get it to work ><

thanks.

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

This Could Be One Way O.o

#Include <GUIConstants.au3>
Opt('GUIOnEventMode','1')

Global $Disable = True
Global $Enable = False

GUICreate ("Example",'100','100', '-1', '-1', $WS_EX_TOOLWINDOW)
GUISetOnEvent ($GUI_EVENT_CLOSE, '_Exit')
$Button = GUICtrlCreateButton ('Start','27','8','50','30')
GUICtrlSetOnEvent ($Button, '_Start')
$Input = GUICtrlCreateInput ('','5','47','95','20')
GUISetState (@SW_SHOW)

If $Disable = True Then
GUICtrlSetState ($Input, $GUI_DISABLE)
GUICtrlSetData ($Input, 'Input Disabled')
EndIf 

While ('1')
Sleep ('150')   
Do 
Sleep ('100')
Until $Disable = False
If $Enable = False Then
GUICtrlSetState ($Input, $GUI_ENABLE)
GUICtrlSetData ($Input, 'Input Enabled')
$Enable = True
EndIf 
WEnd

Func _Start ()
$Disable = False
EndFunc

Func _Exit ()
Exit
EndFunc

Hope This Helps

~ John

Edited by John2006

Latest Projects :- New & Improved TCP Chat

Share this post


Link to post
Share on other sites

Or Is This What You Want...

#Include <GUIConstants.au3>
Opt('GUIOnEventMode','1')

Global $Disable = True
Global $Enable = False

GUICreate ("Example",'100','100', '-1', '-1', $WS_EX_TOOLWINDOW)
GUISetOnEvent ($GUI_EVENT_CLOSE, '_Exit')
$Button = GUICtrlCreateButton ('Start','27','8','50','30')
GUICtrlSetOnEvent ($Button, '_Start')
$Input = GUICtrlCreateInput ('','5','47','95','20')
GUISetState (@SW_SHOW)

If $Disable = True Then
GUICtrlSetState ($Input, $GUI_HIDE)
EndIf

While ('1')
Sleep ('150')   
Do
Sleep ('100')
Until $Disable = False
If $Enable = False Then
GUICtrlSetState ($Input, $GUI_SHOW)
$Enable = True
EndIf
WEnd

Func _Start ()
$Disable = False
EndFunc

Func _Exit ()
Exit
EndFunc

~ John


Latest Projects :- New & Improved TCP Chat

Share this post


Link to post
Share on other sites

i have a ok button in my gui now, i have a script below, gui above; like

[gui stuff]

>[okay button]

[script]

how do i pause at the main gui until ok button is pushed, then okay button would carry on to the script or go to the script,

i did try some things but couldn't get it to work ><

thanks.

Like this?

#include <GuiConstants.au3>

Dim $pos = 0
Dim $aCurPos

$hGUI = GUICreate("Test GUI", 200, 100)

$Button = GUICtrlCreateButton("Push", 65, 35, 60, 30)

$label = GUICtrlCreateLabel("Text", 0, 80, 50, 16)

GUISetState()

AdlibEnable("MoveText", 100)

While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $GUI_EVENT_CLOSE
            ExitLoop
        Case $GUI_EVENT_PRIMARYDOWN
            $aCurPos = GUIGetCursorInfo()
            If $aCurPos[4] = $Button Then AdlibDisable()
        Case $GUI_EVENT_PRIMARYUP
            $aCurPos = GUIGetCursorInfo()
            If $aCurPos[4] = $Button Then AdlibEnable("MoveText", 100)
    EndSwitch
WEnd

Func MoveText()
    If $pos >= 200 Then $pos = 0
    $pos += 3
    GUICtrlSetPos($label, $pos, 80, 50, 16)
EndFunc

Share this post


Link to post
Share on other sites

Or this?

#include <GuiConstants.au3>

Global $Pause
Dim $aCurPos

$hGUI = GUICreate("Test GUI", 200, 100)

$Button = GUICtrlCreateButton("Push", 65, 35, 60, 30)

GUISetState()

While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $GUI_EVENT_CLOSE
            ExitLoop
        Case $GUI_EVENT_PRIMARYDOWN
            $aCurPos = GUIGetCursorInfo()
            If $aCurPos[4] = $Button Then _Pause()
    EndSwitch
WEnd

Func _Pause()
    
    While 1
        ToolTip("Pause", 0, 0)
        $aCurPos = GUIGetCursorInfo()
        If (GUIGetMsg() = $GUI_EVENT_PRIMARYUP) And ($aCurPos[4] = $Button) Then ExitLoop
        Sleep(100)
    WEnd
    
    ToolTip("")
EndFunc

Share this post


Link to post
Share on other sites

#6 ·  Posted (edited)

hopfully can check these out soon, homework sucks >=O

thanks ppl for those

EDIT: hmm, can't get to work... what i want is: stop gui from disappearing when there is a script below (because it reads it too fast and closes it) (not using sleep) and that it will continue the script when the submit button is pushed...

Edited by keotix

Share this post


Link to post
Share on other sites

If You Want I Can Help You More.. Add Me On Msn...

[Maxell225@Hotmail.Com]

~ John


Latest Projects :- New & Improved TCP Chat

Share this post


Link to post
Share on other sites

#8 ·  Posted (edited)

Heres New Script.. Ask Me On Msn About Questions.. :]

; Includes Needed For GUI 
#Include <GUIConstants.au3>
Opt('GUIOnEventMode','1')
; Global Variables
Global $Pause = True ; <- Means That The Pause Will Happen
Global $Continue = False ; <- Means That The Continue Will Not Happen Untill The Var Is Set To Ture
; Start Of GUI 
GUICreate ("Example",'100','100', '-1', '-1', $WS_EX_TOOLWINDOW)
GUISetOnEvent ($GUI_EVENT_CLOSE, '_Exit')
$Button = GUICtrlCreateButton ('Start','27','8','50','30')
GUISetState (@SW_SHOW)
; Pause Loop 
If $Pause = True Then
Do 
Sleep ('150')
GUICtrlSetOnEvent ($Button, '_Start')
Until $Continue = True 
EndIf 
; Continue Of GUI Settings
$Input = GUICtrlCreateInput ('','5','47','95','20')
; Loop That Keeps The GUI Showing
While ('1')
Sleep ('150')   
WEnd
; Function That Is Called When Button 'Start' Is Pressed
Func _Start ()
$Continue = True 
$Pause = False 
EndFunc
; Function That Is Called When GUI Exit Buttons Are Pressed
Func _Exit ()
Exit
EndFunc

~ John

Edited by John2006

Latest Projects :- New & Improved TCP Chat

Share this post


Link to post
Share on other sites

sorry if its messy

HotKeySet("{END}", "Terminate")
; Script Start - Add your code below here
Opt("WinWaitDelay", 100)
Opt("WinTitleMatchMode", 2)
Opt("WinDetectHiddenText", 1)
Opt("MouseCoordMode", 2)


GUICreate ( "Spammage v1.5 by 4113n", 250, 300)

;Labels & Colours
GuiCtrlCreateLabel("WHAT TO DO:    Type 8 messages that you want to say '~~~~~ has logged in' into the following 8 text boxes", 5, 25, 110, 150)
GUICtrlSetColor(-1, 0x7F9A65)
GuiCtrlCreateLabel("[TIP]                           also remember short messages are best", 5, 130, 110, 150)
GUICtrlSetColor(-1, 0x63AB62)
GuiCtrlCreateLabel("[TIP]                            push the END key to teminate this bot", 5, 170, 110, 150)
GUICtrlSetColor(-1, 0x308014)
$wtf = GUICtrlCreateInput("hello world", 120, 200, 120, 20)

;button
$button = GUICtrlCreateButton("&Start", 75, 250, 80, 30)

GUISetState()

While 1
    $msg = GUIGetMsg()

            WinWait("Windows Live Messenger","")
            If Not WinActive("Windows Live Messenger","") Then WinActivate("Windows Live Messenger","")
            WinWaitActive("Windows Live Messenger","")
        

                MouseClick("left", 92, 52, 1, 1);name
                MouseClick("left", 92, 178, 1, 1);appear offline
                MouseClick("left", 92, 52, 1, 1);name
                MouseClick("left", 92, 324, 1, 1);options
                Send (GuiCtrlRead($wtf))
                send("{ENTER}")
                MouseClick("left", 92, 52, 1, 1);name
                MouseClick("left", 92, 74, 1, 1);online
                Sleep(200)
                
Wend

Func Terminate()
   Exit
EndFunc

Share this post


Link to post
Share on other sites

Done :3

#Include <GUIConstants.au3>
Opt('GUIOnEventMode','1')

GUICreate (" Spammage v1.5",'250','100')
GUISetOnEvent ($GUI_EVENT_CLOSE, '_Exit')
$Input_1 = GUICtrlCreateInput ('','5','29','240','20')
$Button_1 = GUICtrlCreateButton ('Next','150','60','50','30')
GUICtrlSetOnEvent ($Button_1,'_2')
GUICtrlSetFont ($Button_1,'12','','','Arial')
$Button_2 = GUICtrlCreateButton ('Exit','45','60','50','30')
GUICtrlSetOnEvent ($Button_2,'_Exit')
GUICtrlSetFont ($Button_2,'12','','','Arial')
$Label = GUICtrlCreateLabel ('Display Name (1)','5','5','150')
GUICtrlSetFont ($Label,'12','','','Arial')
GUISetState (@SW_SHOW)

While ('1')
Sleep ('150')   
WEnd

Func _2 ()
If GUICtrlRead ($Input_1) = '' Then
MsgBox ('0','Error','Please Set A Display Name And Continue','0')
Return 
EndIf 
IniWrite ('Settings.Ini','Display Name (1)','', ' ' & GUICtrlRead ($Input_1))
GUICtrlSetData ($Input_1, '')
GUICtrlSetData ($Label, 'Display Name (2)') 
GUICtrlSetOnEvent ($Button_1, '_3')
EndFunc

Func _3 ()
If GUICtrlRead ($Input_1) = '' Then
MsgBox ('0','Error','Please Set A Display Name And Continue','0')
Return 
EndIf 
IniWrite ('Settings.Ini','Display Name (2)','', ' ' & GUICtrlRead ($Input_1))
GUICtrlSetData ($Input_1, '')
GUICtrlSetData ($Label, 'Display Name (3)') 
GUICtrlSetOnEvent ($Button_1, '_4')
EndFunc

Func _4 ()
If GUICtrlRead ($Input_1) = '' Then
MsgBox ('0','Error','Please Set A Display Name And Continue','0')
Return 
EndIf 
IniWrite ('Settings.Ini','Display Name (3)','', ' ' & GUICtrlRead ($Input_1))
GUICtrlSetData ($Input_1, '')
GUICtrlSetData ($Label, 'Display Name (4)') 
GUICtrlSetOnEvent ($Button_1, '_5')
EndFunc

Func _5 ()
If GUICtrlRead ($Input_1) = '' Then
MsgBox ('0','Error','Please Set A Display Name And Continue','0')
Return 
EndIf 
IniWrite ('Settings.Ini','Display Name (4)','', ' ' & GUICtrlRead ($Input_1))
GUICtrlSetData ($Input_1, '')
GUICtrlSetData ($Label, 'Display Name (5)') 
GUICtrlSetOnEvent ($Button_1, '_Done')
EndFunc

Func _Done ()
If GUICtrlRead ($Input_1) = '' Then
MsgBox ('0','Error','Please Set A Display Name And Continue','0')
Return 
EndIf 
IniWrite ('Settings.Ini','Display Name (5)','', ' ' & GUICtrlRead ($Input_1))
GUICtrlDelete ($Input_1)
GUICtrlDelete ($Button_1)
GUICtrlDelete ($Button_2)
GUICtrlDelete ($Label)
$Button_3 = GUICtrlCreateButton ('Start','150','35','50','30')
GUICtrlSetOnEvent ($Button_4,'_Start')
GUICtrlSetFont ($Button_3,'12','','','Arial')
$Button_4 = GUICtrlCreateButton ('Exit','45','35','50','30')
GUICtrlSetFont ($Button_4,'12','','','Arial')
GUICtrlSetOnEvent ($Button_4,'_Exit')
EndFunc

Func _Start ()
; Settings For Program Gos Here
; Example On How To Send The Data To Msn...
; $Read = IniRead ('Settings.Ini','Display Name (1)','','') <-- Reads Display (1) Make 5 Of These.. Change Display Name (1) To (2) (3) (4) Or (5)
; ClipPut ($Read)
; Send ('{CtrlDown}{V}') 
; Send ('{CtrlUp}')
EndFunc

Func _Exit ()
Exit
EndFunc

~ John


Latest Projects :- New & Improved TCP Chat

Share this post


Link to post
Share on other sites

Hope This Helps U... More

#Include <GUIConstants.au3>
Opt('GUIOnEventMode','1')

GUICreate (" Spammage v1.5",'250','100')
GUISetOnEvent ($GUI_EVENT_CLOSE, '_Exit')
$Input_1 = GUICtrlCreateInput ('','5','29','240','20')
$Button_1 = GUICtrlCreateButton ('Next','150','60','50','30')
GUICtrlSetOnEvent ($Button_1,'_2')
GUICtrlSetFont ($Button_1,'12','','','Arial')
$Button_2 = GUICtrlCreateButton ('Exit','45','60','50','30')
GUICtrlSetOnEvent ($Button_2,'_Exit')
GUICtrlSetFont ($Button_2,'12','','','Arial')
$Label = GUICtrlCreateLabel ('Display Name (1)','5','5','150')
GUICtrlSetFont ($Label,'12','','','Arial')
GUISetState (@SW_SHOW)

While ('1')
Sleep ('150')   
WEnd

Func _2 ()
If GUICtrlRead ($Input_1) = '' Then
MsgBox ('0','Error','Please Set A Display Name And Continue','0')
Return 
EndIf 
IniWrite ('Settings.Ini','Display Name (1)','', ' ' & GUICtrlRead ($Input_1))
GUICtrlSetData ($Input_1, '')
GUICtrlSetData ($Label, 'Display Name (2)') 
GUICtrlSetOnEvent ($Button_1, '_3')
EndFunc

Func _3 ()
If GUICtrlRead ($Input_1) = '' Then
MsgBox ('0','Error','Please Set A Display Name And Continue','0')
Return 
EndIf 
IniWrite ('Settings.Ini','Display Name (2)','', ' ' & GUICtrlRead ($Input_1))
GUICtrlSetData ($Input_1, '')
GUICtrlSetData ($Label, 'Display Name (3)') 
GUICtrlSetOnEvent ($Button_1, '_4')
EndFunc

Func _4 ()
If GUICtrlRead ($Input_1) = '' Then
MsgBox ('0','Error','Please Set A Display Name And Continue','0')
Return 
EndIf 
IniWrite ('Settings.Ini','Display Name (3)','', ' ' & GUICtrlRead ($Input_1))
GUICtrlSetData ($Input_1, '')
GUICtrlSetData ($Label, 'Display Name (4)') 
GUICtrlSetOnEvent ($Button_1, '_5')
EndFunc

Func _5 ()
If GUICtrlRead ($Input_1) = '' Then
MsgBox ('0','Error','Please Set A Display Name And Continue','0')
Return 
EndIf 
IniWrite ('Settings.Ini','Display Name (4)','', ' ' & GUICtrlRead ($Input_1))
GUICtrlSetData ($Input_1, '')
GUICtrlSetData ($Label, 'Display Name (5)') 
GUICtrlSetOnEvent ($Button_1, '_Done')
EndFunc

Func _Done ()
If GUICtrlRead ($Input_1) = '' Then
MsgBox ('0','Error','Please Set A Display Name And Continue','0')
Return 
EndIf 
IniWrite ('Settings.Ini','Display Name (5)','', ' ' & GUICtrlRead ($Input_1))
GUICtrlDelete ($Input_1)
GUICtrlDelete ($Button_1)
GUICtrlDelete ($Button_2)
GUICtrlDelete ($Label)
$Button_3 = GUICtrlCreateButton ('Start','150','35','50','30')
GUICtrlSetOnEvent ($Button_3,'_Start')
GUICtrlSetFont ($Button_3,'12','','','Arial')
$Button_4 = GUICtrlCreateButton ('Exit','45','35','50','30')
GUICtrlSetFont ($Button_4,'12','','','Arial')
GUICtrlSetOnEvent ($Button_4,'_Exit')
EndFunc

Func _Start ()
; Put The Stuff That Is Need To Activate The Msn Window Here
;============================================================= - Sends Display Name (1)
; Put The Stuff That Clicks The Stuff The Set The Display Name Here
$Read_1 = IniRead ('Settings.Ini','Display Name (1)','','')
ClipPut ($Read_1)
Send ('{CtrlDown}{V}')
Send ('{CtrlUp}')
;============================================================= - Sends Display Name (2)
; Put The Stuff That Clicks The Stuff The Set The Display Name Here
$Read_2 = IniRead ('Settings.Ini','Display Name (2)','','')
ClipPut ($Read_2)
Send ('{CtrlDown}{V}')
Send ('{CtrlUp}')
;============================================================= - Sends Display Name (3)
; Put The Stuff That Clicks The Stuff The Set The Display Name Here
$Read_3 = IniRead ('Settings.Ini','Display Name (3)','','')
ClipPut ($Read_3)
Send ('{CtrlDown}{V}')
Send ('{CtrlUp}')
;============================================================= - Sends Display Name (4)
; Put The Stuff That Clicks The Stuff The Set The Display Name Here
$Read_4 = IniRead ('Settings.Ini','Display Name (4)','','')
ClipPut ($Read_4)
Send ('{CtrlDown}{V}')
Send ('{CtrlUp}')
;============================================================= - Sends Display Name (5)
; Put The Stuff That Clicks The Stuff The Set The Display Name Here
$Read_5 = IniRead ('Settings.Ini','Display Name (5)','','')
ClipPut ($Read_5)
Send ('{CtrlDown}{V}')
Send ('{CtrlUp}')
EndFunc

Func _Exit ()
Exit
EndFunc

~ John


Latest Projects :- New & Improved TCP Chat

Share this post


Link to post
Share on other sites

Auto Spammage v1.5 Ideal By : keotix Scripting And Modification By : John2006

Source :

#Include <GUIConstants.au3>
Opt('GUIOnEventMode','1')

Func OnAutoItStart ()
FileDelete ('Settings.Ini')
EndFunc

GUICreate (" Spammage v1.5",'250','100')
GUISetOnEvent ($GUI_EVENT_CLOSE, '_Exit')
$Input_1 = GUICtrlCreateInput ('','5','29','240','20')
$Button_1 = GUICtrlCreateButton ('Next','150','60','50','30')
GUICtrlSetOnEvent ($Button_1,'_2')
GUICtrlSetFont ($Button_1,'12','','','Arial')
$Button_2 = GUICtrlCreateButton ('Exit','45','60','50','30')
GUICtrlSetOnEvent ($Button_2,'_Exit')
GUICtrlSetFont ($Button_2,'12','','','Arial')
$Label = GUICtrlCreateLabel ('Display Name (1)','5','5','150')
GUICtrlSetFont ($Label,'12','','','Arial')
GUISetState (@SW_SHOW)

While ('1')
Sleep ('150')   
WEnd

Func _2 ()
If GUICtrlRead ($Input_1) = '' Then
MsgBox ('0','Error','Please Set A Display Name And Continue','0')
Return
EndIf
IniWrite ('Settings.Ini','Display Name (1)','', ' ' & GUICtrlRead ($Input_1))
GUICtrlSetData ($Input_1, '')
GUICtrlSetData ($Label, 'Display Name (2)')
GUICtrlSetOnEvent ($Button_1, '_3')
EndFunc

Func _3 ()
If GUICtrlRead ($Input_1) = '' Then
MsgBox ('0','Error','Please Set A Display Name And Continue','0')
Return
EndIf
IniWrite ('Settings.Ini','Display Name (2)','', ' ' & GUICtrlRead ($Input_1))
GUICtrlSetData ($Input_1, '')
GUICtrlSetData ($Label, 'Display Name (3)')
GUICtrlSetOnEvent ($Button_1, '_4')
EndFunc

Func _4 ()
If GUICtrlRead ($Input_1) = '' Then
MsgBox ('0','Error','Please Set A Display Name And Continue','0')
Return
EndIf
IniWrite ('Settings.Ini','Display Name (3)','', ' ' & GUICtrlRead ($Input_1))
GUICtrlSetData ($Input_1, '')
GUICtrlSetData ($Label, 'Display Name (4)')
GUICtrlSetOnEvent ($Button_1, '_5')
EndFunc

Func _5 ()
If GUICtrlRead ($Input_1) = '' Then
MsgBox ('0','Error','Please Set A Display Name And Continue','0')
Return
EndIf
IniWrite ('Settings.Ini','Display Name (4)','', ' ' & GUICtrlRead ($Input_1))
GUICtrlSetData ($Input_1, '')
GUICtrlSetData ($Label, 'Display Name (5)')
GUICtrlSetOnEvent ($Button_1, '_Done')
EndFunc

Func _Done ()
If GUICtrlRead ($Input_1) = '' Then
MsgBox ('0','Error','Please Set A Display Name And Continue','0')
Return
EndIf
IniWrite ('Settings.Ini','Display Name (5)','', ' ' & GUICtrlRead ($Input_1))
GUICtrlDelete ($Input_1)
GUICtrlDelete ($Button_1)
GUICtrlDelete ($Button_2)
GUICtrlDelete ($Label)
$Button_3 = GUICtrlCreateButton ('Start','150','35','50','30')
GUICtrlSetOnEvent ($Button_3,'_Start')
GUICtrlSetFont ($Button_3,'12','','','Arial')
$Button_4 = GUICtrlCreateButton ('Exit','45','35','50','30')
GUICtrlSetFont ($Button_4,'12','','','Arial')
GUICtrlSetOnEvent ($Button_4,'_Exit')
EndFunc

Func _Start ()
If WinExists ('Windows Live Messenger') Then
WinActivate ('Windows Live Messenger') 
EndIf
WinWaitActive ('Windows Live Messenger')
$Get_Pos = WinGetPos ('Windows Live Messenger')
;=========================================================================================
Sleep ('350')
;=========================================================================================
MouseClick ('Left',$Get_Pos['0'] + '100', $Get_Pos['1'] + '88','1')
For $Array = '1' To '7'
Send ('{Down}')
Next 
Send ('{Enter}')
Sleep ('500')
MouseClick ('Left',$Get_Pos['0'] + '100', $Get_Pos['1'] + '88','1')
For $Array = '1' To '14'
Send ('{Down}')
Next 
Send ('{Enter}')
$Read_1 = IniRead ('Settings.Ini','Display Name (1)','','')
ClipPut ($Read_1)
Send ('{CtrlDown}{V}')
Send ('{CtrlUp}')
Send ('{Tab}')
Send ('{Backspace}')
For $Array = '1' To '8'
Send ('{Tab}')
Next
Send ('{Enter}')
Sleep ('500')
MouseClick ('Left',$Get_Pos['0'] + '100', $Get_Pos['1'] + '88','1')
Send ('{Down}')
Send ('{Enter}')
;=========================================================================================
Sleep ('350')
;=========================================================================================
MouseClick ('Left',$Get_Pos['0'] + '100', $Get_Pos['1'] + '88','1')
For $Array = '1' To '7'
Send ('{Down}')
Next 
Send ('{Enter}')
Sleep ('500')
MouseClick ('Left',$Get_Pos['0'] + '100', $Get_Pos['1'] + '88','1')
For $Array = '1' To '14'
Send ('{Down}')
Next 
Send ('{Enter}')
$Read_2 = IniRead ('Settings.Ini','Display Name (2)','','')
ClipPut ($Read_2)
Send ('{CtrlDown}{V}')
Send ('{CtrlUp}')
Send ('{Tab}')
Send ('{Backspace}')
For $Array = '1' To '8'
Send ('{Tab}')
Next
Send ('{Enter}')
Sleep ('500')
MouseClick ('Left',$Get_Pos['0'] + '100', $Get_Pos['1'] + '88','1')
Send ('{Down}')
Send ('{Enter}')
;=========================================================================================
Sleep ('350')
;=========================================================================================
MouseClick ('Left',$Get_Pos['0'] + '100', $Get_Pos['1'] + '88','1')
For $Array = '1' To '7'
Send ('{Down}')
Next 
Send ('{Enter}')
Sleep ('500')
MouseClick ('Left',$Get_Pos['0'] + '100', $Get_Pos['1'] + '88','1')
For $Array = '1' To '14'
Send ('{Down}')
Next 
Send ('{Enter}')
$Read_3 = IniRead ('Settings.Ini','Display Name (3)','','')
ClipPut ($Read_3)
Send ('{CtrlDown}{V}')
Send ('{CtrlUp}')
Send ('{Tab}')
Send ('{Backspace}')
For $Array = '1' To '8'
Send ('{Tab}')
Next
Send ('{Enter}')
Sleep ('500')
MouseClick ('Left',$Get_Pos['0'] + '100', $Get_Pos['1'] + '88','1')
Send ('{Down}')
Send ('{Enter}')
;=========================================================================================
Sleep ('350')
;=========================================================================================
MouseClick ('Left',$Get_Pos['0'] + '100', $Get_Pos['1'] + '88','1')
For $Array = '1' To '7'
Send ('{Down}')
Next 
Send ('{Enter}')
Sleep ('500')
MouseClick ('Left',$Get_Pos['0'] + '100', $Get_Pos['1'] + '88','1')
For $Array = '1' To '14'
Send ('{Down}')
Next 
Send ('{Enter}')
$Read_4 = IniRead ('Settings.Ini','Display Name (4)','','')
ClipPut ($Read_4)
Send ('{CtrlDown}{V}')
Send ('{CtrlUp}')
Send ('{Tab}')
Send ('{Backspace}')
For $Array = '1' To '8'
Send ('{Tab}')
Next
Send ('{Enter}')
Sleep ('500')
MouseClick ('Left',$Get_Pos['0'] + '100', $Get_Pos['1'] + '88','1')
Send ('{Down}')
Send ('{Enter}')
;=========================================================================================
Sleep ('350')
;=========================================================================================
MouseClick ('Left',$Get_Pos['0'] + '100', $Get_Pos['1'] + '88','1')
For $Array = '1' To '7'
Send ('{Down}')
Next 
Send ('{Enter}')
Sleep ('500')
MouseClick ('Left',$Get_Pos['0'] + '100', $Get_Pos['1'] + '88','1')
For $Array = '1' To '14'
Send ('{Down}')
Next 
Send ('{Enter}')
$Read_5 = IniRead ('Settings.Ini','Display Name (5)','','')
ClipPut ($Read_5)
Send ('{CtrlDown}{V}')
Send ('{CtrlUp}')
Send ('{Tab}')
Send ('{Backspace}')
For $Array = '1' To '8'
Send ('{Tab}')
Next
Send ('{Enter}')
Sleep ('500')
MouseClick ('Left',$Get_Pos['0'] + '100', $Get_Pos['1'] + '88','1')
Send ('{Down}')
Send ('{Enter}')
;=========================================================================================
Sleep ('350')
;=========================================================================================
EndFunc

Func _Exit ()
Exit
EndFunc

Func OnAutoItExit ()
FileDelete ('Settings.Ini')
EndFunc

~ Enjoy.. ~

~ John


Latest Projects :- New & Improved TCP Chat

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