Ajuda com Numero Ordinal

[PrimalCloud]

E aew meu povo tudo bom!? procurei mas nao tive resultado ou estou procurando errado nao sei

Preciso que essa macro envie numeros ORDINAIS do 0 ao 100 {exemplo 1 depois 2 depois 3 depois 4 ate o 100 na ordem numeral}
Se alguem tiver ideia ajudaria muito obrigado!

Code: Select all

F6::txt() ;

txt(){
loop
IfWinActive, ahk_class POEWindowClass
if WinActive("Path of Exile"){
Send, {Enter}
Sleep 100
Random, r, 1, 100                <=  ao invez do ramdom queria que fosse ordinal do numero 1 ao 100
Send, % "/Global " r
Sleep 100
Send, {Enter}
Sleep 100
Send, {Enter}
Sleep 1000
Send, #whatup
Sleep 100
Send, {Enter}
Sleep 1000
}
return
}

[garry]

loop exemplo, envie para o bloco de notas, comece com F8, pare com F9, esc= salir script , send 1,2,3,4 ... ( start F8 , break F9 , continue F8 )

Code: Select all

; - exemplo, envie para o bloco de notas, comece com F8, pare com F9, esc= salir script
#Warn
#Singleinstance,force
setworkingdir, %a_scriptdir%
i:=0,act:=1
Process,Exist,notepad.exe
If Not ErrorLevel
  Run,notepad
sc:="ahk_exe notepad.exe" 
global act,i
return
;--------
$F8::
act:=1
IfWinNotExist, ahk_exe notepad.exe
 Run, notepad.exe
IfWinNotActive ,%sc%,,WinActivate,%sc%
      WinWaitActive,%sc%
While, act A1()
Return
A1() 
{	
loop
	{
	i++
    send,{text} /Global %i% `n
    sleep,500
	}
	Until, !act
}
return
;---------------
$F9::
act:=0
return
;--------------
esc::exitapp
;==============

[PrimalCloud]

Obrigado, já tinha sido respondido aqui no fóru, mas irei testar.obg.

[garry]

obrigado , eu usei o bloco de notas para teste, o loop é executado quando o bloco de notas existe

Code: Select all

#Warn
#Singleinstance,force
setworkingdir, %a_scriptdir%
Process,Exist,notepad.exe
If Not ErrorLevel
  Run,notepad,,,pid2
sc:="ahk_exe notepad.exe" , i:=0
global sc,i
return
;---------------
;- close notepad script loop stops 
;---------------
$F7::
process, exist,%pid2%
if errorlevel=0
  return
else
  process,close,%pid2%
return
;---------------
;-- for TEST open notepad again, script loop run
$F8::
IfWinNotExist, ahk_exe notepad.exe
 Run, notepad.exe,,,pid2
IfWinNotActive ,%sc%,,WinActivate,%sc%
      WinWaitActive,%sc%
return
;---------------
;- start function 
$F6::txt()
txt()
{
loop,
 if WinActive(SC)
   {
   i++
   aa:="/trade_" I
   ;msgbox, 262144,TEST ,%aa%,2
   tooltip,%aa%
   sleep,1500
   tooltip
   }
  return
}
;---------------
esc::exitapp
;======================================