Can anyone show me an example of se

[mpastore]

Can anyone show me an example of sending text from VFP to another application like notepad? Assume that notepad is open and I have a window handle to it. Using the API I am able to bring notepad to the foreground:

= SetForegroundWindow (hwnd)

However, keyboard command does not send my text to notpad. How do I do this? Thanks Mike

Mike Pastore

Hats off to (Roy) Harper

 

[ramani]

HI

cText = "This is my First NotePad Text"
cFile = "C:\Test.txt"

= STRTOFILE(cText,cFile)

DECLARE INTEGER ShellExecute IN shell32.dll ;
INTEGER hndWin, STRING cAction, STRING cFileName, ;
STRING cParams, STRING cDir, INTEGER nShowWin

=ShellExecute(0,"OPEN",cFile,"","",1)





____________________________________________
ramani - (Subramanian.G)

http://winnersoft.coolfreepages.com/

When you ask VFP questions, please add VFP version.

 

[mpastore]

Ramani,

Thanks but I need to assume the notepad application is already open and I have to actually send the keystrokes over to the notepad window.




Mike Pastore

Hats off to (Roy) Harper

 

[jimoo]

I posted a VFP to excel example a while back at:

Thread184-694105

Jim Osieczonek
Delta Business Group, LLC

http://www.deltabg.com

 

[csr]

Would Word Automation be useful ?

something like ...

oWord = createObject("Word.Application&quot
oDoc = oWord.Documents.Add()
oRange = oDoc.Range()

oRange.insertAfter(cKeystrokes)



Don

 

[mpastore]

Thanks for all the input from everyone...however I ended up using winbatch.exe via VFP winexec(). All set now

Mike Pastore

Hats off to (Roy) Harper

 

[craigsboyd]

mpastore,

Here is my example from thread184-675750 (I am reposting it here because it is relatively short and will save you a hop)

Cut-N-Paste the code below into a prg file and run it from within VFP.

Declare Sleep IN WIN32API INTEGER
oWshShell=CreateObject("WScript.Shell&quot
oWshShell.Run("notepad.exe&quot
=Sleep(1000)
TypeStuff("Tek-Tips is the &quot
TypeStuff("G&quot
TypeStuff("R&quot
TypeStuff("E&quot
TypeStuff("A&quot
TypeStuff("T&quot
TypeStuff("E&quot
TypeStuff("S&quot
TypeStuff("T&quot
TypeStuff("!{ENTER}&quot
TypeStuff("{TAB}&quot
TypeStuff("I hope that &quot
TypeStuff("you agree{ENTER}&quot
TypeStuff("{TAB}{TAB}Goodbye for now!&quot
FOR nCount = 1 TO 9
TypeStuff("{BACKSPACE}&quot
ENDFOR
TypeStuff("!&quot

PROCEDURE TypeStuff(cKey)
=Sleep(500)
oWshShell.SendKeys(cKey)
ENDPROC

Slighthaze = NULL
_{craig1442@mchsi.com}

"Whom computers would destroy, they must first drive mad." - Anon​