VB 如何自动单击网页中的按钮 80

请有时间看一看，谢谢。

尝试做一个隐藏的提交按钮，asp已经很久没有这样做了，不知道可以不行。

使用 WebBrowser 打开网页，通过 WebBrowser 操作 DOM 节点。

例如，将 i 调暗为整数

dim btns as object

set btns = "button") '在这里，你可以通过标签获取节点，也可以获取 ElementById。

for i = 0 to -1

if btns(i).innertext = "传送" thenbtns(i).click

exit for

end if

next i

其实你不需要点击这个按钮，你只需要找到这个按钮属于哪个表单，然后直接提交表单，这个按钮就是提交的功能，比如你可以这样写：

我已经很久没有写了，我不知道它是不是这样写的，但这就是它的工作原理。 如果要模拟点击，需要遍历网页中的所有元素，然后根据特征（如值）进行判断，然后调用此按钮的点击方法。

可以通过遍历来实现，如果只有一个按钮具有这样的属性，直接点击;

如果有多个具有此类属性的按钮，则对它们进行编号，当达到相应的数字时，单击它们。

希望对你有所帮助。

使用 Python 的 sendkeys 直接模拟键盘，并使用 ctype 扩展点击鼠标。 您需要做的就是在python中打开浏览器，键入**，找到按钮的坐标（固定在程序上），然后单击它。 然而，简单的可以很简单，而更复杂的必须考虑很多问题。

这并不难，有一个ID，直接使用GetElementByID即可。

前年，我用VB写了一个自动投票程序。 在半天内，数百名候选人投下了选票。

如果您想查看是否可以使用您指定的投票页面，请提供投票页面的**。

如果我的应用适用于你指定的投票页面，我会给你 VB**。

函数鼠标事件模拟鼠标单击。

声明：私有声明子鼠标事件库"user32" (byval dwflags as long, byval dx as long, byval dy as long, byval cbuttons as long, byval dwextrainfo as long)

用法：鼠标事件 mouseeventf leftdown， 0， 0， 0， 0'按左键。

dim vdoc, vtag

dim i as integer

set vdoc =

for i = 0 to - 1 '检测所有标签 if ucase（ ="span" then '查找 span 标记集 vtag =

if "zbpxvote(36, this);" then'单击“确定”按钮。

end if

end if

next i

计时器 dim a' 定义 a，a 是计时器的时间，如果 a +60000，则

单击按钮一次。

大概就是我工作上没有vb的原因。。。做你自己的研究。

间隔最大 65535，要实现更长的时间，您可以这样做：

set interval=1000，即一秒; 定义一个全局变量 m，用于记录分钟值，并在计时器事件过程中定义一个静态变量，用于记录秒数：

sub timer1_timer()

static n as long

n=n+1if n>59 then

m=m+1n=0end if

298 秒 = 4 分 58 秒。

if m=4 and n>=58 thencommand1_click

m=0n=0

end if

end sub

将 command1 click（） 方法添加到 timer1 的响应时间

第一种和第三种类型：表单表单提交：action=“重定向页面”。

具体如下： 解决计算机的常见问题。

1.硬盘控制器无法自动识别。

在安装系统时，使用非正版单个操作系统光盘容易出现此错误。 原因是非正版光盘自动加载的硬盘控制器驱动程序不能满足计算机本身的需求。 在这种情况下，建议将操作系统安装在正版 CD 上。

2. 手动更新错误的驱动程序。

Windows 操作系统工作正常，但手动更新驱动程序会显示硬盘控制器驱动程序更新错误，从而导致此故障。 解决方法是进入Windows系统的高级菜单，选择最后的正常配置，然后就可以正常进入系统了。

3. 由BIOS设置更改引起。

Windows操作系统没问题，但由于某些原因，用户修改了BIOS设置，导致0x0000007b失败。