Re: Automatic Execution of Explorations

[Ron <ronber@xxxxxxxxxxxxx>]

Hi Theo

I used a program called QuicKeys which is on both  the Mac and PC platform.
Another program called AutoMate is for the PC platform.

http://www.quickeys.com/
http://www.unisyn.com/automate/

I have no relationshipwith either company. I have had no recent experience
with either product.

Ron


T.E.M. Lockefeer wrote:
005601c1ccd3$f66933e0$0101a8c0@xxxxxxxxxx">
  
  
  Very Interesting Taylan !
   
  Would you mind sharing the whole script
with us  ?
  (there is much to be learned in this field
and  there are more ways (AutoIt,VBscripting etc)
   
  Als looking for a good Taskscheduler (not
At  command,not W2K taskscheduler, not Wintask (?)
   
  Thanks
   
  Theo
   
   
   
  
    
----- Original Message ----- 
    
From:Taylan
   Sekerci
    
    
To:
metastock@xxxxxxxxxxxxx
    
    
Sent: Friday, March 15, 2002 9:36  AM
    
Subject: Re: Automatic Execution of    Explorations
    
    
    Yes I do it for, running many
system    tests at once.  A bit  experimental but I have more than 100  
 system test (takes about 40 minutes with 550 Mhz machine ), and I run them
   every night. I just cut, a small part of my Visual Basic automation  
 program, to give you an idea. Following codes runs MS and sets the loading
   options number of days to 301. As you see this done mainly mimicing key
   strokes. 
    regards,
     
    sub    small_part()
    MetaStockPath
=    "C:\Program Files\METASTOCK7\MetaStock"     
If    Right(MetaStockPath, 1) <> "\" Then MetaStockPath = MetaStockPath
&    "\"  ' make sure a backslash is at the end of the path
MetaStockRun =    MetaStockPath & "MSWIN.EXE"
MetaStockRun = Shell(MetaStockRun,    vbNormalFocus)
    
Do
    DoEvents
       ReportReady = FindWindow("MetaStockMainWnd", "MetaStock Professional")
Loop    Until ReportReady <> 0
Call wait(0.3)
SendKeys "^o",    True
Do
    DoEvents
    ReportReady =    FindWindow("#32770", "Open")
Loop Until ReportReady <> 0
Call    bekle(0.3)
'--------------------LOAD OPTIONS DAN YUKLENECEK GUN SAYISI    GIRISI-------------
If gunyukle = 301 Then
    SendKeys    "%p", True
    SendKeys "l", True
       Do
           DoEvents
        ReportReady =    FindWindow("#32770", "Load Options")
    Loop Until    ReportReady <> 0
    Call    bekle(0.2)
    SendKeys "301", True
Else: End    If
    end sub()
    .
    ----- Original
Message    ----- 
    From: "Nicholas
Kormanik"    <
nkormanik@xxxxxxxxx
    >
    To: <
metastock@xxxxxxxxxxxxx
    >
    Sent: Thursday,
March 14,    2002 6:40 PM
    Subject: Automatic
   Execution of Explorations
    
    
    
    | 
| Folks,
| 
|    I'd like to be able to set up a desktop 'macro/script/batch language'
|    that opens MetaStock (7.2), and atomically runs a set of sequential
|    explorations.
| 
| Do any of you now do that successfully?  If so,    how?
| 
| Thanks,
| Nicholas
| 
| 
| 
| 
| 
|    
     
    
---
Outgoing mail    is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com
).
Version: 6.0.338    / Virus Database: 189 - Release Date:  14/03/2002