31 lines
692 B
QBasic
31 lines
692 B
QBasic
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
|