西瓜皮

  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

2013年5月25日

摘要: 1 using System; 2 using System.Collections; 3 using System.Collections.Generic; 4 using System.Configuration; 5 using System.Data; 6 using System.Data 阅读全文
posted @ 2013-05-25 00:44 西瓜皮 阅读(444) 评论(0) 推荐(0) 编辑

2013年4月18日

摘要: //权限认证的过滤器方法static public function AccessDecision($appName=APP_NAME){//检查是否需要认证if(RBAC::checkAccess()) {//存在认证识别号,则进行进一步的访问决策$accessGuid = md5($appName.MODULE_NAME.ACTION_NAME);if(empty($_SESSION[C('ADMIN_AUTH_KEY')])) {if(C('USER_AUTH_TYPE')==2) {//加强验证和即时验证模式 更加安全 后台权限修改可以即时生效//通过数 阅读全文
posted @ 2013-04-18 16:54 西瓜皮 阅读(401) 评论(0) 推荐(0) 编辑

2013年1月18日

摘要: TOP分页select top 10 * from Table1where Id not in(select top 开始的位置 Id from Table1)MAX分页select top 10 * from Table1where Id>(select max(Id)from (select top 开始位置 Id from Table1order by Id)tt)row分页select *from ( select row_number()over(order by tempColumn)tempRowNumber,* from (select top (当前页*每页记录数... 阅读全文
posted @ 2013-01-18 00:46 西瓜皮 阅读(387) 评论(0) 推荐(0) 编辑

2012年11月23日

摘要: Option ExplicitPrivate Declare Function CreateWin32Thread Lib "kernel32" Alias "CreateThread" (ByVal lpThreadAttributes As Long, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, ByVal lpParameter As Long, ByVal dwCreationFlags As Long, lpThreadID As Long) As LongPrivate D 阅读全文
posted @ 2012-11-23 17:00 西瓜皮 阅读(805) 评论(0) 推荐(0) 编辑

2012年11月16日

摘要: Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal dwData As Long, ByVal dwExtraInfo As Long)Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo A 阅读全文
posted @ 2012-11-16 08:04 西瓜皮 阅读(623) 评论(0) 推荐(0) 编辑

2012年11月9日

摘要: Private Declare Function ReadProcessMemory Lib "kernel32.dll" (ByVal hProcess As Long, ByRef lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, ByRef lpNumberOfBytesWritten As Long) As LongPrivate Declare Function WriteProcessMemory Lib "kernel32.dll" (ByVal hProce 阅读全文
posted @ 2012-11-09 14:18 西瓜皮 阅读(1682) 评论(0) 推荐(0) 编辑

摘要: Attribute VB_Name = "winio_key"Public Declare Function MapPhysToLin Lib "WinIo.dll" (ByVal PhysAddr As Long, ByVal PhysSize As Long, ByRef PhysMemHandle) As LongPublic Declare Function UnmapPhysicalMemory Lib "WinIo.dll" (ByVal PhysMemHandle, ByVal LinAddr) As BooleanPu 阅读全文
posted @ 2012-11-09 14:12 西瓜皮 阅读(553) 评论(0) 推荐(0) 编辑

摘要: 从VB梦工厂淘到的一个vb仿SPY控件(拖动鼠标获取窗口句柄、类名、进程名、标题等参数),以后都不用API操作了!感谢原作者。点击下载 阅读全文
posted @ 2012-11-09 14:05 西瓜皮 阅读(1874) 评论(0) 推荐(0) 编辑

摘要: Option Explicit 'The CreatePipe function creates an anonymous pipe, 'and returns handles to the read and write ends of the pipe. Private Declare Funct 阅读全文
posted @ 2012-11-09 13:59 西瓜皮 阅读(1005) 评论(0) 推荐(0) 编辑

摘要: '类模块VERSION 1.0 CLASSBEGIN MultiUse = -1 'True Persistable = 0 'NotPersistable DataBindingBehavior = 0 'vbNone DataSourceBehavior = 0 'vbNone MTSTransactionMode = 0 'NotAnMTSObjectENDAttribute VB_Name = "HotKey"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creata 阅读全文
posted @ 2012-11-09 13:55 西瓜皮 阅读(890) 评论(0) 推荐(0) 编辑