<![CDATA[君与琴网 - 技术文章]]> http://www.junyuqin.com/blog/ zh-cn PBlog2 v2.4 君与琴网 http://www.junyuqin.com/blog/images/logos.gif http://www.junyuqin.com/blog/ 君与琴网 http://www.junyuqin.com/blog/article.asp?id=176 <![CDATA[极速启动(QStart) 3.1.2]]> junyuqin@sohu.com(junyuqin) Sat,24 Jul 2010 20:10:20 +0800 http://www.junyuqin.com/blog/default.asp?id=176 极速启动(QStart) 3.1.2





软件大小： 126K
更新时间： 2010-07-24
联 系 人： junyuqin@sohu.com
开 发 商： http://www.junyuqin.com
软件类别： 国产软件 / 系统增强
软件语言： 简体中文
应用平台： NT/Win2000/XP/2003/Vista/7
软件性质： 免费软件
下载地址： 官方下载  　华军下载  　天空下载 　 霏凡下载 　 多特下载　太平洋下载　RAR1软件下载　偶要下载　下载银行 　绿色下载站

在IE地址栏输入：http://www.baidu.com/s?wd=%BC%AB%CB%D9%C6%F4%B6%AF%28QStart%29+，就能看到本软件使用百度搜索到的结果。

　　极速启动(QStart)的界面是高仿真的漂亮的QQ界面，结合极速启动，应用于各种类型的文件、文件夹、网址、快捷方式等的快速打开操作，希望能给你的工作带来方便快捷！

　　极速启动是一款完全免费的软件，不需要任何付出就可以无限制地使用软件。极速启动是款绿色软件，下载解压后直接运行即可使用。如果您觉得好用，可以：
1. 介绍给您的朋友
2. 反馈任何的建议
3. 捐助我们(可以在极速启动主界面上投放滚动广告)
感谢一切使用本软件的朋友们！

　　我的E-mail:junyuqin@sohu.com
 

产品历史

极速启动(QStart) v3.1.2(2010.07.24)
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
1.修正当启动参数为空时，启动一些应用软件会报文件不存在的BUG，仍然感谢在我博客上留言的一位热心网友
2.改写上下移操作时的不合理算法
 

极速启动(QStart) v3.1.1(2010.07.17)
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
1.修正启动项目自动退出的时候不需要确认，感谢在我博客上留言的一位热心网友
 

极速启动(QStart) v3.1.0(2010.06.12)
 

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
1.解决滚动链接控件引起杀毒软件误报的问题
2.在托盘弹出菜单中加入常用快捷方式，更加方便，更加极速
3.修改“下载最新版本”链接为官方网站

 

极速启动(QStart) v3.0.0(2010.04.30)
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
●●●●●●●●●●●●●●●●●●●●●●●●●●●
●因不慎导致源码全部丢失，此次更新为软件代码的重写。●
●●●●●●●●●●●●●●●●●●●●●●●●●●●
1.修改按钮和界面皮肤细节
2.使用滚动链接控件显示相关信息，感谢VBGood论坛的相关网友（http://www.vbgood.com/）
3.修改选择启动项时的对话框，原来只能选择文件，现在可以同时选择文件和文件夹
4.增加右键关联文件或文件夹选项，更加方便添加启动项
5.修改判断软件重复运行代码，原因是App.PrevInstance只能影响同目录的同一程序
6.修正删除启动项后，配置文件冗余项不能完整清除
7.修正启动项为盘符时，自动获取文件名出错
8.修正启动项总数为1时，上下移操作导致程序崩溃

极速启动(QStart) v2.2.0(2009.11.22)
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
1.软件皮肤改为QQ2009风格
2.使用子类化技术，感谢谷歌VIP用户

极速启动(QStart) v2.1.0(2009.06.08)
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
1.增加文件拖放功能，可以方便快速的增加启动项目
2.增加托盘退出菜单一项，更加方便用户
3.修正点击窗口关闭按钮，选择“否”按钮后，托盘图标丢失的错误
4.增加自动获取文件名功能

