皮皮网

【简洁影视APP源码】【.so 源码】【源码投稿】seckill源码

时间:2024-11-28 20:14:29 来源:opcServer端源码 作者:程序包源码

1.VB如何访问某一网页

seckill源码

VB如何访问某一网页

       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="%" border="0" cellspacing="0" cellpadding="2">

        <tr>

        <td width="%" align="center">用户:</td>

        <td width="%" align="left">

        <input name="LoginName" type="text" id="LoginName" size="">

        </td>

        </tr>

        <tr>

        <td width="%" align="center">密码:</td>

        <td width="%" align="left">

        <input name="LoginPassword" type="password" id="LoginPassword" size="">

        </td>

        </tr>

        </table>

        <input type = "submit" id = "clickme" value = "提交">

        </FORM>

        </body>

        </html>

       很简单的页面,在上面有一个登录的简洁影视APP源码 Form,一个用户名输入框 LoginName,.so 源码一个密码输入框LoginPassword 和一个提交按钮 clickme,源码投稿然后用 IE 打开这个页面,捆绑源码注意页面的源码显示 title 设置为 testPage。然后打开 VBA,在工程中引用 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 = ""

        '提交

        Doc.body.All("clickme").Click

        End If

        Next

        End Sub

       自己参考一下,应该可以搞定....

关键词:app源码翻译成中文

copyright © 2016 powered by 皮皮网   sitemap