主题：[求助]求教一个高端的问题！！

此主题相关图片如下：未命名.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>

 

 

请问该如何写代码啊

网上有个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

你发链接出来啊,找按钮得分析网页的哇

'你没给网页,所以没有测试

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 

出现这个错误  而且发现不是用的默认的网页 还是用的internet自带的浏览器哎

 

此主题相关图片如下：121.jpg

<!-- 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">请点击这里进行注册&gt;&gt;&gt;</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