|
PureBytes Links
Trading Reference Links
|
<x-html><html>
http://www.amex.com/asp/option_index_trackers.asp<br>
<br>
You might want to try here also.<br>
<br>
Greg Aeschliman<br>
Osaka, Japan<br>
<br>
At 08:06 AM 6/10/00 -0500, you wrote:<br>
<br>
<blockquote type=cite cite><font face="arial" size=2>Where can I find a
list of exchange traded funds. I did several searches and found
only discussions of EFTs.</font><br>
<font face="arial" size=2>Lionel Issen<br>
lissen@xxxxxxxxx</font></blockquote></html>
</x-html>From ???@??? Mon Jun 12 18:36:32 2000
Return-Path: <majordom@xxxxxxxxxxxxxxxxxx>
Received: from listserv.equis.com (listserv.equis.com [204.246.137.2])
by purebytes.com (8.9.3/8.9.3) with ESMTP id RAA25478
for <neal@xxxxxxxxxxxxx>; Sat, 10 Jun 2000 17:05:25 -0700
Received: (from majordom@xxxxxxxxx)
by listserv.equis.com (8.8.7/8.8.7) id RAA08444
for metastock-outgoing; Sat, 10 Jun 2000 17:08:10 -0600
X-Authentication-Warning: listserv.equis.com: majordom set sender to owner-metastock@xxxxxxxxxxxxx using -f
Received: from freeze.metastock.com (freeze.metastock.com [204.246.137.5])
by listserv.equis.com (8.8.7/8.8.7) with ESMTP id RAA08441
for <metastock@xxxxxxxxxxxxxxxxxx>; Sat, 10 Jun 2000 17:08:06 -0600
Received: from uhura.concentric.net (uhura.concentric.net [206.173.118.93])
by freeze.metastock.com (8.8.5/8.8.5) with ESMTP id RAA02102
for <metastock@xxxxxxxxxxxxx>; Sat, 10 Jun 2000 17:27:19 -0600 (MDT)
Received: from marconi.concentric.net (marconi.concentric.net [206.173.118.71])
by uhura.concentric.net (8.9.1a/(98/12/15 5.12))
id TAA13499; Sat, 10 Jun 2000 19:09:42 -0400 (EDT)
[1-800-745-2747 The Concentric Network]
Received: from trbowen (ts011d09.hou-tx.concentric.net [216.112.142.21])
by marconi.concentric.net (8.9.1a)
id TAA00896; Sat, 10 Jun 2000 19:09:40 -0400 (EDT)
Message-ID: <024501bfd330$6b723140$158e70d8@xxxxxxx>
From: "Tom Bowen" <trbowen@xxxxxxxxxxxxxx>
To: <metastock@xxxxxxxxxxxxx>
References: <4.1.20000609181352.026683e0@xxxxxxxxxxxxxxxxxx>
Subject: Re: automating Metastock
Date: Sat, 10 Jun 2000 18:05:48 -0500
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 5.00.2919.6600
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2919.6600
Sender: owner-metastock@xxxxxxxxxxxxx
Precedence: bulk
Reply-To: metastock@xxxxxxxxxxxxx
Status: O
I would like to examine your code.
Where/when will it be posted?
Thanks.
----- Original Message -----
From: "Thomas Pfluegl" <thomas.pfluegl@xxxxxxxxxxxxxxxxx>
To: <metastock@xxxxxxxxxxxxx>
Cc: <anthmaas@xxxxxxxxx>; <wlake@xxxxxxxxx>
Sent: Friday, June 09, 2000 1:21 PM
Subject: Re: automating Metastock
> Hi Ton, Walter et al,
>
> Before I turn to the NumLock-Key problem I'd like to say that I've also
> attempted to automate MetaStock with Excel-VBA.
> For example a couple of months ago I wrote a sub which runs the first
> exploration available in the MetaStock "Explorer Dialog" for a Specific
Date.
> The difficult part is to trigger events when something happens, e.g. when
> the window "Exploration Completed" appears, a VBA API call
> (FindWindow("#32770")) assumes the exploration completed. You need a spy
> program (e.g. Spy++, SPYXX.EXE) to find out the correct titles or numbers
> of a specific window.
> The VBA routine waits until the exploration is done and adds one day to
> the exploration date (Specific Date). If "Specific Date" is a Saturday or
> Sunday it will add another day, so that no time will be wasted. You can
run
> the exploration even for a week (extra PC doesn't hurt) and the results
> will be pasted into an Excel sheet.
>
> To prevent the list from the avalanche of those very interesting and
> educational answers like "Yes I am interested", "I'd like a copy", etc., I
> suggest that anybody interested should drop me a message privately if
(s)he
> wants the spreadsheet.
> I will then put the spreadsheet on my website (download section) for a
while.
>
> >Re: your NumLock-Key problem ...
> >Why is, at the end of one of my VBA macro's, the KB's
> >NumLock-Key automaticaly been switched OFF?
> >(eg each time an excel macro is run, and it needs a "manual
> >corrective" ON press later, after a macro is finished)
>
> Usually the NumLock status is manipulated when using the XL "SendKeys"
method.
>
> The code to manipulate the keyboard status requires some API calls.
> This code works in my software environment (Win98, MSOffice 97
Professional
> Edition SR-2).
> Put this from
>
''''''''''''''''''''''START'''''''''''''''''''''''''''''''''''''''''''''''''
> ''''''''' to
>
''''''''''''''''''''''''''''END'''''''''''''''''''''''''''''''''''''''''''''
> ''''''''''''' in a new module of your "Personal.xls" or as "AutoStart".
> After the procedure which turns the numlock off, run the "NUMLock()"
> procedure like this:
>
> Sub NUMLock_Switch_Tons_NUMLock_On()
> Call NUMLock
> End Sub
>
> With the macro Num_Lock_Check() you can check the status of the keyboard
> and run other subs if desired.
>
>
''''''''''''''''''''''START'''''''''''''''''''''''''''''''''''''''''''''''''
> '''''''''
>
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
> ''''''''''''''''''''''''
> Option Explicit
> Dim RecordNumber2 As Integer
> ' Declare constant for keys
> Const VK_CAPITAL As Integer = &H14
> Const VK_NUMLOCK = &H90
> ' Declare Windows API functions
> Declare Sub GetKeyboardState Lib "USER32" (lpKeyState As Any)
> Declare Sub SetKeyboardState Lib "USER32" (lpKeyState As Any)
>
>
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
> ''''''''''''''''''''''''
>
> Property Get NUMLOCK_ON() As Boolean
> Dim lpbKeyState(128) As Integer
> GetKeyboardState lpbKeyState(0)
> If lpbKeyState(VK_NUMLOCK / 2) Then
> NUMLOCK_ON = True
> Else: NUMLOCK_ON = False
> End If
> End Property
>
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
> ''''''''''''''''''''''''
> Property Let NUMLOCK_ON(State As Boolean)
> Dim lpbKeyState(128) As Integer
> GetKeyboardState lpbKeyState(0)
> If State And 128 Then
> lpbKeyState(VK_NUMLOCK / 2) = 1
> Else: lpbKeyState(VK_NUMLOCK / 2) = 0
> End If
> SetKeyboardState lpbKeyState(0)
> End Property
>
>
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
> ''''''''''''''''''''''''
> Sub NUMLock()
> Dim blnCapsState As Boolean
> ' use the NUMLOCK_ON Property to GET the state of the capslock key
> blnCapsState = NUMLOCK_ON
>
> If blnCapsState = True Then
> Exit Sub
> Else
> ' use the NUMLOCK_ON Property to SET the state of the capslock key
> NUMLOCK_ON = Not blnCapsState
>
> blnCapsState = NUMLOCK_ON
> End If
> End Sub
>
>
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
> ''''''''''''''''''''''''
> Sub NUMLock_Switch_Tons_NUMLock_On()
> Call NUMLock
> End Sub
>
>
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
> ''''''''''''''''''''''''
> Sub Num_Lock_Check()
> Dim iReturn As Integer
> iReturn = GetKeyState(VK_NUMLOCK)
> If iReturn = 1 Then
> MsgBox "Num Lock is on", vbInformation, "Hi Ton!"
> Else
> MsgBox "Num Lock is off", vbInformation, "Hi Ton!"
> End If
> End Sub
>
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
> ''''''''''''''''''''''''
>
''''''''''''''''''''''''''''END'''''''''''''''''''''''''''''''''''''''''''''
> '''''''''''''
>
> HTH & have a nice weekend,
> Thomas Pfluegl
>
> >Date: Tue, 6 Jun 2000 22:44:43 -0400
> >From: "Walter Lake" < >
> >Subject: Re: automating Metastock
> >
> >
> >Hi Ton
> >
> >
> >Thanks for your emails ... you've given me lots of stuff to track down
and
> >to download and learn.
> >
> >
> >Will get back to you on your various suggestions.
> >
> >
> >Re: your NumLock-Key problem ... Did you record your VBA macro or write
it
> >in the VBE (Alt + F11) as a module?
> >
> >
> >I tried recording a series of actions switching it on and off and using
the
> >numeric keypad etc. .. nothing showed up in the code?
> >
> >
> >When I stepped through the code using F8 the NumLock stayed on all the
time
> >and the code repeated all the actions and entered all the data
accurately??
> >
> >Best regards as always
> >Walter.
> --------------------------------------------------------------------------
--
> Thomas Pfluegl, Rudersdorf 8, A - 4212 Neumarkt
> Austria Tel. ++ 43 - (0) 7941 - 8106
> http://keplerweb.oeh.uni-linz.ac.at/trading/index.html
> --------------------------------------------------------------------------
--
> Austria/Europe --> high mountains --> Mozart --> no kangaroos
> --------------------------------------------------------------------------
--
>
|