如何获取密码框内的密码呢?

就是把***转换成密码?用钩子函数吗?  
  不好意思我部懂钩子函数,谁能赐教?方便的话也说以下回调函数!  
  万分感激!  
  举个离子! 问题点数：20、回复次数：2Top

1 楼DeityFox（逃之11）回复于 2001-11-25 12:39:03 得分 20

Public   Declare   Function   UpdateWindow   Lib   "user32"   (ByVal   hWnd   As   Long)   As   Long  
  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   IsWindow   Lib   "user32.dll"   (ByVal   hWnd   As   Long)   As   Long  
  Public   Const   EM_SETPASSWORDCHAR   =   &HCC  
  Public   Const   EM_GETPASSWORDCHAR   =   &HD2  
  Dim   Tmp   As   Long  
  Sub   Main()  
  Tmp   =   0  
  For   i   =   1   To   30000  
          If   IsWindow(i)   Then  
                  Tmp   =   Tmp   +   1  
                  SendMessage   i,   EM_SETPASSWORDCHAR,   0&,   ByVal   0&  
                  UpdateWindow   i  
          End   If  
          DoEvents  
  Next   i  
  MsgBox   "Done,   PWChars   on   "   +   Format(Tmp)   +   "   windows   reset."  
  End   Sub  
   
   
  其实只要取得当前鼠标位置控件的类名，如果等于“edit”则发送  
  SendMessage   句柄,   EM_SETPASSWORDCHAR,   0&,   ByVal   0&   就可以了  
   
  需要用到  
  Public   Declare   Function   GetCursorPos   Lib   "user32"   Alias   "GetCursorPos"   (lpPoint   As   POINTAPI)   As   Long  
   
  Public   Type   POINTAPI  
                  x   As   Long  
                  y   As   Long  
  End   Type  
   
  Top

2 楼redkit（ChinaYan）回复于 2001-11-25 20:47:21 得分 0

谢谢！Top

相关问题

• 密码
• 函数
• setpasswordchar
• longpublic
• byval
• em
• sendmessage
• tmp
• hwnd
• lib

• 帖主：redkit
• DeityFox

• Visual Basic类图书
• Visual Basic类源码下载