Re: Automatic Execution of Explorations

["T.E.M. Lockefeer" <sky40912@xxxxxxxxx>]

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
 
 
 
<BLOCKQUOTE 
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
  ----- Original Message ----- 
  <DIV 
  style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black">From: 
  Taylan 
  Sekerci 
  To: <A title=metastock@xxxxxxxxxxxxx 
  href="mailto:metastock@xxxxxxxxxxxxx";>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 pathMetaStockRun = 
  MetaStockPath & "MSWIN.EXE"MetaStockRun = Shell(MetaStockRun, 
  vbNormalFocus)Do    DoEvents    
  ReportReady = FindWindow("MetaStockMainWnd", "MetaStock Professional")Loop 
  Until ReportReady <> 0Call wait(0.3)SendKeys "^o", 
  TrueDo    DoEvents    ReportReady = 
  FindWindow("#32770", "Open")Loop Until ReportReady <> 0Call 
  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", TrueElse: End 
  If
  end sub()
  .
  ----- Original Message 
  ----- 
  From: "Nicholas Kormanik" 
  <<FONT face="Comic Sans MS" 
  color=#008080 size=2>nkormanik@xxxxxxxxx<FONT face="Comic Sans MS" 
  color=#008080 size=2>>
  To: <<A 
  href="mailto:metastock@xxxxxxxxxxxxx";><FONT face="Comic Sans MS" color=#008080 
  size=2>metastock@xxxxxxxxxxxxx<FONT face="Comic Sans MS" 
  color=#008080 size=2>>
  Sent: Thursday, March 14, 
  2002 6:40 PM
  Subject: Automatic 
  Execution of Explorations
  <FONT color=#008080 
  size=2>
  | | 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 (<A 
  href="http://www.grisoft.com";>http://www.grisoft.com).Version: 6.0.338 
  / Virus Database: 189 - Release Date: 
14/03/2002