:onfire: I am excited!
My goal is to extract customer order information from an administrate page in the store and send it to the PayPal Virtual Terminal. This will reduce errors from
manual copying of data.
This code is only a proof of concept and does not transfer data to the PayPal Virtual Terminal (yet).
But I am getting closer to having a ZEN2PAY script.
The following script can be pasted into a text file and saved as something.vbs
Then double click on the file to launch 2 mini browsers and cross copy data.
'Start of vbscript
Set oIE_1 = WScript.CreateObject("InternetExplorer.Application")
'Set browser number 1 window properties.
oIE_1.left = 50
oIE_1.top = 50
oIE_1.height = 275
oIE_1.width = 360
oIE_1.menubar = 0
oIE_1.toolbar = 0
oIE_1.statusbar = 0
oIE_1.navigate("about:blank")
Do While oIE_1.Busy : Loop
Set oDoc_1 = oIE_1.Document
oDoc_1.writeln("<HTML><HEAD><TITLE>TITLE TEST 1</TITLE></HEAD>")
oDoc_1.writeln("<BODY><B>TEST 1</B>")
oDoc_1.writeln("<FORM NAME='TESTFORM1'>")
oDoc_1.writeln("<INPUT TYPE='TEXT' NAME='TEXT1'>")
oDoc_1.writeln("<INPUT TYPE='TEXT' NAME='TEXT2'>")
oDoc_1.writeln("</FORM></BODY></HTML>")
oIE_1.visible = 1
Set oIE_2 = WScript.CreateObject("InternetExplorer.Application")
'Set browser number 2 window properties.
oIE_2.left = 450
oIE_2.top = 50
oIE_2.height = 275
oIE_2.width = 360
oIE_2.menubar = 0
oIE_2.toolbar = 0
oIE_2.statusbar = 0
oIE_2.navigate("about:blank")
Do While oIE_2.Busy : Loop
Set oDoc_2 = oIE_2.Document
oDoc_2.writeln("<HTML><HEAD><TITLE>TITLE TEST 2</TITLE></HEAD>")
oDoc_2.writeln("<BODY><B>TEST 2</B>")
oDoc_2.writeln("<FORM NAME='TESTFORM2'>")
oDoc_2.writeln("<INPUT TYPE='TEXT' NAME='TEXT1'>")
oDoc_2.writeln("<INPUT TYPE='TEXT' NAME='TEXT2'>")
oDoc_2.writeln("</FORM></BODY></HTML>")
oIE_2.visible = 1
'Cross read and write from each browser
oDoc_1.testform1.text1.value = "TEST 1 TEXT"
oDoc_2.testform2.text1.value = "TEST 2 TEXT"
oDoc_1.testform1.text2.value = oDoc_2.testform2.text1.value
oDoc_2.testform2.text2.value = oDoc_1.testform1.text1.value
'End of vbscript
