The renewal maintenance has officially ended for Progress iMacros effective November 30, 2023.
This Wiki site will also no longer be moderated from the Progress side.
Thank you again for your business and support.
Sincerely, The Progress Team
Difference between revisions of "Get-Exchange-Rate.vbs"
Jump to navigation
Jump to search
Line 1: | Line 1: | ||
This script calls demo macro Wsh-Extract-Rate in tray mode. It extract exchange rate information and displays it to the user. | This script calls demo macro Wsh-Extract-Rate in tray mode. It extract exchange rate information and displays it to the user. | ||
− | '(c) | + | '(c) 2008 iOpus, Inc. |
Msgbox ("This example will retrieve the current exchange rate for US$, EURO and GBP. This macro will run in the system tray.") | Msgbox ("This example will retrieve the current exchange rate for US$, EURO and GBP. This macro will run in the system tray.") | ||
set iim1= CreateObject ("imacros") | set iim1= CreateObject ("imacros") | ||
− | |||
iret = iim1.iimInit ("-tray") | iret = iim1.iimInit ("-tray") | ||
iret = iim1.iimDisplay("Extract Example") | iret = iim1.iimDisplay("Extract Example") | ||
Line 17: | Line 16: | ||
s = "The following error occurred: " + iim1.iimGetLastError() | s = "The following error occurred: " + iim1.iimGetLastError() | ||
End If | End If | ||
− | |||
MsgBox s | MsgBox s | ||
Line 23: | Line 21: | ||
WScript.Quit(0) | WScript.Quit(0) | ||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
Macro code for Wsh-Extract-Rate: | Macro code for Wsh-Extract-Rate: |
Revision as of 16:37, 30 January 2008
This script calls demo macro Wsh-Extract-Rate in tray mode. It extract exchange rate information and displays it to the user.
'(c) 2008 iOpus, Inc. Msgbox ("This example will retrieve the current exchange rate for US$, EURO and GBP. This macro will run in the system tray.") set iim1= CreateObject ("imacros") iret = iim1.iimInit ("-tray") iret = iim1.iimDisplay("Extract Example") iret = iim1.iimSet("-tray", "") iplay = iim1.iimPlay("wsh-extract-rate") If iplay = 1 Then s = "One US$ costs " + iim1.iimGetLastExtract(1) + " EURO or " + iim1.iimGetLastExtract(2) + " British Pounds (GBP)" else s = "The following error occurred: " + iim1.iimGetLastError() End If MsgBox s iret = iim1.iimExit WScript.Quit(0)
Macro code for Wsh-Extract-Rate:
VERSION BUILD=300625 TAB T=1 TAB CLOSEALLOTHERS URL GOTO=http://www.iopus.com/imacros/demo/v6/extract.htm 'Get the values EXTRACT POS=28 TYPE=TXT ATTR=<TD<SP>class=bdytxt>* EXTRACT POS=29 TYPE=TXT ATTR=<TD<SP>class=bdytxt>*