Help VB gurus!

[SimpleHuman]

I have to put WebBrowser control on a form and using the timer event control, I have to bascilly check for an intranet web page status… if for some reason webpage is not available then I have to make a log…

Any ideas how to achieve this using VB6 and standard controls like webbrowser! ??

[GunsNRoses]

This is totally untested code off the top of my head, but it should be more or less correct.

Dim oFoo as InternetExplorer.Application

Set oFoo = CreateObject("InternetExplorer.Application")
' Navigate to site. Note that the URL is misspelled in code to avoid legal problems! Change it as needed!
oFoo.Navigate2 "www.ya-who.com" 
' Gotta wait while the IE component is working!
While oFoo.Busy
Wend

' Grab the document and then deallocate the IE object when we're done grabbing the document text.
sString = oFoo.Document.Body.InnerHTML

' Deallocate our IE object now
set oFoo=Nothing

Hope this helps

[Parashuram]

Simple .......Format your Windoze box......Install Solaris on Intel ..........Write a shell script to do a HTTP GET ......put the script in Crontab .......Man MS makes $$$$$ making simple stuff look complicated with Controls and what not

[Big-G]

Why put it in the cron?? You can simply run an infinite process with sleep times in between.

[GpeL]

I agree biggie.. better yet.. hire a newbie to fire it off for you at $ prompt at regular intervals.. That way you will also be giving employment to an otherwise useless bum.

[SimpleHuman]

Guns bro,

Actully we have our intranet site, the purpose of this tool is to check if it is up and running or not! Lets say after each hour I have to check if the intranet site is available or not!!!

parsu bhai kis zamane ki baat kar rahe ho .NET framework is on the way for unix

[GunsNRoses]

SimpleHuman sir, that's why I posted the above code. You can use it to hit a specific page on your intranet site and check if the sString contains the expected message or not. If the expected message is not received, then you can add a little more code to e-mail the necessary people.

Then all you have to do is schedule the program to run every hour or so. If you're running this program on a Windows NT, Win2K or WinXP machine, you can do this by using the Scheduler from the control panel. If you want to be macho about it and use the command line, all you have to do is research the AT command (type help at at the command prompt).

If you're using a *NIX system, you might as well save some time and install Big Brother, which is (a) free for non-commercial use, (b) features a webpage that you can hit to query the health of all your servers and (c) works pretty well!

As for running tasks on an infinite loop vs. running tasks from a crontab, I prefer the crontab method personally. Reason: I've had too many sysadmins get mad at me for leaving perl scripts running after I've logged off. It's all ok if you're running your own servers, but sysadmins generally tend to take a dim view of processes running for infinite time and usually kill such processes.

[SimpleHuman]

Guns bro,

I did try to use your code, but even if i pass wrong non existing site, the sstirng gives me value in retrun... so its kind of tuff to make a judgement about if the site is active or not???

Any other option??? anything in Java???

[GunsNRoses]

SimpleHuman Sir, I didn't say sString would not be populated. In fact, if you hit a non-existent website, it'll contain the HTML code that effectively says "Site not found". What you need to do is get the code to retrieve a known page on your intranet (even something that prints something simple as "I'm ok" will do). Then you can compare sString against that known text. If the message in sString is not the same as what you were expecting, then you can get the program to start e-mailing people.

[edit]
BTW the first declaration should be:

Dim oFoo As InternetExplorer

Also don't forget to add Microsoft Internet Explorer to your project references (Menu: Project ---> References)
[/edit]

[SimpleHuman]

oke let me try! about email, do i have to use any third party control?

Originally posted by SimpleHuman

anything in Java???

check the class java.net.HttpURLConnection..

the method of ur interest is here:
http://java.sun.com/products/jdk/1.2...etResponseCode()

u will have to schedule the ping in any case

[GunsNRoses]

You can use the CDONTS control, if you have it installed (it comes along with IIS and a couple of other Micro$oft products). You can search google for "CDONTS install" for more info. You may also be able to control Microsoft Outlook from VB to send your messages. If not, there are several third party Active-X controls. Also, you can write your own version in Visual C++, if you're inclined to hack your own control. Personally, I use Delphi or C++ Builder most of the time for Windows Development and they already come with a native Mail control (and there are also several third party controls available for free ).