VB6 - Dictionary, Thesaurus & Rhyme-Generator In One

[shirazamod]

This is a combination of a Dictionary, Thesaurus & Rhyme-Gen.
It connects to the net to check out sites where it downloads the required data, parses it out and then displays it easily for the user to check out.
Great for rappers/songwriters or for making a poem, researching for a project or just having fun!

Created By Shiraz Amod & Nick aka raZer & Paralinx

EDIT: Sorry, here's the attachment!

[thegreatone]

No download link, no code... Problems ?

[paralinx]

Ok the .zip file is uploaded in shiraz's original post.


Enjoy All!

[shirazamod]

Feel free to comment!

[thegreatone]

The lack of feedback suggests it wokrs just fine

They'd complain if it didn't

[Furtim]

Its great but what I dont like about it is the popups when you do a search because it looks on the internet. If there was away to make it so it doesnt let popups come through or stop the popups it would be perfect....If anyone has any ideas that would be cool

[Furtim]

Actually if you add this, it will stop the popups...

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Cancel = True
End Sub

[shirazamod]

Thanks for the comments.
The code Furtim posted should block most popups, however some will still persist.
If I have time I may update this and use the Inet control instead of webbrowser, which would make it work much faster and prevent all popups.

[Furtim]

The Inet Control is more powerful, yet its tricky to get it working. If you can get the Inet Control to work then the program in theory would have no popups and be alot faster. Later on ill give it a shot and see if I can get it to work...

[shirazamod]

I've used the Inet control many times before to great success.
Let us know if you do it

[Furtim]

For some strange reason I can't get it to work....maybe you might have to give it a shot.

[shirazamod]

OK. I'll work on it and post it here once its done...

[Furtim]

okay that will be cool, looking forward to your progress.

[Furtim]

How is this coming along?

[shirazamod]

Unfortunately I have stopped doing it for a while as I've been busy with other things.
If you would like to see what I've done so far, let me know and I will post it here.

[Furtim]

Sure. You can post it and I can fiddle with it, I've been adding options to it and desiging the form and making it nice and adding different functions.

[shirazamod]

OK Here it is.
I've almost completed it with the Inet, but I'm too busy at the moment to finish it off.

It still has a few bugs.

[pipwilky]

Ilike that program welll done

[shirazamod]

Thanks pipwilky!

[Furtim]

Have you progressed any? I've tweaked with it abit but I've been super busy lately myself.

[shirazamod]

Unfortunately I too have been busy working on other projects so I haven't had any time for this one. If I get a chance I will try look at it this weekend, but I can't promise anything.

[halosome]

Actually if you add this, it will stop the popups...

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Cancel = True
End Sub

Can't understand! Can anyone explain to me why the Sub is not called and still working to stopping popups?

wow, I deleted the Sub or change Cancel = False, No more popups again! it is weird!

The first time I run it without the Sub poped up an Ad.*** everytime i clicked on the buttons!

[shirazamod]

If you changed it to Cancel = False then it shouldn't be blocking popups.
The sub should be called when the site wants to open a new window, but if Cancel = True then it will cancel the opening of the new window, effectively blocking the popup

[Furtim]

I'm still pretty busy...hopefully i wont be soon...

[Furtim]

Okay, I had some free time today and I could have sworn I set it up right and all, but I keep getting stupid errors...

[thegreatone]

Okay, I had some free time today and I could have sworn I set it up right and all, but I keep getting stupid errors...

Post the source, we can all help and pitch in

[Furtim]

Well, after I posted that I couldn't get it to work I got aggrivated and deleted everything I did and went back to shirazamod last post that said...

OK Here it is.
I've almost completed it with the Inet, but I'm too busy at the moment to finish it off.

So now I'm back to square one with this...

[shirazamod]

I got aggrivated and deleted everything

A likely story...

[thegreatone]

A likely story...

Standard ways of working

[Furtim]

Well, for me if something isn't working I start all over...I don't mess around with code that doesnt work and start over again. Why should I keep messing around with something that isnt working while I could be starting over and making it better? It's not like I got a bad temper...lol

[Dreamscape]

This is one great piece of design that I really like! I wish I knew more of VB6 so I could do the Inet as it seems very promising. If anyone could point me in the right direction or if someone could take the time to finish it. Good job as this is an A+ project.

[shirazamod]

I'm glad you like it