neeed help.. auto tab

[SatelliteKiD]

hi, i just want to make a script that can type letter "A" on two notepad..

alt tab to each other and press "A" non-stop...

can someone help me? just a newbie and want to learn...

HotKeySet("{End}", "stop")
HotKeySet("{Home}", "Start")

Func Start()
If WinActive("Notepad1") = 0 then
Do
WinActivate("Notepad1")
Until WinActive("Notepad1")
EndIf

If WinActive("Notepad2") = 0 then
Do
WinActivate("Notepad2")
Until WinActive("Notepad2")
EndIf

Send('A')
Send('A')
Send('A')
Send('A')
Send('A')

WEnd
EndFunc


func stop()
Exit
EndFunc

[SatelliteKiD]

thanks anyway.. i got it.. but the problem is the hotkey is not functioning.. when i press end/home, nothing happens.

HotKeySet("{End}", "stop")
HotKeySet("{Home}", "Start")



Local $a = 0
Do
$a += 1

WinActivate("notepad1 - Notepad")

Send('a')
Sleep(100)
Send('a')
Sleep(100)

WinActivate("Notepad2 - Notepad")

Send('a')
Sleep(100)
Send('a')
Sleep(100)
Until $a = 99999

Edited February 15, 2013 by SatelliteKiD

[Malkey]

thanks anyway.. i got it.. but the problem is the hotkey is not functioning.. when i press end/home, nothing happens.

HotKeySet("{End}", "stop")
HotKeySet("{Home}", "Start")



Local $a = 0
Do
$a += 1

WinActivate("notepad1 - Notepad")

Send('a')
Sleep(100)
Send('a')
Sleep(100)

WinActivate("Notepad2 - Notepad")

Send('a')
Sleep(100)
Send('a')
Sleep(100)
Until $a = 99999

For the hotkeys to work you need the functions, "stop()" and "Start()", which associated with the "{End}" and "{Home}" hotkeys.

expandcollapse popup

HotKeySet("{End}", "_Stop")
HotKeySet("{Home}", "_Start")

Global $PID1 = Run("notepad.exe")
WinActivate("Untitled - Notepad", "")
WinWaitActive("Untitled - Notepad", "")
WinSetTitle("Untitled - Notepad", "", "notepad1 - Notepad")

Global $PID2 = Run("notepad.exe")
WinActivate("Untitled - Notepad", "")
WinWaitActive("Untitled - Notepad", "")
WinSetTitle("Untitled - Notepad", "", "notepad2 - Notepad")

While 1
Sleep(20)
WEnd


Func _Start()
Local $a = 0
Do
$a += 1
WinActivate("notepad1 - Notepad")
WinWaitActive("notepad1 - Notepad")
Send('a')
Send('a')

WinActivate("notepad2 - Notepad")
WinWaitActive("notepad2 - Notepad")
ControlSend("notepad2 - Notepad", "", "Edit1", "aa")
Sleep(20)
Until $a = 99999
EndFunc ;==>_Start

Func _Stop()
If $PID1 Then ProcessClose($PID1)
If $PID2 Then ProcessClose($PID2)
Exit
EndFunc ;==>_Stop

[PhoenixXL]

If its just Notepad, ControlSend|ControlSetText is much more preferable,

Check it in the help file

Regards

Edited February 15, 2013 by PhoenixXL

[SatelliteKiD]

thanks for the response ^^.