本人利用Foxtable开发了一个管理项目,前景可期。但在完美项目技术上感到有一些困难,想打技术合作伙伴。
要求:1.Foxtble元老级技术人员。
2.熟练vb.net。
3.熟练Lis系统。
回报:以万计,具体见面详谈。
联系电话:15111648184;QQ:813319662
呵呵,第一点符合 第二 第三点 不符合. 期待合作 QQ: 854595005 喜欢这个合作方式.
'操作网页标题
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
在3楼,我是根据1楼作者的要求开发出来的,用foxtable控制IE页面示例的源码部分。
不能,IEControl.SubmitValuesToWeb()这个调用过程需要一个IEControl.dll的插件。
这个插件不是公开的。
以下是引用goldcicada在2012-12-2 16:53:00的发言:
不能,IEControl.SubmitValuesToWeb()这个调用过程需要一个IEControl.dll的插件。
这个插件不是公开的。
就是说这个代码是水中月,只可欣赏了!