2008-09-23 12:44
是讲全局快捷键CTRL+C和寻找进程并关闭的代码:
'以下放到模块Module1.bas中
'========================================================================
Public Const DT_CENTER = &H1
Public Const DT_WORDBREAK = &H10
Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Declare Function DrawT |
2008-09-23 12:27
2008-08-20 16:24
1.名称为:csrss.exe
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Lon |
2008-08-16 17:41
蟋蟀QQ消息轰炸器更新通知,因为蟋蟀QQ消息轰炸器2.00版,在轰炸时,有点毛病,有时炸不出来,
更新后解决了这个问题,也支持了更多的QQ版本,界面也有所美化.
|
2008-08-14 18:00
hook是WINDOWS提供的一种消息处理机制,它使得程序员可以使用子过程来监视系统消息,并在消息到达目标过程前得到处理。
下面将介绍WINNDOWS HOOKS并且说明如何在WINDOWS 程序中使用它。
关于HOOKS
使用HOOK 将会降低系统效率,因为它增加了系统处量消息的工作量。建议在必要时才使用HOOK,并在消息处理完成后立即移去该HOOK。
HOOK链
WINDOWS提供了几种不同类型的HOOKS;不同的HOOK可以处理不同的消息。例如,WH_MOUSE HOOK用来监视鼠标消息。
WINDOWS为这几种HOOKS维护着各自的HOOK
|
2008-08-14 17:53
IDE下可以引用那个dll使用。编译后可以在未注册dll的计算机上正常工作了。
使用方法:
Dim pDll As Long '记录Dll,用来最后完美释放
Dim Update As Update.Handle '要实例化的对象
Set Update = LoadObjectByName(App.Path & "\Update.dll", "Handle", pDll) ' New
Update.Handle
If Update Is Nothing Then Exit Sub
Update.Test '<--类中的方法
Set Update = Nothing '<-----这句不能少,否则会出现意外错误
UnLoadDll pDll '<----释放
模块中:
Opt |
2008-08-14 17:43
这代码能把系统背后运行的东西弄出来
添加个按钮
代码:
Private Declare Function BroadcastSystemMessage Lib "user32" (ByVal dw As Long, pdw As Long, ByVal un As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Sub Command1_Click()
BroadcastSystemMessage 16, 8, 274, 61472, 0
End Sub

|
2008-08-14 13:35
2008-08-11 10:13
░ ▒ ▬ ♦ ◊ ◦ ♠ ♣ ▣ ۰•● ❤ ●•۰
► ◄ ▧ ▨ ♨ ◐ ◑ ↔ ↕ ▪ ▫ ☼ ♦
♧♡♂♀♠♣♥❤☜☞☎☏⊙◎ ☺☻☼▧▨♨◐◑↔↕▪ ▒ ◊◦▣▤▥ ▦▩◘ ◈◇♬ |
2008-08-08 10:53
本站的软件问题,bug提交,问题回馈,链接失效.意见提交.
都在此处留言,谢谢.

因为问题太多了,有很多软件连接都失效了,所以麻烦大家.帮我找出问题. |
|
|
|