Hvordan udføres et tastetryk virtuelt?

SendKeys \"taster\"

f.eks.

SendKeys \"T\"

så skal du med et par API\'s gøre vinduet du vil sende til aktivt.

Jeg er ikke helt med hvad du mener...
(Mit program skal kunne sende taste input til et minimeret vindue uden at bringe det frem) Skal jeg ikke sende noget infomation til vinduets hwnd eller hdc ?

hWnd jo, men det skal du finde vha. et par API kald (FindWindow() og noget a\'la SetActiveWindow() .. er ikke helt sikker på den sidste ..).

Koden er _IKKE_ testet!

---
Declare Function FindWindow Lib \"user32\" Alias \"FindWindowA\" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Declare Function SetActiveWindow Lib \"user32.dll\" (ByVal hwnd As Long) As Long

Private Sub Command1_Click()
  lngHWnd = FindWindow(\"Programmets Klasse. f.eks. \'iexplore\', eller vbNullString\", \"Titlen på programmet, eller vbNullString\")
  lngRetval = SetActiveWindow(lngHWnd)

  SendKeys \"T\"
End Sub

Så vidt jeg kan forstå så er SetActiveWindow en kommando som bringer vinduet frem i forgrunden altså giver det fokus. Og det er jo det det helst ikke skal da det gerne skulle forblive minimeret.

Nopes .. nemlig ikke ..

det er SetWindowForeground() der gør det, SetActiveWindow() gør kun vinduet aktivt, men det fjerner så fokus fra det aktive program... men det er den eneste måde jeg ved at man kan gøre det på.

Jeg kan godt nok ikke få din stump af kode til at fungere den sender godt nok T til en textbox hvis jeg markerer den

Det er jo ikke nok at du aktivere vinduet .. hvis du skal have en kontrol aktiveret skal du bruge {tab} til at flytte makøren med .. og hvis det er til et program du selv har lavet skal du nok gøre det i Private Sub Form_Activate()

kan det ikke lade sig gøre med:
Public Declare Function SendMessage Lib \"user32\" Alias \"SendMessageA\" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
og...
Public Const WM_KEYDOWN = &H100
?

Nopes ..

Jow da .. men SendMessage() kan vist ikke sende normale bogstaver/tal kan den ?

Hvis du kender Task ID for programmet kan det lade sig gøre på følgende måde!!



AppActivate TaskID \'Activate Prog
SendKeys \"{F5}\", True  \' Send keystrokes to prog

Process ID går det nok under ... men det skal du også finde vha. et API..

Problemet med appactivate er bare at den giver programmet \"fokus\" (i status baren) det skulle gerne være sådan at hvis jeg satte en timer til at udføre forskellige tastetryk til programmet så skulle jeg kunne bruge computeren imens.

hugobart:> hvad er det for et program du vil sende taster til ? det kan være det hjælper lidt ved at vide hvad det er for et .. (evt. hvis vi så kan finde et Class ID ..)

ultima online

Nå .. øv ..det kendte jeg sku\'t (hvad bruges det til?)

Kan man ikke sende keystrokes til programmets hukommelse eller lign. (gennem win32 API)?

Det er simpelt hen bare et online spil :)

ahh .. oki :-)

Men jeg tror ikke der er andre muligheder end dem vi har her.

Men jeg har jo allerede et program som kan klare det og det benytter ingen dll\'er eller noget så jeg tror det kan lade sig gøre med win32 API\'en. Hvad gør openProcess ?

Hvis man kunne overføre en send input til programmets processid

Declare Function SendInput Lib \"user32.dll\" (ByVal nInputs As Long, pInputs As INPUT_TYPE, ByVal cbSize As Long) As Long

OpenProcess() åbner nok en process i Windows .. men hvordan og hvorledes må du ikke spørge mig om.

Prøv at kigge på www.vbapi.com under Reference.

- jeg går i seng nu ... såe jeg kommer ikke på før i aften ..

iseng: Det gjorde vi andre for snart 12 timer siden :-p

hæ hæ .. tjae .. jeg har nogle MEGET skæve dagrytmer (hvis det da kan kaldes en rytme *G*)

tdaugaard: Hvorfor ville det hjælpe at finde programmets class ?

Sådan her kan det gøres uden at man skal aktivere noget som helst:

---------------

Declare Function SendMessageByNum& Lib \"user32\" Alias \"SendMessageA\" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)

Declare Function findwindow Lib \"user32\" Alias \"FindWindowA\" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Const WM_CHAR = &H102

sub sendH ()
xHwnd = FindWindow(vbNullString, \"vinduets titel\")
retval = SendMessageByNum(xHwnd, WM_CHAR, Asc(\"H\"), 0)
end sub

(Retval bliver først retuneret efter at funktionen er blevet gennemført.)