vfp 自动填写网页

最新推荐文章于 2022-09-27 09:37:29 发布
最新推荐文章于 2022-09-27 09:37:29 发布
阅读量3.5k 收藏 3
点赞数 1
分类专栏： 软件工程 文章标签： 2010 apple command microsoft mysql object
http://topic.csdn.net/u/20100818/10/02013645-7e0a-426c-a5b3-0b298a8a9a47.html

回4楼:

运行结果,提示出错,出错内容为: 

"document不是一个对象"
 
 
回复次数： 19

 
#1楼 得分：0回复于：2010-08-20 15:50:55
我的步骤是:

1 工具-选项-控件-找到microsoft web 浏览器--勾上--确定

2 新建一个表单,新建ActiveX控件,更名为 OleWebBrowse

3 双击此控件,在init处写入代码 This.Navigate("http://www.lzk.hl.cn/ptgk/default.asp")

4 新建一个command按钮,在此按钮的Click里写上代码:

Thisform.OleWebBrowse.Document.Forms("form1").zkzh.Value="1234567890"
Thisform.OleWebBrowse.Document.Forms("form1").ksxm.Value="张三"
Thisform.OleWebBrowse.Document.Forms("form1").Submit

5 结果提示出错 "document不是一个对象"

我如何操作的,已经详细描述,请老师帮看看我哪里出错了?

我用的是vfp 9.0
 
精华推荐： 关于项目相互引用的问题
#2楼 得分：0回复于：2010-08-20 16:21:50
楼主你这样问真不是办法,有什么问题先GOOGLE了再说,不要走一步就问一下,是人看到你这样问法都怕了
 
精华推荐： 写了几篇oracle和mysql的对比文章，可惜对mysql还不是很熟悉。希望得到版主的指教
#3楼 得分：0回复于：2010-08-20 16:29:08
看一下你添加到表单上的 ActiveX 控件的 OleClass 是什么？

上面代码我是好用的。
 
精华推荐： mysql的查询语句的排序问题
#4楼 得分：0回复于：2010-08-20 16:32:51
表单上的 ActiveX 控件的 OleClass 是空,什么内容也没有.

而且是灰色的,不可以写入东西
 
精华推荐： 主表单以动画的形式从屏幕中向四周扩散，最后至最大化
#5楼 得分：0回复于：2010-08-20 16:50:30
灰色是对的，不过应该有内容，应该是：Shell.Explorer.2
 
精华推荐： 管理mysql的客户端工具
#6楼 得分：0回复于：2010-08-20 16:52:38
那我这里面没有东西在里面,该怎么办呢?
 
#7楼 得分：0回复于：2010-08-20 16:58:04
换个计算机试一下。
如果没有其他计算机，试着重装系统或安装个IE8试试。
 
#8楼 得分：0回复于：2010-08-20 17:01:22
好的. 我来试一下

今天试不成了,到点下班了.

明天哦.

明天告诉你结果.

谢谢你了,老师.
 
  • dkfdtf用户头像
  • dkfdtf
  • (都市夜猫)
  • 等　级：
#9楼 得分：0回复于：2010-08-20 23:08:03
只有等网页下载完成后，解析器才会构造出需要的对象，而下载完整个网页是需要时间的，特别是在网页内容较多或网速较慢的情况下。

这样试试：
1. 按钮的 Enabled 初始值设为 .F. 
2. WebBrowse 控件的 DocumentComplete 事件中写入：
  Thisform.Command1.Enabled = .T.

这样你可以看到，网页是在什么时候下载完成并启用按钮的。
 
#10楼 得分：0回复于：2010-08-21 08:24:23
回十豆三老师:

已经换了二台计算机试了。 && 还是老问题(OleClass 是空)
已经重装系统(我的电脑有一键还原功能). && 还是老问题(OleClass 是空)
安装IE8试试。 && 还是老问题(OleClass 是空)

回都市夜猫老师:
没有找到 OleWebBrowse 控件的 DocumentComplete 属性,我是不是要增加一下属性?
 
#11楼 得分：0回复于：2010-08-21 08:26:55
同时,我在VFP 6.0和VFP 9.0环境下都测试过了, OleClass 始终是灰色,且为空.
 
#12楼 得分：0回复于：2010-08-21 08:27:43
当然,我用VFP 6.0,只是想测试一下.

