In the attached picture that is my login panel to my router. My VB program fills in the User Name and Password fields then it auto clicks on the OK button. As you can see this is not a popup but the main window of the browser. But you are saying you do not get such a main window for whoever is your ISP and instead it is a popup window. When you see the popup window is there any thing showing in the main browser window? Can you attach a screen shot of what it looks like?
How many text files did you create from post #26?
Last edited by jmsrickland; Jun 24th, 2012 at 12:02 PM.
Anything I post is an example only and is not intended to be the only solution, the total solution nor the final solution to your request nor do I claim that it is. If you find it useful then it is entirely up to you to make whatever changes necessary you feel are adequate for your purposes.
That probably won't work. It doesn't work for my login
Anything I post is an example only and is not intended to be the only solution, the total solution nor the final solution to your request nor do I claim that it is. If you find it useful then it is entirely up to you to make whatever changes necessary you feel are adequate for your purposes.
It appears that when he navigates to 192.168.1.1. he gets only a popup window (nothing showing in the main browser window at this time) and once he enters name/pass & clicks OK he then will get another panel but this time it's in the main browser window. In my case I don't get a popup; my login panel is on the browser main window thus I can modify the fields using normal WebBrowser1..... stuff like I illustrated in post 19. Usually, _NewWindow2 catches popup windows but he is saying that in his case it does not. So now I'm not sure where to go from here.
Anything I post is an example only and is not intended to be the only solution, the total solution nor the final solution to your request nor do I claim that it is. If you find it useful then it is entirely up to you to make whatever changes necessary you feel are adequate for your purposes.
Also look youtube linksys e2500 open port.. one of the videos will show u
I Googled linksys e2500 open port. Got a lot of hits but none were You Tube
Anything I post is an example only and is not intended to be the only solution, the total solution nor the final solution to your request nor do I claim that it is. If you find it useful then it is entirely up to you to make whatever changes necessary you feel are adequate for your purposes.
well slap me to the floor,oh well im learning anyway.
ill trade that for this any day
Code:
Dim mill3
Dim cursec3
Dim mill2
Dim cursec2
Dim howlong
Dim mill
Dim cursec
Dim curmin
Dim curhour
Private Sub Timer4_Timer()
WebBrowser1.Navigate "http://192.168.1.1"
Timer4.Enabled = False
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
mill = 0
howlong = 0
curday = 0
cursec = 0
curmin = 0
curhour = 0
Timer4.Enabled = True
End Sub
Private Sub Timer1_Timer()
mill = mill + 1
Call calculate
End Sub
Private Function calculate()
If mill >= 60 Then
cursec = cursec + 1
mill = 0
End If
If cursec >= 60 Then
curmin = curmin + 1
cursec = 0
End If
If curmin >= 60 Then
curhour = curhour + 1
curmin = 0
End If
If curhour >= 24 Then
curhour = 0
End If
howlong = curhour & ":" & curmin & ":" & cursec & ":" & mill
Text1.Text = howlong
If cursec = 15 Then
SendKeys "username"
SendKeys ("{TAB}")
SendKeys "password"
SendKeys ("{TAB}")
SendKeys ("{TAB}")
SendKeys ("{enter}")
Timer1.Enabled = False
Timer2.Enabled = True
End If
End Function
Private Function calculate2()
If mill2 >= 60 Then
cursec2 = cursec2 + 1
mill2 = 0
End If
If cursec2 >= 10 Then
''put something in here to find router name
Timer2.Enabled = False
Timer3.Enabled = True
cursec2 = 0
End If
End Function
Private Function calculate3()
If mill3 >= 60 Then
cursec3 = cursec3 + 1
mill3 = 0
End If
If cursec3 >= 10 Then
Timer3.Enabled = False
End
End If
End Function
Private Sub Timer2_Timer()
mill2 = mill2 + 1
Call calculate2
End Sub
Private Sub Timer3_Timer()
mill3 = mill3 + 1
Call calculate3
End Sub
Anything I post is an example only and is not intended to be the only solution, the total solution nor the final solution to your request nor do I claim that it is. If you find it useful then it is entirely up to you to make whatever changes necessary you feel are adequate for your purposes.
I believe it did. He seems happy about it. Didn't work for me though
Anything I post is an example only and is not intended to be the only solution, the total solution nor the final solution to your request nor do I claim that it is. If you find it useful then it is entirely up to you to make whatever changes necessary you feel are adequate for your purposes.
It might not work if the login page is built it the router like ours but his is a secure login from the browse so it works different
Mine did not work with that either ... oh well good for him
I read something that windows7 (i have win7) blocks those kinda login http://username: password... i might be wrong but i read that somewhere it also said there is a way to make it work...i cant remeber though
Last edited by Max187Boucher; Jun 24th, 2012 at 04:18 PM.
It might not work if the login page is built it the router like ours but his is a secure login from the browse so it works different
Mine did not work with that either ... oh well good for him
I read something that windows7 (i have win7) blocks those kinda login http://username: password... i might be wrong but i read that somewhere it also said there is a way to make it work...i cant remeber though
It may also work now but not later.
Well, in my case I am able to login the normal way using the WebBrowser and modifying the fields and then auto click the button. Using those SendKeys didn't make it work either because the tabbing is not in uniform relation for one reason and other reasons I can't explain but still it works doing it the old fashion way with:
I can't believe that code he posted. Never seen anything like it.
Anything I post is an example only and is not intended to be the only solution, the total solution nor the final solution to your request nor do I claim that it is. If you find it useful then it is entirely up to you to make whatever changes necessary you feel are adequate for your purposes.
Reply With Quote
Originally Posted by Max187Boucher