极速启动(QStart) v2.0.2(2009.04.30)
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
1.修正启动项管理中列表上移操作后名称出错

极速启动(QStart) v2.0.1(2009.04.30)
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
1. 增加启动项管理中列表文字提示功能，目的是当列表宽度不够的时候，可以显示完整的启动项名称
2. 美化提示框图标
3. 解决用户反馈的部分问题
4. 其他细节调整

极速启动(QStart) v2.0.0(2009.04.27)
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
1. 解决启动项名称过长，启动按钮显示不全的问题，设置名称最长为50个字符
2. 窗体宽度根据启动项名称宽度的变化而变化
3. 增加双击启动项管理中的列表就可以显示修改启动项窗口
4. 将浏览路径对话框标题“打开启动文件”改为“选择启动文件”
5. 选择启动文件后，自动获取启动名称
6. 调整修改、增加启动项窗口中名称和路径的位置
7. 支持启动带命令行参数的程序
8. 修正“访问我的主页”不在新窗口打开的错误。

极速启动(QStart) v1.0.0(2009.04.22)
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
1. 软件被天空软件园成功收录，各大软件下载站纷纷转载

极速启动(QStart) v1.0.0Alpha5(2009.03.15)
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
1. 将程序放入到托盘中，在任务栏上不再有图标
2. 修改托盘弹出菜单为QQ2008风格
3. 修改启动项管理中列表的人性化设计

极速启动(QStart) v1.0.0Alpha4(2008.12.03)
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
1. 优化启动项管理算法，实时更新程序启动项
2. 增加程序设置：在启动项目后自动退出，在屏幕边界时自动隐藏，记住程序的位置，开机自动运行

极速启动(QStart) v1.0.0Alpha3(2008.05.12)
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
1. 软件皮肤改为QQ2008风格
2. 支持各种类型的文件、文件夹、网址、快捷方式
3. 无需重启即可对程序进行动态的添加、删除、修改、清空

极速启动(QStart) v1.0.0Alpha2(2008.02.13)
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
1. 软件界面改为QQ2007风格，按钮风格为MacOS风格
2. 支持按钮获取启动项的图标

极速启动(QStart) v1.0.0Alpha1(2008.01.03)
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
1. 系统资源占用低
2. 仅支持EXE文件的启动
3. 启动程序可以进行添加、删除、修改、清空，但需重启程序才能生效

]]> http://www.junyuqin.com/blog/article.asp?id=201 <![CDATA[U盘文件复制专家(UCopier) 3.0.0]]> junyuqin@sohu.com(junyuqin) Mon,30 Nov 2009 10:23:43 +0800 http://www.junyuqin.com/blog/default.asp?id=201
U盘文件复制专家(UCopier) 3.0.0




软件大小： 80.4 K
更新时间： 2014-07-30
联 系 人： junyuqin@sohu.com
开 发 商： http://www.junyuqin.com/
软件类别： 国产软件 / 文件管理
软件语言： 简体中文
应用平台： NT/Win2000/XP/2003/Vista/7/8
软件性质： 免费软件
下载地址： 官方下载1　 官方下载2
V3.0.0:华军下载　霏凡下载　绿色软件联盟　下载银行　大众源码网　珠江路在线　软件E线　咕咕猪下载站　谷普下载
V2.0.0:ZOL软件下载　绿色下载站　未来软件园　最火软件站　红软基地
　　运行本软件后，会自动在后台监控USB接口，当有U盘、MP3、MP4、手机存储卡等移动存储设备插入时，会按照预先定义的规则自动拷贝存储器内的文件！
与目前同功能软件相比，本软件有如下特性：
　　A.按日期时间生成文件夹，保证所拷贝U盘的文件目录树为原样，方便查看
　　B.不锁定U盘，拷贝完成U盘弹出自如。同类软件在拷贝完文件之后，无法正常弹出U盘
　　C.可选开机自动运行
　　D.自定义拷贝的文件类型，合理选择所需
　　E.自定义拷贝的文件大小，合理选择所需
　　F.支持热键呼出，热键退出，方便快捷。打开界面热键：Alt+Shift+S 退出热键：Ctrl+Alt+E

