how to sendkey for 1 processe?

[tomer434]

i know how to send key
so i want to send for 1 processe
like to send for notepad.exe only
i can do it?
and how i can do that?
if you can put this code? its really will help me


(sry on my bad english and anyway and this site help me alot)

[jeffstl]

i know how to send key
so i want to send for 1 processe
like to send for notepad.exe only
i can do it?
and how i can do that?
if you can put this code? its really will help me


(sry on my bad english and anyway and this site help me alot)

Not sure. Is this what you are referring to ?

A way to open up notepad from inside VB Application?

Shell "NOTEPAD.EXE C:\MyTestFile.txt", vbNormalFocus
 

[Dököll]

i know how to send key
so i want to send for 1 processe
like to send for notepad.exe only
i can do it?
and how i can do that?
if you can put this code? its really will help me


(sry on my bad english and anyway and this site help me alot)

Your English is actually not that bad:-)

Would you be interested a tutorial? I found this bit of code for you. Not sure how skilled you are in VB6.0, if you feel a tutoraila may help please let us know:

Option Explicit
Global Notepad as Object
global WorkingPath as string
Global NewFile1 as String
------------------------------
Sub Do_Shell()
'Open Notepad
    Shell "c:\WINDOWS\notepad.exe", 1
         SendKeys "^(V)", True
        'SendKeys "{F10}", True  '(These last 4 do the
        'SendKeys "{RIGHT}", True 'same thing as ^V.  
        'SendKeys "{DOWN 4}", True  'They are not working 
        'SendKeys "{ENTER}", True   'either.)
' Save NewFile#
    Notepad.SaveAs FileName:=WorkingPath & NewFile1, _
       FileFormat:="vts", Password:="", 
       WriteResPassword:="", _
       ReadOnlyRecommended:=False, 
       CreateBackup:=False
'Close NewFile1
    Notepad.Quit
-----------------
Sub Run1()
Dim XLFile As String           'XLFile is current workbook
Dim LotusFile As String        'Previously saved file
 
WorkingPath =ThisWorkbook.Worksheets("Input").Range("C11")
XLFile = ThisWorkbook.Worksheets("Input").Range("B3")
LotusFile = ThisWorkbook.Worksheets("Input").Range("C12")
NewFile1 = ThisWorkbook.Worksheets("Input").Range("C13")
 
ThisWorkbook.Activate
Sheets("Calculations").Select
Range("B3:B122").Select
Selection.Copy
Call Do_Shell
 
....
 
End Sub
 

Good luck with the project!

Dököll

[tomer434]

Your English is actually not that bad:-)

Would you be interested a tutorial? I found this bit of code for you. Not sure how skilled you are in VB6.0, if you feel a tutoraila may help please let us know:

Option Explicit
Global Notepad as Object
global WorkingPath as string
Global NewFile1 as String
------------------------------
Sub Do_Shell()
'Open Notepad
    Shell "c:\WINDOWS\notepad.exe", 1
         SendKeys "^(V)", True
        'SendKeys "{F10}", True  '(These last 4 do the
        'SendKeys "{RIGHT}", True 'same thing as ^V.  
        'SendKeys "{DOWN 4}", True  'They are not working 
        'SendKeys "{ENTER}", True   'either.)
' Save NewFile#
    Notepad.SaveAs FileName:=WorkingPath & NewFile1, _
       FileFormat:="vts", Password:="", 
       WriteResPassword:="", _
       ReadOnlyRecommended:=False, 
       CreateBackup:=False
'Close NewFile1
    Notepad.Quit
-----------------
Sub Run1()
Dim XLFile As String           'XLFile is current workbook
Dim LotusFile As String        'Previously saved file
 
WorkingPath =ThisWorkbook.Worksheets("Input").Range("C11")
XLFile = ThisWorkbook.Worksheets("Input").Range("B3")
LotusFile = ThisWorkbook.Worksheets("Input").Range("C12")
NewFile1 = ThisWorkbook.Worksheets("Input").Range("C13")
 
ThisWorkbook.Activate
Sheets("Calculations").Select
Range("B3:B122").Select
Selection.Copy
Call Do_Shell
 
....
 
End Sub
 

Good luck with the project!

Dököll

its helped me
and i did it =P

WinWnd = FindWindow(vbNullString, "Text") 'text = the process
SetWindowPos WinWnd, HWND_TOPMOST, X1, X2, X3, X4, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE