一段时间在想有些病毒是怎么让U盘打开的同时，运行后门的，不经意间想出了这个办法！nowroot = Left(App.Path, 3)'求跟目录nowpath = nowroot & App.EXEName & ".exe"strpath = IIf(Right(App.Path, 1) = "\&q……继续阅读 »
admin
18年前 (2007-09-18) 5749浏览 0评论
6个赞
做了部分修改和优化，版权归原作者所有
1，如果你仅仅想监视一个目标，那么WaitForSingleObject是非常好的。内存占用惊人！Option Explicit
……继续阅读 »
admin
18年前 (2007-09-09) 6035浏览 0评论
6个赞
老实交代：我只是个copyer，做了部分修改和优化，版权归原作者所有
module中：Option ExplicitPrivate Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer……继续阅读 »
admin
18年前 (2007-09-09) 7020浏览 0评论
5个赞
更换卡巴斯基key动画下载地址1：更新卡巴斯基KEY.rar 更换卡巴斯基key动画下载地址2：
……继续阅读 »
admin
18年前 (2007-06-05) 8910浏览 0评论
3个赞
如果icesword无法加载运行可以这样:在命令提示符中进入icesword所在的目录,输入IceSword.exe /c来修复下看看.
……继续阅读 »
admin
18年前 (2007-06-04) 6242浏览 0评论
2个赞
今天为同学看电脑，她说电脑运行相当慢。经过一番“大扫除”，竟然扫描出34个恶意软件。经过清理，那个速度”刷刷“了。重新装了杀毒的，再去运行锐捷网络客户端，竟然无法运行，卸载重装。 这时就出来文章标题的问题了，总是出现“0x80040707……继续阅读 »
admin
18年前 (2007-05-25) 72912浏览 3评论
157个赞
当数据库的记录一个自动为空的时候，如果用DataGrid显示你的数据库记录就会出现“下标越界”的错误，因为当某个记录的某个字段为空，把值赋值给datagrid的时候，数组就会少1，从而出现上述错误。 这个问题困扰了我很久，开始采用的是把每个记……继续阅读 »
admin
18年前 (2007-05-22) 18138浏览 0评论
7个赞
声明：
‘设置显示最前全局变量Dim OnTop As Long‘显示在最前
……继续阅读 »
admin
18年前 (2007-05-22) 10736浏览 0评论
8个赞
把from的borderstyle设置为1，把minibutton和maxbutton设置为TRUE.1，然后在通用种声明：
‘点击任务栏图标，实现窗体的最大化和最小化,用setwindowrgn实现 Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd……继续阅读 »
admin
18年前 (2007-05-22) 10792浏览 0评论
9个赞
经过不断的更新，这个系统总算是基本上让自己满意了。 用VB6写成，从程序来讲，实现了DataGrid的分页，翻页；保存查询结果为txt文件；对数据库记录的修改，删除和添加；点击任务栏图标，利用setwindowrgn来实现窗体的最大化和最小化；窗体显示在桌面最上……继续阅读 »
admin
18年前 (2007-05-21) 10426浏览 0评论
2个赞
