004_comission/armandarmand
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

update,

Browse Source
This commit is contained in:
louiscklaw
2025-02-01 01:59:56 +08:00
parent b3da7aaef5
commit 8719fe58b8
310 changed files with 6332 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
task1/task1-ticket1/_ref/Excel/Examples/usage_upload.bas Normal file
View File

@@ -0,0 +1,30 @@
Attribute VB_Name = "usage_upload"
Private Sub Upload_File_FF()
Dim file As String
file = ThisWorkbook.Path & "\mozilla_privacypolicy.pdf"
Dim driver As New ChromeDriver
driver.Get "http://the-internet.herokuapp.com/upload"
'Upload the file
driver.FindElementById("file-upload").SendKeys(file).Submit
'Stop the browser
driver.Quit
End Sub
Private Sub Upload_File_IE()
Dim file As String
file = ThisWorkbook.Path & "\mozilla_privacypolicy.pdf"
Dim driver As New IEDriver
driver.Get "http://the-internet.herokuapp.com/upload"
'Upload the file
driver.FindElementById("file-upload").SendKeys(file).Submit
'Stop the browser
driver.Quit
End Sub