以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  项目需求  (http://foxtable.net/bbs/list.asp?boardid=6)
----  找高手开发项目  (http://foxtable.net/bbs/dispbbs.asp?boardid=6&id=26162)
--  作者：祁阳
--  发布时间：2012/11/26 12:23:00
--  找高手开发项目

    本人利用Foxtable开发了一个管理项目，前景可期。但在完美项目技术上感到有一些困难，想打技术合作伙伴。

    要求：1.Foxtble元老级技术人员。

            2.熟练vb.net。

            3.熟练Lis系统。

    回报：以万计，具体见面详谈。

    联系电话：15111648184；QQ：813319662
--  作者：blackzhu
--  发布时间：2012/12/1 12:00:00
--  
呵呵,第一点符合 第二 第三点 不符合. 期待合作  QQ: 854595005  喜欢这个合作方式.
--  作者：goldcicada
--  发布时间：2012/12/1 14:10:00
--  
\'操作网页标题
Dim webTitle As String = "ufo吧_百度贴吧"
\'操作网页地址
Dim webUrl As String = "http://tieba.baidu.com/f?kw=UFO"
\'操作网页元素ID
Dim elements() As String = New String(){"wd1"}
\'获取表格第一个单元数据
Dim tableValue As String = Tables("表A").Rows(0)("第一列")
\'填写内容
Dim values() As String = New String(){tableValue}
\'提交按钮ID
Dim submit As String = "search_submit"
\'返回地址同测试页
Dim backUrl As String = ""
\'是否返回到测试页
If Forms("IEControlTest").Controls("CheckBox1").Checked = True Then
    backUrl  = webUrl
End If
\'开始提交数据到网页
Try
    IEControl.SubmitValuesToWeb( _
         webTitle, _
         webUrl, _
         elements, _
         values, _
         submit, _
         backUrl, _
         300)
    MsgBox("测试成功!")
Catch ex As Exception
    MsgBox(ex.Message)
End Try
--  作者：lihe60
--  发布时间：2012/12/1 15:01:00
--  

没有看明白，请3楼阐述一下。
--  作者：goldcicada
--  发布时间：2012/12/1 15:31:00
--  
 在3楼，我是根据1楼作者的要求开发出来的，用foxtable控制IE页面示例的源码部分。
--  作者：lihe60
--  发布时间：2012/12/2 12:43:00
--  
3档的代码能直接运行吗？
--  作者：goldcicada
--  发布时间：2012/12/2 16:53:00
--  
 不能，IEControl.SubmitValuesToWeb()这个调用过程需要一个IEControl.dll的插件。
这个插件不是公开的。
--  作者：lihe60
--  发布时间：2012/12/2 20:55:00
--  
以下是引用goldcicada在2012-12-2 16:53:00的发言：
 不能，IEControl.SubmitValuesToWeb()这个调用过程需要一个IEControl.dll的插件。
这个插件不是公开的。
就是说这个代码是水中月，只可欣赏了！