----
----
----
VB6源码 webbrowser 网抓 自动登录网页批量下载文件 IE下载弹窗控制,网页元素控制等!!..., 另存为句柄, 确认另存为句柄, 取消句柄 As Long
Dim 文件保存1, 文件保存2, 另存为, 取消窗体 As Long
Dim 点击按钮1, 点击按钮2, 是按钮, 取消按钮...As Long
文件下载窗口句柄 = FindWindow("#32770", "文件下载")
If 文件下载窗口句柄 0 Then
SetWindowPos 另存为句柄, -1..., 0, 0, 0, 0, 2 Or 1
ShowWindow 文件下载窗口句柄, SW_SHOW
文件保存1 = FindWindowEx(文件下载窗口句柄, 0&,...(另存为句柄, 0&, "Button", "保存(&S)")
点击按钮2 = PostMessage(文件保存2, WM_LBUTTONDOWN, &H0, &H0)