ｿｽgｿｽbｿｽv > VBｿｽｿｽｿｽSｿｽﾒ掲ｿｽｿｽｿｽｿｽ(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp) > 200601 >

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEｿｽeｿｽ言ｿｽｿｽfｿｽｿｽｿｽｿｽ

ｿｽ閧ｮ 2006/01/04(ｿｽｿｽ) 17:43:57

Windows2000 & VB6.0ｿｽﾅ搾ｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ竄ｳｿｽｿｽｿｽﾄ抵ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾝ、C#ｿｽﾅ作成ｿｽｿｽｿｽ黷ｽｿｽAｿｽvｿｽｿｽｿｽPｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽﾌボｿｽ^ｿｽｿｽｿｽｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽｿｽcｿｽ[ｿｽｿｽｿｽｿｽ
ｿｽ成ｿｽｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾅ、ｿｽﾜゑｿｽｿｽｿｽｿｽKｿｽﾆゑｿｽｿｽﾄ、ｿｽuｿｽaｿｽﾈ外ｿｽﾌ鯉ｿｽｿｽｿｽﾅ搾ｿｽｿｽ黷ｽｿｽ¥ｿｽtｿｽgｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆで、
ｿｽdｿｽｿｽﾌボｿｽ^ｿｽｿｽｿｽｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽｿｽcｿｽ[ｿｽｿｽｿｽｿｽ成ｿｽｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽ
ｿｽnｿｽｿｽｿｽhｿｽｿｽｿｽｿｽ謫ｾｿｽｿｽｿｽｿｽﾓ擾ｿｽｿｽｿｽｿｽTｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽ成ｿｽｿｽｿｽｿｽcｿｽ[ｿｽｿｽｿｽﾌ全ｿｽﾌの構ｿｽｿｽｿｽﾆゑｿｽｿｽﾄは以会ｿｽｿｽﾌようｿｽﾉ考ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾜゑｿｽｿｽEｿｽBｿｽｿｽｿｽhｿｽEｿｽﾌハｿｽｿｽｿｽhｿｽｿｽｿｽｿｽ謫ｾｿｽｿｽｿｽAｿｽEｿｽBｿｽｿｽｿｽhｿｽEｿｽﾌハｿｽｿｽｿｽhｿｽｿｽｿｽｿｽｿｽｿｽﾉボｿｽ^ｿｽｿｽｿｽｿｽ
ｿｽnｿｽｿｽｿｽhｿｽｿｽｿｽｿｽ謫ｾｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽﾌボｿｽ^ｿｽｿｽｿｽﾌハｿｽｿｽｿｽhｿｽｿｽｿｽｿｽｿｽｿｽｿｽPostMessageｿｽｿｽ
ｿｽｿｽｿｽAｿｽvｿｽｿｽｿｽPｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽﾄ、"WM_LBUTTONDOWN" & "WM_LBUTTONUP"ｿｽ送ゑｿｽB

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝの状況とゑｿｽｿｽﾄは、ｿｽEｿｽBｿｽｿｽｿｽhｿｽEｿｽﾌハｿｽｿｽｿｽhｿｽｿｽｿｽﾍ取得ｿｽﾅゑｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽ{ｿｽ^ｿｽｿｽｿｽﾌハｿｽｿｽｿｽhｿｽｿｽｿｽｿｽｿｽ謫ｾｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽｿｽﾔでゑｿｽｿｽB

ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽwｿｽｿｽｿｽﾌ抵ｿｽｿｽAｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

'ｿｽﾈ会ｿｽｿｽ¥ｿｽ[ｿｽX
Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String _
    ) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" ( _
    ByVal hWnd1 As Long, _
    ByVal hWnd2 As Long, _
    ByVal lpsz1 As String, _
    ByVal lpsz2 As String _
    ) As Long
Private Declare Function SetForegroundWindow Lib "user32.dll" ( _
    ByVal hwnd As Long _
    ) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" ( _
    ByVal hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    ByVal lParam As Long _
    ) As Long

Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const MK_LBUTTON = &H1

