看密码程序.bas

个人VB学习源码精选,自己学习时的一些编程小程序,希望对大家有帮助

Attribute VB_Name = "Module1"
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function GetCursorPos Lib "user32" (lpPoint As PointAPI) As Long
Public Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Public Const WM_GETTEXT = &HD
Public Const WM_GETTEXTLENGTH = &HE
Public Type PointAPI
    x As Long
    y As Long
End Type
Public Pos As PointAPI
Public hResult As Long
Public hNow As Long
Public hLength As Long
Public bArr() As Byte, bArr2() As Byte
Public Function GetText(ByVal hWndNow As Long) As String
    hLength = SendMessage(hWndNow, WM_GETTEXTLENGTH, 0, 0)
    If hLength > 0 Then
        ReDim bArr(hLength + 1) As Byte, bArr2(hLength - 1) As Byte
        'Call CopyMemory(bArr(0), hLength, 2)
        Call SendMessage(hWndNow, WM_GETTEXT, hLength + 1, bArr(0))
        Call CopyMemory(bArr2(0), bArr(0), hLength)
        GetText = StrConv(bArr, vbUnicode)
        Debug.Print GetText
    Else
        GetText = ""
    End If
End Function