防盗号我有一招!版主加精吧!

猴岛论坛 DNF地下城与勇士防盗号我有一招!版主加精吧!

倒序阅读最近浏览的帖子最近浏览的版块

« 返回列表

7个回复

防盗号我有一招!版主加精吧!

楼层直达

ZxID：10871630

等级: 列兵

举报只看楼主使用道具楼主发表于: 2010-02-21 0

怎么不能上传附件啊!还想把源码发上来呢!只好贴上来!
去这里看下吧 hi.baidu.com/119653341/blog/item/a700f78303fdb4dc9023d936.html

引用
Option Explicit
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private 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
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub about_Click()
Me.Hide
Dialog.Show 0

End Sub

Private Sub Form_Load()
SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3
Me.Caption = "密保卡速查2.0"
Label3.Caption = "当前系统时间：" & Time
End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Private Sub sj_Click()
Me.Hide
Form3.Show 1

End Sub

Private Sub SJ2_Click()
Me.Hide
Form4.Show 1
End Sub

Private Sub Text1_Click()
Text1.SelLength = Len(Text1.Text)
End Sub

Private Sub Text2_Click()
Text2.SelLength = Len(Text2.Text)
End Sub

Private Sub Text4_Click()
Text3.SelLength = Len(Text3.Text)
End Sub

Private Sub Timer1_Timer()
Label3.Caption = "当前系统时间：" & Time
End Sub

Private Sub Text1_Change()

If Len(Text1.Text) = 2 Then

Text2.SetFocus
Text2.SelLength = Len(Text2.Text)

mmm (Text1.Text)

End If

Test

Text4.Text = Right(Text4.Text, 2)
End Sub

Private Sub Text1_LostFocus()
Text1.Text = UCase(Text1.Text)
End Sub

Private Sub Text2_Change()

If Len(Text2.Text) = 2 Then

Text3.SetFocus
Text3.SelLength = Len(Text3.Text)

mmm (Text2.Text)
ElseIf Len(Text2.Text) = 0 Then

Text1.SetFocus
Text1.SelLength = Len(Text1.Text)
End If

Test

End Sub

Private Sub Text2_LostFocus()
Text2.Text = UCase(Text2.Text)
End Sub
Private Sub Text3_LostFocus()
Text3.Text = UCase(Text3.Text)
End Sub

Private Sub Text3_Change()
If Len(Text3.Text) = 2 Then
Text1.SetFocus
Text1.SelLength = Len(Text1.Text)
mmm (Text3.Text)

ElseIf Len(Text3.Text) = 0 Then

Text2.SetFocus
Text2.SelLength = Len(Text2.Text)

End If

Test

End Sub

Public Sub Test()
If Len(Text1.Text) = 0 Then

Text4.Text = ""

End If

End Sub

Private Sub mmm(ByVal txt As String)
Dim mb As String

If Option1.Value = True Then
mb = "密保1"
Else
mb = "密保2"
End If

Call Xm
If txt = "A1" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "A1", App.Path & "\set.dat")

ElseIf txt = "A2" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "A2", App.Path & "\set.dat")

ElseIf txt = "A3" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "A3", App.Path & "\set.dat")

ElseIf txt = "A4" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "A4", App.Path & "\set.dat")

ElseIf txt = "A5" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "A5", App.Path & "\set.dat")

ElseIf txt = "A6" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "A6", App.Path & "\set.dat")

ElseIf txt = "A7" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "A7", App.Path & "\set.dat")

ElseIf txt = "A8" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "A8", App.Path & "\set.dat")

End If
'------------------------ b
If txt = "B1" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "B1", App.Path & "\set.dat")

ElseIf txt = "B2" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "B2", App.Path & "\set.dat")

ElseIf txt = "B3" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "B3", App.Path & "\set.dat")

ElseIf txt = "B4" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "B4", App.Path & "\set.dat")

ElseIf txt = "B5" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "B5", App.Path & "\set.dat")

ElseIf txt = "B6" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "B6", App.Path & "\set.dat")

ElseIf txt = "B7" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "B7", App.Path & "\set.dat")

ElseIf txt = "B8" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "B8", App.Path & "\set.dat")

End If

'------------------------- c
If txt = "C1" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "C1", App.Path & "\set.dat")

ElseIf txt = "C2" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "C2", App.Path & "\set.dat")

ElseIf txt = "C3" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "C3", App.Path & "\set.dat")

ElseIf txt = "C4" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "C4", App.Path & "\set.dat")

ElseIf txt = "C5" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "C5", App.Path & "\set.dat")

ElseIf txt = "C6" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "C6", App.Path & "\set.dat")

ElseIf txt = "C7" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "C7", App.Path & "\set.dat")

ElseIf txt = "C8" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "C8", App.Path & "\set.dat")

End If
'------------------------- d

If txt = "D1" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "D1", App.Path & "\set.dat")

ElseIf txt = "D2" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "D2", App.Path & "\set.dat")

ElseIf txt = "D3" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "D3", App.Path & "\set.dat")

ElseIf txt = "D4" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "D4", App.Path & "\set.dat")

ElseIf txt = "D5" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "D5", App.Path & "\set.dat")

ElseIf txt = "D6" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "D6", App.Path & "\set.dat")

ElseIf txt = "D7" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "D7", App.Path & "\set.dat")

ElseIf txt = "D8" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "D8", App.Path & "\set.dat")

End If
'------------------------- e
If txt = "E1" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "E1", App.Path & "\set.dat")

ElseIf txt = "E2" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "E2", App.Path & "\set.dat")

ElseIf txt = "E3" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "E3", App.Path & "\set.dat")

ElseIf txt = "E4" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "E4", App.Path & "\set.dat")

