はじめまして。ABを最近使うようになったコウスケです。
早速ですが、
keybd_event(VK_,MapVirtualKey(VK_SNAPSHOT,0),0,0)
keybd_event(VK_,MapVirtualKey(VK_SNAPSHOT,0),KEYEVENTF_KEYUP,0)
と
'定数の宣言
Const UseChar1="0123456789"
'指定した文字数を持つランダムな文字列を生成する
’Function RandomString1(Length As DWord) As String
Dim i As DWord
Randomize
For i=1 To Length
RandomString1=RandomString1 & Mid$(UseChar1,Fix(Rnd()*Len(UseChar1))+1,1)
Next
End Function
’RandomString1(1)
を使って数字をランダムに打ちたいのですが、うまくいきません。
どうすればよいのですか。
ランダムな数字を入力
#ここは質問板ではないんですが・・・
keybd_eventは、String型ではなくキーボードの番号(英小文字以外の殆どがAsc関数の返り値と同じ。)で指定します。
Lengthが大きい場合、ループ内にSleep挟まないとうまく打ち込めない事があるかも。
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
Website→http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。
に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。
ここ以外の場所では「暇人13世」というHNを主として使用。
に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。