----
----
----
VB6源码 webbrowser 网抓 自动登录网页批量下载文件 IE下载弹窗控制,网页元素控制等!!....Top = 48 * 15
WebBrowser1.Left = 50
WebBrowser1.Silent = True
'建立空网页
WebBrowser1.Navigate...1, 点击按钮2, 是按钮, 取消按钮 As Long
文件下载窗口句柄 = FindWindow("#32770", "文件下载")
If 文件下载窗口句柄 0 Then
SetWindowPos...1 = PostMessage(文件保存1, WM_LBUTTONDOWN, &H0, &H0)
点击按钮1 = PostMessage(文件保存1, WM_LBUTTONUP, &H0...2 = PostMessage(文件保存2, WM_LBUTTONDOWN, &H0, &H0)
点击按钮2 = PostMessage(文件保存2, WM_LBUTTONUP, &H0