If you go to the following link you will find an app that does exactly what you want and it includes vb6 source code as well.
http://www.karenware.com/powertools/ptnetmon.asp
Place all the code from that thread in a module. Now on a for m put a command button and paste the following code.
Private Sub Command1_Click()
Call PingAddress("www.jeffmarler.com", "Echo This")
End Sub
This works for me. Your error just means that you either need to change the...
Can you be more specific about what part is not working and maybe post a bit of code showing that portion so we may better understand what is happening and maybe provide some help.
What is the Mfr./model of your router?
Are you accessing the Internet through a proxy server as well as the router or just the router?
Have you checked your GWPROB directory for messages there? If there are incoming messages here then they are making it past the router and the problem(s) at the...
I have ONLY GroupWise client here. The as well comment meant "as well as you". Sorry for the confusion. SMTP Port 25 is for OUTGOING mail. I would suggest that you try setting up port 110 in your router. It won't hurt anything to give it a shot. Routers and Server configurations can be...
Yes. Using API or through the Registry or by using Netsh with command line options called from VB. I am not 100% positive on the API though but am pretty sure.
Port 1030 IS a valid port and as I said netstat will show any program that may be using that port. This link will explain port 1030 a little. http://grc.com/port_1030.htm
The code I supplied is the click event for both option buttons. Don't paste the code in the click event paste the code in the empty IDE as is. The only code you should see in the IDE is what I have above and maybe Option Explicit at the very top.
To test the code start a new project and add 2 option buttons and a textbox. Name the options InProgress and Completed. Leave textbox as text1. Copy this code and run it.
Private Sub Completed_Click()
Text1.Text = Now
End Sub
Private Sub InProgress_Click()
Text1.Text = ""
End Sub...
If you still have issues after trying the timer solution you could post part of the code in question so we could see how your doing this. Also, does the code do anything else besides the copy (backup)? Depending on what and when, this could be causing some problems too. I suspect adding the...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.