|
| 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 |
| Views: |
23811 |
|
|
|
|
|
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 Winzip to 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:
- Re-scan downloaded files using your personal virus checker before using it.
- NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.
- 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...
- 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.
- 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.
- You may link to this code from another website, but ONLY if it is not wrapped in a frame.
- 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
|
| |
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
(If this comment was disrespectful, please report it.)
|
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
(If this comment was disrespectful, please report it.)
|
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!
(If this comment was disrespectful, please report it.)
|
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
(If this comment was disrespectful, please report it.)
|
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!
(If this comment was disrespectful, please report it.)
|
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!
(If this comment was disrespectful, please report it.)
|
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
(If this comment was disrespectful, please report it.)
|
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
(If this comment was disrespectful, please report it.)
|
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
(If this comment was disrespectful, please report it.)
|
6/28/2000 2:50:45 PM: Chuck
Would it be possible to get VbMarketWatch as a VB4 program? I have VB4-32.
(If this comment was disrespectful, please report it.)
|
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
(If this comment was disrespectful, please report it.)
|
7/16/2000 8:06:26 AM: zidane
if i want to change this to hong kong stock markethow can I do?????
(If this comment was disrespectful, please report it.)
|
7/16/2000 8:07:59 AM: zidane2
if i want to change that program in hong kong stock
how can I do???
(If this comment was disrespectful, please report it.)
|
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, "") - 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
(If this comment was disrespectful, please report it.)
|
7/19/2000 9:21:21 PM: Rokinroj
Thanx everyone for all of your support and comments, good
(If this comment was disrespectful, please report it.)
|
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?
(If this comment was disrespectful, please report it.)
|
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?
(If this comment was disrespectful, please report it.)
|
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 :)
(If this comment was disrespectful, please report 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!
(If this comment was disrespectful, please report it.)
|
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???
(If this comment was disrespectful, please report it.)
|
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!
(If this comment was disrespectful, please report it.)
|
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.
(If this comment was disrespectful, please report it.)
|
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!
(If this comment was disrespectful, please report it.)
|
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.
(If this comment was disrespectful, please report it.)
|
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...
(If this comment was disrespectful, please report it.)
|
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!
(If this comment was disrespectful, please report it.)
|
7/31/2002 4:07:56 AM: Ian
...I meant to add:
- No 'Option Explicit'?
(If this comment was disrespectful, please report it.)
|
7/31/2002 10:29:53 AM: Terry L
Great job!! Haveing a few error's but will figure them out.. Anyway 5
(If this comment was disrespectful, please report it.)
|
7/31/2002 8:04:55 PM: ChrashR
Great code, keep up the good work
(If this comment was disrespectful, please report it.)
|
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&lngWI d=1
(If this comment was disrespectful, please report it.)
|
2/21/2003 10:24:15 AM:
Do we have to get data from a site that contains XML format or any site?
(If this comment was disrespectful, please report it.)
|
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.
(If this comment was disrespectful, please report it.)
|
4/25/2004 4:35:01 PM: WebFusion Design
It won the contest why? Code is heavy, to many dependancies and it is full of errors.
(If this comment was disrespectful, please report it.)
|
Add Your Feedback
Your feedback will be posted below and an email sent to
the author. Please remember that the author was kind enough to
share this with you, so any criticisms must be stated politely, or they
will be deleted. (For feedback not related to this particular code, please
click here instead.)
To post feedback, first please login.
|
