- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]求教一个高端的问题！！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=22032)
-- 发布时间：2012/7/31 16:40:00
-- [求助]求教一个高端的问题！！
此主题相关图片如下：未命名.jpg
图片是登录后的网页 有个发布按钮
如何自动点击啊 我现在是用
Dim Proc As New Process
Proc.File="..."
Proc.Start()
自动打开这个网站的 找遍论坛没有 貌似要用到html的知识 我查看了下网页的源代码
| <input type="hidden" name="dd" value="扬州?username=yzht" > | |
| <table width="700" border="0" align="center"> | |
| <tr> | |
| <td width="69"> | |
| <input type="checkbox" id="selall" /> | |
| 全选 | |
| </td> | |
| <td width="200"> | |
| <input type="button" value="发布" id="publish" /> | |
| <input type="reset" value="重新选择" /> | |
| </td> | |
| <td align="right"> | |
| <input type="hidden" name="orderstr" id="orderstr" /> | |
| <input type="hidden" name="orderchanged" id="orderchanged" /> | |
| </td> | |
| <td width="180" style="border: 1px solid #00f"> | |
| <input name="taohong" type="checkbox" value="ok" /> | |
| 是否套红 <font color=red>剩余次数: 9 | |
| </td> | |
| </tr> | |
| </table> | |
| <table width="700" border="0" align="center" style="margin-top: 25px;"> | |
| <tr> | |
| <td> | |
| <ul> | |
| <li>点击“上移”、“下移”链接调整工作岗位显示顺序。</li> | |
| <li>调整完成后需点击“发布”按钮重新将岗位发布至首页后方可生效。</li> | |
| </ul> | |
| </td> | |
| </tr> | |
| </table> | |
| </form> |
请问该如何写代码啊
-- 发布时间：2012/7/31 16:49:00
--
网上有个VB的源码 但是看不懂
Dim Dov As Object
Dim Tag As Object
Dim i As Integer
Set Dov = WebBrowser1.Document
For i = 0 To Dov.All.length - 1
If UCase(Dov.All(i).tagName) = "INPUT" Then
Set Tag = Dov.All(i)
If Tag.Type = "text" Then
Select Case Tag.Name
Case "name"
Tag.Value = "fisheep"
End Select
ElseIf Tag.Type = "submit" Then
Tag.Click
End If
End If
Next i
-- 发布时间：2012/7/31 17:44:00
--
你发链接出来啊,找按钮得分析网页的哇
-- 发布时间：2012/8/1 8:56:00
--
\'你没给网页,所以没有测试
Dim OjbIe As Object = CreateObject("InternetExplorer.Application")
With OjbIe
.Visible = True
.Navigate("这里输入你的网址")
Application.DoEvents
Do While .Busy
Application.DoEvents
Loop
.Document.getElementById("publish").Click
.Visible = True
End With
-- 发布时间：2012/8/1 9:47:00
--
出现这个错误 而且发现不是用的默认的网页 还是用的internet自带的浏览器哎
此主题相关图片如下：121.jpg
-- 发布时间：2012/8/1 9:59:00
--
| <!-- Page Header --> | |
| <table width="755" height="249" border="0" align="center" cellspacing="0" cellpadding="0"> | |
| <tr> | |
| <td background="/picture/oursite/zhuce1.jpg" height="60"></td> | |
| </tr> | |
| <tr> | |
| <td background="/picture/oursite/zhuce2.jpg" height="249" align="center"> | |
| <form method="post" action="login.asp"> | |
| <table width="227"> | |
| <tr> | |
| <td width="167" colspan="2" align="center"><font color="#008000">单位用户登录</font></td> | |
| </tr> | |
| <tr> | |
| <td width="100" align="right"><font size="2" color="#6A6601">用户名：</font></td> | |
| <td width="117"><input type="text" name="usern" size="14" maxlength="20" /></td> | |
| </tr> | |
| <tr> | |
| <td width="100" align="right"><font size="2" color="#6A6601">密 码：</font></td> | |
| <td width="117"><input type="password" name="pwd" size="14" /></td> | |
| </tr> | |
| <tr> | |
| <td width="217" colspan="2" align="center"> | |
| <input onclick="return cmd_onclick()" type="submit" value="登录" /> | |
| </td> | |
| </tr> | |
| <tr> | |
| <td width="217" colspan="2" align="center"> | |
| <br /> | |
| <a href="/company/" target="_blank"><font size="2" color="#5C60FB">请点击这里进行注册>>></font></a> | |
| </td> | |
| </tr> | |
| </table> | |
| <input type="hidden" name="url" value="/dwzp/syfb.asp?szdq=%D1%EF%D6%DD?username=yzht&password=68909" /> | |
| </form> | |
| </td> | |
| </tr> | |
| <tr> | |
| <td background="/picture/oursite/zhuce3.jpg" height="65"> | |
| </td> | |
| </tr> | |
| </table> | |
| <div id="footer"> |
此主题相关图片如下：1.jpg