　　【注意】
　　A.在本机配置好开机启动选项，可能会受到360、瑞星、江民等含有注册表监控杀软的阻止，请点击“允许”。
　　B.请勿在他人不知道的情况下安装本软件！]]> http://www.junyuqin.com/blog/article.asp?id=200 <![CDATA[使用VB调用API打开浏览文件夹对话框]]> junyuqin@sohu.com(junyuqin) Mon,21 Sep 2009 21:37:10 +0800 http://www.junyuqin.com/blog/default.asp?id=200 在VB中调用API的方式打开浏览文件夹对话框

新建一个工程，在窗体中放置一个Button，复制粘贴下面的代码：
程序代码 程序代码
Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long

Private Type BROWSEINFO
    hOwner As Long                 '父窗口的句柄
    pidlRoot As Long               '指向希望浏览的最上层的文件夹的标识符列表，可设为0
    pszDisplayName As String       '返回你所选择的文件夹（带一个NULL字符）
    lpszTitle As String            '对话框标题（要以vbNullChar结尾）
    ulFlags As Long                '浏览标志（见下面）
    lpfn As Long                   '回调函数的地址，可设为NULL
    lParam As Long                 '若有回调函数，此项设置它的值
    iImage As Long                 '保存所选文件夹映像索引的缓冲区
End Type

Private Const BIF_BROWSEFORCOMPUTER = &H1000             '允许浏览计算机
Private Const BIF_BROWSEFORPRINTER = &H2000              '允许浏览打印机文件夹
Private Const BIF_BROWSEINCLUDEFILES = &H4000            '允许同时浏览文件（需IE4）
Private Const BIF_DONTGOBELOWDOMAIN = &H2                '强制用户停留在网上邻居中
Private Const BIF_EDITBOX = &H10                         '可在输入框中直接输入文件夹名（需IE4）
Private Const BIF_RETURNFSANCESTORS = &H8                '返回文件系统祖先？
Private Const BIF_RETURNONLYFSDIRS = &H1                 '仅允许浏览文件系统
Private Const BIF_STATUSTEXT = &H4                       '显示状态栏
Private Const BIF_USENEWUI = &H40                        '使用新界面（仅支持Win2000、WinME）
Private Const BIF_VALIDATE = &H20                        '若输入一个非法文件夹名，就返回BFFM_VALIDATEFAILED 给回调函数

Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long

Private Function BrowseForFolder(Optional Title As String, Optional hWnd As Long) As String
    Dim bi As BROWSEINFO
    Dim pidl As Long
    Dim folder As String

    folder = String(255, vbNullChar)
  
    With bi
        .hOwner = hWnd
        .ulFlags = BIF_RETURNONLYFSDIRS or BIF_USENEWUI or BIF_EDITBOX
        .pidlRoot = 0
        .lpszTitle = IIf(Title <> "", Title & vbNullChar, "选择驱动器和目录" & vbNullChar)
    End With
  
    pidl = SHBrowseForFolder(bi)

    If SHGetPathFromIDList(ByVal pidl, ByVal folder) Then
        BrowseForFolder = Left(folder, InStr(folder, vbNullChar) - 1)
    Else
        BrowseForFolder = ""
    End If
End Function

Private Sub Command1_Click()
    MsgBox BrowseForFolder
