keotix Posted March 26, 2008 Posted March 26, 2008 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.
z0mgItsJohn Posted March 26, 2008 Posted March 26, 2008 (edited) This Could Be One Way O.o expandcollapse popup#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 March 26, 2008 by John2006 Latest Projects :- New & Improved TCP Chat
z0mgItsJohn Posted March 26, 2008 Posted March 26, 2008 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
rasim Posted March 26, 2008 Posted March 26, 2008 keotix said: 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
rasim Posted March 26, 2008 Posted March 26, 2008 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
keotix Posted March 26, 2008 Author Posted March 26, 2008 (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 March 26, 2008 by keotix
z0mgItsJohn Posted March 27, 2008 Posted March 27, 2008 If You Want I Can Help You More.. Add Me On Msn... [Maxell225@Hotmail.Com] ~ John Latest Projects :- New & Improved TCP Chat
z0mgItsJohn Posted March 27, 2008 Posted March 27, 2008 (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 March 27, 2008 by John2006 Latest Projects :- New & Improved TCP Chat
keotix Posted March 27, 2008 Author Posted March 27, 2008 sorry if its messy expandcollapse popupHotKeySet("{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
z0mgItsJohn Posted March 27, 2008 Posted March 27, 2008 Done :3 expandcollapse popup#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
z0mgItsJohn Posted March 27, 2008 Posted March 27, 2008 Hope This Helps U... More expandcollapse popup#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
z0mgItsJohn Posted March 27, 2008 Posted March 27, 2008 Auto Spammage v1.5 Ideal By : keotix Scripting And Modification By : John2006 Source : expandcollapse popup#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
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now