Liebe alle,
anbei HÜ Gruppe 1!
Viele Grüße Katharina, Kenan, Hans
Code: /* create an object for IE */ myIE = .OLEObject~New("InternetExplorer.Application") myIE~Width = 1000 myIE~Height = 800 Say "current dimensions of IE are:" myIE~Width "by" myIE~Height /* set new dimensions and browse IBM homepage */ myIE~Width = 1280 myIE~Height = 1024 myIE~Visible = .True -- now show the window myIE~Navigate("https://www.ibm.com") /* wait for 5 seconds */ Call SysSleep 5
doc=myIE~document -- get loaded document source=doc~body~outerhtml /* wait for 10 seconds */ Call SysSleep 5
myIE~quit
say source
Output: In source ist die IBM-Seite als HTML
Code2: ComputerName = value("COMPUTERNAME",,"ENVIRONMENT") myComputer = .OLEObject~GetObject("WinNT://"||ComputerName||",computer") say "Standard properties of this VM:" say "Name:" myComputer~name say "Class:" myComputer~class say "GUID:" myComputer~guid say "Parent:" myComputer~parent say "Schema:" myComputer~schema
Output: REXXout>Standard properties of this VM: REXXout>Name: VPCLAB-T-009 REXXout>Class: Computer REXXout>GUID: {DA438DC0-1E71-11CF-B1F3-02608C9E7553} REXXout>Parent: WinNT://LAB REXXout>Schema: WinNT://LAB/Schema/Computer
_________________________________ Johann Wolfschwenger (er/ihn, he/him)
Forschungsservice (Forschungsinformationssystem PURE) Research Service Center (Research Information System PURE)
WU Wirtschaftsuniversität Wien Vienna University of Economics and Business Building AR, 6.10, Welthandelsplatz 1, 1020 Vienna, Austria
Tel: +43-1-313 36-5107 Fax: +43-1-313 36-905107 E-Mail: johann.wolfschwenger@wu.ac.atmailto:johann.wolfschwenger@wu.ac.at www.wu.ac.at/research/servicehttps://www.wu.ac.at/universitaet/organisation/dienstleistungseinrichtungen/forschungsservice/