|
分類:[VB6 以前]
お世話になります｡
Webページのテキスト取得につきまして
各ブラザーでのテキスト取得はWebページを範囲選択してテキストを取得しています｡
ご質問
マウスポインタがtextに入力中､手の形､などの状態だった場合は範囲選択できません｡
マウスポインタが以上の状態でも､範囲選択できる方法はありませんでしょうか｡
ご教示願えますと幸いであります｡
Option Explicit
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function keybd_event& Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags&, ByVal dwExtraInfo&)
Private Sub Command1_Click()
Dim ret As Long
ret = SetForegroundWindow(ハンドル)
'選択範囲
ret = keybd_event(&H11, 0, 0, 0) ' --->CTRL キーON
ret = keybd_event(&H41, 0, 0, 0) ' --->A キーON
ret = keybd_event(&H11, 0, &H2, 0) ' --->CTRL キーOFF
ret = keybd_event(&H41, 0, &H2, 0) ' --->A キーOFF
'選択範囲のコピー
ret = keybd_event(&H11, 0, 0, 0) ' --->CTRL キーON
ret = keybd_event(&H43, 0, 0, 0) ' --->C キーON
ret = keybd_event(&H11, 0, &H2, 0) ' --->CTRL キーOFF
ret = keybd_event(&H43, 0, &H2, 0) ' --->C キーOFF
'クリップボードから Text1へ テキスト データを取得します。
Text1 = Clipboard.GetText()
End Sub
|