End Sub
]]> http://www.junyuqin.com/blog/article.asp?id=189 <![CDATA[VB中Textbox控件只能输入数字]]> junyuqin@sohu.com(junyuqin) Sat,29 Aug 2009 13:34:39 +0800 http://www.junyuqin.com/blog/default.asp?id=189
Const xStr As String = "0123456789"
Private Sub Text1_KeyPress(KeyAscii As Integer)
    KeyAscii = IIf(InStr(xStr & Chr(8), Chr(KeyAscii)), KeyAscii, 0)
    If KeyAscii = 46 Then KeyAscii = 0
End Sub]]> http://www.junyuqin.com/blog/article.asp?id=188 <![CDATA[VB获取星期]]> junyuqin@sohu.com(junyuqin) Sat,29 Aug 2009 13:31:04 +0800 http://www.junyuqin.com/blog/default.asp?id=188 Weekday和一个WeekdayName。如果单纯只使用Weekday()函数，返回的将是星期数加1。比如星期一返回的是2，星期二返回的是3……，特别要指出的是星期天返回为1。显然这不符合我们中国人的生活习惯，使用WeekdayName()函数就可以把数字转换成星期，注意该函数的参数只能是1、2、3、4、5、6、7，其它的调用参数都会出现“无效的过程调用或参数”的实时错误。

VB获取星期的简单代码如下：
WeekdayName(Weekday(Date))

直接使用即可。]]> http://www.junyuqin.com/blog/article.asp?id=187 <![CDATA[Google中“index of/”的妙用]]> junyuqin@sohu.com(junyuqin) Sat,29 Aug 2009 12:20:30 +0800 http://www.junyuqin.com/blog/default.asp?id=187
使用其他关键字可能得到更多的资源
在搜索框上输入："index of /" cnki
再按搜索你就可以找到许多图书馆的CNKI、VIP、超星等入口！
在搜索框上输入："index of /" ppt
再按搜索你就可以突破网站入口下载powerpint作品
在搜索框上输入："index of /" mp3
再按搜索你就可以突破网站入口下载mp3、rm等影视作品
在搜索框上输入："index of /" swf
再按搜索你就可以突破网站入口下载flash作品
在搜索框上输入："index of /" 加上要下载的软件名

一些收费的内容，经过Google “index of /”的妙用，就会成功突破！]]> http://www.junyuqin.com/blog/article.asp?id=186 <![CDATA[另类删除Windows系统密码]]> junyuqin@sohu.com(junyuqin) Sat,29 Aug 2009 12:15:43 +0800 http://www.junyuqin.com/blog/default.asp?id=186
xp sp2：F8 10 75 11 B0 01 8B 4D

2k professinal：F8 10 0F 84 71 FF FF

2k sp4：F8 10 75 11 b0 01 8b 4D

2003 sp1：F8 10 0F 84 D0 B8 FF FF

vista rtm：F8 10 75 13 B0 01 8B 4D

然后将字串的前两个字节改为：E0 00，最后变成

xp sp2：E0 00 75 11 B0 01 8B 4D

2k professinal：E0 00 0F 84 71 FF FF

2k sp4：E0 00 75 11 b0 01 8b 4D

2003 sp1：E0 00 0F 84 D0 B8 FF FF

vista rtm：E0 00 75 13 B0 01 8B 4D

经过这样的处理以后，全部管理员帐号无须密码登陆，包括远程登陆的。 ]]> http://www.junyuqin.com/blog/article.asp?id=185 <![CDATA[使用VB在任务管理器中隐藏进程名]]> junyuqin@sohu.com(junyuqin) Sat,29 Aug 2009 12:06:59 +0800 http://www.junyuqin.com/blog/default.asp?id=185
测试通过:VB6+WINXP(记得编译后哦),在好多网站下的都不能!要不就是特别麻烦!结果任务管理器中还是会有!

代码:

使用方法:
     在Form_load中加入:
     App.TaskVisible = False
     Call HideCurrentProcess

Option Explicit

