用Visual Basic

-2

自動登錄表單，我需要做的Visual Basic 10.0自動登錄表單應用下面的代碼：用Visual Basic

</script> 
    <body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0"> 
     <table cellpadding="0" cellspacing="0" border="0" height="100%"> 
      <tr> 
       <td rowspan="10" width="50%" height="100%" background="images/bg1222.jpg" style="background-position:right top; background-repeat:repeat-y"></td> 
       <td rowspan="10" width="1" bgcolor="#000000"></td> 
       <td valign="top"> 
        <table cellpadding="0" cellspacing="0" border="0"> 
         <tr> 
          <td width=100%> 
           <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="778" height="153"> 
            <param name="movie" value="images/hed2.swf"> 
            <param name="quality" value="high"> 
            <embed src="images/hed2.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="778" height="153"></embed> 
           </object> 
          </td> 
         </tr> 
        </table> 
       </td> 
       <!--<td rowspan="10" width="0" bgcolor="#000000"></td>--> 
       <td rowspan="10" width="50%" height="100%" background="images/bg1223.jpg" style="background-position:left top; background-repeat:repeat-y"></td> 
      </tr> 
      <tr> 
       <td width="780" height="30" align="center" valign="bottom" background="images/footer.gif"></td> 
      </tr> 
      <tr> 
       <td height="583" valign="top" style="background-repeat:repeat-y;" > 
       <br><br><br><br><br><br><br> 
       <center> 
        <form action="/cse/login/login1_check.jsp" name="first" method="post"> 
         <table width="25%" height="90" border="0" class='formtable1'> 
          <caption align="top"> 
           <strong> User Login </strong> 
           <br> 
          </caption> 
          <tr> 
          </tr> 
          <tr> 
           <td width="24%" height="32"> 
            <div align="right"> User ID: </div> 
           </td> 
           <td width="76%"> 
            <label> 
             <input name="uid" type="text" > 
            </label> 
           </td> 
          </tr> 
          <tr> 
           <td height="43"> 
            <div align="right"> Password: </div> 
           </td> 
           <td> 
            <label> 
             <input name="password" type="password" > 
            </label> 
           </td> 
          </tr> 
         </table> 
         <input type="submit" name="sub" value="Login"> 
        </form> 
       </center>`enter code here`

說用戶名是user和密碼是pass。

它應該被自動填充並單擊提交按鈕。 Visual Basic 10.0的代碼是什麼？

來源

2013-06-19 user2203863

首先，您需要承擔一切要以互動的元素。如果他們有一個ID，你並不需要搜索，簡單地獲得與元素：

Dim elem As HtmlElement = Webbrowser1.Document.GetElementById("myId")

如果沒有，你需要搜索你的，例如：

Dim inputs As New List(Of HtmlElement)(a.Document.GetElementsByTagName("input")) 

For Each elem As HtmlElement In inputs 
    If elem.GetAttribute("name").Equals("uid") Then 
     '... 
    End If 
Next

要設置一個輸入的值：

elem.SetAttributte("value", passwordVar)

要點擊可點擊的元件（例如一個提交輸入）：

elem.InvokeMember("submit")

或者：

elem.InvokeMember("click")

來源

2013-06-19 14:54:33 SysDragon

試試這個：

If Not String.IsNullOrEmpty(My.Settings.Username) And Not String.IsNullOrEmpty(My.Settings.Password) Then 
     TxtUsername.Text = My.Settings.Username 
     TxtPassword.Text = My.Settings.Password 
End If

來源

2013-06-19 14:25:54 coder

這不是一個完整的解決方案 – user2203863

所以不如自己編寫代碼...這只是給你一個想法如何implement..we不會寫代碼的你。 – coder

回答

相關問題