08/01/30 23:34:12 HdlZ93Xz0
>>234
むちゃくちゃ適当だが。
Dim shell, d
Set shell = WScript.CreateObject("WScript.Shell")
d = CStr(Date)
If MsgBox(d + "を挿入します。", 1) = 1 Then
Call shell.SendKeys(d)
End If
Set shell = Nothing
こんなのを拡張子vbsで保存して「何でも起動」から呼び出してみて。
08/01/30 23:34:12 HdlZ93Xz0
>>234
むちゃくちゃ適当だが。
Dim shell, d
Set shell = WScript.CreateObject("WScript.Shell")
d = CStr(Date)
If MsgBox(d + "を挿入します。", 1) = 1 Then
Call shell.SendKeys(d)
End If
Set shell = Nothing
こんなのを拡張子vbsで保存して「何でも起動」から呼び出してみて。