More than 1 year has passed since last update.

sendKey

Last updated at 2024-01-22Posted at 2024-01-22

'SendKey
Dim objWshShell
Set objWshShell = WScript.CreateObject("WScript.Shell")

Dim intCounter
For intCounter = 1 To 2
    objWshShell.AppActivate "電卓" ,wait
	WScript.Sleep 100
	objWshShell.SendKeys "18782"
	WScript.Sleep 100

    objWshShell.AppActivate "メモ帳"
	WScript.Sleep 100
	objWshShell.SendKeys "{ENTER}"
    WScript.Sleep 100
Next

MsgBox "チェックしてください"

Set objShell = Nothing

{TAB}
{DOWN}
Ctrl ^　など

You get articles that match your needs
You can efficiently read back useful information
You can use dark theme

What you can do with signing up