ランダムな数字を入力
Posted: 2007年2月13日(火) 21:42
はじめまして。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(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)
を使って数字をランダムに打ちたいのですが、うまくいきません。
どうすればよいのですか。