'该模块用于在任务管理器中隐藏进程
Private Const STATUS_ACCESS_DENIED = &HC0000022
Private Const SECTION_MAP_WRITE = &H2
Private Const SECTION_MAP_READ = &H4
Private Const READ_CONTROL = &H20000
Private Const WRITE_DAC = &H40000
Private Const NO_INHERITANCE = 0
Private Const DACL_SECURITY_INFORMATION = &H4

Private Type UNICODE_STRING
     Length As Integer
     MaximumLength As Integer
     Buffer As Long
End Type

Private Type OBJECT_ATTRIBUTES
     Length As Long
     RootDirectory As Long
     ObjectName As Long
     Attributes As Long
     SecurityDeor As Long
     SecurityQualityOfService As Long
End Type

Private Enum ACCESS_MODE
     NOT_USED_ACCESS
     GRANT_ACCESS
     SET_ACCESS
     DENY_ACCESS
     REVOKE_ACCESS
     SET_AUDIT_SUCCESS
     SET_AUDIT_FAILURE
End Enum

Private Enum MULTIPLE_TRUSTEE_OPERATION
     NO_MULTIPLE_TRUSTEE
     TRUSTEE_IS_IMPERSONATE
End Enum

Private Enum TRUSTEE_FORM
     TRUSTEE_IS_SID
     TRUSTEE_IS_NAME
End Enum

Private Enum TRUSTEE_TYPE
     TRUSTEE_IS_UNKNOWN
     TRUSTEE_IS_USER
     TRUSTEE_IS_GROUP
End Enum

Private Type TRUSTEE
     pMultipleTrustee             As Long
     MultipleTrusteeOperation     As MULTIPLE_TRUSTEE_OPERATION
     TrusteeForm                 As TRUSTEE_FORM
     TrusteeType                 As TRUSTEE_TYPE
     ptstrName                   As String
End Type

Private Type EXPLICIT_ACCESS
     grfAccessPermissions         As Long
     grfAccessMode               As ACCESS_MODE
     grfInheritance               As Long
     TRUSTEE                     As TRUSTEE
End Type

Private Enum SE_OBJECT_TYPE
     SE_UNKNOWN_OBJECT_TYPE = 0
     SE_FILE_OBJECT
     SE_SERVICE
     SE_PRINTER
     SE_REGISTRY_KEY
     SE_LMSHARE
     SE_KERNEL_OBJECT
     SE_WINDOW_OBJECT
     SE_DS_OBJECT
     SE_DS_OBJECT_ALL
     SE_PROVIDER_DEFINED_OBJECT
     SE_WMIGUID_OBJECT
End Enum

Private Declare Function SetSecurityInfo Lib "advapi32.dll" (ByVal Handle As Long, ByVal ObjectType As SE_OBJECT_TYPE, ByVal SecurityInfo As Long, ppsidOwner As Long, ppsidGroup As Long, ppDacl As Any, ppSacl As Any) As Long
Private Declare Function GetSecurityInfo Lib "advapi32.dll" (ByVal Handle As Long, ByVal ObjectType As SE_OBJECT_TYPE, ByVal SecurityInfo As Long, ppsidOwner As Long, ppsidGroup As Long, ppDacl As Any, ppSacl As Any, ppSecurityDeor As Long) As Long
Private Declare Function SetEntriesInAcl Lib "advapi32.dll" Alias "SetEntriesInAclA" (ByVal cCountOfExplicitEntries As Long, pListOfExplicitEntries As EXPLICIT_ACCESS, ByVal OldAcl As Long, NewAcl As Long) As Long
Private Declare Sub RtlInitUnicodeString Lib "NTDLL.DLL" (DestinationString As UNICODE_STRING, ByVal SourceString As Long)
Private Declare Function ZwOpenSection Lib "NTDLL.DLL" (SectionHandle As Long, ByVal DesiredAccess As Long, ObjectAttributes As Any) As Long
Private Declare Function LocalFree Lib "kernel32" (ByVal hMem As Any) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function MapViewOfFile Lib "kernel32" (ByVal hFileMappingObject As Long, ByVal dwDesiredAccess As Long, ByVal dwFileOffsetHigh As Long, ByVal dwFileOffsetLow As Long, ByVal dwNumberOfBytesToMap As Long) As Long
Private Declare Function UnmapViewOfFile Lib "kernel32" (lpBaseAddress As Any) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long

