Ajuda com Numero Ordinal

Tire suas dúvidas sobre programação em AutoHotkey

Moderator: Gio

PrimalCloud
Posts: 12
Joined: 24 Dec 2022, 09:45

Ajuda com Numero Ordinal

Post by PrimalCloud » 28 Dec 2022, 11:48

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
Posts: 3852
Joined: 22 Dec 2013, 12:50

Re: Ajuda com Numero Ordinal

Post by garry » 28 Dec 2022, 16:19

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
Posts: 12
Joined: 24 Dec 2022, 09:45

Re: Ajuda com Numero Ordinal

Post by PrimalCloud » 29 Dec 2022, 12:39

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

garry
Posts: 3852
Joined: 22 Dec 2013, 12:50

Re: Ajuda com Numero Ordinal

Post by garry » 29 Dec 2022, 15:33

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
;======================================

Post Reply

Return to “Ajuda e Suporte Geral”