蟋蟀的窝
百度空间 | 百度首页 
               
 
站务公告
 
 
 
 
 
     
 
文章列表
 
2009-04-24 13:22

如果用到编译DLL的话,在打包给别人的话,不注册DLL是运行不了的.

网上有很多方法,我把优秀的整理出来..(举例:xishuai.dll)

从简单的讲起:

如果自己的话:
regsvr32 xishuai.dll

给别人,呵呵,当然忘不了BAT了..

将下面复制到记事本,重命名为:注册组件.BAT
@echo off
regsvr32 xishuai.dll
echo 注册完成
echo

这样还要用户操作..?(哈,我们还有SHELL!!)

 
2009-02-09 18:18

人们在单一恺撒密码的基础上扩展出多表密码,称为“维吉尼亚”密码。它是由16世纪法国亨利三世王朝的布莱瑟·维吉尼亚发明的,其特点是将26个恺撒密表合成一个,见下表:
A A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
B B C D E F G H I J K L M N O P Q R S T U V W X Y Z A
C C D E F G H I J K L M N O P Q R S T U V W X Y Z A B
D D E F G H I J K L M N O P Q R S T U V W X Y Z A B C
E E F G H I J K L M N O P Q R S T U V W X Y Z A B C D
F F G H I J K L M N O

 
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

                                                  蟋蟀QQ消息轰炸器
                        

 
     
 
 
个人档案
 
ys蟋蟀

安徽 
上次登录:
19小时前
加为好友
 
   
 
文章分类
 
 
 
 
 
 
 
     
 
最新评论
 
文章评论|照片评论


[表情]
 

 

 

5行代码结束你的双进程保护
 

gfdsgfdsgsd
 
     
 
好友最新文章
 
     
 
最近访客
 
 

福娃囧囧

kingovo

371602938

血血V2

ForeverBell

股惑仁心

TrueSeed

夜流D紫皓
     
 
背景音乐
 
 
其它
 
已有人次访问本空间
 
订阅RSS  什么是RSS?

您也想拥有这样的空间?请点此申请。
     


©2009 Baidu