求：vfp 如何在指定的网页输入密码、用户名并登录 - VFP论坛

第 11 楼

得分:0

没用过VFT，不过方法应该一样，
给一个WEBbrowser,读取指定网址，
读取webbrowser中元素属性，更改

http://toorup.3v.do
loading...

第 12 楼

得分:0

回复 10楼吹水佬

吹水佬老师
您就这样把我拒绝了！
还是？

第 13 楼

得分:0

记得梅子论坛有一遍文章和你的要求差不多，搜索登录看看

坚守VFP最后的阵地

第 14 楼

得分:0

以下是引用wangjiayu45在2018-11-15 13:36:46的发言：

吹水佬老师
您就这样把我拒绝了！
还是？

看来不是记不记得住那么简单。
解决这类问题针对性很强，必需用实际数据实地测试，没有通用性，举不了示例。
太被动了，就算今天能正常运行，分分钟都有可能挂了。
挂了，又要去折腾，说不定后来加上什么加密验证会折腾死你。

第 15 楼

得分:0

我的出勤点到与点退是内网，家里的电脑无法登录。

目前的解决办法是手机里装个“向日葵”软件，电脑上也装上，电脑24小时开着，这样手机上就可以控制签到了。

只求每天有一丁点儿的进步就可以了

第 16 楼

得分:0

14楼说的没错，要针对某个网页写的，有的简单，有的非常复杂

第 17 楼

得分:0

试了一下，VB中是可以按设定好的登陆后一步步操作下去：

程序代码：

Public i As Integer



Private Sub Form_Load()

WebBrowser1.Navigate "***.com"

i = 1                  '通过全局变量i来确认当前加载到哪一个页面

End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Set doc = WebBrowser1.Document


If WebBrowser1.ReadyState = READYSTATE_COMPLETE Then   '确认webbrowser1已加载完下载的内容
Select Case i

Case 1
doc.body.All("password").Value = "******"          '输入文本框内容,输入密码登陆
doc.body.All("submit").Click                             '触发按扭
i = 2


Case 2
doc.body.All("品牌查询").Click
i = 3


Case 3
doc.body.All("customers").Value = "红蜻蜓"  '选中OPTION
doc.body.All("customers").onchange          '触发网页中select option的onchange事件
i=4


End Select

End If
End Sub

http://toorup.3v.do
loading...

第 18 楼

得分:0

回复 17楼 icecool

谢谢！没试成功。
我要登录的是一个内部网络

http://192.168.21.4/Login.html

首页源码：
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<html xmlns="http://www.
<head>
    <meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
    <meta http-equiv="X-UA-Compatible" content="IE=7"/>
    <meta http-equiv="Expires" content="0" />
    <meta http-equiv="Cache-Control" content="no-cache" />
    <meta http-equiv="Pragma" content="no-cache" />
    <title>区域健康信息平台</title>
    <link rel="icon" href="favicon.ico">
    <link href="MainImage/login.css" type="text/css" rel="Stylesheet" />
    <script src="Scripts/jquery-1.4.1.min.js" type="text/javascript"></script>
    <script src="Scripts/Login.js" type="text/javascript"></script>
    <script type="text/javascript">
        $(document).ready(function () {
            jQuery.ajaxSetup({ cache: false });
            $.get("/Ajax/Default.aspx", { type: "GetLoginPage", ParameterKey: "OP" },
                function (result) {
                    if (result == "/MainManage/VktMain.aspx") {
                        window.open(result, "_self");
                    }
                });
            $("#UserName").focus();
        });
    </script>
</head>
<body scroll="auto">
<form id="form1">
<div class="bodymain">
<div id="logo">
  <div id="form">
    <div class="left">
      <div class="user"><input id="UserName" class="text" onfocus="this.select()"  name="UserName"></div>
      <div class="pwd"><input id="Password" class="text" onfocus="this.select()"  value="" type="password" name="Password"></div>
    </div>
    <div class="right">
        <div id="Ggws_btn" class="submit"></div><div id="Ggws_reset" class="reset"></div>
    </div>
    <div class="bottom">
       <div style="float:left; font-size:14px;">技术支持：XXXXX信息技术有限公司  联系电话：010-88668888      Copyright © 2011 - 2018  XXXXX信息技术有限公司 版权所有 </div>
        <div style="float:right"><img src="MainImage/foot_logo.gif" width="161" height="35" /></div>
    </div>
  </div>
</div>
</div>
</form>
</body>
</html>

问：vfp 如何在指定的网页输入密码、用户名并登录
vfp 9.0
表名：yh.dbf    字段 yh.yhmc   yh.mm

写一代码实现：打开指定的网页，在网页上自动填写事先设定的用户名和密码 yh.yhmc   yh.mm  并登录。
比如打开 http://192.168.21.4/Login.html 并登录

第 19 楼

得分:0

VFP还能实现这些功能？万能的VFP呀！

泉城飞狐

第 20 楼

得分:0

回复 18楼 wangjiayu45

第14楼吹版讲的非常在理，网页上东西千变万化，没有固定的代码，只有思路、技术交流。
我将首页源代码另存为test.html测试成功，见图。
思路：利用变量名称填入变量即可实现，哈哈……

[此贴子已经被作者于2018-11-17 10:50编辑过]