#ここは質問板ではないんですが・・・
keybd_eventは、String型ではなくキーボードの番号(英小文字以外の殆どがAsc関数の返り値と同じ。)で指定します。
コード:
Dim UseChar1="0123456789" As String
Function RandomKeybdPush(Length As DWord) As String
Dim i As DWord,VK As Long
Randomize
For i=1 To Length
VK=UseChar1[Int(Rnd()*(Len(UseChar)-1)]
keybd_event(VK,0,0,0)
keybd_event(VK,0,KEYEVENTF_KEYUP,0)
Next
End Function
Lengthが大きい場合、ループ内にSleep挟まないとうまく打ち込めない事があるかも。
_________________
Website→
http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。
に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。