Board logo

标题: 我自己写的程序—密码查看器 [打印本页]

作者: 噯伱╅詠吥變    时间: 2008-6-17 11:00     标题: 我自己写的程序—密码查看器

大家试试!看看那里要改进的!!
作者: 柔肠寸断    时间: 2008-6-17 11:47

[attach]17[/attach]
作者: 柔肠寸断    时间: 2008-6-17 11:47

ico图标资源问题
作者: o(∩_∩)o...    时间: 2008-6-17 12:31

好像是有点问题
作者: o(∩_∩)o...    时间: 2008-6-17 12:32

楼主会写程序啊,羡慕
作者: 柔肠寸断    时间: 2008-6-17 12:39

楼主检查下
作者: Sun    时间: 2008-6-17 12:43

同样出现了2楼的情况

感谢楼主,不知能否开源
作者: 噯伱╅詠吥變    时间: 2008-6-17 14:06

呵呵!不好意思!刚刚忘了打包ICO图标了!!
作者: 柔肠寸断    时间: 2008-6-17 14:10     标题: 回复 8# 噯伱╅詠吥變 的帖子

可以使用了
测试效果不错
开源.....
作者: 噯伱╅詠吥變    时间: 2008-6-17 14:18

好!我发源码给大家看看!!
窗口代码
  1. Option Explicit

  2. Dim IsDragging As Boolean

  3. Private Sub SetOnTop(ByVal IsOnTop As Integer)
  4. Dim rtn As Long
  5.     If IsOnTop = 1 Then
  6.         '将窗口置于最上面
  7.         rtn = SetWindowPos(frmMain.hwnd, -1, 0, 0, 0, 0, 3)
  8.     Else
  9.         rtn = SetWindowPos(frmMain.hwnd, -2, 0, 0, 0, 0, 3)
  10.     End If
  11. End Sub

  12. Private Sub Check1_Click()
  13.     SetOnTop (Check1.Value)
  14. End Sub

  15. Private Sub Form_Load()
  16.     Check1.Value = 1
  17.     SetOnTop (Check1.Value)
  18.     IsDragging = False
  19. End Sub

  20. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  21. If IsDragging = True Then
  22.     Dim rtn As Long, curwnd As Long
  23.     Dim tempstr As String
  24.     Dim strlong As Long
  25.     Dim point As POINTAPI
  26.     point.x = x
  27.     point.y = y
  28.     '将客户坐标转化为屏幕坐标并显示在PointText文本框中
  29.     If ClientToScreen(frmMain.hwnd, point) = 0 Then Exit Sub
  30.     PointText.Text = Str(point.x) + "," + Str(point.y)
  31.     '获得鼠标所在的窗口句柄并显示在hWndText文本框中
  32.     curwnd = WindowFromPoint(point.x, point.y)
  33.     hWndText.Text = Str(curwnd)
  34.     '获得该窗口的类型并显示在WndClassText文本框中
  35.     tempstr = Space(255)
  36.     strlong = Len(tempstr)
  37.     rtn = GetClassName(curwnd, tempstr, strlong)
  38.     If rtn = 0 Then Exit Sub
  39.     tempstr = Trim(tempstr)
  40.     WndClassText.Text = tempstr
  41.     '向该窗口发送一个WM_GETTEXT消息,以获得该窗口的文本,并显示在PasswordText文本框中
  42.     tempstr = Space(255)
  43.     strlong = Len(tempstr)
  44.     rtn = SendMessage(curwnd, WM_GETTEXT, strlong, tempstr)
  45.     tempstr = Trim(tempstr)
  46.     PasswordText.Text = tempstr
  47. End If
  48.    
  49. End Sub

  50. Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  51. If IsDragging = True Then
  52.     Screen.MousePointer = vbDefault
  53.     IsDragging = False
  54.     '释放鼠标消息抓取
  55.     ReleaseCapture
  56. End If
  57. End Sub

  58. Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  59. If IsDragging = False Then
  60.     IsDragging = True
  61.     Screen.MouseIcon = LoadPicture(App.Path + "\pass.ico")
  62.     Screen.MousePointer = vbCustom
  63.     '将以后的鼠标输入消息都发送到本程序窗口
  64.     SetCapture (frmMain.hwnd)
  65. End If
  66.    
  67. End Sub
