如何使用HttpRequest? [英] how to use HttpRequest?

问题描述

Imports System.Text

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim UserName As String = "UserName"
        Dim PasswordToUse As String = "Password"
        Dim AuthHeader As String = "Authorization: Basic " + Convert.ToBase64String(Encoding.ASCII.GetBytes(Convert.ToString(UserName & Convert.ToString(":")) & PasswordToUse)) & vbCr & vbLf
        WebBrowser1.Navigate("http://" & "admin" & ":" & "admin" & "@" & "192.168.8.1", Nothing, Nothing, AuthHeader)
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        ' Go To Wireless MAC Filtering
        For Each xFream As HtmlWindow In WebBrowser1.Document.Window.Frames
            If xFream.Name.Equals("bottomLeftFrame") Then
                For Each xEle As HtmlElement In xFream.Document.GetElementsByTagName("a")
                    If xEle.Id.Equals("a10") Then
                        xEle.InvokeMember("click")
                    End If
                Next
            End If
        Next
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        ' Try To Click The Button
        For Each xFream As HtmlWindow In WebBrowser1.Document.Window.Frames
            If xFream.Name.Equals("mainFrame") Then
                For Each xEle As HtmlElement In xFream.Document.GetElementsByTagName("input")
                    If xEle.Name.Equals("Enfilter") Then
                        xEle.InvokeMember("click")
                    End If
                Next
            End If
        Next
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        For Each xFream As HtmlWindow In WebBrowser1.Document.Window.Frames
            If xFream.Name.Equals("mainFrame") Then
                For Each xEle As HtmlElement In xFream.Document.GetElementsByTagName("td")
                    If xEle.GetAttribute("ClassName").Equals("emp") Then
                        If xEle.InnerText.Contains("Disabled") Then
                            TextBox1.Text = "Disabled"
                        Else
                            TextBox1.Text = "Enabled"
                        End If
                        Exit For
                    End If
                Next
            End If
        Next
    End Sub
End Class

在这里我在vb.net中使用了 WebBrowser

here i used WebBrowser in vb.net

加入我的路由器面板，然后转到无线> 无线MAC过滤

to join to my router panel and go to Wireless > Wireless MAC Filtering

在他单击按钮以启用/禁用后

after he will click to button enabled/disabled

好吧，我需要在没有 WebBrowser

well i need use this idea without WebBrowser

仅 HttpRequest

在此行:

WebBrowser1.Navigate("http://" & "admin" & ":" & "admin" & "@" & "192.168.8.1", Nothing, Nothing, AuthHeader)

http://user:password @ ip

http://user:password@ip

绕过防火墙路由器并加入路由器面板

to bypass firewall router and join to router panel

推荐答案

WebRequest.AuthenticationLevel Property - Maybe this would be necessary if kerberos authentication is used with your router.

HttpWebRequest.Credentials财产 -也许可以.

HttpWebRequest.Credentials Property - Maybe this would work.

这篇关于如何使用HttpRequest?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！