[RESOLVED] identity your own router

Ummm....strange. That's what _NewWindow2 is for.

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?

Quote:

---

Originally Posted by Max187Boucher

Have you tried
http://username: [email protected]/
Sorry no space before password but if i write : p it does :p

---

That probably won't work. It doesn't work for my login

jmsrickland look at this
See the login picture i guess this is what he gets

Also look youtube linksys e2500 open port.. one of the videos will show u

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.

Quote:

---

Originally Posted by Max187Boucher

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

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

---

thank yall so much im off to the next part.
many thanks

I meant to go to youtube.com and search for linksys e2500 open port

ill trade that for this any day

???????

this works way faster WebBrowser1.Navigate "http://username:[email protected]/"

Did that work "http://username: [email protected]/"?

I believe it did. He seems happy about it. Didn't work for me though

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

Quote:

---

Originally Posted by Max187Boucher

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:

WebBrowser1.Document.All.Item("user_name").Value = Username
WebBrowser1.Document.All.Item("passwd1").Value = Password
WebBrowser1.Document.All.Item("SendPassword").Click

I can't believe that code he posted. Never seen anything like it.