Ir ao conteúdo

execucao automatica.


HERMANNO

Posts recomendados

Postado

boa tarde,

estou tentando fazer um programinha que execute uma determinada sequencia numerica como não sei muito de programação estou tendo uma certa dificuldade segue logo abaixo como quero que seja o programinha.

exemplo de uma execuçao numerica de 1 a 5.



Sub Main
Dim HostExplorer as Object
Dim CurrentHost as Object
Dim iIdleTime

Set HostExplorer = CreateObject("HostExplorer") ' Initialize HostExplorer Object
Set CurrentHost = HostExplorer.CurrentHost ' Set object for current session

iIdleTime = 1000 ' Idle time set to 1000 milliseconds

CurrentHost.Keys( "1" )
CurrentHost.RunCmd( "Enter" )
CurrentHost.WaitIdle( iIdleTime )
CurrentHost.Keys( "2" )
CurrentHost.RunCmd( "Enter" )
CurrentHost.WaitIdle( iIdleTime )
CurrentHost.Keys( "3" )
CurrentHost.RunCmd( "Enter" )
CurrentHost.WaitIdle( iIdleTime )
CurrentHost.Keys( "4" )
CurrentHost.RunCmd( "Enter" )
CurrentHost.WaitIdle( iIdleTime )
CurrentHost.Keys( "5" )
CurrentHost.RunCmd( "Enter" )
CurrentHost.WaitIdle( iIdleTime )

end sub

gostaria de ultilizar uma sequencia maior tipo de 1 a 2000 sem ter que digitar linha por linha tem alguma forma?

  • 2 semanas depois...

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!