IT学习者 | 文章大全 | 技术文档 | 桌面壁纸 | 网络电台 | 成语 | 歇后语 | 站长导航 | 下载 | 周公解梦 | 生日密码 | 站长助手 | Flash | IP地址查询
 您现在的位置: 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

相 关 文 章
相 关 软 件

音乐
嫁衣 画心 放生 天亮了 牡丹江 那滋味 擦肩而过 怀念过去 北京欢迎你 突然好想你 吻的太逼真 说好的幸福呢 坐上火车去拉萨 没有人比我更爱你
愚爱 心碎 稻香 带我走 醉赤壁 魔杰座 我还想她 明天过后 一定要爱你 等爱的玫瑰 原谅我一次 越单纯越幸福 最后一次的温柔 给我一首歌的时间
白狐 光荣 降临 下雨天 小酒窝 樱花草 恋爱新手 说唱脸谱 红色高跟鞋 寂寞才说爱 深深爱过你 爱上你是个错 即使知道要见面 不是因为寂寞才想你
城府 假如 花海 兰亭序 棉花糖 舍不得 最后一次 女人如烟 外滩十八号 我们的纪念 我们的无奈 心在跳情在烧 爱上你是我的错 爱情里没有谁对谁错
加入收藏留言建议自助友情链接普通友情链接站长的Blog
版权所有   COPYRIGHT 2002-2009 ★IT学习者★ ALL RIGHTS RESERVED.