Har sett ett program som skickar tangent tryck"send key" och det enda man behöver skriva är exe filens namn och vad den skall skicka.
- Text.exe - SendKey = "Hej!"

Hur gör man det från en VB applikation?
(Test1.exe skall skicka send key till Test2.exe)

SendKeys "hello" 'till test2.exe vart sätter man vilket program man skall skicka till?

Tacksam för hjälp!

Hej, jag vet inte kodmässigt hur man skriver men det är det aktiva fönstret som får det som sendkeys skriver.

Så du ska först ha tag i det fönster du vill skriva i, det finns exempel på det i tips o tricks, göra det aktivt o sen sända dina bokstäver med sendkeys.

/B

Går det inte att styra till vilket program jag vill SendKeys utan att sätta det aktivt?

Jag vet inte, vänta lite så får du nog svar av nån annan på den saken:)

OK, tack!

Finns det något annat sätt att skicka tecken till ett program utan att göra det aktivt först?

AppActivate "TestProg1"
SendKeys "1", True

% tecknet är ALT men om man vill skicka procent hur gör man då?

Och hur skickar man num pad {MULTIPLY}?

% SendKeys Chr$(37),True
* SendKeys Chr$(42),True

Funkar inte för mig?

Provar med SendKeys "{" & Chr$(42) & "}", False
SendKeys Chr(42), False
SendKeys "{*}"

vbKeyMultiply

Tycker det borde gå?

Skickar till ett program som vill ha vbKeyNumpad Multiply.

Vad jag har fått fram så stöder inte vb6 Numpad Multiply.
vbKeyMultiply 0x6A MULTIPLICATION SIGN (*) key


Hjälp!

Du krånglar till det så förbannat skriv

SendKeys "Hej " & Chr$(37),True

SendKeys "Multplicera " & Chr$(42),True

klart , om du tex gjort NotePad till mottagere med AppActivate "Namnlös - Anteckningar"
Så skriver du dit.

% funkar ok men SendKeys Chr$(42), True blir inte Multiply från numpad fast det är Ascii 42 som jag ser.

Hmmm...

Oki skall kolla igen .

Numpad Multiply har code 106

Private Sub Command1_Click()
AppActivate "Namnlös - Anteckningar", True
SendKeys vbKeyMultiply, True
SendKeys Chr$(42),True
End Sub
Har inte testat men skulle prova SendKeys {vbKeyMultiply}, True


Nu är det ju frågan vem som är mottagare förstår detta prog att du trycker
tangent med KeyCode 106.
Det finns ju ett program i Samples som kommunicerar med Calc.exe
med SendKeys och AppActivate.

SendKeys Chr$(106) skickar ett "j" för mig?
SendKeys vbKeyMultiply, True skickar in 106

Programmet skall ha ex: 3* men när jag använder Sendkeys skickar den in 3106.

Men då måste väl för tusan detta funka

SendKeys "3" & Chr$(42), True
Man skall tom kunna skriva
SendKeys "3" & "*", True

eller
Dim tal As Long
tal = 3
SendKeys CStr(Tal) & "*", True

Det kan inte bli mer rätt än: SendKeys Chr$(106), True

Men programmet tolkar inte det som Chr$(106) *

Jag skall prova i vc++

Inte ens den här funka:
http://www.itkey.com/ITKey/Home.nsf/0/6fab7649d8350aa2c225672b0028de08?OpenDocument

Tackar och bockar

Kan man göra en batch fil ".bat" som skickar sendkeys?

Hitta i MSDN: BUG: Multiple SendKeys Statements Turn Off NumLock Key

>Men programmet tolkar inte det som Chr$(106) *
Chr$(106) är j så det är rätt . 106 är en keyCode på tangentbordet,det är stor skillnad.
En sista fundering som du måste prova

SendKeys {vbKeyMultiply},True
eller
SendKeys {106},True Nyfiken.

Men när man klickar på * på num tangentbordet så blir det 42 i KeyPress

>Chr$(106) är j så det är rätt . 106 är en keyCode på tangentbordet,det är stor skillnad.

Funka inte!
>SendKeys {vbKeyMultiply},True eller
>SendKeys {106},True Nyfiken.


<code>
Select Case KeyCode
Case 48 To 57
AppActivate "cProg", False
SendKeys Chr$(KeyCode)
Case 16
If Shift = 1 Then MsgBox "Fel tecken *", , ""
Case 106 'VB klarar inte skicka numpad multiply
AppActivate "cProg", False
SendKeys Chr$(KeyCode), False
End Select
</code>

Verkar omöjligt att simulera just den tangenten!

I msdn så skriver dom om en bugg i sendkeys: Article ID: Q179987
"BUG: Multiple SendKeys Statements Turn Off NumLock Key"

Tungt, nu sitter jag fast!

Prova med en annan specialare men får det inte att funka.
Men lite spännande var det.
<code>
AppActivate "cProg", False
Shell "c:\Windows\system32\osk.exe" 'WinXP, vet inte om den finns i fler opsys.
'AppActivate "Skärmtangentbord", True
SendKeys "3", True
SendKeys Chr$(106), True
</code>

Kom att tänka på en grej

Dim ret As Long
ret = Shell("c:\Windows\system32\osk.exe")
AppActivate ret, True
SendKeys "3 ", True
SendKeys Chr$(42), True

Dvs du skall ha mellanslag efter 3 !!! du kan inte använda Chr$(106) det är j !!!

Oki, ska testa!

I VB .Net funkar det utan problem!
<code>
AppActivate("CashIT")
SendKeys.Send("4")
SendKeys.Send("{MULTIPLY}")
</code>

'vb6 grrr