- 最後登錄
- 2024-3-29
- 在線時間
- 0 小時
- 註冊時間
- 2007-5-12
- 閱讀權限
- 70
- 精華
- 0
- UID
- 1286899
- 帖子
- 1412
- 積分
- 17880 點
- 潛水值
- 38207 米
| 給你,我很久以前寫的一個範例
- Imports System.Net
- Imports System.Web
- Imports System.Text
- Public Class Login
- Dim Eyny_MyloginURL As String = "http://www.eyny.com/logging.php?action=login"
- Public Sub Loading() '等待網頁讀取完成
- Do Until MyWeb.WebBrowser1.ReadyState = WebBrowserReadyState.Complete
- Application.DoEvents()
- Loop
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- ' Input (TagName)
- ' username (ID)
- ' password (PS)
- Dim MyGetWebName As String
- MyWeb.WebBrowser1.Navigate(Eyny_MyloginURL)
- Loading()
- For Each MyLogin As HtmlElement In MyWeb.WebBrowser1.Document.All
- If MyLogin.TagName = "INPUT" Then
- MyGetWebName = MyLogin.GetAttribute("name").ToString
- Select Case MyGetWebName
- Case "username"
- MyLogin.SetAttribute("value", TextBox1.Text)
- Case "password"
- MyLogin.SetAttribute("value", TextBox2.Text)
- 'loginsubmit
- 'If MyLogin.GetAttribute("Value").Equals("登錄", StringComparison.CurrentCultureIgnoreCase) Then
-
- End Select
-
- End If
- If MyLogin.GetAttribute("name") = "loginsubmit" Then
- MyLogin.DomElement.click()
- Exit For
- End If
- Next
- End Sub
- Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
- MyWeb.WebBrowser1.Navigate(Eyny_MyloginURL)
- Loading()
- MyWeb.Show()
- End Sub
- End Class
複製代碼 Myweb 的 請自己 創一個 From 然後 裡面只要放 WebBroweser 控件就好
... |
|