ElseIf txt = "E5" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "E5", App.Path & "\set.dat")

ElseIf txt = "E6" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "E6", App.Path & "\set.dat")

ElseIf txt = "E7" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "E7", App.Path & "\set.dat")

ElseIf txt = "E8" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "E8", App.Path & "\set.dat")

End If
'------------------------ f
If txt = "F1" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "F1", App.Path & "\set.dat")

ElseIf txt = "F2" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "F2", App.Path & "\set.dat")

ElseIf txt = "F3" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "F3", App.Path & "\set.dat")

ElseIf txt = "F4" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "F4", App.Path & "\set.dat")

ElseIf txt = "F5" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "F5", App.Path & "\set.dat")

ElseIf txt = "F6" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "F6", App.Path & "\set.dat")

ElseIf txt = "F7" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "F7", App.Path & "\set.dat")

ElseIf txt = "F8" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "F8", App.Path & "\set.dat")

End If
'------------------------ g
If txt = "G1" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "G1", App.Path & "\set.dat")

ElseIf txt = "G2" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "G2", App.Path & "\set.dat")

ElseIf txt = "G3" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "G3", App.Path & "\set.dat")

ElseIf txt = "G4" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "G4", App.Path & "\set.dat")

ElseIf txt = "G5" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "G5", App.Path & "\set.dat")

ElseIf txt = "G6" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "G6", App.Path & "\set.dat")

ElseIf txt = "G7" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "G7", App.Path & "\set.dat")

ElseIf txt = "G8" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "G8", App.Path & "\set.dat")

End If
'------------------------ h
If txt = "H1" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "H1", App.Path & "\set.dat")

ElseIf txt = "H2" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "H2", App.Path & "\set.dat")

ElseIf txt = "H3" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "H3", App.Path & "\set.dat")

ElseIf txt = "H4" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "H4", App.Path & "\set.dat")

ElseIf txt = "H5" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "H5", App.Path & "\set.dat")

ElseIf txt = "H6" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "H6", App.Path & "\set.dat")

ElseIf txt = "H7" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "H7", App.Path & "\set.dat")

ElseIf txt = "H8" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "H8", App.Path & "\set.dat")

End If
'------------------------ i
If txt = "I1" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "I1", App.Path & "\set.dat")

ElseIf txt = "I2" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "I2", App.Path & "\set.dat")

ElseIf txt = "I3" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "I3", App.Path & "\set.dat")

ElseIf txt = "I4" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "I4", App.Path & "\set.dat")

ElseIf txt = "I5" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "I5", App.Path & "\set.dat")

ElseIf txt = "I6" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "I6", App.Path & "\set.dat")

ElseIf txt = "I7" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "I7", App.Path & "\set.dat")

ElseIf txt = "I8" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "I8", App.Path & "\set.dat")

End If
'------------------------ j
If txt = "J1" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "J1", App.Path & "\set.dat")

ElseIf txt = "J2" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "J2", App.Path & "\set.dat")

ElseIf txt = "J3" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "J3", App.Path & "\set.dat")

ElseIf txt = "J4" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "J4", App.Path & "\set.dat")

ElseIf txt = "J5" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "J5", App.Path & "\set.dat")

ElseIf txt = "J6" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "J6", App.Path & "\set.dat")

ElseIf txt = "J7" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "J7", App.Path & "\set.dat")

ElseIf txt = "J8" Then
Text4.Text = Text4.Text & "," & GetIni(mb, "J8", App.Path & "\set.dat")

End If
Call Jm

End Sub

打赏收藏新鲜事

回复引用

　

ZxID：10819587

等级: 少尉

_____自从有了姐，哥便越寂寞_____

举报只看该作者沙发发表于: 2010-02-21 0

啊原来如此 LZ辛苦了

回复引用

　

ZxID：1654333

等级: 禁止发言

灌水天才奖

魅力会员奖

最佳帅哥奖

鼎立支持奖

欢乐天使奖

财富大师奖

游戏精灵

举报只看该作者板凳发表于: 2010-02-21 0

什麼啊？

回复引用

　

ZxID：10871630

等级: 列兵

举报只看该作者地板发表于: 2010-02-21 0

要注意一点,就是使用确保电脑是否已经中毒!
如果中了毒,那就意味着你的电子密保卡的资料已经外泄!
这东西要在没中毒前把电子卡里的数字录入,就可以把电子卡删除了!

回复引用

　

ZxID：1654333

等级: 禁止发言

灌水天才奖

魅力会员奖

最佳帅哥奖

鼎立支持奖

欢乐天使奖

财富大师奖

游戏精灵

举报只看该作者 4楼发表于: 2010-02-21 0

看不明白

回复引用

　

ZxID：10871630

等级: 列兵

举报只看该作者 5楼发表于: 2010-02-21 0

我的号给封一年,所以才分享给大家使用!
号里有两千多万金币,痛苦啊

回复引用

　

ZxID：8075141

等级: 上等兵

举报只看该作者 6楼发表于: 2010-02-21 0

被腾讯·封号的狂战路过
34555

回复引用

　

′　　　燦〞

ZxID：10386885

等级: 上将

论坛巡查 bbs.houdao.com

灌水天才奖

魅力会员奖

个性SHOW奖

鼎立支持奖

财富大师奖

游戏精灵

欢乐天使奖

亲密爱人勋章

举报只看该作者 7楼发表于: 2010-02-21 0

图全挂，

我自己走的路、就算死也不能往后退。

一个人鼓起勇气、跟着时钟、一格格的前进

回复引用

　

« 返回列表

手机版
举报邮箱：[email protected]

Copyright © houdao.com, All Rights Reserved.
Powered by PhPWind Total 0.021113(s) query 15, Time now is:11-10 01:59, Gzip disabled