正常情况下,我都用VFP 9.0最新版本.
 
#13楼 得分：0回复于：2010-08-21 09:37:01
DocumentComplete 属性 是此控件自带的属性，网页加载完成后发生此事件。
 
#14楼 得分：0回复于：2010-08-21 09:48:25
确实没有找着 DocumentComplete 属性.

恕在下愚钝. 我是严格按照1楼的操作步骤做的,就是没有找着此控件.
 
#15楼 得分：80回复于：2010-08-21 10:24:39
VFP9.0
你新一下PRG程序，将以下代码粘到此PRG程序中，运行这个PRG程序试试：

SQL code 
            
            

             
             
             
             Public
             
              oform1

oform1
             
             =
             
             Newobject("form1")
oform1.Show

             
             Return
             
             

Define Class form1 
             
             As
             
              Form

    
             
             Top
             
              
             
             =
             
              
             
             0
             
             
    
             
             Left
             
              
             
             =
             
              
             
             0
             
             
    Height 
             
             =
             
              
             
             571
             
             
    Width 
             
             =
             
              
             
             933
             
             
    ShowWindow 
             
             =
             
              
             
             1
             
             
    DoCreate 
             
             =
             
              .T.
    Caption 
             
             =
             
              "Form1"
    WindowType 
             
             =
             
              
             
             1
             
             
    Name 
             
             =
             
              "form1"

    
             
             Add
             
              Object olewebbrowse 
             
             As
             
              OleControl 
             
             With
             
              ;
        
             
             Top
             
              
             
             =
             
              
             
             12
             
             , ;
        
             
             Left
             
              
             
             =
             
              
             
             12
             
             , ;
        Height 
             
             =
             
              
             
             540
             
             , ;
        Width 
             
             =
             
              
             
             804
             
             , ;
        Name 
             
             =
             
              "OleWebBrowse", ;
        OleClass 
             
             =
             
              "Shell.Explorer.
             
             2
             
             ", ;
        OleLCID 
             
             =
             
              
             
             1033
             
             

    
             
             Add
             
              Object command1 
             
             As
             
              CommandButton 
             
             With
             
              ;
        
             
             Top
             
              
             
             =
             
              
             
             107
             
             , ;
        
             
             Left
             
              
             
             =
             
              
             
             835
             
             , ;
        Height 
             
             =
             
              
             
             28
             
             , ;
        Width 
             
             =
             
              
             
             79
             
             , ;
        Caption 
             
             =
             
              "查询测试", ;
        Enabled 
             
             =
             
              .F., ;
        Name 
             
             =
             
              "Command1"

    
             
             Procedure
             
              olewebbrowse.DocumentComplete
        
             
             ***
             
              ActiveX Control Event 
             
             ***
             
             
        Lparameters pdisp, url
        Thisform.Command1.Enabled
             
             =
             
              .T.
    Endproc

    
             
             Procedure
             
              olewebbrowse.Init
        This.Navigate("http:
             
             //
             
             www.lzk.hl.cn
             
             /
             
             ptgk
             
             /
             
             default
             
             .asp")
    Endproc

    
             
             Procedure
             
              command1.Click
        Thisform.OleWebBrowse.Document.Forms("form1").zkzh.Value
             
             =
             
             "
             
             1234567890
             
             "
        Thisform.OleWebBrowse.Document.Forms("form1").ksxm.Value
             
             =
             
             "张三"
        Thisform.OleWebBrowse.Document.Forms("form1").Submit
    Endproc

Enddefine


 
 
#16楼 得分：0回复于：2010-08-21 10:30:26
OK了

谢谢老师
 
#17楼 得分：0回复于：2010-08-21 10:30:53
15楼的代码,会有许多人采用,绝对的.
 
#18楼 得分：0回复于：2010-08-21 10:32:55
真是太好了,越看越欢喜.
fyfcom
关注
专栏目录
vfp 生成html,利用VFP脚本开发动态Web系统
weixin_42512699的博客
06-05 1016
编写的一个软件系统VfpWeb，讨论了VfpWeb的功能、用途、特点及脚本程序的编写方法。提出利用VfpWeb进行网站设计制作的方案。网站设计 众所周知，VFP是一个数据库管理系统，对于中小型数据库，他是非常得心应手的，但利用VFP开发Web系统、制作网站，可能许多人都没听说过。制作网站最传统的方法就是用ASP，ASP脚本中可以使用VbScript与JavaScript两种脚本语言。下面要介绍的就...
VFP控制IE网页内容及对象赋值的方法
11-12
vfp取得IE网页内容及对象赋值的方法,利用VFP在INTERNET上制作数据库动态查询,在VFP里全屏幕开启一个IE窗口 , 如何检测是不连上Internet
利用WebBrowser自动填写网页上的表单
fengshielick的专栏
02-24 5789
procedure TForm1.db_writeClick(Sender: TObject); var o:oleVariant; err,js:string; i:integer; const mz:array[1..51] of string=('汉族','蒙古族','回族','藏族','维吾尔族','苗族','彝族','壮族','布依族', '朝鲜族','满族','侗族','瑶族','白族...
系统登录探究——（三）自动登录
chenqiang8644的博客
07-24 296
用户每天在同一台电脑用同一账号登录同一网站时，可以设置记住我功能，这样在一段时间内无需每天输入用户名密码登录。系统实现自动登录之前，用户肯定是在第一次登录（输入用户名密码）时设置了登录按钮下方的“记住我”选项框，系统记住了用户的登录信息，所以之后一段时间内用户无需输入。用户第一次登录系统时“记...
vfphtml_vfpwebbrowser_
10-03
vfp版的webview.在vfp中使用WebBrowser控件加载网页，并且交互动态绑定或取消与网页的点击事件并且支持内核是ie 或 Edge(edge使用的是chrome的内核哟)
表单格式自动填写小软件
09-15
创建的窗体中的信息自动填写网页表单，表单自动填充节省您的时间。 只需填写表格，连同所需的数据及表格自动填充将这些数据填入到您的网页表格。 - 使用表单自动填充，您可以填写表格，并填写和提交表单的自动。 -...
2021-2022计算机二级等级考试试题及答案No.15084.docx
10-28
- **VFP 表的结构**：表的结构主要取决于字段的数量、名称、类型和长度。 - **资源管理器的操作**：删除文件夹或程序项应使用“删除”而非“新建”命令。 - **WWW 的全称**：World Wide Web 的简称。 - **ASCII 编码...
2021-2022计算机二级等级考试试题及答案No.5199.docx
11-02
13. VFP（Visual FoxPro）属性：如果Print方法在窗体的Load事件过程中不起作用，可能是因为AutoRedraw属性值为false，这意味着自动重绘功能未开启。 14. VFP表达式：`.null..AND..F.`、`.null..OR..F.`、`.null.=....
2021-2022计算机二级等级考试试题及答案No.14434.docx
10-27
3. VFP主索引：在Visual FoxPro中，主索引只能在数据库表中建立，而非自由表。 4. 工作簿与工作表：在Excel中，工作簿是工作表的基础单元，每个工作簿可以包含多个工作表。 5. Java类修饰符：类可以使用public、...
2021-2022计算机二级等级考试试题及答案No.14876.docx
10-28
通过这种方式可以直接在用户的邮件客户端中打开新邮件窗口，并预先填写收件人地址。 ### 20. 触发器的概念及其类型 触发器是在响应某些动作时自动执行的SQL代码段。触发器的主要类型包括INSERT、DELETE和UPDATE...
vfp 生成html,Click a HTML button from VFP?
weixin_30467625的博客
06-05 117
Your reply is not relevant. I have found vb.net code is working. vb.net code is almost the same as vfp code. But I don't know why vfp code doesn't work.It seems click method in VFP cannot be linked t...
vfp 表生成html,vfp用代码生成htm
weixin_36397372的博客
06-08 277
SET SAFETY OFFSET TEXTMERGE ONSET TEXTMERGE DELIMITERS TO "##","##"SET TEXTMERGE TO temp.htm noshow\\\\\\My First VFP-HTML\\\\\\\\\Description\\You can use \the PrintWhen expression to change the font...
vfp 生成html,vfp教程之用FoxPro生成HTML文件
weixin_39676034的博客
06-05 345
在 当 前 的 许 多NOVELL 网 络 中， 数 据 平 台 仍 是 基 于DOS 的FoxPro 环 境， 一 般 工 作 站 均 是 无 盘 站， 但 领 导 查 询 用 的 工 作 站 往 往 配 制 较 好， 并 装 有WIN95 或WIN98 等 系 统， 如 果 只 用 于 数 据 查 询 或 简 单 数 据 处 理， 便 造 成 资 源 浪 费； 如 果 同 时 进 行 其 他 ...
vfp能不能编辑html代码,看实例学VFP：制作只能从顶层表单调用的系统主菜单
weixin_42165583的博客
06-20 386
-我们知道正常的VFP菜单都是显示在主屏幕(_screen)中的，但如果要使用顶层表单来做软件的主界面，_screen是要屏蔽掉的。这就产生了一个问题：_screen没有了，软件菜单该往哪里放呢？没有关系，可以使用只能从顶层表单中调用的菜单来解决这个问题，另外这种菜单的调用处是在顶层表单的init事件中，而不是在主程序中。本例来制作一个只能从顶层表单调用的系统主菜单MAIN.MPR，下一课我们将会...
vfp 生成html,[转载]vfp 做 b/s 的方法
weixin_29483167的博客
06-05 817
VFP 做B/S的新方法(二)前言：以前，我也和其他VFP爱好者一样，认为VFP的最大不足是不能做B/S应用开发，现在我已改变了看法，VFP完全可以胜任B/S应用开发，而且性能非常好，也很容易使用，问题的关键是你是否掌握好的开发方法。自从掌握ASP + COM编程方法后，我一直在探索VFP做B/S应用更好的开发方法，特别是寻找一种方法解决COM对象在Application级启动无法使用ASP内置对...
pc版的webview, vfp 使用WebBrowser与网页交互
benson
09-27 1875
使用WebBrowser网上的例子不多，而且网页的点击动作，怎样在vfp中响应，这个网上大多数的例子都是很多年前的，以前是ie6，在ie10或以上版本根本不行，于是自己摸索一返，并一一解决。 示例实现 1. 在vfp中执行js函数 2. 在vfp中查找网页相关的相素，并赋值或读取相关属性值 3. 在网页中加载单击事件委托，凡是元素具有id属性的点击事件，将会把当前元素的【#+id】对document.title进行赋值 从而触发vfp的中TitleChange事件,达到目的 4.发现在win1..
VFP调用Selenium入门篇（一）
加菲猫的VFP
09-27 842
我们可以认为“Selenium”它最大的贡献就是在于把原来java、c#、python才能玩的东西，VFP同样能搞,因为它支持的浏览器非常多：Chrome、Firefox、Microsoft Edge、Internet Explorer、Opera、Safari、QQ和360等浏览。• RegAsm.bat：用于注册dll，因为释放到你电脑以后，只是把文件放到磁盘上了，要让dll和tlb发挥作用，还需要向注册表中写入内容。当你不再需要V3时，用管理员权限运行这个bat，可以从注册表中移除写入的内容。
数据交换学习四：VFP通过上传数据到asp.net WebService。
feiyafei2008的专栏
03-16 1835
一、相关表格构*    创建username表并插入一些数据create table userinfo(用户名 c(10),密码 c(10),年龄 i)insert into userinfo values(胡书宾,1234576,24)insert into userinfo values(费青春,7777333,25)insert into userinfo
用VFP开发BS模式验证码的两个模式，让你网站更安全
加菲猫的VFP
12-28 596
网站上的验证码一般放在登录或注册页面。它的作用是保护网站安全，一般网站都要通过验证码来防止机器大规模注册，机器暴力破解数据密码等危害。 虽然有了验证码的存在，登录变得麻烦一点，但是对于网站安全来说，这个功能还是很有必要的。 我们利用VFP祺佑框架开发BS网站，也会遇上这样的问题，所以为了网站安全，也需要为我们开发的网页上加上验证码。 库和工具说明： 前端：vue+axios​ 后端：VFP祺佑三层开发框架 在网站上增加验证码，有两种方式：前端生成前端判断；后端生成后端判断。接下来我们详细阐述一下。 第一
VFP实现自动适应不同显示器分辨率的方法
资源摘要信息:"在VFP中获取显示器分辨率" 知识点： 1. 分辨率的重要性：分辨率是指在显示设备上显示的图像的清晰度，以水平和垂直像素的数目表示，例如1920*1200。高分辨率可以提供更清晰、更细致的图像，但在不同...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值