Private Type OSVERSIONINFO
     dwOSVersionInfoSize As Long
     dwMajorVersion As Long
     dwMinorVersion As Long
     dwBuildNumber As Long
     dwPlatformId As Long
     szCSDVersion As String * 128
End Type
  
Private verinfo As OSVERSIONINFO
  
Private g_pMapPhysicalMemory As Long
Private g_hMPM As Long
Private aByte(3) As Byte

Public Sub HideCurrentProcess()
'在进程列表中隐藏当前应用程序进程
     Dim thread As Long, process As Long, fw As Long, bw As Long
     Dim lOffsetFlink As Long, lOffsetBlink As Long, lOffsetPID As Long
    
     verinfo.dwOSVersionInfoSize = Len(verinfo)
     If (GetVersionEx(verinfo)) <> 0 Then
         If verinfo.dwPlatformId = 2 Then
             If verinfo.dwMajorVersion = 5 Then
                 Select Case verinfo.dwMinorVersion
                     Case 0
                         lOffsetFlink = &HA0
                         lOffsetBlink = &HA4
                         lOffsetPID = &H9C
                     Case 1
                         lOffsetFlink = &H88
                         lOffsetBlink = &H8C
                         lOffsetPID = &H84
                 End Select
             End If
         End If
     End If

     If OpenPhysicalMemory <> 0 Then
         thread = GetData(&HFFDFF124)
         process = GetData(thread + &H44)
         fw = GetData(process + lOffsetFlink)
         bw = GetData(process + lOffsetBlink)
         SetData fw + 4, bw
         SetData bw, fw
         CloseHandle g_hMPM
     End If
End Sub

Private Sub SetPhyscialMemorySectionCanBeWrited(ByVal hSection As Long)
     Dim pDacl As Long
     Dim pNewDacl As Long
     Dim pSD As Long
     Dim dwRes As Long
     Dim ea As EXPLICIT_ACCESS
    
     GetSecurityInfo hSection, SE_KERNEL_OBJECT, DACL_SECURITY_INFORMATION, 0, 0, pDacl, 0, pSD
        
     ea.grfAccessPermissions = SECTION_MAP_WRITE
     ea.grfAccessMode = GRANT_ACCESS
     ea.grfInheritance = NO_INHERITANCE
     ea.TRUSTEE.TrusteeForm = TRUSTEE_IS_NAME
     ea.TRUSTEE.TrusteeType = TRUSTEE_IS_USER
     ea.TRUSTEE.ptstrName = "CURRENT_USER" & vbNullChar

     SetEntriesInAcl 1, ea, pDacl, pNewDacl
    
     SetSecurityInfo hSection, SE_KERNEL_OBJECT, DACL_SECURITY_INFORMATION, 0, 0, ByVal pNewDacl, 0
                                
CleanUp:
     LocalFree pSD
     LocalFree pNewDacl
End Sub

