IT学习者 | 文章大全 | 技术文档 | 桌面壁纸 | 实用查询 | 网络电台 | 成语 | 歇后语 | 网址 | 下载 | 周公解梦 | 生日密码 | 电视剧365 | Flash
 您现在的位置: IT学习者 >> 文章大全 >> 网络编程 >> VB学习

VB填充IE上的输入框并提交

【 来源:网络  更新时间:2006-8-9 | 字体:

VB填充IE上的输入框并提交
假设登录页面的HTML代码如下:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>
<head>
 <title>testPage</title>
</head>

<body>

<FORM name=chh method = "POST" action = "login.asp">

  <table width="100%" border="0" cellspacing="0" cellpadding="2">
    <tr>
      <td width="31%" align="center">用户:</td>
      <td width="69%" align="left">
       <input name="LoginName" type="text" id="LoginName" size="12">
      </td>
    </tr>
    <tr>
      <td width="31%" align="center">密码:</td>
      <td width="69%" align="left">
       <input name="LoginPassword" type="password" id="LoginPassword" size="12">
      </td>
    </tr>
  </table>
<input type = "submit" id = "clickme" value = "提交">
</FORM>
</body>
</html>


很简单的页面,在上面有一个登录的Form,一个用户名输入框LoginName,一个密码输入框LoginPassword和一个提交按钮clickme

 

然后用IE打开这个页面,注意页面的title设置为testPage。

 

然后打开VB,在工程中引用Microsoft internet controls:

Private Sub Command1_Click()
    Dim IEList As New ShellWindows
    Dim browser
    Dim Doc
   
    On Error Resume Next
   
    '遍历当前地浏览器窗口
    For Each browser In IEList
        '找到需要地IE窗口
        If browser.Document.Title = "testPage" Then
            '获得浏览器地文档对象
            Set Doc = browser.Document
           
            '填写用户名字段
            Doc.body.All("LoginName").Value = "eddie"
            '填写密码字段
            Doc.body.All("LoginPassword").Value = "123456"
           
            '提交
            Doc.body.All("clickme").Click
        End If
    Next
End Sub

相 关 文 章
相 关 软 件
逃生 放生 黄玫瑰 想太多 那滋味 擦肩而过 放手去爱 北京欢迎你 依然在一起 吻得太逼真 感动天感动地 坐上火车去拉萨 怎么会狠心伤害我
心碎 冲动 小太阳 别碰我 蒲公英 千山万水 改变自己 一定要爱你 等爱的玫瑰 陷入爱里面 北极星的眼泪 最后一次的温柔 亲爱的那不是爱情
光荣 火花 坏女人 日不落 樱花草 为你写诗 独家记忆 夏天的味道 寂寞才说爱 忘不掉的伤 爱上你是个错 第三者的第三者 地球人都知道我爱你
假如 相思 是非题 有缘人 舍不得 我的答铃 死而无憾 外滩十八号 越爱越难过 123木头人 和寂寞说分手 爱上你是我的错 爱情里没有谁对谁错
加入收藏留言建议自助友情链接普通友情链接站长的Blog
版权所有   COPYRIGHT 2002-2008 ★IT学习者★ ALL RIGHTS RESERVED.