复制代码
模板代码
  1. Option Explicit

  2. 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
  3. Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
  4. Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
  5. Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
  6. Declare Function GetLastError Lib "kernel32" () As Long
  7. 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
  8. Declare Function ReleaseCapture Lib "user32" () As Long
  9. Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

  10. Public Const WM_GETTEXT = &HD
  11. Type POINTAPI
  12.     x As Long
  13.     y As Long
  14. End Type
复制代码

作者: Sun    时间: 2008-6-17 14:23

感谢楼主。。。。。
作者: 小淡    时间: 2008-6-17 17:46

呵呵。东西是好用。但是不知道有什么作用。!
作者: 柔肠寸断    时间: 2008-6-17 17:50     标题: 回复 12# 小淡 的帖子

可以查看电脑中大部分以*显示的密码
作者: 小淡    时间: 2008-6-17 17:51

肯把源代码写出来的。是好人呀。 我要找你学习。,
作者: daxu    时间: 2008-6-21 16:49

开源,共同进步!
作者: 3112552    时间: 2008-7-1 16:28

提示: 作者被禁止或删除 内容自动屏蔽
作者: maomi    时间: 2008-7-1 23:31

厉害啊   呵呵  
学习学习  努力ing:lol :lol
作者: 完美蚂蚁    时间: 2008-7-2 12:13

:)不错,程序虽小 但是楼主开源的精神值得鼓励和支持:) :) :)
作者: 柔肠寸断    时间: 2008-8-3 17:58

顶下
作者: wukan886    时间: 2008-8-5 15:51

很不错,支持一下!
作者: mitnick    时间: 2008-8-5 23:10

哎呀呀。。
  
   现在类似于这种*号查看器。。几乎没什么用了。。

我记得在几年前还能破QQ密码,等。。现在这种工具没多大用处了。。

  不过还是支持楼主。。
作者: wacky    时间: 2008-8-6 17:08

不 过看不 到!
作者: 劳资是怪物    时间: 2008-8-7 21:28

太棒了,非常厉害,很好很强大。:call: 很羡慕
作者: 劳资是怪物    时间: 2008-8-7 21:35

虽然不能查看有些密码,但是做的出这种东西的人,很强了
作者: 背叛的火焰    时间: 2008-8-8 10:10

支持  可我看不懂代码  我得努力了
作者: 菜鸟小菲    时间: 2008-8-13 22:12

支持一下
谢谢分享
作者: 流淚╮鮭鮭    时间: 2008-8-15 11:33

不错!》。。  嘎嘎!!:lol
作者: chengyichen    时间: 2008-8-24 10:06

感谢楼主开源
作者: a122377787    时间: 2009-8-13 13:39

怎么没用的啊??????????????????、郁闷。。。。用不了
作者: mo309782571    时间: 2009-8-23 14:09

支持一下.....
作者: meishenm    时间: 2009-11-22 19:36

呵呵,办法不错
作者: meishenm    时间: 2009-11-22 19:37

呵呵,办法不错
作者: meishenm    时间: 2009-11-22 19:37

呵呵,办法不错
作者: meishenm    时间: 2009-11-22 19:37

呵呵,办法不错
作者: meishenm    时间: 2009-11-22 19:37

呵呵,办法不错
作者: meishenm    时间: 2009-11-22 19:37

呵呵,办法不错
作者: meishenm    时间: 2009-11-22 19:37

呵呵,办法不错
作者: meishenm    时间: 2009-11-22 19:37

呵呵,办法不错
作者: meishenm    时间: 2009-11-22 19:37

呵呵,办法不错
作者: meishenm    时间: 2009-11-22 19:37

呵呵,办法不错
作者: meishenm    时间: 2009-11-22 19:37

呵呵,办法不错
作者: meishenm    时间: 2009-11-22 19:37

呵呵,办法不错
作者: meishenm    时间: 2009-11-22 19:37

呵呵,办法不错
作者: meishenm    时间: 2009-11-22 19:37

呵呵,办法不错
作者: 441545795    时间: 2010-1-17 09:48

不错顶一下 我还菜鸟
作者: 310151945    时间: 2010-2-25 16:22

不错~顶!!!!!
作者: 影子    时间: 2010-3-9 23:57

你们争牛。羡慕
作者: lkqtc    时间: 2010-3-16 14:08

问题搞定了没有?
作者: 378320647    时间: 2011-11-9 13:23


作者: ronald2010    时间: 2012-2-3 17:50

支持一下樓主~~




欢迎光临 【3.A.S.T】网络安全爱好者 (http://3ast.com./) Powered by Discuz! 7.2