PowerBuilder Function Call Calculator And Sendkeys

PowerBuilder Function Call Calculator And Sendkeys gf_call_calculator_and_sendkeys

// Function Name : gf_call_calculator_and_sendkeys
// Argument Name : (None)
// Return Type :       (None)


Integer li_connect
OleObject ole_wsh

ole_wsh = Create OleObject

li_connect = ole_wsh.ConnectToNewObject("WScript.Shell")

ole_wsh.Run("calc")
ole_wsh.AppActivate("Calculator", 100)
Sleep(1000)
ole_wsh.SendKeys("3{-}")
Sleep(1000)
ole_wsh.SendKeys("1")
Sleep(1000)
ole_wsh.SendKeys("=")
Sleep(1000)
ole_wsh.SendKeys("*4")
Sleep(1000)
ole_wsh.SendKeys("=")
// 3 - 1 = 2 Then * 4 = 8

// Function Name : gf_call_calculator_and_sendkeys

// Argument Name : (None)

// Return Type : (None)

Integer li_connect

OleObject ole_wsh

ole_wsh = Create OleObject

li_connect = ole_wsh.ConnectToNewObject("WScript.Shell")

ole_wsh.Run("calc")

ole_wsh.AppActivate("Calculator", 100)

Sleep(1000)

ole_wsh.SendKeys("3{-}")

Sleep(1000)

ole_wsh.SendKeys("1")

Sleep(1000)

ole_wsh.SendKeys("=")

Sleep(1000)

ole_wsh.SendKeys("*4")

Sleep(1000)

ole_wsh.SendKeys("=")

// 3 - 1 = 2 Then * 4 = 8

Good Luck!

PowerBuilder Tips & Tricks

PB PowerBuilder PowerBuilder Function PowerBuilder Tips PowerBuilder Tricks PowerBuilder VBScript PowerScript Tips & Tricks Windows Scripting Host WSH-VBScript

November 21, 2020

Was this article helpful?