F_CALL_NOTEPAD_AND_SENDKEYS

// Function Name : f_call_notepad_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("Notepad")
ole_wsh.AppActivate("Untitled - Notepad")
Sleep(500)
ole_wsh.SendKeys("Powerbuilder Functions")

1 comments:

Johnn Salas said...

Hello,

Very good script,
Do you know how get the text of the file into a variable?

Thanks,

Post a Comment