那儿有<密码记者>的源代码？？？？？？SOS

Question

我没有。。但我知道怎么写。。
你可以给文本框发消息，得到*后的文字。。（找找API就知道了）
多少给一点分吧。

Answer 1

取得文本筐文字：
dim buf as string
buf=space(256)
SendMessage hwnd, WM_GETTEXT, 255, buf
buf=left(buf,instr(buf,chr(0)))

Answer 2

就是取得密码文本框文本吗？
方法很多啊。
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long或者Chice_wxg(我怕谁？我是谁！我是流氓我最贼。) 的或者
SendMessage hwnd,EM_SETPASSWORDCHAR,0,0至于如何取得密码框的句柄，
可以使用一下函数取得鼠标当前位置控件句柄Public Function GethWndFromPoint(ByVal xPoint As Long, ByVal yPoint As Long) As Long    '获得某一位置的窗体句柄
    
    GethWndFromPoint = 0
    
    GethWndFromPoint = WindowFromPoint(xPoint, yPoint)
    
End FunctionPublic Function GetNonceWindow() As Long    '获得当前鼠标位置窗体句柄
    Dim xPoint As Long
    Dim yPoint As Long
    
    GetNonceWindow = 0
    
    MouseLocation xPoint, yPoint
    GetNonceWindow = GethWndFromPoint(xPoint, yPoint)
    
End Function
最后请注意你需要自己声明若干API和常量

Answer 3

呵呵，忘记了一个Public Sub MouseLocation(ByRef lngX As Long, ByRef lngY As Long)
Dim bResult As Boolean
Dim PT_MOUSE As POINTAPI
bResult = GetCursorPos(PT_MOUSE)
lngX = PT_MOUSE.X
lngY = PT_MOUSE.Y
End Sub