|
如题,在填写表单的时候会遇到编辑器,比如百度博客新浪博客和讯博客等
百度博客 用inet控件正确提交
新浪 得一高手代码,用webbrowser 成功提交
和讯 用inet 提交 总是不成功,改了n次参数,用webbrowser 正文无法填写
关于这类的编辑框 有会填写的么
大家一起讨论下
这个算是webbrowser 应用里比较难一点的
最后给出新浪填写这类内容的核心
关键是一个函数 如下
Private Sub panduan()
On Error Resume Next
Dim x
For Each x In WebBrowser1.Document.All("editorContainer")
If strnum = 0 Then
x.Checked = 1 '如果只想模拟点击获取焦点就把这行去掉
x.FireEvent ("onclick")
ElseIf strnum = 1 Then
x.Checked = 0
x.FireEvent ("onclick")
End If
Next
End Sub
抛砖引玉 共同探讨
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
|