vfp 自动填写网页

最新推荐文章于 2022-10-10 14:17:18 发布

fyfcom

最新推荐文章于 2022-10-10 14:17:18 发布

阅读量3.5k

点赞数 1

分类专栏：软件工程文章标签： 2010 apple command microsoft mysql object

软件工程专栏收录该内容

4 篇文章 0 订阅

订阅专栏

http://topic.csdn.net/u/20100818/10/02013645-7e0a-426c-a5b3-0b298a8a9a47.html

回4楼:

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

"document不是一个对象"

对我有用[0]
丢个板砖[0]
引用
举报
管理
TOP

回复次数： 19

xilaianzxsc
(xilaianzxsc)
等　级：

#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

对我有用[0]
丢个板砖[0]
引用
举报
管理
TOP

精华推荐：关于项目相互引用的问题

FOXHENGXING
等　级：

#2楼得分：0回复于：2010-08-20 16:21:50

楼主你这样问真不是办法,有什么问题先GOOGLE了再说,不要走一步就问一下,是人看到你这样问法都怕了

对我有用[0]
丢个板砖[0]
引用
举报
管理
TOP

apple_8180
(十豆三)
等　级：
11

17

25

#3楼得分：0回复于：2010-08-20 16:29:08

看一下你添加到表单上的 ActiveX 控件的 OleClass 是什么？

上面代码我是好用的。

对我有用[0]
丢个板砖[0]
引用
举报
管理
TOP

精华推荐： mysql的查询语句的排序问题

xilaianzxsc
(xilaianzxsc)
等　级：

#4楼得分：0回复于：2010-08-20 16:32:51

表单上的 ActiveX 控件的 OleClass 是空,什么内容也没有.

而且是灰色的,不可以写入东西

对我有用[0]
丢个板砖[0]
引用
举报
管理
TOP

精华推荐：主表单以动画的形式从屏幕中向四周扩散，最后至最大化

apple_8180
(十豆三)
等　级：
11

17

25

#5楼得分：0回复于：2010-08-20 16:50:30

灰色是对的，不过应该有内容，应该是：Shell.Explorer.2

对我有用[0]
丢个板砖[0]
引用
举报
管理
TOP

精华推荐：管理mysql的客户端工具

xilaianzxsc
(xilaianzxsc)
等　级：

#6楼得分：0回复于：2010-08-20 16:52:38

那我这里面没有东西在里面,该怎么办呢?

对我有用[0]
丢个板砖[0]
引用
举报
管理
TOP

apple_8180
(十豆三)
等　级：
11

17

25

#7楼得分：0回复于：2010-08-20 16:58:04

换个计算机试一下。
如果没有其他计算机，试着重装系统或安装个IE8试试。

对我有用[0]
丢个板砖[0]
引用
举报
管理
TOP

xilaianzxsc
(xilaianzxsc)
等　级：

#8楼得分：0回复于：2010-08-20 17:01:22

好的. 我来试一下

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

明天哦.

明天告诉你结果.

谢谢你了,老师.

对我有用[0]
丢个板砖[0]
引用
举报
管理
TOP

dkfdtf
(都市夜猫)
等　级：

#9楼得分：0回复于：2010-08-20 23:08:03

只有等网页下载完成后，解析器才会构造出需要的对象，而下载完整个网页是需要时间的，特别是在网页内容较多或网速较慢的情况下。

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

这样你可以看到，网页是在什么时候下载完成并启用按钮的。

对我有用[0]
丢个板砖[0]
引用
举报
管理
TOP

xilaianzxsc
(xilaianzxsc)
等　级：

#10楼得分：0回复于：2010-08-21 08:24:23

回十豆三老师:

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

回都市夜猫老师:
没有找到 OleWebBrowse 控件的 DocumentComplete 属性,我是不是要增加一下属性?

对我有用[0]
丢个板砖[0]
引用
举报
管理
TOP

xilaianzxsc
(xilaianzxsc)
等　级：

#11楼得分：0回复于：2010-08-21 08:26:55

同时,我在VFP 6.0和VFP 9.0环境下都测试过了, OleClass 始终是灰色,且为空.

对我有用[0]
丢个板砖[0]
引用
举报
管理
TOP

xilaianzxsc
(xilaianzxsc)
等　级：

#12楼得分：0回复于：2010-08-21 08:27:43

当然,我用VFP 6.0,只是想测试一下.

正常情况下,我都用VFP 9.0最新版本.

对我有用[0]
丢个板砖[0]
引用
举报
管理
TOP

apple_8180
(十豆三)
等　级：
11

17

25

#13楼得分：0回复于：2010-08-21 09:37:01

DocumentComplete 属性是此控件自带的属性，网页加载完成后发生此事件。

对我有用[0]
丢个板砖[0]
引用
举报
管理
TOP

xilaianzxsc
(xilaianzxsc)
等　级：

#14楼得分：0回复于：2010-08-21 09:48:25

确实没有找着 DocumentComplete 属性.

恕在下愚钝. 我是严格按照1楼的操作步骤做的,就是没有找着此控件.

对我有用[0]
丢个板砖[0]
引用
举报
管理
TOP

apple_8180
(十豆三)
等　级：
11

17

25

#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