Access破解工具

作者:admin 日期:2008-05-30

点击下载此文件

分类:Index | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 1885

39杀木马软件源代码.rar

作者:admin 日期:2008-05-23

点击下载此文件

分类:vb | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2233

设置窗体总在屏幕最底

作者:admin 日期:2008-05-21

'Module1

Option Explicit

Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

分类:vb | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2282

如何使程序不出现在任务列表中

作者:admin 日期:2008-05-21

App.TaskVisible = False

分类:vb | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2146

取文件夹下的所有子目录

作者:admin 日期:2008-05-21

Public Sub HaalDirOp(ByVal Path$)
    Dim vDirName As String, LastDir As String

    Screen.MousePointer = vbHourglass
    If Right(Path$, 1) <> "\" Then Path$ = Path$ & "\"

分类:vb | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2175

实现鼠标的隐藏

作者:admin 日期:2008-05-21

'当bShow为False时，计数器减1。只有当计数器值大于或等于零时，鼠标才显示出来。通常情况下鼠标是显示的，并且计数器值为0，因此只需简单地调用ShowCursor（）函数即能实现鼠标的隐藏与显示：
Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Private Sub Form_Load()

分类:vb | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2516

半透明窗体

作者:admin 日期:2008-05-21

Private Declare Function SetWindowLong Lib "user32" _
                Alias "SetWindowLongA" _
                (ByVal hwnd As Long, _
                ByVal nIndex As Long, _
                ByVal dwNewLong As Long) _

分类:vb | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2414

VB关闭程序

作者:admin 日期:2008-05-21

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Const WM_CLOSE = &H10

分类:vb | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2259

操作ini文件

作者:admin 日期:2008-05-21

'GetPrivateProfileString 从ini文件中读取信息
'WritePrivateProfileString 往ini文件中写入信息
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

分类:vb | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2305

QQ视频攻击器

作者:admin 日期:2008-05-20

原理:
利用SetCursorPos 320, 190 '属标移动到qq摄像头位置
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 '模拟左键点击

下载文件

点击下载此文件

分类:vb | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2375

商业在线升级源码

作者:admin 日期:2008-05-20

还没细看代码

点击下载此文件

分类:vb | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2104

FTP上传下载

作者:admin 日期:2008-05-20

还没细看代码

点击下载此文件

分类:vb | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2314

多用户聊天系统

作者:admin 日期:2008-05-20

还没细看代码,先贴上
下载文件

点击下载此文件

分类:vb | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2260

邮件群发系统

作者:admin 日期:2008-05-20

还没细看代码

点击下载此文件

分类:vb | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2249

验证码识别技术

作者:admin 日期:2008-05-20

本人尚没看懂,以后研究

下载文件

点击下载此文件

分类:vb | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 1913

怎么编程自动填表提交到网页

作者:admin 日期:2008-05-20

怎么编程把用户名，密码提交到网页上的登录页？
首先在程序中加入Webbrowser控件并加入引用 Microsoft HTML Object Library。
假设你的HTML页面表单代码如下：
<form method="POST" action="http://chen/dll/chat/chatmain.exe/RegUser">
<p>请填写下面表单注册（*项为必添项）</p>

分类:vb | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2917