Private Function OpenPhysicalMemory() As Long
     Dim Status As Long
     Dim PhysmemString As UNICODE_STRING
     Dim Attributes As OBJECT_ATTRIBUTES
    
     RtlInitUnicodeString PhysmemString, StrPtr("\Device\PhysicalMemory")
     Attributes.Length = Len(Attributes)
     Attributes.RootDirectory = 0
     Attributes.ObjectName = VarPtr(PhysmemString)
     Attributes.Attributes = 0
     Attributes.SecurityDeor = 0
     Attributes.SecurityQualityOfService = 0
    
     Status = ZwOpenSection(g_hMPM, SECTION_MAP_READ or SECTION_MAP_WRITE, Attributes)
     If Status = STATUS_ACCESS_DENIED Then
         Status = ZwOpenSection(g_hMPM, READ_CONTROL or WRITE_DAC, Attributes)
         SetPhyscialMemorySectionCanBeWrited g_hMPM
         CloseHandle g_hMPM
         Status = ZwOpenSection(g_hMPM, SECTION_MAP_READ or SECTION_MAP_WRITE, Attributes)
     End If
    
     Dim lDirectoty As Long
     verinfo.dwOSVersionInfoSize = Len(verinfo)
     If (GetVersionEx(verinfo)) <> 0 Then
         If verinfo.dwPlatformId = 2 Then
             If verinfo.dwMajorVersion = 5 Then
                 Select Case verinfo.dwMinorVersion
                     Case 0
                         lDirectoty = &H30000
                     Case 1
                         lDirectoty = &H39000
                 End Select
             End If
         End If
     End If
    
     If Status = 0 Then
         g_pMapPhysicalMemory = MapViewOfFile(g_hMPM, 4, 0, lDirectoty, &H1000)
         If g_pMapPhysicalMemory <> 0 Then OpenPhysicalMemory = g_hMPM
     End If
End Function

Private Function LinearToPhys(BaseAddress As Long, addr As Long) As Long
     Dim VAddr As Long, PGDE As Long, PTE As Long, PAddr As Long
     Dim lTemp As Long
    
     VAddr = addr
     CopyMemory aByte(0), VAddr, 4
     lTemp = Fix(ByteArrToLong(aByte) / (2 ^ 22))
    
     PGDE = BaseAddress + lTemp * 4
     CopyMemory PGDE, ByVal PGDE, 4
    
     If (PGDE And 1) <> 0 Then
         lTemp = PGDE And &H80
         If lTemp <> 0 Then
             PAddr = (PGDE And &HFFC00000) + (VAddr And &H3FFFFF)
         Else
             PGDE = MapViewOfFile(g_hMPM, 4, 0, PGDE And &HFFFFF000, &H1000)
             lTemp = (VAddr And &H3FF000) / (2 ^ 12)
             PTE = PGDE + lTemp * 4
             CopyMemory PTE, ByVal PTE, 4
            
             If (PTE And 1) <> 0 Then
                 PAddr = (PTE And &HFFFFF000) + (VAddr And &HFFF)
                 UnmapViewOfFile PGDE
             End If
         End If
     End If
    
     LinearToPhys = PAddr
End Function

Private Function GetData(addr As Long) As Long
     Dim phys As Long, tmp As Long, ret As Long
    
     phys = LinearToPhys(g_pMapPhysicalMemory, addr)
     tmp = MapViewOfFile(g_hMPM, 4, 0, phys And &HFFFFF000, &H1000)
     If tmp <> 0 Then
         ret = tmp + ((phys And &HFFF) / (2 ^ 2)) * 4
         CopyMemory ret, ByVal ret, 4
        
         UnmapViewOfFile tmp
         GetData = ret
     End If
End Function

Private Function SetData(ByVal addr As Long, ByVal data As Long) As Boolean
     Dim phys As Long, tmp As Long, x As Long
    
     phys = LinearToPhys(g_pMapPhysicalMemory, addr)
     tmp = MapViewOfFile(g_hMPM, SECTION_MAP_WRITE, 0, phys And &HFFFFF000, &H1000)
     If tmp <> 0 Then
         x = tmp + ((phys And &HFFF) / (2 ^ 2)) * 4
         CopyMemory ByVal x, data, 4
        
         UnmapViewOfFile tmp
         SetData = True
     End If
End Function