Private Sub Form_Load()

    Dim lngWindWnd  As Long
    Dim ret         As Long
    Dim hCalc       As Long
    
    'ｿｽEｿｽBｿｽｿｽｿｽhｿｽEｿｽnｿｽｿｽｿｽhｿｽｿｽｿｽ得まゑｿｽ
    lngWindWnd = FindWindow(vbNullString, "ｿｽdｿｽｿｽ")
    
    'ｿｽdｿｽｿｽuｿｽPｿｽvｿｽ{ｿｽ^ｿｽｿｽｿｽﾌハｿｽｿｽｿｽhｿｽｿｽ
    hCalc = FindWindowEx(lngWindWnd, 0, "Button", "1")
ｿｽ@ｿｽ@'ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ"hCalc"ｿｽｿｽ"0"ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽ    

    ret = SetForegroundWindow(lngWindWnd)
    
    ret = PostMessage(hCalc, WM_LBUTTONDOWN, MK_LBUTTON, ByVal 0)
    ret = PostMessage(hCalc, WM_LBUTTONUP, MK_LBUTTON, ByVal 0)

End Sub

030 2006/01/04(ｿｽｿｽ) 23:41:23

ｿｽｿｽｿｽ_ｿｽｿｽｿｽ迪ｾｿｽｿｽｿｽﾆ、ｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾍ撰ｿｽｿｽｿｽﾉ難ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽLｿｽｿｽｿｽvｿｽVｿｽｿｽｿｽｿｽｿｽｿｽ"1"ｿｽﾌボｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾂゑｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽhCalcｿｽｿｽ0ｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽ驍ｾｿｽｿｽｿｽﾅゑｿｽｿｽB
Spy++ｿｽﾅ確ｿｽFｿｽｿｽｿｽﾄみてゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽWin2000ｿｽﾌ電ｿｽｿｽﾌボｿｽ^ｿｽｿｽｿｽﾌキｿｽｿｽｿｽvｿｽVｿｽｿｽｿｽｿｽｿｽﾍ全ｿｽﾄ”ｿｽhｿｽﾅゑｿｽｿｽB
XPｿｽﾉ付ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽdｿｽｿｽﾌボｿｽ^ｿｽｿｽｿｽLｿｽｿｽｿｽvｿｽVｿｽｿｽｿｽｿｽｿｽﾍゑｿｽｿｽｿｽｿｽﾆ難ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾝゑｿｽｿｽｿｽｿｽﾈのゑｿｽXPｿｽｿｽCalc.exeｿｽｿｽWin2000ｿｽﾉコｿｽsｿｽ[ｿｽｿｽｿｽﾄ難ｿｽｿｽｿｽｿｽｿｽｿｽﾎ擾ｿｽLｿｽ¥ｿｽ[ｿｽXｿｽﾍゑｿｽｿｽｿｽｿｽﾆ難ｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB

ｿｽ閧ｮ 2006/01/06(ｿｽｿｽ) 08:09:56

Win2000ｿｽﾌ電ｿｽｿｽﾌボｿｽ^ｿｽｿｽｿｽﾌキｿｽｿｽｿｽvｿｽVｿｽｿｽｿｽｿｽｿｽｿｽｿｽSｿｽﾄ”ｿｽhｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽﾆは．ｿｽDｿｽD
ｿｽﾅ、ｿｽｿｽｿｽ_ｿｽｿｽ¥ｿｽｿｽｿｽ繧ｰｿｽﾜゑｿｽｿｽﾆ、Spy++ｿｽｿｽgｿｽpｿｽｿｽｿｽ驍ｱｿｽﾆにゑｿｽ闡ｼｿｽﾌアｿｽvｿｽｿｽｿｽPｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽ{ｿｽ^ｿｽｿｽｿｽnｿｽｿｽｿｽhｿｽｿｽｿｽｿｽmｿｽFｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽﾟ、ｿｽｿｽｿｽｿｽｿｽﾉ意図ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
030ｿｽlｿｽAｿｽﾇゑｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

Created by board of various Programming Library.