ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2024年3月30日(土) 00:52

全ての表示時間は UTC+09:00 です




新しいトピックを投稿する  トピックへ返信する  [ 2 件の記事 ] 
作成者 メッセージ
投稿記事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)

を使って数字をランダムに打ちたいのですが、うまくいきません。
どうすればよいのですか。


通報する
ページトップ
   
 記事の件名:
投稿記事Posted: 2007年2月13日(火) 22:57 
オフライン

登録日時: 2005年7月25日(月) 13:27
記事: 893
お住まい: 埼玉県東松山市
#ここは質問板ではないんですが・・・

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を主として使用。

に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。


通報する
ページトップ
期間内表示:  ソート  
新しいトピックを投稿する  トピックへ返信する  [ 2 件の記事 ] 

全ての表示時間は UTC+09:00 です


オンラインデータ

このフォーラムを閲覧中のユーザー: なし & ゲスト[15人]


トピック投稿:  可
返信投稿:  可
記事編集: 不可
記事削除: 不可
ファイル添付: 不可

検索:
ページ移動:  
cron
Powered by phpBB® Forum Software © phpBB Limited
Japanese translation principally by ocean