execucao automatica.

[HERMANNO]

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?

[andbecker]

tem sim.. o comando FOR