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

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

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

ｿｽEpapy's softwarelibrary

ｿｽﾇゑｿｽｿｽﾆゑｿｽｿｽ閧 2010/09/28(ｿｽｿｽ) 23:04:27

ｿｽAｿｽNｿｽeｿｽBｿｽuｿｽEｿｽCｿｽｿｽｿｽhｿｽEｿｽﾌウｿｽCｿｽｿｽｿｽhｿｽEｿｽｿｽｿｽ謫ｾｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
WindowsｿｽAｿｽvｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾂ趣ｿｽｿｽsｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ骼橸ｿｽﾉ、ｿｽｿｽｿｽﾌアｿｽNｿｽeｿｽBｿｽuｿｽﾈウｿｽBｿｽｿｽｿｽhｿｽEｿｽｿｽ謫ｾｿｽｿｽｿｽｿｽｿｽｿｽｿｽけｿｽﾅゑｿｽｿｽB
vb6ｿｽﾅ搾ｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽ髟ｨｿｽｿｽQｿｽlｿｽｿｽVB2008ｿｽﾉ変奇ｿｽｿｽｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽｿｽ
ｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽｿｽｿｽﾌ掲ｿｽｿｽｿｽﾂゑｿｽQｿｽlｿｽﾉ、ｿｽｿｽｿｽﾌ様ｿｽﾉ擾ｿｽｿｽｿｽｿｽﾄ鯉ｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽsｿｽｿｽｿｽｿｽﾆ。
ｿｽiｿｽｿｽｿｽﾝアｿｽNｿｽeｿｽCｿｽuｿｽEｿｽCｿｽｿｽｿｽhｿｽEｿｽﾌタｿｽCｿｽgｿｽｿｽｿｽｿｽｿｽﾍ）
ｿｽﾜでのみ表ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾜゑｿｽｿｽｿｽｿｽﾌコｿｽ[ｿｽhｿｽﾌ抵ｿｽｿｽｿｽ
ｿｽi'ｿｽｿｽｿｽﾝ、ｿｽAｿｽNｿｽeｿｽBｿｽuｿｽEｿｽCｿｽｿｽｿｽhｿｽEｿｽﾍ趣ｿｽｿｽAｿｽvｿｽｿｽｿｽﾈので趣ｿｽｿｽｿｽｿｽｿｽｿｽgｿｽｿｽ¥ｿｽｿｽｿｽjｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾌ意厄ｿｽｿｽｿｽｿｽかｿｽｿｽﾉゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽB
ｿｽｿｽうｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽｿｽﾌは、ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾌボｿｽ^ｿｽｿｽｿｽｿｽmousemoveｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽ
ｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽﾌで、ｿｽｿｽｿｽﾌアｿｽvｿｽｿｽｿｽｿｽｿｽAｿｽNｿｽeｿｽBｿｽuｿｽﾉなゑｿｽｿｽｿｽｿｽﾜまゑｿｽ
ｿｽｿｽﾔで、ｿｽﾇのアｿｽvｿｽｿｽｿｽｿｽｿｽAｿｽNｿｽeｿｽBｿｽuｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽ驍ｩｿｽｿｽ謫ｾｿｽoｿｽｿｽｿｽ髟ｨｿｽｿｽ
ｿｽvｿｽｿｽｿｽﾄまゑｿｽｿｽB
ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽしｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB

Public Class Form1
    'ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾌ難ｿｽｿｽﾅ宣言ｿｽｿｽｿｽﾄ会ｿｽｿｽｿｽｿｽｿｽ(General Declarations)
    Private Declare Function GetActiveWindow Lib "USER32" () As Long
    Private Declare Function GetWindowText Lib "USER32" Alias "GetWindowTextA" _
    (ByVal hWnd&, ByVal lpString$, ByVal cch&) As Long

    Private Sub Button1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove
        Dim rtn, rtn2 As Long
        Dim Name As String
        Dim Leng As Long
        'ｿｽoｿｽbｿｽtｿｽ@ｿｽｿｽmｿｽｿｽ
        Name = New String(CChar(vbNullChar), 250)
        Leng = Len(Name)
        'ｿｽAｿｽNｿｽeｿｽBｿｽuｿｽEｿｽCｿｽｿｽｿｽhｿｽEｿｽﾌハｿｽｿｽｿｽhｿｽｿｽｿｽ謫ｾ
        rtn = GetActiveWindow()
        'ｿｽAｿｽNｿｽeｿｽBｿｽuｿｽEｿｽCｿｽｿｽｿｽhｿｽEｿｽﾌウｿｽCｿｽｿｽｿｽhｿｽEｿｽｿｽｿｽ謫ｾ
        rtn2 = GetWindowText(rtn, Name, Leng)
        'ｿｽｿｽｿｽﾝ、ｿｽAｿｽNｿｽeｿｽBｿｽuｿｽEｿｽCｿｽｿｽｿｽhｿｽEｿｽﾍ趣ｿｽｿｽAｿｽvｿｽｿｽｿｽﾈので趣ｿｽｿｽｿｽｿｽｿｽｿｽgｿｽｿｽ¥ｿｽｿｽ
        MsgBox("ｿｽｿｽｿｽﾝアｿｽNｿｽeｿｽCｿｽuｿｽEｿｽCｿｽｿｽｿｽhｿｽEｿｽﾌタｿｽCｿｽgｿｽｿｽｿｽｿｽｿｽｿｽ" & Name & "ｿｽﾅゑｿｽ")
    End Sub
End Class

ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2010/09/29(ｿｽｿｽ) 03:41:32

ｿｽｿｽｿｽいｿｽｿｽﾆ間茨ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽB

ｿｽｿｽｿｽｿｽ Declare ｿｽｿｽ As Long ｿｽｿｽgｿｽｿｽｿｽﾗゑｿｽｿｽﾅは厄ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽｿｽ処暦ｿｽｿｽｿｽ ｿｽ`A ｿｽnｿｽﾅはなゑｿｽｿｽｿｽｿｽｿｽｿｽ]ｿｽﾜゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB

> ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾌボｿｽ^ｿｽｿｽｿｽｿｽmousemoveｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽ
MouseMove ｿｽﾌ最抵ｿｽｿｽｿｽ MsgBox ｿｽｿｽﾄび出ｿｽｿｽｿｽﾌは、ｿｽsｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ?


> Declare Function GetActiveWindow
GetActiveWindow ｿｽﾍ趣ｿｽｿｽXｿｽｿｽｿｽbｿｽhｿｽｿｽﾌアｿｽNｿｽeｿｽBｿｽuｿｽEｿｽBｿｽｿｽｿｽhｿｽEｿｽ得ゑｿｽｿｽﾌなので、
ｿｽｿｽｿｽｿｽｿｽAActiveForm ｿｽｿｽ Handle ｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽ得ゑｿｽ謔､ｿｽﾈ意厄ｿｽｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB

ｿｽﾊアｿｽvｿｽｿｽｿｽﾌウｿｽBｿｽｿｽｿｽhｿｽEｿｽ得ゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽﾎ、GetForegroundWindow API ｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽﾄみてゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽBｿｽｿｽｿｽﾆゑｿｽｿｽﾎゑｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB

Public Class Form1
    Private Declare Function GetForegroundWindow Lib "user32" () As IntPtr
    Private Declare Auto Function GetWindowText Lib "user32" _
       (ByVal hWnd As IntPtr, _
        ByVal lpString As System.Text.StringBuilder, _
        ByVal cch As Integer) As Integer

    Private Sub Button1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Button1.MouseMove
        Dim title As New System.Text.StringBuilder(256)
        Dim hWnd As IntPtr = GetForegroundWindow()
        If Not (IntPtr.Zero.Equals(hWnd) OrElse Me.Handle.Equals(hWnd)) Then
            Dim ret As Integer = GetWindowText(hWnd, title, 256)
            DirectCast(sender, Control).Text = title.ToString(0, ret)
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        MsgBox(DirectCast(sender, Control).Text)
    End Sub
End Class

ｿｽﾇゑｿｽｿｽﾆゑｿｽｿｽ閧 2010/09/29(ｿｽｿｽ) 08:45:10

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾅゑｿｽｿｽBｿｽｿｽｿｽｿｽｿｽﾖゑｿｽLｿｽｿｽうｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽﾌペｿｽ[ｿｽWｿｽﾌトｿｽbｿｽvｿｽｿｽ