Move mouse and click script

CzarnyKhaki · November 8, 2019

It works fine when I disable the part with hour. It is definitelly highlighted.

Edited November 8, 2019 by CzarnyKhaki

CzarnyKhaki · November 8, 2019

Quote

>"C:\Users\agent01\Downloads\autoit-v3\install\SciTe\..\autoit3.exe" /ErrorStdOut "C:\Users\agent01\Downloads\autoit-v3\install\Examples\aukon2.au3"
date() -> Send ("^c")
date() -> $sDateField = ClipGet () => 2019-11-08
date() -> $sDateField = StringReplace ($sDateField, "-", "/")2019/11/08
date() -> $sNewDate = _DateAdd ("D", 1, $sDateField)2019/11/08
date() -> $sNewDate = StringReplace ($sNewDate, "/", "-")2019-11-09
date() -> ClipPut($sNewDate)2019-11-09
date() -> Send ("^v")

>Process failed to respond; forcing abrupt termination...
>Exit code: 1 Time: 127.4

(hour disabled)

;F6
Func _Przelozenie()

    ToolTip("PRZEŁOŻENIE ROZMOWY NA JUTRO PO 17:00", 0, 0)
    MouseMove (98, 76)
    MouseClick ("left")
    Sleep(540)
    MouseMove (296, 506)
    MouseClick ("left")
    Sleep(540)
    MouseMove (226, 811)
    MouseClick ("left")
    
    ;MouseClickDrag ( "left", 462, 465, 409, 461, 2)   ; (2 is speed)
    ;Local $sRandomTime
    ;$sRandomTime = StringFormat("%02i:%02i", Random(17, 19, 1) , Random(0, 56, 1))
    ;$sHourField = $sRandomTime
    ;ClipPut($sRandomTime)
    ;Send ("^v") ; paste hour

    MouseClickDrag ( "left", 335, 465, 238, 460, 2)   ; (2 is speed) 
    Send ("^c") ; copy field in clipboard
         ConsoleWrite('date() -> Send ("^c")' & @CRLF)
    $sDateField = ClipGet () ; retrieve date string
         ConsoleWrite('date() -> $sDateField = ClipGet () => ' & $sDateField & @CRLF)
    $sDateField = StringReplace ($sDateField, "-", "/") ; field must be formatted YYYY/MM/DD
         ConsoleWrite('date() -> $sDateField = StringReplace ($sDateField, "-", "/")' & $sDateField & @CRLF)
    $sNewDate = _DateAdd ("D", 1, $sDateField) ; add one day
         ConsoleWrite('date() -> $sNewDate = _DateAdd ("D", 1, $sDateField)' & $sDateField & @CRLF)
    $sNewDate = StringReplace ($sNewDate, "/", "-") ; replacing strings back
         ConsoleWrite('date() -> $sNewDate = StringReplace ($sNewDate, "/", "-")' & $sNewDate & @CRLF)
    ClipPut($sNewDate)
         ConsoleWrite('date() -> ClipPut($sNewDate)' & $sNewDate & @CRLF)
    Send ("^v") ; paste field
         ConsoleWrite('date() -> Send ("^v")' & @CRLF)

    MouseMove (590, 871)
    MouseClick ("left")
    Send("{Enter}")
    MouseMove (167, 809)
    MouseClick ("left")
    Sleep(560)
    MouseMove (245, 867)
    Sleep(560)
    MouseClick ("left")
    ToolTip("", 0, 0)
    MouseMove (600, 520)
EndFunc   ;==>_Przelozenie

Edited November 8, 2019 by CzarnyKhaki

Nine · November 8, 2019

Do the date first then. Also you do not need the mouseclickdrag with the hour part since you don't use the original value anyway. Just double click the hour instead and paste your random time.

CzarnyKhaki · November 12, 2019

Thanks, it worked perfectly after I changed the order, as you suggested. Any ideas why did that happen?

