VB程序员博客

    本文解决vb6+access网络访问，以及vb6+mssql在internet环境下连接十分低效的问题。

    首先来看看基于ado+access的单机版应用代码: (源码下载地址: http://www.tebny.com/2code/adodemo.rar)
这是一个很典型的ado+access的应用,其中包含了增、删、改、查的各种操作.由于代码比较简单，这里就不赘述了。
    我们的任务是如何将这个典型的单机应用，只增加两行代码使其扩展为网络版。
    第一步：下载并注册NetData控件: http://www.tebny.com/2code/netdatademo.rar
    第二步：建立服务器端程序：
        2.1 新建一个vb工程，并保存，加入刚刚注册好的NetData控件，然后将NetDataServer控件放到form1上。
        2.2 在Form_Load事件中加入:
                NetDataServer1.Start "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=cs.mdb;", "8888"
            这个方法有两个参数，第一个是标准的ado连接字符串,第二个是服务器端占用的端口，这里设置为8888
            这里需要注意的是连接字符串中的数据库路径，这个数据库就是adoDemo里的数据库。我这里将它复制到
            了当前目录下。
        2.3 在Form_Unload事件中加入：
                NetDataServer1.Down  '关闭服务,释放资源…
        2.4 编译该项目，得到Server.exe
        这样，服务器端就构建完成了，不错，就是这么的简单。
        (详细代码见刚刚下载的netdatademo/服务器端)
    第三步：更改原有单机版程序为客户端程序(只须增加两行代码):
        3.1 打开原有的项目，将目录下的cs.mdb移动到刚刚建立的服务器端的目录下。是的，客户端不需要数据库,
            因为数据库存在服务器端。
        3.2 第一步–>>> 注释或删除掉原有ADO本地连接代码
            'Public DB As New Connection  'ado对象中的连接对象
            该代码在Form1的第一行
        3.3 第二步–>>> 在Form_load事件中，注释或删除掉原有ADO本地连接的代码
            'DB.CursorLocation = adUseClient  '设置数据库为本地数据库
            'DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=cs.mdb;"
        3.4 第三步–>>> 在Form_load中，增加一行代码:
            Db.Start "127.0.0.1", "8888"
            启动客户端,指定服务器的ip和端口,为了便于测试这里设置的是本机ip
            实际应用中需将服务器端运行在远程服务器上，这里就要填远程服务器的域名或ip了。
            注意：这行代码需增加到 Call Fillfg 过程之前
        3.5 第四步–>>> 在Form_Unload事件中，注释或删除原有的ADO关闭本地连接的代码:
            'DB.Close '注释掉原有ADO本地连接代码
            然后增加第二行代码：
            Db.Down '关闭客户端控件…
            注意：这行代码一定要加上，不释放资源会影响客户端性能的。
        3.6 第五步—>>>最重要的一步！那就是加入NetData控件，并且将NetDataClient放到form1上，将它的name改名为DB
            注意：为了兼容旧有的代码一定要将NetDataClient控件名改为DB
        3.7 编译该项目，得到Client.exe
    至此，单机版向网络版的升级就大功告成了。先运行server.exe,再运行3个client.exe，测试一下~
速度是不是很快。如果你有自己的internet服务器，可以将数据库和server.exe复制到服务器上，在服务器上运行。
(别忘了在服务器端注册NetData控件)。client.exe可以在多个客户端运行。这样基于vb6+access的c/s架构应用就搭建完毕了。
    基于mssql的应用也可用此方法升级，优点就是用netdata替代ado直连mssql的方式,会带来巨大的性能提升。因为ado直连远程
mssql实在是太慢了，查询量稍大就会超时机器不稳定，使用netdata就从根本上解决了这个问题。
    本文只是介绍了netdata的一部分简单的应用，如：事务、存储过程、服务器端处理业务逻辑等一些实用性的东西没有探讨，
netdata不仅能胜任，而且十分高效。更多的netdata功能等待您的发掘~

    ps: NetData是我在实际工作中提炼出来的，基于Winsock,ado和xml技术的vb6用户控件。此控件为共享软件，大家可无限制的使用于
非商业性应用中。有任何好的建议或对此控件的疑问，请联系我QQ: 170836023

很好 收藏了

收藏了！

不错!

哦~

同志们
顶啊……….!

好东西
收藏起来以后可能有用
谢谢

下载收藏了

如果我没有自己的服务器.只是网上一些免费的虚拟服务器又怎么办呢?我不可能运行SERVICE.EXE呀?那不是没用?

看看

恩，我要试一下

对，没用，这个东西相当于数据库访问中间件，这个东西也就c/s方式简单移植到互联网上可以，如果你本身就是b/s结构，这东西对你没啥用，当你想到用他的时候，你早就管理着自己能摸到的n台服务器了。

收藏了！

如果服务器端功能在强大点就好了，比如能实时监控从客户端传上来的数据，记录错误的SQL、来源IP、客户端唯一标示等等就完美了。
还不清楚这个服务端稳定不稳定。

服务器端和客户端同一个机器上很好用
但怎么把客户端移到 别的机器上很慢呀

服务器端代码
Option Explicit

Private Sub Form_Load()
NetDataServer1.Start "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "Northwind.mdb;", "8888"
End Sub

Private Sub Form_Unload(Cancel As Integer)
NetDataServer1.Down
End Sub
客户端代码
Option Explicit

Private Sub Command1_Click()
fg.Clear

Dim strSql As String
strSql = "select * from Products"
Set fg.DataSource = NetDataClient1.Execute(strSql)
MsgBox "ok", , "提示"
End Sub

Private Sub Form_Load()
NetDataClient1.Start "192.168.0.20", 8888
End Sub

Private Sub Form_Unload(Cancel As Integer)
NetDataClient1.Down
End Sub

记录集才91条记录啊

控件是以前在vbgood下的
当时不知道怎么用 就放在哪里
今天无意看到这个帖子
就试验了一下

如果用ADODC连接怎么改？

本人写了个小程序(系统个性打造工具)
现在以支持 本机信息,系统相关,QQ批量登录,定时设置,在线搜索

本机信息

获取计算机名,当前用户名,本机IP地址
本次系统启动时间,本次启动系统运行时长
上次系统启动时间,上次系统关机时间
系统累计运行时长,系统累计关机时长
当前操作系统,当前操作系统版本
当前系统安装时间,系统Build,系统最后服务包
当前系统运行状态,当前系统序列号

系统相关

隐藏注销,隐藏快捷方式的小箭头,隐藏快捷方式到
隐藏桌面图标,隐藏控制面板 等相关项
(这部分功能只完成了一部分)

QQ批量登录

支持批量登录
支持挂机模式(自定义时间)
支持在线时长查看
支持登录时间查看
支持隐身或正常登录
支持定时下线

定时设置

支持定时注销
支持定时重启
支持定时关机
支持定时提醒
支持定时运行程序
具有备忘录的功能

在线搜索

支持主板驱动搜索
支持显卡驱动搜索
支持声卡驱动搜索
支持华军软件搜索
支持天空软件搜索
支持百度网页搜索
支持百度音乐搜索
支持百度图片搜索
支持百度Mp3搜索
支持百度Flash搜索
支持Google网页搜索
支持Google图片搜索

资源下载

C/S结构最让人受不了的就是客户端多了以后的版本维护,B/S结构只要你修改服务器端程序，就可以实现所有使用者用最新版本，当然错误也是最新版的，哈哈。如何能让C/S的客户端也能自动跟服务器端一起升级呢？当然现在解决方案有很多，例如用TCP ,UDP,WebService,HTTP,FTP,实现工具，C,VB,C#,Delphi等等，很多的自动更新程序，今天我给大家带来一个，基于HTTP协议，用VB和VB自带的微软控件Inet实现的，绿色、无第三方控件、开源的 Client端自动升级程序。

    下载地址：http://download.csdn.net/source/755125

详细说明地址：http://blog.csdn.net/crazyxf/archive/2008/11/04/3220065.aspx

接分接分

接分接分接分

试用，学习，接分，一条龙！

顶下再看

接分

混分

不知道怎么用

我是来感谢楼主的精神的 顺便接分

JF!ding

等楼主分红了

感觉上可以增加对ZIP压缩包的处理.

顶一下

学习

顶

顶

http://blog.csdn.net/crazyxf/archive/2008/11/04/3220065.aspx
这里有详细说明

UP~~

哈哈!前二十,只不过楼主的程序不错,学习!

我是20？

21
唉，没有分了

jf

结贴给分

一个将 BMP 格式转换为 JPG格式的小程序

支持命令行,支持批处理,支持鼠标拖动转换

命令行格式: image.exe [File1][Separator][File2][Separator][Flage

  参数说明:
              [File1] 要转换的文件(包含绝对路径 c:abc.bmp
              [Separator] 可以是任何1位字符 [ ][,][;][!][a][A]
              [File2] 目标文件(转换后生成的文件 d:aaaabc.jpg)
              [Flage] 标识符 1 或 0 ,1 表示删除 原文件,默认值 0 不删除"
    例: 

      image.exe c:abc.bmp  (当File2路径错误或不存在时,默认File1 路径及文件名只是格式为JPG   
      image.exe c:abc.bmp,d:aaaabc.jpg (转换后文件保存d:aaa下 如果d:aaa文件夹不存在,自动创建       
      image.exe c:abc.bmp 1 (转换File1后,删除File1.File2默认File1 路径及文件名只是格式为JPG)
      image.exe c:abc.bmp e:abc.jpg 1 (转换File1后,保存File2后删除File1)
   
    注: 支持鼠标拖动转换.把要转换的BMP格式文件用鼠标左键按着不放,拖动到Image.exe 文件上就可完
          成转换.命令行暂时不支持批处理.

资源文件以上传

没什么难度

还有就是  资源文件以上传 ，上传到那里了， 你让别人去找？

http://download.csdn.net/source/690736

资源文件下载处

http://download.csdn.net/source/690736

资源文件下载处

用VB6和GDI+轻轻松松就实现了。

这个这个，也许大概或者可能差不多用不着这样吧………….

一个将 BMP 格式转换为 JPG格式的小程序

支持命令行,支持批处理,支持鼠标拖动转换

命令行格式: image.exe [File1][Separator][File2][Separator][Flage

  参数说明:
              [File1] 要转换的文件(包含绝对路径 c:abc.bmp
              [Separator] 可以是任何1位字符 [ ][,][;][!][a][A]
              [File2] 目标文件(转换后生成的文件 d:aaaabc.jpg)
              [Flage] 标识符 1 或 0 ,1 表示删除 原文件,默认值 0 不删除"
    例: 

      image.exe c:abc.bmp  (当File2路径错误或不存在时,默认File1 路径及文件名只是格式为JPG   
      image.exe c:abc.bmp,d:aaaabc.jpg (转换后文件保存d:aaa下 如果d:aaa文件夹不存在,自动创建       
      image.exe c:abc.bmp 1 (转换File1后,删除File1.File2默认File1 路径及文件名只是格式为JPG)
      image.exe c:abc.bmp e:abc.jpg 1 (转换File1后,保存File2后删除File1)
   
    注: 支持鼠标拖动转换.把要转换的BMP格式文件用鼠标左键按着不放,拖动到Image.exe 文件上就可完
          成转换.命令行暂时不支持批处理.

资源文件以上传

没什么难度

还有就是  资源文件以上传 ，上传到那里了， 你让别人去找？

http://download.csdn.net/source/690736

资源文件下载处

http://download.csdn.net/source/690736

资源文件下载处

用VB6和GDI+轻轻松松就实现了。

这个这个，也许大概或者可能差不多用不着这样吧………….

    本文解决vb6+access网络访问，以及vb6+mssql在internet环境下连接十分低效的问题。

    首先来看看基于ado+access的单机版应用代码: (源码下载地址: http://www.tebny.com/2code/adodemo.rar)
这是一个很典型的ado+access的应用,其中包含了增、删、改、查的各种操作.由于代码比较简单，这里就不赘述了。
    我们的任务是如何将这个典型的单机应用，只增加两行代码使其扩展为网络版。
    第一步：下载并注册NetData控件: http://www.tebny.com/2code/netdatademo.rar
    第二步：建立服务器端程序：
        2.1 新建一个vb工程，并保存，加入刚刚注册好的NetData控件，然后将NetDataServer控件放到form1上。
        2.2 在Form_Load事件中加入:
                NetDataServer1.Start "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=cs.mdb;", "8888"
            这个方法有两个参数，第一个是标准的ado连接字符串,第二个是服务器端占用的端口，这里设置为8888
            这里需要注意的是连接字符串中的数据库路径，这个数据库就是adoDemo里的数据库。我这里将它复制到
            了当前目录下。
        2.3 在Form_Unload事件中加入：
                NetDataServer1.Down  '关闭服务,释放资源…
        2.4 编译该项目，得到Server.exe
        这样，服务器端就构建完成了，不错，就是这么的简单。
        (详细代码见刚刚下载的netdatademo/服务器端)
    第三步：更改原有单机版程序为客户端程序(只须增加两行代码):
        3.1 打开原有的项目，将目录下的cs.mdb移动到刚刚建立的服务器端的目录下。是的，客户端不需要数据库,
            因为数据库存在服务器端。
        3.2 第一步–>>> 注释或删除掉原有ADO本地连接代码
            'Public DB As New Connection  'ado对象中的连接对象
            该代码在Form1的第一行
        3.3 第二步–>>> 在Form_load事件中，注释或删除掉原有ADO本地连接的代码
            'DB.CursorLocation = adUseClient  '设置数据库为本地数据库
            'DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=cs.mdb;"
        3.4 第三步–>>> 在Form_load中，增加一行代码:
            Db.Start "127.0.0.1", "8888"
            启动客户端,指定服务器的ip和端口,为了便于测试这里设置的是本机ip
            实际应用中需将服务器端运行在远程服务器上，这里就要填远程服务器的域名或ip了。
            注意：这行代码需增加到 Call Fillfg 过程之前
        3.5 第四步–>>> 在Form_Unload事件中，注释或删除原有的ADO关闭本地连接的代码:
            'DB.Close '注释掉原有ADO本地连接代码
            然后增加第二行代码：
            Db.Down '关闭客户端控件…
            注意：这行代码一定要加上，不释放资源会影响客户端性能的。
        3.6 第五步—>>>最重要的一步！那就是加入NetData控件，并且将NetDataClient放到form1上，将它的name改名为DB
            注意：为了兼容旧有的代码一定要将NetDataClient控件名改为DB
        3.7 编译该项目，得到Client.exe
    至此，单机版向网络版的升级就大功告成了。先运行server.exe,再运行3个client.exe，测试一下~
速度是不是很快。如果你有自己的internet服务器，可以将数据库和server.exe复制到服务器上，在服务器上运行。
(别忘了在服务器端注册NetData控件)。client.exe可以在多个客户端运行。这样基于vb6+access的c/s架构应用就搭建完毕了。
    基于mssql的应用也可用此方法升级，优点就是用netdata替代ado直连mssql的方式,会带来巨大的性能提升。因为ado直连远程
mssql实在是太慢了，查询量稍大就会超时机器不稳定，使用netdata就从根本上解决了这个问题。
    本文只是介绍了netdata的一部分简单的应用，如：事务、存储过程、服务器端处理业务逻辑等一些实用性的东西没有探讨，
netdata不仅能胜任，而且十分高效。更多的netdata功能等待您的发掘~

    ps: NetData是我在实际工作中提炼出来的，基于Winsock,ado和xml技术的vb6用户控件。此控件为共享软件，大家可无限制的使用于
非商业性应用中。有任何好的建议或对此控件的疑问，请联系我QQ: 170836023

很好 收藏了

收藏了！

不错!

哦~

同志们
顶啊……….!

好东西
收藏起来以后可能有用
谢谢

下载收藏了

如果我没有自己的服务器.只是网上一些免费的虚拟服务器又怎么办呢?我不可能运行SERVICE.EXE呀?那不是没用?

看看

恩，我要试一下

    本文解决vb6+access网络访问，以及vb6+mssql在internet环境下连接十分低效的问题。

    首先来看看基于ado+access的单机版应用代码: (源码下载地址: http://www.tebny.com/2code/adodemo.rar)
这是一个很典型的ado+access的应用,其中包含了增、删、改、查的各种操作.由于代码比较简单，这里就不赘述了。
    我们的任务是如何将这个典型的单机应用，只增加两行代码使其扩展为网络版。
    第一步：下载并注册NetData控件: http://www.tebny.com/2code/netdatademo.rar
    第二步：建立服务器端程序：
        2.1 新建一个vb工程，并保存，加入刚刚注册好的NetData控件，然后将NetDataServer控件放到form1上。
        2.2 在Form_Load事件中加入:
                NetDataServer1.Start "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=cs.mdb;", "8888"
            这个方法有两个参数，第一个是标准的ado连接字符串,第二个是服务器端占用的端口，这里设置为8888
            这里需要注意的是连接字符串中的数据库路径，这个数据库就是adoDemo里的数据库。我这里将它复制到
            了当前目录下。
        2.3 在Form_Unload事件中加入：
                NetDataServer1.Down  '关闭服务,释放资源…
        2.4 编译该项目，得到Server.exe
        这样，服务器端就构建完成了，不错，就是这么的简单。
        (详细代码见刚刚下载的netdatademo/服务器端)
    第三步：更改原有单机版程序为客户端程序(只须增加两行代码):
        3.1 打开原有的项目，将目录下的cs.mdb移动到刚刚建立的服务器端的目录下。是的，客户端不需要数据库,
            因为数据库存在服务器端。
        3.2 第一步–>>> 注释或删除掉原有ADO本地连接代码
            'Public DB As New Connection  'ado对象中的连接对象
            该代码在Form1的第一行
        3.3 第二步–>>> 在Form_load事件中，注释或删除掉原有ADO本地连接的代码
            'DB.CursorLocation = adUseClient  '设置数据库为本地数据库
            'DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=cs.mdb;"
        3.4 第三步–>>> 在Form_load中，增加一行代码:
            Db.Start "127.0.0.1", "8888"
            启动客户端,指定服务器的ip和端口,为了便于测试这里设置的是本机ip
            实际应用中需将服务器端运行在远程服务器上，这里就要填远程服务器的域名或ip了。
            注意：这行代码需增加到 Call Fillfg 过程之前
        3.5 第四步–>>> 在Form_Unload事件中，注释或删除原有的ADO关闭本地连接的代码:
            'DB.Close '注释掉原有ADO本地连接代码
            然后增加第二行代码：
            Db.Down '关闭客户端控件…
            注意：这行代码一定要加上，不释放资源会影响客户端性能的。
        3.6 第五步—>>>最重要的一步！那就是加入NetData控件，并且将NetDataClient放到form1上，将它的name改名为DB
            注意：为了兼容旧有的代码一定要将NetDataClient控件名改为DB
        3.7 编译该项目，得到Client.exe
    至此，单机版向网络版的升级就大功告成了。先运行server.exe,再运行3个client.exe，测试一下~
速度是不是很快。如果你有自己的internet服务器，可以将数据库和server.exe复制到服务器上，在服务器上运行。
(别忘了在服务器端注册NetData控件)。client.exe可以在多个客户端运行。这样基于vb6+access的c/s架构应用就搭建完毕了。
    基于mssql的应用也可用此方法升级，优点就是用netdata替代ado直连mssql的方式,会带来巨大的性能提升。因为ado直连远程
mssql实在是太慢了，查询量稍大就会超时机器不稳定，使用netdata就从根本上解决了这个问题。
    本文只是介绍了netdata的一部分简单的应用，如：事务、存储过程、服务器端处理业务逻辑等一些实用性的东西没有探讨，
netdata不仅能胜任，而且十分高效。更多的netdata功能等待您的发掘~

    ps: NetData是我在实际工作中提炼出来的，基于Winsock,ado和xml技术的vb6用户控件。此控件为共享软件，大家可无限制的使用于
非商业性应用中。有任何好的建议或对此控件的疑问，请联系我QQ: 170836023

很好 收藏了

收藏了！

不错!

哦~

同志们
顶啊……….!

好东西
收藏起来以后可能有用
谢谢

下载收藏了

如果我没有自己的服务器.只是网上一些免费的虚拟服务器又怎么办呢?我不可能运行SERVICE.EXE呀?那不是没用?

看看

详情请到我的博客上去浏览
http://blog.csdn.net/chenhui530/
http://blog.csdn.net/chenhui530/archive/2008/09/05/2887561.aspx

“天琊 V1.0(测试版)”是一款集进程管理，文件管理，注册表管理，SSDT服务表管理，SHADOW服务表管理，内核模块察看，Inline Hook扫描，日志导出，保险箱，主动防御（主要针对保险箱功能）于一身的强大的安全反病毒辅助工具。

进程管理：
    提供了丰富的进程相关信息。分别有“状态”(主要是标志是否是隐藏进程和保护的进程，保护的进程主要是针对于保险箱功能的)，“映像名”（进程名），“PID”（进程ID，正常情况下此ID是唯一的，是进程的标识符），“父PID”（指创建此进程的进程ID，这方便察看进程的家族，也可以帮助分析病毒所属文件等），“用户名”（进程所属用户，比如System，这个现非常有用，现在很多病毒都会伪装成系统文件一样的进程名导致系统自带的进程管理器误认为他们是系统进程，就算是用户发现了也无法终止其运行，但是此类病毒一般都有个特点就是进程用户名不是System，当然也有病毒能把用户名也隐藏了，这样我们可以继续从进程路径上进行判断），“EPROCESS”（此项对于一般用户没什么用，对于一些搞内核研究的人有点用因为它是指向进程的内核对象可以用一些调试工具察看出丰富的进程信息），“进程路径”（进程对应的文件路径，此项可以排查一些伪装系统进程的程序，也他们能伪装进程名却很难伪装系统进程的文件路径）。
    强大的反进程隐藏功能，分别提供三种级别的进程隐藏检测方式。“枚举进程方式1”是用常规的枚举SessionProcessLinks链表实现，用此方式枚举出来的进程有这样一个优点—枚举出来的进程是按启动顺序排列的，最后启动的进程永远在最后一个，这样可以很容易的察看一些可以进程。“枚举进程方式2”是以枚举系统句柄表方式来枚举进程的。此法可以枚举出脱链的隐藏进程方式的程序。“枚举进程方式3”是一种综合方式可以枚举出目前大部分的隐藏进程（目前还没发现枚举不出来的隐藏进程）.
    强大的杀进程功能。本程序提供的杀进程方式主要提供4种方式，分别是：“终止进程”（常规的以NtTerminateProcess方式），“强制终止”（以投递APC方式杀进程，使用此方式查杀进程的时候需要注意一下，此方式查杀强度非常高，在目前测试中没有杀不了的进程，但是有时在查杀一些顽固的进程的时候会显示会隐藏，这样大家不要大惊小怪，其实目标进程已经被终止了，请不要再次使用此方式终止，这样很有可能造成系统蓝屏事件），“特征码终止”（此方式是结合了第一种方式再加上特征码验证，使用此方式结束了的进程将无法再次启动，如果无意中结束错了，可以在“高级操作”里选择特征码管理，在里面把其删除即可，此方式的设计主要是针对一些多进程相互守护的病毒程序，如果用户不能直接判断出病毒文件或者总是终止后又起来就可以选择此方式），“特征码强制终止”（此方式是结合“强制终止”方式和特征码验证，效果和第三种方式一样，只是强度高了很多，注意此方式结束的进程也不能使用再次结束）
    高级操作。除了上面说的两种特征码方式结束进程为还提供以下功能：“强制删除文件”（此功能可以强制删除进程对应的文件，此功能请慎重使用，因为此功能可以把正在运行中的进程对应的文件删除，一旦把系统的重要文件强制删除了就OVER了），“扫描进程钩子”（目前版本还没加入此功能，下个版本提供），“进程内存清零”（此功能主要是为了对付一些变态的进程保护强度已经不能用强制终止进程方式结束的进程，目前还没发现这样的程序。那么我们就可以使用此方式把邪恶的进程内存清零），“添加保护进程”（此功能是为“保险箱”功能设计，我下面再做详细说明），“从文件中添加保护进程”（此功能是为“保险箱”功能设计，我下面再做详细说明），“添加阻止进程”（此功能设计是为了对付一些杀了又起的程序和特征码方式终止是一回事，区别在于是在使用的时候没把进程结束，方便继续分析此进程），“从文件中添加阻止进程”（此功能设计可以把一些病毒或者你讨厌的程序添加进此列表中那么就算你无意中运行起了此程序，那么我的程序也会阻止其运行），“特征码管理”（主要是对保护进程和阻止进程一些在主动防御上永远拒绝的对象的管理，你可以删除其中任何一项）。“高级操作”里的功能主要是为。反病毒设计的，所以在使用的时候请慎重。
    线程相关。本程序提供了两种枚举线程的方式。“枚举线程方式1”此方式是以线程链表方式枚举线程的。“枚举线程方式2”是一个综合的枚举方式，可以对付大部分对线程隐藏的程序（目前还没发现检测不出来的）。
    线程信息，包括有：“线程类型”主要用来区别系统线程和一般线程，此项是用于标识一些恶意程序更改了SystemThread标志来保护进程的程序。“TID”线程的ID，是线程的标识符。“ETHREAD”对一般用户没用，对于内核研究人员可以方便用此值用一些调试软件察看出丰富的线程信息。“Teb”对于一般用户也没用。“Priority” 线程优先级别。“起始地址”线程执行第一条指令的地址，主要是用来取线程所在模块的。“所在模块”线程所在的模块。
    线程的终止。线程的终止也提供了两种方式，一种是常规的NtTerminateThread方式，另一种是高强度的APC方式。
  模块相关。目前模块只提供了浏览功能。卸载功能将在下个版本中提供。分别以两种方式来浏览模块，“枚举模块方式1”是通过PEB的方式来枚举进程模块，此方法的优点是枚举出来的模块是按先后加载顺序排列起来的，最后加载的永远在最后，这样也方便察看了哪些模块可疑了。“枚举模块方式2”是在驱动层下用NtQueryVirtualMemory方式枚举的，此方式效果非常好，一般隐
功能下个版本提供。
    模块查询。此功能可以在整个系统的所有进程中对关键字的模块进行查询，速度非常快。

文件管理：
    文件管理提供了，隐藏文件（API HOOK方式隐藏的文件）的察看,文件强制删除，破坏文件，解锁文件，复制文件（可以复制特殊文件，比如SAM等注册数据库文件）。
    “普通删除”，此功能和“DeleteFile”一样。
    “强制删除”，此功能提供了高强度文件的删除功能，可以删除正在运行中的进程对应文件，和一些使用中的文件。
    “解锁文件”，此功能可以解除一些恶意或者病毒程序为了达到不让别人删除其文件，把自身文件以独占方式打开，这样其他进程就无法访问其文件，此项功能正好可以解除此类方式锁定的文件。
    “破坏文件”，此功能可以把一些正常的文件进程破坏，其实应该说是重新填0，此功能清慎重使用，因为此功能可以把一个正在运行中的程序文件破坏。
    “复制到…”，此功能可以把一个文件或者多个文件复制到一个新目录下。此功能可以过一些进行API进行文件防复制的程序，还可以复制SAM等注册表文件。
    “解锁并强制删除”，此功能结合了解锁和强制删除功能为一体，这样就算程序正在运行并且锁定了也一样可以把其删除。

SSDT服务表管理：
    SSDT服务表管理提供了对SSDT服务表的信息察看和修改，可以察看到什么驱动文件对某些函数进行了挂接，并可以进行恢复。程序提供了两种浏览方式：“显示所有服务函数”此功能会把服务表所有函数信息显示出来，包括已经被挂接了的，如果你觉得此方式不能直观的察看被挂接的函数可以使用“显示HOOK服务函数”,此功能会把所有已经被挂接的函数列出来。“恢复选定服务函数”，此功能可以轻松恢复你选择的函数。

SHADOW服务表管理：
    SHADOW服务表管理提供了对SHADOW服务表的信息察看和修改，可以察看到什么驱动文件对某些函数进行了挂接，并可以进行恢复。程序提供了两种浏览方式：“显示所有服务函数”此功能会把服务表所有函数信息显示出来，包括已经被挂接了的，如果你觉得此方式不能直观的察看被挂接的函数可以使用“显示HOOK服务函数”,此功能会把所有已经被挂接的函数列出来。“恢复选定服务函数”，此功能可以轻松恢复你选择的函数。

内核模块察看:
    可以察看所有内核模块。

Inline Hook扫描：
    此版本只针对Ntosxxxx/ntkxxxx进程扫描，下个版本再添加其他文件的扫描.此功能可以察看在Ntosxxxx/ntkxxxx上挂接的Inline Hook，并且可以对其恢复。

日志导出：
    主要是针对主动防御的日志进行导出备份。

保险箱：
    此功能，可以防止一些木马和盗好程序。程序从窗体，和进程内存以及防止远程注入等手段来达到“保险箱”的功能。
    使用方法。要使用此功能可以以两种方式加载需要保护的程序。第一种从进程功能里选择“高级操作”再在里面选择“添加保护进程”即可。也可以选择“从文件中添加保护进程”，这种方法更灵活，一但被添加的文件在任何时候任何地方以任何文件名，只要我的程序处于启动状态就可以保护被启动的文件，不受文件路径和文件名等限制只以特征码方式判断。而且只要具备此特征码的程序只要一启动都会被保护起来，比如说我们添加了IE程序那么无论你启动多少个IE都会被保护起来（注意这里最好不要保护EXPLORER进程因为你一但保护其他进程就看不到他的窗体信息了）。一但被保护的的进程的窗体信息将会被保护起来，其他进程无法访问它的窗体信息和窗体句柄。这样可以防止一些盗好程序通过键盘钩子特征定位到程序来进行键盘拦截纪录。内存信息也无法被其他进程访问，也无法注入其进程。如果你的程序有什么附加程序需要访问它的内存和窗体信息你当程序弹出询问框的时候你可以“允许”，“信任一次”，“永远信任”等操作。“允许”只是通过当次触发，“信任一次”可以在我的程序退出前都通过，“永远信任”将会把信任的程序也加为保护进程中并且可以永远访问受保护的进程。

主动防御：
    此功能主要是针对保险箱设计的。主要是针对窗体信息的拦截，内存读写，内核空间读写，以及常见后门程序的拦截（比如灰鸽子程序）.
 

程序下载地址是： http://p.blog.csdn.net/images/p_blog_csdn_net/chenhui530/EntryImages/20080905/带主动(保险箱).jpg

板凳！板凳！

坐下来慢慢看:)

隆重支持!功能还真不少,那个叫天什么字,我没认出来!

http://p.blog.csdn.net/images/p_blog_csdn_net/chenhui530/EntryImages/20080905/带主动(保险箱)1.jpg
换用这个吧

没得下啊…这个可以做专业工具啊…当然我是说的是 干坏事前准备的工具

下来了，原来需要把扩展名改成rar，呵呵
我使用scan功能，崩溃了
进程里面还有Promanager.exe
但是界面不见了，也不能重新运行
一会儿重启一下电脑搞搞

这是VB用了那个多线程组件的问题
退出如果程序还在的话就用任务管理器把它结束就行了

结束不了，拒绝
我重启电脑，关闭卡巴，重新运行了一次，还是崩溃
然后再打开卡巴，蓝屏

不是吧
运行就崩溃还是？

难道和卡巴冲突？

是卡巴几？

kis6.0.0.307
scan->扫描
崩溃了以后，等一会儿就会蓝屏
蓝了两次了
不知道是不是我前天插上的烂内存捣乱

应该不是我在卡巴最新版也没问题

其他功能正常吗

其它都正常，唯独不能用扫描

555~~下次一定用MFC写界面
现在发现在VB界面上用了那个多线程组件已经存在了很多问题了

那就没驱动了
VB搞这方面确实不行

貌似没得下啊

哦哈哈……….

我有空间,扔我这里不:)

我也有啊…

UP

这次搞得有点仓促了
下次得重新设计规划好好的设计

谢谢

试了下scan后失去响应，资源管理器无法终止进程。

本人是卡巴互联网套装6+360安全卫士，运行于ibm笔记本，xpprofessional

刚才蓝屏了，本人的ibm笔记本从来没有蓝屏过，不会存在计算机不稳定的问题。

扫描的时候有时会有小段时间假死请等待
如果这时试图结束可能会造成进程堵塞~~
这个也是个问题下个版本解决此问题

关注中

顶顶

是的，我说的【失去响应】就是这个意思，但在我这不是小段时间，而是无法接受的一个假死时间。我是在大约在40秒左右开始试图结束该进程的。我想多数人，可能忍受的假死状态时间应该在30秒左右。

这样的情况我倒没出现过~~

楼主专业做?还是随便玩玩

这肯定是专业的撒… 工具类的…

陈辉写RING0写习惯了,现在RING3反而写不好了么,哇哈哈哈哈~~~~

用到多线程,还是老实用支持多线程的开发工具吧….

强~

哈哈，终于出台了

已经更新了大家可以到我博客下载

重新下载解压后并未发现和之前发布内容有任何时间或字节变化，因此怀疑并未更新

第一次运行主程序后，立即关掉，打开注册表管理程序，打开3个键值后立即关闭该程序，再次打开主程序，系统立即崩溃，毫无征兆即重新启动计算机。

然后就再这里回复了。。。。。

http://p.blog.csdn.net/images/p_blog_csdn_net/chenhui530/EntryImages/20080905/带主动(保险箱)1.jpg

顶~

不管怎样，还是帮顶！有想法是最好的前提！

哈哈我中举解决了一些不稳定的因数了

哈哈(路过一小下下….)

弓虽~

下个试试，别忘了给分啊

关注,呵呵

  强迫自己用了一段时间VC 已经感觉到了VC的强大  也接触了ASM (没办法)
  忘着网上那么多牛人写的强大工具 自叹不如  继续闭关修炼….
  VC用上手了 在用其他工具已经不习惯了
  当然 老本行VB  还是很顺手的 VB语法已经深入大脑底层了  哈哈
  纯属蹭分 如有雷同 实属巧合

真牛啊   

up

试试

坐下来慢慢看:)

我从小道消息听来的说,阿勇兄给某人试RING0的东东时直接用自己机器试

然后突然听到某人一声说"哎,QQ变灰了…"

哇哈哈,.

QQ灰了什么意思啊

BSOD啊,哈哈.

上次你不是在说么,"要是他QQ灰了就是挂了……."

我的VM在机器里下载着放了有三年之久,全靠陈辉啊~~~~~VM才在我机器上开始运作了………

哈哈，我也是啊，以前从来不用!

我也来试试.

jf

有點像了，不錯，不錯

up

接分

牛啊

支持一个

jf

    本文解决vb6+access网络访问，以及vb6+mssql在internet环境下连接十分低效的问题。

    首先来看看基于ado+access的单机版应用代码: (源码下载地址: http://www.tebny.com/2code/adodemo.rar)
这是一个很典型的ado+access的应用,其中包含了增、删、改、查的各种操作.由于代码比较简单，这里就不赘述了。
    我们的任务是如何将这个典型的单机应用，只增加两行代码使其扩展为网络版。
    第一步：下载并注册NetData控件: http://www.tebny.com/2code/netdatademo.rar
    第二步：建立服务器端程序：
        2.1 新建一个vb工程，并保存，加入刚刚注册好的NetData控件，然后将NetDataServer控件放到form1上。
        2.2 在Form_Load事件中加入:
                NetDataServer1.Start "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=cs.mdb;", "8888"
            这个方法有两个参数，第一个是标准的ado连接字符串,第二个是服务器端占用的端口，这里设置为8888
            这里需要注意的是连接字符串中的数据库路径，这个数据库就是adoDemo里的数据库。我这里将它复制到
            了当前目录下。
        2.3 在Form_Unload事件中加入：
                NetDataServer1.Down  '关闭服务,释放资源…
        2.4 编译该项目，得到Server.exe
        这样，服务器端就构建完成了，不错，就是这么的简单。
        (详细代码见刚刚下载的netdatademo/服务器端)
    第三步：更改原有单机版程序为客户端程序(只须增加两行代码):
        3.1 打开原有的项目，将目录下的cs.mdb移动到刚刚建立的服务器端的目录下。是的，客户端不需要数据库,
            因为数据库存在服务器端。
        3.2 第一步–>>> 注释或删除掉原有ADO本地连接代码
            'Public DB As New Connection  'ado对象中的连接对象
            该代码在Form1的第一行
        3.3 第二步–>>> 在Form_load事件中，注释或删除掉原有ADO本地连接的代码
            'DB.CursorLocation = adUseClient  '设置数据库为本地数据库
            'DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=cs.mdb;"
        3.4 第三步–>>> 在Form_load中，增加一行代码:
            Db.Start "127.0.0.1", "8888"
            启动客户端,指定服务器的ip和端口,为了便于测试这里设置的是本机ip
            实际应用中需将服务器端运行在远程服务器上，这里就要填远程服务器的域名或ip了。
            注意：这行代码需增加到 Call Fillfg 过程之前
        3.5 第四步–>>> 在Form_Unload事件中，注释或删除原有的ADO关闭本地连接的代码:
            'DB.Close '注释掉原有ADO本地连接代码
            然后增加第二行代码：
            Db.Down '关闭客户端控件…
            注意：这行代码一定要加上，不释放资源会影响客户端性能的。
        3.6 第五步—>>>最重要的一步！那就是加入NetData控件，并且将NetDataClient放到form1上，将它的name改名为DB
            注意：为了兼容旧有的代码一定要将NetDataClient控件名改为DB
        3.7 编译该项目，得到Client.exe
    至此，单机版向网络版的升级就大功告成了。先运行server.exe,再运行3个client.exe，测试一下~
速度是不是很快。如果你有自己的internet服务器，可以将数据库和server.exe复制到服务器上，在服务器上运行。
(别忘了在服务器端注册NetData控件)。client.exe可以在多个客户端运行。这样基于vb6+access的c/s架构应用就搭建完毕了。
    基于mssql的应用也可用此方法升级，优点就是用netdata替代ado直连mssql的方式,会带来巨大的性能提升。因为ado直连远程
mssql实在是太慢了，查询量稍大就会超时机器不稳定，使用netdata就从根本上解决了这个问题。
    本文只是介绍了netdata的一部分简单的应用，如：事务、存储过程、服务器端处理业务逻辑等一些实用性的东西没有探讨，
netdata不仅能胜任，而且十分高效。更多的netdata功能等待您的发掘~

    ps: NetData是我在实际工作中提炼出来的，基于Winsock,ado和xml技术的vb6用户控件。此控件为共享软件，大家可无限制的使用于
非商业性应用中。有任何好的建议或对此控件的疑问，请联系我QQ: 170836023

很好 收藏了

收藏了！

不错!

哦~

同志们
顶啊……….!

好东西
收藏起来以后可能有用
谢谢

下载收藏了