[VB6] Enter an Prozess schicken

hi leute

ich bin ja dabei vb6 zu lernen
ich wollte mal wissen wie man eine taste an nen prozess sendet oder vll auch ein fenster das minimiert ist !!!

währ nett wenn mir geholfen wird
MfG

Zitat:

---

Zitat von blablablabla

ich wollte mal wissen wie man eine taste an nen prozess sendet oder vll auch ein fenster das minimiert ist !!!

---

Für Letzteres kannst du mal sowas in der Art versuchen:

Code:

---

AppActivate "<Fenstertitel>", True
SendKeys "{Enter}"

---

hi
wie kann man aus ner inputbox den inhalt dort hinsenden

hmm des geht net
dafür wird das fenster in den vordergrund gerufen

hm vll irgent ne Control send funktion ?

Fenster suchen:
FindWindow
http://msdn.microsoft.com/en-us/libr...99(VS.85).aspx
eine Nachricht an ein Fenster senden:
SendMessage
http://msdn.microsoft.com/en-us/libr...50(VS.85).aspx
konkrete Tasteneingaben senden (in diesem Fall Leertastendruck):

Code:

---

SendMessage,fensterHandle,WM_KEYDOWN,VK_SPACE,0
Sleep,20               
SendMessage,fensterHandle,WM_KEYUP,VK_SPACE,0

---

sicher das das in vb6 is???
es kommt die nachricht
funktion nicht definiert

Ja, es ist kein VB. Aber mit den Stichworten bei Google + VB6 sollte sich was anfangen lassen ;)

ja danke
nur ich komm einfach nicht weiter
ich find nix

http://www.google.de/search?q=VB6%20...e%20WM_KEYDOWN
erster Treffer ;) :
http://www.tutorials.de/forum/visual...ntergrund.html
hier kannst du dir schon mal die Header/Definitionen holen
und auch wie man nach Fenstern sucht. Dann erweiterst du noch den Code, dass auch ein WM_KEYUP gesendet wird.
Oder gleich bei http://www.activevb.de/tipps/vb6tipps/tipp0300.html vorbeischauen.

da kommt dann immer ein fehler

Code:

---

Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Const GW_HWNDFIRST = 0: Const GW_HWNDLAST = 1: Const GW_HWNDNEXT = 2: Const GW_HWNDPREV = 3: Const GW_OWNER = 4: Const GW_CHILD = 5

Private Declare Function PostMessage Lib "user32.dll" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" _
 Alias "FindWindowExA" (ByVal hWndParent As Long, _
 ByVal hWndChildAfter As Long, ByVal lpszClass As String, _
 ByVal lpszWindow As String) As Long



Private Sub Command1_Click()
thunderformdc = FindWindow(vbNullString, "Editor.txt - Editor")
shellembedding = FindWindowEx(thunderformdc, 0&, "shell embedding", vbNullString)
shelldocobjectview = FindWindowEx(shellembedding, 0&, "shell docobject view", vbNullString)
internetexplorerserver = FindWindowEx(shelldocobjectview, 0&, "internet explorer_server", vbNullString)
hwn = Editor.txt - Editor
Me.SetFocus
ie.SetFocus
Call PostMessage(hwn, WM_KEYDOWN, vbKeyTab, &H0)
Call PostMessage(hwn, WM_KEYDOWN, vbKeyTab, &H1)
Call PostMessage(hwn, WM_KEYDOWN, vbKeyTab, &H2)
Call PostMessage(hwn, WM_KEYDOWN, vbKeyTab, &H2)
Call PostMessage(hwn, WM_KEYDOWN, vbKeyReturn, &H0)


End Sub

---

Also ein Laufzeitfehler