网页上传文件怎么搞？

zslyx

直接click，弹出上传框再api不行。
有啥其它思路么？写个SCRIPT指定文件自动？
求指导！

https://www.kj009.net/web1/upload.aspx

zslyx

用selenium倒是很方便，但是selenium想要控制已经打开的网页只有chorme浏览器才行。

perfect131

selenium上传参考
Sub kong()
    Dim cd As New ChromeDriver
    cd.Start
    cd.Get "https://www.kj009.net/web1/upload.aspx"
    cd.FindElementByCss("input[type='file']").SendKeys (文件绝对路径)
End Sub

游乐缘

zslyx 发表于 2022-3-4 14:58
用selenium倒是很方便，但是selenium想要控制已经打开的网页只有chorme浏览器才行。

请问selenium怎样控制已经打开的网页？

zslyx

perfect131 发表于 2022-3-4 15:21
selenium上传参考
Sub kong()
    Dim cd As New ChromeDriver

SELENIUM试过可以。但是麻烦在一定要chrome，内部网网站插件只支持ie

zslyx

游乐缘 发表于 2022-3-4 15:24
请问selenium怎样控制已经打开的网页？

C:\Users\Administrator>"C:\Program Files (x86)\Google\Chrome\Application\chrome.exe" --remote-debugging-port=9999 --user-data-dir="D:\Temp"
chorme浏览器快捷方式后面加参数就行。

perfect131

IE上传

1. Sub kong()
   
2.     Dim IE As New SHDocVw.InternetExplorerMedium
   
3.     Set IE = CreateObject("InternetExplorer.Application")
   
4.     With IE
   
5.         .Navigate "https://www.kj009.net/web1/upload.aspx"
   
6.         .Visible = True
   
7.     End With
   
8.     While IE.Busy Or IE.readyState <> READYSTATE_COMPLETE
   
9.         DoEvents
   
10.     Wend
    
11.     'sendkeys
    
12.     Set filee = IE.document.getElementById("myfile")
    
13.     CompleteUploadThread "文件路径+文件名"
    
14.     filee.Focus
    
15.     SendKeys " "
    
16.     Stop
    
17. End Sub
    
18. Private Sub CompleteUploadThread(ByVal fName As String)
    
19.     Dim strScript As String, sFileName As String, wsh As Object
    
20.     Set wsh = VBA.CreateObject("WScript.Shell")
    
21.     '---Create VBscript String---
    
22.     strScript = "WScript.Sleep 1000" & vbCrLf & _
    
23.                 "Dim wsh" & vbCrLf & _
    
24.                 "Set wsh = CreateObject(""WScript.Shell"")" & vbCrLf & _
    
25.                 "wsh.SendKeys """ & fName & """" & vbCrLf & _
    
26.                 "wsh.SendKeys ""{ENTER}""" & vbCrLf & _
    
27.                 "wsh.SendKeys ""{ENTER}""" & vbCrLf & _
    
28.                 "wsh.SendKeys ""{ENTER}""" & vbCrLf & _
    
29.                 "Set wsh = Nothing"
    
30.     '---Save the VBscript String to file---
    
31.     '''vbs保存在 D 盘
    
32.     sFileName = "D:\zz_automation.vbs"
    
33.     Open sFileName For Output As #1
    
34.     Print #1, strScript
    
35.     Close #1
    
36.     '---Execute the VBscript file asynchronously---
    
37.     wsh.Run """" & sFileName & """"
    
38.     Set wsh = Nothing
    
39. End Sub

复制代码

perfect131

zslyx 发表于 2022-3-4 15:52
SELENIUM试过可以。但是麻烦在一定要chrome，内部网网站插件只支持ie

IE方法参考：
https://stackoverflow.com/questi ... up-file-upload-form

游乐缘

zslyx 发表于 2022-3-4 15:58
C:%users\Administrator>"C:\Program Files (x86)\Google\Chrome\Application\chrome.exe" --remote-debu ...

感谢回复。
请问这句是用Shell运行吗？是作为chrome对象在后续的代码中可以使用.FindElementByXPath之类的动作吗？

weizijingbo

你可以用Fiddler抓包看看，用的是什么上传方式，然后转换成那个数据格式POST上去就就行了