Tesla.Angela 发表于 2011-12-9 21:35:18

qplchen 发表于 2011-12-6 20:38 static/image/common/back.gif
就是模仿一个密码框？

要仿造得有技术含量！让人看不出破绽还是有点难度的！

oopww 发表于 2011-12-10 18:36:35

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal Hwnd As Long, lpRect As RECT) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Private Sub Command1_Click()
Dim Hwnd As Long, tipwnd As Long, rctemp As RECT
Hwnd = FindWindow("SciCalc", vbNullString)
tipwnd = FindWindowEx(Hwnd, 0, "Edit", vbNullString)
GetWindowRect tipwnd, rctemp
With Text1
SetParent .Hwnd, tipwnd
.Top = 0
.Left = 0
.Width = (rctemp.Right - rctemp.Left) * Screen.TwipsPerPixelX - 50
.Height = (rctemp.Bottom - rctemp.Top) * Screen.TwipsPerPixelY
End With
Me.Hide
End Sub

Private Sub Form_Load()
With Text1
.Appearance = 0
.BorderStyle = 0
.Text = ""
End With
Shell "calc.exe"
End Sub

Private Sub Text1_GotFocus()
Text1.SelLength = Len(Text1.Text)
Text1.SelStart = 0
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 81 And Shift = 2 Then
   Unload Me
End If
End Sub百度百度。。。。。。这是简单的啦，自己修改。。

BillBeggar 发表于 2012-1-8 07:29:24

学习学习

pencilword 发表于 2012-1-15 13:11:59

只有顶了，QQ尾巴复活

F0-0 发表于 2012-2-15 00:29:29

窥其全貌

Tesla.Angela 发表于 2012-2-16 20:14:17

pencilword 发表于 2012-1-15 13:11 static/image/common/back.gif
只有顶了，QQ尾巴复活

复活不了，这种伎俩一旦公开，就没什么用了。

ttuiop 发表于 2012-2-24 04:40:26

刚来，看下

qwert502 发表于 2012-3-16 13:23:24

看看原理。。。

gujin162 发表于 2012-3-23 15:20:07

deathgod8884 发表于 2012-3-24 20:41:44

好好学习

ht225 发表于 2012-4-11 19:28:40

我的看看。。。

WG102514 发表于 2012-4-19 16:42:31

飘过

ggchen 发表于 2012-4-19 19:46:15

呵呵，看看

Gamsen 发表于 2012-4-21 19:42:04

学习一下咯、、、

csanycall 发表于 2012-4-28 13:15:35

学习学习

nbboy 发表于 2012-4-28 20:50:19

看看。

nbboy 发表于 2012-4-28 20:56:01

Tesla.Angela 发表于 2012-2-16 20:14 static/image/common/back.gif
复活不了，这种伎俩一旦公开，就没什么用了。

一般网民的安全意识没那么强的。用啥spy++啥的。把安全的最后一道防线都交给杀毒软件。
但杀毒软件。。。

facejava 发表于 2012-4-28 21:25:55

了解一下

chenmo不行 发表于 2012-4-28 23:21:05

呵呵，你知道的太多了

jun3321 发表于 2012-5-7 22:17:17

学习下

macro 发表于 2012-5-18 08:07:33

知其言,不知其所以言,学习.....稻

yy130com 发表于 2012-5-19 23:39:09

学习学习

sicily 发表于 2012-9-24 00:10:01

现在QQ的密码框应该是自己绘制的了

zerovos 发表于 2012-10-12 20:55:40

看看先，是什么东东，谢谢分享

hnzxfboy 发表于 2012-11-10 21:52:36

牛，看看是啥东西

wszjljx 发表于 2012-11-13 11:57:33

表示注入QQ以后再模拟密码框岂不是SPY++也查不出麽.......或者直接SetParent把密码框放到QQ窗体上......

imsoft 发表于 2012-12-8 23:19:19

看看，学习一下

somylr 发表于 2013-1-1 16:13:48

看看，学习一下
页: 1 [2]
查看完整版本: 据说最近流行QQ粘虫