|
| 
| Submitted on: 4/25/2000 7:44:01 PM
By: Rokinroj
Level: Intermediate
User Rating:
By 19 Users
Compatibility:VB 5.0, VB 6.0
Users have accessed this code 8680 times.
| |
| | | Check current stocks on any exchange if you know the ticker symbol.
This code is a direct spin off of another project I found here on PSC called quickquoter. I downloaded it a few weeks ago and made some improvements and wrote the author (Zaid) and asked him if I could re-upload it with the new changes. He said no. So I decided I would rewrite it without using his ocx control.
That is not the only change. You can now save favorite symbols, print the graphs, check online status, even knows if your on a LAN, proxy, dialup, etc. I also spruced up the form a bit, though it mostly still looks like his form. Anyway, now that I am not using his ocx anymore you may all downlaod at your hearts content. Thanks to Fish for the help and to Zen for the icon and avi.
rokinroj@jps.net
icq - 2354342
| |
|
| |
|
Download code
Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. Afterdownloading it, you will need a program like Winzipto decompress it.
Virus note:All files are scanned once-a-day by Planet Source Code for viruses,but new viruses come out every day, so no prevention program can catch 100% of them.
FOR YOUR OWN SAFETY, PLEASE:
1)Re-scan downloaded files using your personal virus checker before using it.
2)NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.
3)Scan the source code with Minnow's Project Scanner
If you don't have a virus scanner, you can get one at many places on the net including:McAfee.com
|
Terms of Agreement:
By using this code, you agree to the following terms...
1) You may use
this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
2) You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
3) You may link to this code from another website, but ONLY if it is not wrapped in a frame.
4) You will abide by any additional copyright restrictions which the author may have placed in the code or code's description. |
Other 3 submission(s) by this author
|
|
| |
| Report Bad Submission |
|
| |
| Your Vote! |
|
See Voting Log |
| |
| Other User Comments |
4/25/2000 7:47:55 PM:rokinroj
I know this looks the same as
QuickQuoter, but its not. This does
not use Zaid's .ocx. In fact it
connects a totally differnet way using
an XML control. The similarities on
the form are as far it goes.
Completely new code. Much
faster!
rokinroj
|
4/25/2000 8:03:27 PM:Cool33
Great Code first of all. But I have a
question. What's the server you're
getting this information from? I am
wanting to know if it's delayed
information or up to date every however
much time. Thanks
|
4/25/2000 8:08:16 PM:ztron
When I loaded the project files with my
VB5 sp3, I got tons of errors on
different ocx's including the
quickQuoter2.0.ocx. Anyway, I ignored
all the errors during the load, and
just ran the application. During run
time, I did not see any problem. After
trying few ticker simbols, I was very
impressed, especially with the graph
function. I am starting to become
interested in this MSXML thing that you
can do with VB. This is cool!
|
4/25/2000 8:16:14 PM:fishoutawata
Much love!!! This is a great program.
MSXML is starting to see some uses.
Thanks for sharing the knowledge
|
4/26/2000 11:39:19 AM:Hello Ralphie
Very Cool App! Very clean and very
fast. I am impresses that there people
out there that can re design apps and
make them worth using!
|
4/26/2000 11:44:25 AM:Mark
WOW... I'm using part of this for a
financial app I was writing... its
awsome code, and KUDOS to you Rokin!
|
4/26/2000 12:26:43 PM:Rokinroj
I re-upped a new version this morning
to fix the probs that ztron was having.
My bad I forgot to remove the check
marks on two of the refrences that were
removed form the original project.
Anyway, one last bug that I cant seem
to work out is getting frmWait to
become active sooner. For those on a
fast network, you'll never even see the
"Please wait" screen.
Thanks for the
votes and the feedback!
Rokinroj
|
4/26/2000 4:23:55 PM:JF
Brilliant, never managed to get
stockquoter to work yours works
perfectly, I have even manged to change
to market to London Stock Exchange -
needed some work on the date part but
as your code was clearly commented
quite easy to change. Thanks again
|
5/23/2000 8:37:57 AM:Espionage
just wondering y I couldnt get it to
work, it keep giving me errors when i
press GET QUOTE, Invalid Procedure call
or Argument, then the company name came
up as ERROR: The request URL could not
be ............, can someone give me a
hand in solving this problem for me
pls
thanx
|
6/28/2000 2:50:45 PM:Chuck
Would it be possible to get
VbMarketWatch as a VB4 program? I have
VB4-32.
|
7/4/2000 2:15:58 PM:derek
To get the frmWait to show all you need
to do is in the frmWait_Load the first
thing that it should say is
-Me.ShowDoEvents
|
7/16/2000 8:06:26 AM:zidane
if i want to change this to hong kong
stock markethow can I do?????
|
7/16/2000 8:07:59 AM:zidane2
if i want to change that program in
hong kong stock
how can I do???
|
7/19/2000 12:00:48 PM:Christopher Aliotta
Hi I guess your stock quote site
updated thier layout. Anyways, because
of the change the volume field gets
mixed up with the "Yesterdays close"
field. I have fixed the problem for you
(one of the many perks of having code
open sourced ;) ) and all you need to
do is add this above the get volume
code:
'yesterdays close
retval1 =
InStr(retval1, strResponse, "yesterday
close") + 15
retval2 =
InStr(retval1, strResponse, "-1>") +
3
strResponse =
Mid(strResponse, retval2,
Len(strResponse) - retval2)
retval1 = InStr(1, strResponse,
"</FONT>") - 1
temp =
Left(strResponse, retval1)
Text1.Text = temp
temp =
Right(Text1.Text, Len(Text1.Text) -
2)
MsgBox temp I hope PSC
doesn't screw the format of this up.
-Chris Aliotta
|
7/19/2000 9:21:21 PM:Rokinroj
Thanx everyone for all of your support
and comments, good
|
11/13/2000 12:37:21 PM:the veNd
This is the best example of Stock quote
i have ever seen! You Da' Man. :-)
I
want to add a ticker in my apps, any
idea how to do that?
|
11/30/2000 10:25:40 AM:Shua
I get an error saying something to the
extent of GIF89.dll could not be
loaded. How can I fix this?
|
1/20/2001 3:03:12 AM:Bailout
I love this program, i am convincing my
parent to give me $2500 to put in the
market, so i figure if i make a
practice game thing out of it they will
be convinced. This program
ROCKS!!
bailout@nycap.rr.com
btw:
just search for gif89.dll on yahoo you
will find it :)
|
1/20/2001 12:17:44 PM:Bailout
Wow that was early... Ne way, how do I
e-mail the author, and if you check
this i just wanna know if i can make
another program outta this and put it
up, let me know!
|
2/21/2001 8:20:21 AM:Don Wenrich
When I tried to start the project, VB
came back with two files
missing.
quickQouote2.0.ocx and
Gif89.dll
Where can I get these two
files???
|
3/2/2001 11:54:38 PM:rokinroj
Hey guys & gals, You dont need those
two files that error at the beginning.
Those are leftovers from stuff I was
messing with. You can remove them from
the project refrences and the errors
will stop. Just launch it despite the
errors. It should run perfectly.
And
yes please reuse the code all you want,
redistribute, rebuild, whatever. Enjoy!
|
3/25/2001 6:53:39 PM:Viper Technologies
This doesn't work. It has given me 8
errors in a row all about an invalid
procedure call or argument. It has all
these when you try to modify datetime1.
I think it is because you did not
assign a type to all the variables you
dimmed.
|
5/13/2001 4:29:40 PM:terry Smith
There's trouble beacause they've
changed the web page at
http://www.spcomstock.com where this
program gets its data. The parsing
software in cmdgetQuote click doesn't
work anymore.
When it's fixed this
will be a great program. Thanks,
Rokinroj!
|
6/5/2001 10:25:00 AM:treesprite
I have updated this project to GET from
a valid stock quote site. Nothing else
in the VBMarketWatch project is
modified. I like what RokinRoj has
developed here. Anyone interested in
the code update email me.
|
1/30/2002 10:08:25 AM:Dave Mavin
I can't see how this is using XML? Yeah
sure its using MSXML, but its simply
ripping data via a HTTP request...
|
7/31/2002 4:05:52 AM:Ian
Some critique:
- Form1? Frame1? Pls
continue the renaming of the controls
:)
- In
frmMain.cmdRemoveSymbol_Click:
If j
= cboSymbol.Text Then GoTo Del
Goto?
GOTO? Surely a simple 'Exit For' does
the job? Goto has no place in
professional code. PERIOD!
|
7/31/2002 4:07:56 AM:Ian
...I meant to add:
- No 'Option
Explicit'?
|
7/31/2002 10:29:53 AM:Terry L
Great job!! Haveing a few error's but
will figure them out.. Anyway 5
|
7/31/2002 8:04:55 PM:ChrashR
Great code, keep up the good work
|
8/10/2002 5:12:26 PM:treesprite
A few of you have asked for the update
to this vb project. Here is the
link:
http://www.planet-source-code.com
/vb/scripts/ShowCode.asp?txtCodeId=24009
&lngWId;=1
|
2/21/2003 10:24:15 AM:
Do we have to get data from a site that
contains XML format or any site?
|
2/21/2003 4:58:00 PM:treesprite
This project uses Microsoft XML version
2 only for the HTTPResponse object. It
does not output in XML.
The site is
hard-coded as www.siliconinvestor.com
in Private Sub
cmdGetQuote_Click().
Change this to
a different site if you prefer. Just
keep in mind that you will then need to
change all subsequent code that parses
the in-coming response string.
|
|
| Add Your Feedback! |
Note:Not only will your feedback be posted, but an email will be sent to the code's author in your name.
NOTICE: The author of this code has been kind enough to share it with you. If you have a criticism, please state it politely or it will be deleted.
For feedback not related to this particular code, please click here.
|
|
