我自己写的程序—密码查看器 密码, 程序

噯伱╅詠吥變

大家试试！看看那里要改进的！！

柔肠寸断

柔肠寸断

ico图标资源问题

o(∩_∩)o...

好像是有点问题

o(∩_∩)o...

楼主会写程序啊，羡慕

柔肠寸断

楼主检查下

Sun

同样出现了2楼的情况

感谢楼主，不知能否开源

噯伱╅詠吥變

呵呵！不好意思！刚刚忘了打包ICO图标了！！

柔肠寸断

可以使用了
测试效果不错
开源.....

噯伱╅詠吥變

好！我发源码给大家看看！！
窗口代码

1. Option Explicit
   
2. 
   
3. Dim IsDragging As Boolean
   
4. 
   
5. Private Sub SetOnTop(ByVal IsOnTop As Integer)
   
6. Dim rtn As Long
   
7.     If IsOnTop = 1 Then
   
8.         '将窗口置于最上面
   
9.         rtn = SetWindowPos(frmMain.hwnd, -1, 0, 0, 0, 0, 3)
   
10.     Else
    
11.         rtn = SetWindowPos(frmMain.hwnd, -2, 0, 0, 0, 0, 3)
    
12.     End If
    
13. End Sub
    
14. 
    
15. Private Sub Check1_Click()
    
16.     SetOnTop (Check1.Value)
    
17. End Sub
    
18. 
    
19. Private Sub Form_Load()
    
20.     Check1.Value = 1
    
21.     SetOnTop (Check1.Value)
    
22.     IsDragging = False
    
23. End Sub
    
24. 
    
25. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    
26. If IsDragging = True Then
    
27.     Dim rtn As Long, curwnd As Long
    
28.     Dim tempstr As String
    
29.     Dim strlong As Long
    
30.     Dim point As POINTAPI
    
31.     point.x = x
    
32.     point.y = y
    
33.     '将客户坐标转化为屏幕坐标并显示在PointText文本框中
    
34.     If ClientToScreen(frmMain.hwnd, point) = 0 Then Exit Sub
    
35.     PointText.Text = Str(point.x) + "," + Str(point.y)
    
36.     '获得鼠标所在的窗口句柄并显示在hWndText文本框中
    
37.     curwnd = WindowFromPoint(point.x, point.y)
    
38.     hWndText.Text = Str(curwnd)
    
39.     '获得该窗口的类型并显示在WndClassText文本框中
    
40.     tempstr = Space(255)
    
41.     strlong = Len(tempstr)
    
42.     rtn = GetClassName(curwnd, tempstr, strlong)
    
43.     If rtn = 0 Then Exit Sub
    
44.     tempstr = Trim(tempstr)
    
45.     WndClassText.Text = tempstr
    
46.     '向该窗口发送一个WM_GETTEXT消息，以获得该窗口的文本，并显示在PasswordText文本框中
    
47.     tempstr = Space(255)
    
48.     strlong = Len(tempstr)
    
49.     rtn = SendMessage(curwnd, WM_GETTEXT, strlong, tempstr)
    
50.     tempstr = Trim(tempstr)
    
51.     PasswordText.Text = tempstr
    
52. End If
    
53.    
    
54. End Sub
    
55. 
    
56. Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    
57. If IsDragging = True Then
    
58.     Screen.MousePointer = vbDefault
    
59.     IsDragging = False
    
60.     '释放鼠标消息抓取
    
61.     ReleaseCapture
    
62. End If
    
63. End Sub
    
64. 
    
65. Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    
66. If IsDragging = False Then
    
67.     IsDragging = True
    
68.     Screen.MouseIcon = LoadPicture(App.Path + "\pass.ico")
    
69.     Screen.MousePointer = vbCustom
    
70.     '将以后的鼠标输入消息都发送到本程序窗口
    
71.     SetCapture (frmMain.hwnd)
    
72. End If
    
73.    
    
74. End Sub

复制代码

模板代码

1. Option Explicit
   
2. 
   
3. Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
   
4. Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
   
5. Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
   
6. Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
   
7. Declare Function GetLastError Lib "kernel32" () As Long
   
8. Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
   
9. Declare Function ReleaseCapture Lib "user32" () As Long
   
10. Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
    
11. 
    
12. Public Const WM_GETTEXT = &HD
    
13. Type POINTAPI
    
14.     x As Long
    
15.     y As Long
    
16. End Type

复制代码

Sun

感谢楼主。。。。。

小淡

呵呵。东西是好用。但是不知道有什么作用。！

柔肠寸断

可以查看电脑中大部分以*显示的密码

小淡

肯把源代码写出来的。是好人呀。 我要找你学习。，

daxu

开源，共同进步！

maomi

厉害啊   呵呵  
学习学习  努力ing:lol :lol

完美蚂蚁

:)不错,程序虽小 但是楼主开源的精神值得鼓励和支持:) :) :)

柔肠寸断

顶下

wukan886

很不错，支持一下！