Private Function ByteArrToLong(inByte() As Byte) As Double
     Dim i As Integer
     For i = 0 To 3
         ByteArrToLong = ByteArrToLong + inByte(i) * (&H100 ^ i)
     Next i
End Function

使用前请先设置 App.TaskVisible = False

有谁知道如何让这样的语句在 DLL 类模块里设置吗?]]> http://www.junyuqin.com/blog/article.asp?id=120 <![CDATA[迅雷、FlashGet、QQ旋风专用链在线转换]]> junyuqin@sohu.com(junyuqin) Fri,29 May 2009 14:09:47 +0800 http://www.junyuqin.com/blog/default.asp?id=120
http://www.junyuqin.com/URLConverter.php

从此电脑里不用同时安装迅雷、FlashGet、QQ旋风了]]> http://www.junyuqin.com/blog/article.asp?id=111 <![CDATA[512汶川大地震一周年之际，网站默哀，灰色一个月！]]> junyuqin@sohu.com(junyuqin) Mon,11 May 2009 20:52:47 +0800 http://www.junyuqin.com/blog/default.asp?id=111 另：为方便站点哀悼，特提供素装代码，以表哀悼。
以下为网站素妆灰度处理方法：
一、直接在css文件最前面加入
程序代码 程序代码
body{ filter:Gray; }


或者

程序代码 程序代码
html { filter:progid:DXImageTransform.Microsoft.BasicImage(grayscale=1); }
均可



二、其他HTML页面

程序代码 程序代码
html { filter:progid:DXImageTransform.Microsoft.BasicImage(grayscale=1); }




三、如果是纯HTM页面的可以加在header.htm的Body中间

程序代码 程序代码
<style>
html{filter:progidXImageTransform.Microsoft.BasicImage(grayscale=1);}
</style>




四、或者直接将以下代码粘贴到css文件里即可

程序代码 程序代码
HTML {
FILTER: progid:DXImageTransform.Microsoft.BasicImage(grayScale :1)
}
BODY {
FILTER: progid:DXImageTransform.Microsoft.BasicImage(grayScale :1)
}
DIV {
FILTER: progid:DXImageTransform.Microsoft.BasicImage(grayScale :1)
}
IMG {
FILTER: progid:DXImageTransform.Microsoft.BasicImage(grayScale :1)
}
OBJECT {
FILTER: progid:DXImageTransform.Microsoft.BasicImage(grayScale :1)
}
Select {
FILTER: progid:DXImageTransform.Microsoft.BasicImage(grayScale :1)
}
EMBED {
FILTER: progid:DXImageTransform.Microsoft.BasicImage(grayScale :1)
}




五、
程序代码 程序代码
{ filter:progid:DXImageTransform.Microsoft.BasicImage(grayscale=1); }


使用方法：这段代码可以变网页为黑白，将代码加到CSS最顶端就可以实现素装。
有一些站长的网站可能使用这个css 不能生效，是因为网站没有使用最新的网页标准协议


程序代码 程序代码
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">



请将网页最头部的替换为以上代码。

有一些网站FLASH动画的颜色不能被CSS滤镜控制，可以在FLASH代码的和之间插入：
程序代码 程序代码
<param value="false" name="menu"/>
<param value="opaque" name="wmode"/>


最简单的把页面变成灰色的代码是在head 之间加
程序代码 程序代码
<style type="text/css"> html {FILTER: gray} </style>



网站变黑白代码，自己加到css样式里
程序代码 程序代码
body{filter:Gray;}


如果光让图片变黑白  
程序代码 程序代码
img{filter:Gray;}




六、在<body>里也可以用下面的代码（Tom博客首页用的是这个代码）

程序代码 程序代码
<!-- 黑白滤镜 -->（html注释）
<script language="javascript">
document.body.style.filter   =   "progid:DXImageTransform.Microsoft.BasicImage(GrayScale=1)";
</script>

建议全国站长动起来，为在地震中遇难的同胞哀悼！

]]>