edit: It started to paste "0" again! ;( And I don't know what causes that! The field is definitelly highlighted and than is replaced with "0" ;/

edit: I closed the script [Esc], opened again and it pastes date correctly now o_O

edit: it works fine once after opening script, and than when using the command second time, it crashes placing "0" instead modified date. Closing script and opening again solves the problem, but just for 1 time.
I guess it hates when I have modified hour and didn't close the script before operating on date for next client.

Edited November 12, 2019 by CzarnyKhaki

CzarnyKhaki · November 12, 2019

Please give me some solution what can I do in this situation.

Nine · November 12, 2019

Double-click the field before you copy it. Or maybe you are too fast when copying, use a small Sleep before. It is hard to say, it is like the blind leads the blind...

CzarnyKhaki · November 12, 2019

can AutoIt anyhow clear the clipboard after procedure is finished?

Nine · November 12, 2019

nope, what's in clipboard stays in clipboard.

TheXman · November 12, 2019

16 minutes ago, CzarnyKhaki said:

can AutoIt anyhow clear the clipboard after procedure is finished?

12 minutes ago, Nine said:

nope, what's in clipboard stays in clipboard.

Have you looked at the ClipPut() function? Take a look at the Remarks section.

Edited November 12, 2019 by TheXman

CzarnyKhaki · November 12, 2019

Stop suggesting that it is not highlighted, please. It works when I disable hours.

Where does this "0" come from???

this is causing problems:

;F6
Func _Przelozenie()

    ToolTip("PRZEŁOŻENIE ROZMOWY NA ZA TYDZIEŃ PO 17:00", 0, 0)
    MouseMove (98, 76)
    MouseClick ("left")
    Sleep(540)
    MouseMove (296, 506)
    MouseClick ("left")
    Sleep(540)
    
    ClipPut("")
    MouseClickDrag ( "left", 335, 465, 238, 460, 2)   ; (2 is speed) 
    Sleep(10)
    Send ("^c") ; copy field in clipboard
    Sleep(10)

                                                                       ConsoleWrite('date() -> Send ("^c")' & @CRLF)
    
    $sDateField = ClipGet () ; retrieve date string

                                                                       ConsoleWrite('date() -> $sDateField = ClipGet () => ' & $sDateField & @CRLF)

    $sDateField = StringReplace ($sDateField, "-", "/") ; field must be formatted YYYY/MM/DD

                                                                       ConsoleWrite('date() -> $sDateField = StringReplace ($sDateField, "-", "/")' & $sDateField & @CRLF)

    $sNewDate = _DateAdd ("D", 7, $sDateField) ; add 7 days

                                                                       ConsoleWrite('date() -> $sNewDate = _DateAdd ("D", 1, $sDateField)' & $sDateField & @CRLF)

    $sNewDate = StringReplace ($sNewDate, "/", "-") ; replacing strings back

                                                                       ConsoleWrite('date() -> $sNewDate = StringReplace ($sNewDate, "/", "-")' & $sNewDate & @CRLF)

    ClipPut($sNewDate)

                                                                       ConsoleWrite('date() -> ClipPut($sNewDate)' & $sNewDate & @CRLF)

    Sleep(10)
    Send ("^v") ; paste field

                                                                       ConsoleWrite('date() -> Send ("^v")' & @CRLF)

    Sleep(10)
    MouseClickDrag ( "left", 462, 465, 409, 461, 2)   ; (2 is speed)
    Local $sRandomTime
    $sRandomTime = StringFormat("%02i:%02i", Random(17, 19, 1) , Random(0, 55, 1))
    ClipPut($sRandomTime)
    Sleep(10)
    Send ("^v") ; paste hour
    Sleep(10)
    ClipPut("")

    MouseMove (590, 871)
    MouseClick ("left")
    Send("{Enter}")
    MouseMove (167, 809)
    MouseClick ("left")
    Sleep(2)
    MouseMove (245, 867)
    Sleep(1000)
    MouseClick ("left")
    ToolTip("", 0, 0)
    MouseMove (600, 520)
EndFunc   ;==>_Przelozenie

while this works without problems:

;F6
Func _Przelozenie()

    ToolTip("PRZEŁOŻENIE ROZMOWY NA ZA TYDZIEŃ PO 17:00", 0, 0)
    MouseMove (98, 76)
    MouseClick ("left")
    Sleep(540)
    MouseMove (296, 506)
    MouseClick ("left")
    Sleep(540)
    
    ClipPut("")
    MouseClickDrag ( "left", 335, 465, 238, 460, 2)   ; (2 is speed) 
    Sleep(10)
    Send ("^c") ; copy field in clipboard
    Sleep(10)

                                                                       ConsoleWrite('date() -> Send ("^c")' & @CRLF)
    
    $sDateField = ClipGet () ; retrieve date string

                                                                       ConsoleWrite('date() -> $sDateField = ClipGet () => ' & $sDateField & @CRLF)

    $sDateField = StringReplace ($sDateField, "-", "/") ; field must be formatted YYYY/MM/DD

                                                                       ConsoleWrite('date() -> $sDateField = StringReplace ($sDateField, "-", "/")' & $sDateField & @CRLF)

    $sNewDate = _DateAdd ("D", 7, $sDateField) ; add 7 days

                                                                       ConsoleWrite('date() -> $sNewDate = _DateAdd ("D", 1, $sDateField)' & $sDateField & @CRLF)

    $sNewDate = StringReplace ($sNewDate, "/", "-") ; replacing strings back

                                                                       ConsoleWrite('date() -> $sNewDate = StringReplace ($sNewDate, "/", "-")' & $sNewDate & @CRLF)

    ClipPut($sNewDate)

                                                                       ConsoleWrite('date() -> ClipPut($sNewDate)' & $sNewDate & @CRLF)

    Sleep(10)
    Send ("^v") ; paste field

                                                                       ConsoleWrite('date() -> Send ("^v")' & @CRLF)

    ;Sleep(10)
    ;MouseClickDrag ( "left", 462, 465, 409, 461, 2)   ; (2 is speed)
    ;Local $sRandomTime
    ;$sRandomTime = StringFormat("%02i:%02i", Random(17, 19, 1) , Random(0, 55, 1))
    ;ClipPut($sRandomTime)
    ;Sleep(10)
    ;Send ("^v") ; paste hour
    ;Sleep(10)
    ;ClipPut("")

    MouseMove (590, 871)
    MouseClick ("left")
    Send("{Enter}")
    MouseMove (167, 809)
    MouseClick ("left")
    Sleep(2)
    MouseMove (245, 867)
    Sleep(1000)
    MouseClick ("left")
    ToolTip("", 0, 0)
    MouseMove (600, 520)
EndFunc   ;==>_Przelozenie

Editing date fails only when I enable the hour part...

Edited November 12, 2019 by CzarnyKhaki

Jos · November 12, 2019

What exactly doesn't work as that piece of code looks fine to me?

Jos

TheXman · November 12, 2019

1 hour ago, CzarnyKhaki said:

Where does this "0" come from???

The most likely cause is the _DateAdd() function is failing, which would make $sNewDate = 0. Since you do a ClipPut() of $sNewDate, that is why you are probably seeing a "0". And the reason the _DateAdd() is probably failing is because the value in $sDateField is most likely invalid. If you would add error checking after your function calls it would be much easier for you to debug. The snippet below will let you confirm or rule out my suspicion about _DateAdd() failing. It will generate a console message and exit if the function fails. It will also display the value in $sDateField.

;F6
Func _Przelozenie()

    ToolTip("PRZEŁOŻENIE ROZMOWY NA ZA TYDZIEŃ PO 17:00", 0, 0)
    MouseMove (98, 76)
    MouseClick ("left")
    Sleep(540)
    MouseMove (296, 506)
    MouseClick ("left")
    Sleep(540)

    ClipPut("")
    MouseClickDrag ( "left", 335, 465, 238, 460, 2)   ; (2 is speed)
    Sleep(10)
    Send ("^c") ; copy field in clipboard
    Sleep(10)

                                                                       ConsoleWrite('date() -> Send ("^c")' & @CRLF)

    $sDateField = ClipGet () ; retrieve date string

                                                                       ConsoleWrite('date() -> $sDateField = ClipGet () => ' & $sDateField & @CRLF)

    $sDateField = StringReplace ($sDateField, "-", "/") ; field must be formatted YYYY/MM/DD

                                                                       ConsoleWrite('date() -> $sDateField = StringReplace ($sDateField, "-", "/")' & $sDateField & @CRLF)

    $sNewDate = _DateAdd ("D", 7, $sDateField) ; add 7 days
    If @error Then
        ConsoleWrite("ERROR: _DateAdd() failed. @error = " & @error & @CRLF)
        ConsoleWrite("ERROR: $sDateField = " & $sDateField & @CRLF)
        Exit -1
    EndIf

                                                                       ConsoleWrite('date() -> $sNewDate = _DateAdd ("D", 1, $sDateField)' & $sDateField & @CRLF)

    $sNewDate = StringReplace ($sNewDate, "/", "-") ; replacing strings back

                                                                       ConsoleWrite('date() -> $sNewDate = StringReplace ($sNewDate, "/", "-")' & $sNewDate & @CRLF)

    ClipPut($sNewDate)

                                                                       ConsoleWrite('date() -> ClipPut($sNewDate)' & $sNewDate & @CRLF)

    Sleep(10)
    Send ("^v") ; paste field

                                                                       ConsoleWrite('date() -> Send ("^v")' & @CRLF)

    Sleep(10)
    MouseClickDrag ( "left", 462, 465, 409, 461, 2)   ; (2 is speed)
    Local $sRandomTime
    $sRandomTime = StringFormat("%02i:%02i", Random(17, 19, 1) , Random(0, 55, 1))
    ClipPut($sRandomTime)
    Sleep(10)
    Send ("^v") ; paste hour
    Sleep(10)
    ClipPut("")

    MouseMove (590, 871)
    MouseClick ("left")
    Send("{Enter}")
    MouseMove (167, 809)
    MouseClick ("left")
    Sleep(2)
    MouseMove (245, 867)
    Sleep(1000)
    MouseClick ("left")
    ToolTip("", 0, 0)
    MouseMove (600, 520)
EndFunc   ;==>_Przelozenie

Edited November 12, 2019 by TheXman

CzarnyKhaki · November 12, 2019

few posts ago I pasted the debug message which was saying that it gets the correct changed date in clipboard when hour part is disabled, and when it is enabled, it gets 0 instead, and everything else is the same

I will try that what you gave above when I will be back at work

But there is definitelly something in that hour part what is disliked by date part. It works fine untill the hour part take action. After this happens, next procedure of changing date is failed.

Scheme1:
run script with Hour part ENABLED
client 1
date correctly changed
ConsoleWrite informs that it took the correctly changed date to clipboard
hour correctly changed
client2
date change FAILS
ConsoleWrite informs that it took "0" to clipboard
hour correctly changed
can't set status automatically, manually needed
client3 same as client 2

Scheme2:
run script with Hour part DISABLED
client 1
date correctly changed
ConsoleWrite informs that it took the correctly changed date to clipboard
client2
date correctly changed
ConsoleWrite informs that it took the correctly changed date to clipboard
client3 same as client 2

I'll let you know if it tells more with what you posted above

Edited November 12, 2019 by CzarnyKhaki

CzarnyKhaki · November 13, 2019

I added ClipPut("") after the date part and now everything goes as supposed! Works! No errors!

Code (I censored name of company) is:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\a*****a_ico_QiO_icon.ico
#AutoIt3Wrapper_Compression=0
#AutoIt3Wrapper_Add_Constants=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <Date.au3>
#include <Constants.au3>

HotKeySet("{ESC}", "_Exit")
HotKeySet("{F1}", "_Przygotowanie")
HotKeySet("{F2}", "_Fax")
HotKeySet("{F3}", "_Odmowa")
HotKeySet("{F4}", "_Pomylka")
HotKeySet("{F5}", "_NiePracuje")
HotKeySet("{F6}", "_Przelozenie")
HotKeySet("{F7}", "_MialSpotkanie")
HotKeySet("{F8}", "_MaPolise")
HotKeySet("{F9}", "_NieUbezpieczaSie")
HotKeySet("{F10}", "_OlewaNN")
HotKeySet("{F11}", "_RODO")
HotKeySet("{End}", "_BrakCzasu")
HotKeySet("{Home}", "_UmawiaSie")
HotKeySet("{PAUSE}", "_TogglePause")


Global $g_bPaused = False

MsgBox(64, "AUTOKONSULTANT A****A", "Najpierw się zaloguj i wybierz kampanię. Następnie wciśnij klawisz F1.")


While 1
    Sleep(4)
WEnd


;ESC
Func _Exit()
    Exit
EndFunc   ;==>_Exit


;F1
Func _Przygotowanie()
    ToolTip("TRWA PRZYGOTOWANIE PROGRAMU", 0, 0)
    MouseClickDrag ( "left", 241, 240, 49, 15, 1)   ; (1 is speed)
    MouseClickDrag ( "left", 896, 531, 747, 980, 1) ; (1 is speed)
    MouseClickDrag ( "left", 739, 972, 745, 979, 1) ; (1 is speed)
    MouseMove (627, 44)
    ConsoleWrite('Fax() -> MouseMove (627, 44)' & @CRLF)
    MouseClick ("left")
    MouseMove (634, 570)
    MouseClick ("left")
    Run("notepad.exe")
    WinWaitActive("[CLASS:Notepad]")
    Local $hWnd = WinWait("[CLASS:Notepad]", "", 10)
    WinMove($hWnd, "", 755, 742, 528, 242)

    ClipPut ("AUTOKONSULTANT")
    Send ("^v{ENTER}")
    ClipPut ("Funkcje (klawisze na klawiaturze):")
    Send ("^v{ENTER}")
    ClipPut ("F1  = Przygotowanie Autokonsultanta do pracy")
    Send ("^v{ENTER}")
    ClipPut ("F2  = Poczta głosowa                 F3  = Odmowa rozmowy")
    Send ("^v{ENTER}")
    ClipPut ("F4  = Pomyłka                        F5  = Brak dochodu")
    Send ("^v{ENTER}")
    ClipPut ("F6  = Przełożenie na za tydzień      F7  = Jest po spotkaniu")
    Send ("^v{ENTER}")
    ClipPut ("F8  = Ma polisę                      F9  = Nie ubezpiecza się")
    Send ("^v{ENTER}")
    ClipPut ("F10 = Brak zainteresowania marką NN  F11 = Brak zgody RODO")
    Send ("^v{ENTER}")
    ClipPut ("End = Brak czasu na spotkanie")
    Send ("^v{ENTER}")
    ClipPut ("       Home = Umawia się")
    Send ("^v{ENTER}")
    ClipPut("Pause|Break = Pauza Autokonsultanta")
    Send ("^v{ENTER}")
    ClipPut ("        ESC = Zamknięcie Autokonsultanta")
    Send ("^v")
    ClipPut ("")
    MouseMove (634, 570)
    ToolTip("GOTOWE!", 658, 578)
    Sleep(1600)
    ToolTip("", 0, 0)
    MouseMove (600, 520)
EndFunc   ;==>_Przygotowanie


;PAUSE
Func _TogglePause()
    $g_bPaused = Not $g_bPaused
    While $g_bPaused
        Sleep(4)
        ToolTip("AUTOKONSULTANT A****A ZAPAUZOWANY. WCINIŚNIJ Pause|Break ABY ODPAUZOWAĆ", 0, 0)
    WEnd
    ToolTip("", 0, 0)
EndFunc   ;==>_TogglePause


;F2
Func _Fax()
    ToolTip("POCZTA GŁOSOWA", 0, 0)
    MouseMove (25, 76)
    MouseClick ("left")
    Sleep(140)
    MouseMove (179, 477)
    Sleep(260)
    MouseClick ("left")
    MouseMove (229, 812)
    Sleep(260)
    MouseClick ("left")
    ToolTip("", 0, 0)
    MouseMove (600, 520)
EndFunc   ;==>_Fax


;F3
Func _Odmowa()
    ToolTip("ODMOWA ROZMOWY", 0, 0)
    MouseMove (25, 76)
    MouseClick ("left")
    Sleep(240)
    MouseMove (179, 708)
    Sleep(260)
    MouseClick ("left")
    MouseMove (226, 811)
    Sleep(260)
    MouseClick ("left")
    ToolTip("", 0, 0)
    MouseMove (600, 520)
EndFunc   ;==>_Odmowa


;F4
Func _Pomylka()
    ToolTip("POMYŁKA", 0, 0)
    MouseMove (25, 76)
    MouseClick ("left")
    Sleep(240)
    MouseMove (180, 611)
    MouseClick ("left")
    MouseMove (229, 812)
    Sleep(260)
    MouseClick ("left")
    ToolTip("", 0, 0)
    MouseMove (600, 520)
EndFunc   ;==>_Pomylka


;F5
Func _NiePracuje()
    ToolTip("NIE MA STAŁEGO ŹRÓDŁA DOCHODU", 0, 0)
    MouseMove (166, 550)
    MouseClick ("left")
    MouseMove (241, 600)
    MouseClick ("left")
    Sleep(1340)
    MouseMove (175, 573)
    MouseClick ("left")
    MouseMove (266, 948)
    MouseClick ("left")
    Sleep(900)
    MouseClick ("left")
    MouseMove (265, 923)
    MouseClick ("left")
    MouseMove (197, 467)
    Sleep(900)
    MouseClick ("left")
    MouseMove (223, 520)
    MouseClick ("left")
    Sleep(1200)
    MouseMove (173, 493)
    MouseClick ("left")
    MouseMove (213, 548)
    MouseClick ("left")
    ToolTip("", 0, 0)
    MouseMove (600, 520)
EndFunc   ;==>_Niepracuje


;F6
Func _Przelozenie()

    ToolTip("PRZEŁOŻENIE ROZMOWY NA ZA TYDZIEŃ PO 17:00", 0, 0)
    MouseMove (98, 76)
    MouseClick ("left")
    Sleep(540)
    MouseMove (296, 506)
    MouseClick ("left")
    Sleep(540)

    ClipPut("")
    MouseClickDrag ( "left", 335, 465, 238, 460, 2)   ; (2 is speed)
    Sleep(10)
    Send ("^c") ; copy field in clipboard
    Sleep(10)

      ConsoleWrite('date() -> Send ("^c")' & @CRLF)

    $sDateField = ClipGet () ; retrieve date string

      ConsoleWrite('date() -> $sDateField = ClipGet () => ' & $sDateField & @CRLF)

    $sDateField = StringReplace ($sDateField, "-", "/") ; field must be formatted YYYY/MM/DD

      ConsoleWrite('date() -> $sDateField = StringReplace ($sDateField, "-", "/")' & $sDateField & @CRLF)

    $sNewDate = _DateAdd ("D", 7, $sDateField) ; add 7 days
        If @error Then
        ConsoleWrite("ERROR: _DateAdd() failed. @error = " & @error & @CRLF)
        ConsoleWrite("ERROR: $sDateField = " & $sDateField & @CRLF)
        Exit -1
    EndIf

      ConsoleWrite('date() -> $sNewDate = _DateAdd ("D", 1, $sDateField)' & $sDateField & @CRLF)

    $sNewDate = StringReplace ($sNewDate, "/", "-") ; replacing strings back

      ConsoleWrite('date() -> $sNewDate = StringReplace ($sNewDate, "/", "-")' & $sNewDate & @CRLF)

    ClipPut($sNewDate)

      ConsoleWrite('date() -> ClipPut($sNewDate)' & $sNewDate & @CRLF)

    Sleep(10)
    Send ("^v") ; paste field
    ClipPut("")

                                                                       ConsoleWrite('date() -> Send ("^v")' & @CRLF)

    Sleep(10)
    MouseClickDrag ( "left", 462, 465, 409, 461, 2)   ; (2 is speed)
    Local $sRandomTime
    $sRandomTime = StringFormat("%02i:%02i", Random(17, 19, 1) , Random(0, 55, 1))
    ClipPut($sRandomTime)
    Sleep(10)
    Send ("^v") ; paste hour
    Sleep(10)
    ClipPut("")

    MouseMove (590, 871)
    MouseClick ("left")
    Send("{Enter}")
    MouseMove (167, 809)
    MouseClick ("left")
    Sleep(2)
    MouseMove (245, 867)
    Sleep(1000)
    MouseClick ("left")
    ToolTip("", 0, 0)
    MouseMove (600, 520)
EndFunc   ;==>_Przelozenie



;F7
Func _MialSpotkanie()
    ToolTip("JEST PO SPOTKANIU Z PRZEDSTAWICIELEM", 0, 0)
    MouseMove (167, 550)
    MouseClick ("left")
    MouseMove (266, 602)
    MouseClick ("left")
    Sleep(1450)
    MouseMove (176, 709) ;klik na "miał kontakt"
    MouseClick ("left")
    Sleep(250)
    MouseMove (262, 948)
    MouseClick ("left")
    Sleep(450)
    MouseMove (176, 466)
    MouseClick ("left")
    Sleep(1050)
    MouseMove (299, 522)
    MouseClick ("left")
    Sleep(1250)
    MouseMove (172, 494)
    MouseClick ("left")
    MouseMove (274, 547)
    MouseClick ("left")
    ToolTip("", 0, 0)
    MouseMove (600, 520)
EndFunc   ;==>_MialSpotkanie



;F8
Func _MaPolise()
    ToolTip("JUŻ MA UBEZPIECZENIE", 0, 0)
    MouseMove (167, 548)
    MouseClick ("left")
    MouseMove (311, 604)
    MouseClick ("left")
    Sleep(1460)
    MouseMove (176, 763)
    MouseClick ("left")
    MouseMove (265, 948)
    MouseClick ("left")
    Sleep(990)
    MouseMove (177, 465)
    Sleep(1050)
    MouseClick ("left")
    MouseMove (236, 516)
    MouseClick ("left")
    MouseMove (172, 493)
    Sleep(1260)
    MouseClick ("left")
    MouseMove (226, 549)
    MouseClick ("left")
    ToolTip("", 0, 0)
    MouseMove (600, 520)
EndFunc   ;==>_MaPolise



;F9
Func _NieUbezpieczaSie()
    ToolTip("NIGDZIE SIĘ NIE UBEZPIECZA", 0, 0)
    MouseMove (168, 549)
    MouseClick ("left")
    MouseMove (245, 600)
    MouseClick ("left")
    Sleep(1360)
    MouseMove (176, 735)
    MouseClick ("left")
    MouseMove (279, 947)
    MouseClick ("left")
    Sleep(1000)
    MouseMove (177, 466)
    MouseClick ("left")
    MouseMove (289, 521)
    MouseClick ("left")
    Sleep(1260)
    MouseMove (172, 494)
    MouseClick ("left")
    MouseMove (237, 548)
    MouseClick ("left")
    ToolTip("", 0, 0)
    MouseMove (600, 520)
EndFunc   ;==>_NieUbezpieczaSie



;F10
Func _OlewaNN()
    ToolTip("BRAK ZAINTERESOWANIA MARKĄ NN", 0, 0)
    MouseMove (260, 551)
    MouseClick ("left")
    MouseMove (260, 603)
    MouseClick ("left")
    Sleep(1450)
    MouseMove (242, 629)
    MouseClick ("left")
    Sleep(100)
    MouseMove (279, 945)
    MouseClick ("left")
    Sleep(1000)
    MouseMove (203, 466)
    MouseClick ("left")
    MouseMove (254, 521)
    MouseClick ("left")
    MouseMove (172, 493)
    Sleep(1260)
    MouseClick ("left")
    MouseMove (249, 549)
    MouseClick ("left")
    ToolTip("", 0, 0)
    MouseMove (600, 520)
EndFunc   ;==>_OlewaNN



;F11
Func _RODO()
    ToolTip("BRAK ZGODY NA PRZETWARZANIE DANYCH OSOBOWYCH", 0, 0)
    MouseMove (167, 550)
    MouseClick ("left")
    MouseMove (233, 600)
    MouseClick ("left")
    Sleep(1350)
    MouseMove (177, 789)
    MouseClick ("left")
    MouseMove (300, 950)
    MouseClick ("left")
    Sleep(1000)
    MouseMove (176, 464)
    MouseClick ("left")
    MouseMove (290, 522)
    MouseClick ("left")
    Sleep(1350)
    MouseMove (174, 493)
    MouseClick ("left")
    MouseMove (180, 550)
    MouseClick ("left")
    ToolTip("", 0, 0)
    MouseMove (600, 520)
EndFunc   ;==>_RODO



;End
Func _BrakCzasu()
    ToolTip("BRAK CZASU NA SPOTKANIE W CZASIE TRWANIA AKCJI", 0, 0)
    MouseMove (166, 550)
    MouseClick ("left")
    MouseMove (241, 600)
    MouseClick ("left")
    Sleep(1360)
    MouseMove (175, 547)
    MouseClick ("left")
    MouseMove (280, 952)
    MouseClick ("left")
    Sleep(1000)
    MouseMove (176, 466)
    MouseClick ("left")
    MouseMove (255, 520)
    MouseClick ("left")
    Sleep(1360)
    MouseMove (174, 494)
    MouseClick ("left")
    MouseMove (210, 552)
    MouseClick ("left")
    ToolTip("", 0, 0)
    MouseMove (600, 520)
EndFunc   ;==>_BrakCzasu



;Home
Func _UmawiaSie()
    ToolTip("ZAINTERESOWANIE SPOTKANIEM", 0, 0)
    MouseMove (170, 495)
    MouseClick ("left")
    MouseMove (267, 605)
    MouseClick ("left")
    Sleep(1350)
    MouseMove (175, 565)
    MouseClick ("left")
    MouseMove (270, 670)
    MouseClick ("left")
    Sleep(900)
    MouseMove (175, 646)
    MouseClick ("left")
    MouseMove (259, 728)
    MouseClick ("left")
    Sleep(900)
    MouseMove (175, 646)
    MouseClick ("left")
    MouseMove (280, 725)
    MouseClick ("left")
    Sleep(900)
    MouseMove (175, 488)
    MouseClick ("left")
    MouseMove (280, 570)
    MouseClick ("left")
    Sleep(900)
    MouseMove (175, 550)
    MouseClick ("left")
    MouseMove (275, 683)
    MouseClick ("left")
    Sleep(900)
    MouseMove (740, 514)
    MouseClickDrag ( "left", 740, 514, 740, 712, 1)
    MouseMove (175, 785)
    MouseClick ("left")
    MouseMove (267, 864)
    MouseClick ("left")
    ToolTip("KLIKAJ DALEJ JUŻ SAMODZIELNIE", 185, 597)
    MouseMove (176, 587)
    Sleep(4250)
    ToolTip("", 0, 0)
EndFunc   ;==>_UmawiaSie

hmm.. There is something deeper about that, because now even the previous unworking code works correctly.

Edited November 13, 2019 by CzarnyKhaki

CzarnyKhaki · November 15, 2019

The topic can be closed. Thanks, everyone, I'll give ya likes.

Edited November 20, 2019 by CzarnyKhaki

CzarnyKhaki · November 20, 2019

oh, one more thing:
Can you suggest me some way to stop all currently commands when new command is ordered (new button pressed before previous function was finished)?

Block all input without UAC	Save/Retrieve Images to/from Text	Monitor Management (VCP commands)
Tool to search in text (au3) files	Date Range Picker	Virtual Desktop Manager
Sudoku Game 2020	Overlapped Named Pipe IPC	HotString 2.0 - Hot keys with string
x64 Bitwise Operations	Multi-keyboards HotKeySet	Recursive Array Display
Fast and simple WCD IPC	Multiple Folders Selector	Printer Manager
GIF Animation (cached)	Screen Scraping	Multi-Threading Made Easy

Block all input without UAC	Save/Retrieve Images to/from Text	Monitor Management (VCP commands)
Tool to search in text (au3) files	Date Range Picker	Virtual Desktop Manager
Sudoku Game 2020	Overlapped Named Pipe IPC	HotString 2.0 - Hot keys with string
x64 Bitwise Operations	Multi-keyboards HotKeySet	Recursive Array Display
Fast and simple WCD IPC	Multiple Folders Selector	Printer Manager
GIF Animation (cached)	Screen Scraping	Multi-Threading Made Easy

Block all input without UAC	Save/Retrieve Images to/from Text	Monitor Management (VCP commands)
Tool to search in text (au3) files	Date Range Picker	Virtual Desktop Manager
Sudoku Game 2020	Overlapped Named Pipe IPC	HotString 2.0 - Hot keys with string
x64 Bitwise Operations	Multi-keyboards HotKeySet	Recursive Array Display
Fast and simple WCD IPC	Multiple Folders Selector	Printer Manager
GIF Animation (cached)	Screen Scraping	Multi-Threading Made Easy

Move mouse and click script

Recommended Posts

Link to comment

Share on other sites

Top Posters In This Topic

Top Posters In This Topic

Popular Posts

water

Danp2

Musashi

Posted Images

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members