vb 解密码小程序

       å¦ä¸€ä¸ªç¨‹åºä¸­çš„代码

       Private Declare Function SendMessage Lib "user" Alias "SendMessageA" (ByVal hwnd As Long,国内app源码 ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long

       Private Declare Function FindWindow Lib "user" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

       Private Declare Function FindWindowEx Lib "user" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

       Private Sub Command2_Click()

       Dim hwnd As Long, t As Long, s As String * ‘声明变量hwnd、t为长整形，s为 个字符的字符型变量，把句柄保存在hwnd中

       hwnd = FindWindow(vbNullString, "HJonny")'寻找名为HJonny的窗体标题，这里就比如你的第一个密码程序。

       t = FindWindowEx(hwnd, 0, "ThunderRT6TextBox", vbNullString)'这个是寻找其中的一个文本框，也就是迷得密码框的句柄，保存在t中

       SendMessage t, , , s'sendmassage取t句柄，也就是你的密码框中的文本内容。

       MsgBox s'弹出提示

       End Sub

       è‡ªå·±å†™ä¸å¤åˆ¶ï¼Œäººå“å¥½ï¼Œå¸Œæœ›èƒ½å¸®åˆ°ä½