- 博客(24)
- 资源 (7)
- 收藏
- 关注
RSS订阅
原创 asp/php防SQL注入源码
asp版本的源代码<%'Code by safe3On Error Resume Nextif request.querystring<>"" then call stophacker(request.querystring,"'|(and|or)\b.+?(>|<|=|in|like)|/\*.+?\*/|<\s*script\b|\bEXEC\b...
2020-03-23 14:22:11
425
原创 签名变更说明
变更说明：自2012年1月1日起，鬼灵空间开发的所有软件，网站，动画，图片等。签名由鬼灵空间改为思悦技术/思悦.鬼灵空间还为技术开发者.先前开发的,还保留鬼灵空间签名不做任何更改. 特此说明
2011-12-29 16:57:13
364
转载 VB判断QQ是否在线
<br /><br />Private Sub Command1_Click()<br /> Dim strHtml$<br /> strHtml = getHtmlStr("http://219.133.49.157/getonline?81597651:")<br /> MsgBox IIf(InStr(strHtml, "1;") > 0, "在线", "不在线")<br />End Sub<br /> <br />Private Function getHtmlStr$(strUr
2011-01-25 17:17:00
1027
1
转载 aspjpeg为图片加上水印
<br /><% <br />'函数功能：远程图片自动保存到本地服务器，并利用aspjpeg为图片加上水印 <br />'（注意：请先在目录下创建images目录，用来保存临时图片） <br />'本程序需要在服务器上安装"aspjpeg组件"否则无法正常使用 <br />'也可以只取'''''22222222'''''''以上的部分,这部分可以保存图片,第二部分是进行水印增加 <br />'使用方法,请保存为saveimg.asp <br />'saveimg.asp?url=http://siyizhu
2011-01-18 07:28:00
402
转载 在Visual Basic 6.0中操纵XML文件
<br />什么是XML <br /> 扩展标记语言XML是一种简单的数据存储语言，使用一系列简单的标记描述数据，而这些标记可以用方便的方式建立，虽然XML占用的空间比二进制数据要占用更多的空间，但XML极其简单易于掌握和使用。 <br /> XML与Access,Oracle和SQL Server等数据库不同，数据库提供了更强有力的数据存储和分析能力，例如：数据索引、排序、查找、相关一致性等，XML仅仅是展示数据。事实上XML与其他数据表现形式最大的不同是：他极其简单。这是一个看上去有点琐细的优点，但
2010-10-18 15:51:00
750
原创 获取系统任务栏高度
<br />这个代码返回系统任务栏高度，以缇(twips)做单位，使用了SystemParametersInfo API函数。<br />Option Explicit<br />Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuW
2010-10-18 15:50:00
1070
原创 MSCOMM控件的一些说明
<br /> VB5.0/6.的MSComm通信控件提供了一系列标准通信命令的接口，它允许建立串口连接，可以连接到其他通信设备（如Modem）． 还可以发送命令、进行数据交换以及监视和响应在通信过程中可能发生的各种错误和事件，从而可以用它创建全双工 、事件驱 动的、高效实用的通信程序。但在实际通信软件设计过程中，MSComm控件并非像想像中那样完美和容易控制．特别是在中文Wln 95／98下通信时更会出现问题。下面就从基础开始介绍，然后逐步讨沦MSComm控件在编程中出现的问题以及编程技巧。 <br />一
2010-10-18 15:48:00
735
转载 如何实现VB与EXCEL的无缝连接
<br />VB是常用的应用软件开发工具之一，由于VB的报表功能有限，而且一但报表格式发生变化，就得相应修改程序，给应用软件的维护工作带来极大的不便。因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能。但由于VB与EXCEL由于分别属于不同的应用系统，如何把它们有机地结合在一起，是一个值得我们研究的课题。<br /> 一、 VB读写EXCEL表：<br /> VB本身提自动化功能可以读写EXCEL表，其方法如下：<br /> 1、在工程中引用Microsoft Excel类型库：<b
2010-10-18 15:46:00
296
原创 怎样使DataGrid支持鼠标滚轮滚动记录
<br />在本站的VB源码《数据网格下拉列表框控件》中(链接地址：http://www.mndsoft.com/blog/article.asp?id=214)中，网友 taomaintao 提示支持滚轮鼠标，其实原本代码有已经有部分API代码意图支持鼠标滚轮，但可能作者后来没有加上。基于此，我找到一个解决办法（来自网络），taomaintao 网友可以按照下面自己进行修改吧。<br />首先在DataGrid 的 【拆分】 属性中的【选取框样式】设置为 3，即整行高亮选择，然后加入如下代码就支持了，只要
2010-10-18 15:46:00
1313
原创 各种Excel VBA的命令
<br />本示例为设置密码窗口 (1) <br />If Application.InputBox("请输入密码：") = 1234 Then <br />[A1] = 1 '密码正确时执行 <br />Else: MsgBox "密码错误，即将退出！" '此行与第2行共同设置密码 <br />End If <br />本示例为设置密码窗口 (1) <br />X = MsgBox("是否真的要结帐？", vbYesNo) <br />If X = vbYes Then <br />Close <br /
2010-10-18 15:45:00
618
原创 巧用SendMessage函数扩展Treeview功能
<br />Option Explicit<br />Private Type TPoint<br /> x As Long<br /> y As Long<br />End Type<br />Private Type TVHITTESTINFO<br /> pt As TPoint<br /> flags As Long<br /> hItem As Long<br />End Type<br />Private Type TVITEM<br /> mask As L
2010-10-18 15:44:00
1147
原创 让MSflexgrid支持鼠标滚轮事件
<br />以下程序放在一个公共模块中，<br />在窗体中的form_load事件中 写 HookWheel me.hwnd<br />在窗体中的form_unload事件中 写 UnHookWheel me.hwnd<br />在表格的GotFocus事件中 set CtlWheel=MSFlexGrid1 '( 表格名称，根据具体情况，修改这个名称)<br />在表格的LostFocus事件中 set CtlWheel=Nothing'( 表格名称，根据具体情况，修改这个名称)<br /><br /
2010-10-18 15:44:00
767
转载 一个API方式存取日志文件的模块
<br /><br />'**************************************<br />' 模块名称: AppendToLog<br />' 功能描述:一个很不错的日志文件写入模块，不同于<br />' open/print/close写文件方法,这个模块使用API <br />' 存取文件，这样保证文件能正确的存取，及时被<br />' 存取的文件正被其他用户打开。这个模块是最安全<br />' 有效的文件写入方法,用于日志文件的创建，当然<br
2010-10-18 15:42:00
332
原创 vb中如何在任务管理器里面隐藏应用程序进程
<br />'该模块用于在任务管理器中隐藏进程<br />Private Const STATUS_INFO_LENGTH_MISMATCH = &HC0000004<br />Private Const STATUS_ACCESS_DENIED = &HC0000022<br />Private Const STATUS_INVALID_HANDLE = &HC0000008<br />Private Const ERROR_SUCCESS = 0&<br />Private Const SECTION_
2010-10-18 15:41:00
1316
原创 VB重绘图像大小
<br />VB的尺寸单位是缇，而一般我们所使用的尺寸单位是像素或是毫米....<br />下面我介绍下最简单的重绘尺寸<br />首先新建一个窗体，在窗体上添加一个按钮，在添加一个PICTURE控件<br />其次在按钮的过程中键入<br />Me.Picture1.AutoRedraw = True<br /> Me.Picture1.Width = 3660 <br /> Me.Picture1.Height = 4860<br /> Me.Picture1.PaintPicture LoadPi
2010-08-21 12:10:00
702
原创 设置excel表格中单元格中的背景颜色
<br />Sheet1.Cells(1,1)Interior.ColorIndex = 1 ‘设置Sheet1表中的第一行第一列的单元格背景颜色为黑色<br />Sheet1.Rows(3).Interior.ColorIndex=2 '设置Sheet1表中的第三行背景颜色为白色<br />标题: EXCEL开发—Interior.ColorIndex 色彩列表收藏<br /><br />无色0193812039白色221403224142342524436254472645827469284710294
2010-08-07 19:05:00
1998
原创 数据库字段类型详解
<br />【bit 整型】 <br /> bit 数据类型是整型，其值只能是0、1或空值。这种数据类型用于存储只有两种可能值的数据，如Yes 或No、True 或Fa lse 、On 或Off <br /> <br />【int 整型】<br /> int 数据类型可以存储从- 231(-2147483648)到231 (2147483 647)之间的整数。存储到数据库的几乎所有数值型的数据都可以用这种数据类型。这种数据类型在数据库里占用4个字节 <br /> <br />【smallint 整型
2010-08-07 09:19:00
507
原创 给菜单加上图片
<br />Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long <br /><br />Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long <br /><br />Private Declare Function GetMenuItemID Lib "user32"
2010-07-14 21:12:00
295
原创 关于数据库的操作
1.获取所有数据库名: Select Name FROM Master..SysDatabases order by Name2.获取所有表名: (1)、Select Name FROM SysObjects Where XType='U' orDER BY Name XType='U':表示所有用户表; XType='S':表示所有系统表; (2)、SELECT name FROM sysobjects WHERE type = 'U' AND s
2010-06-05 11:21:00
297
原创 检测鼠标是否在使用
<br />以下提供一套简单检测鼠标是否在使用的源码<br />Option Explicit<br />Private Type PointAPI<br /> X As Long<br /> Y As Long<br />End Type<br />Dim MousePos As PointAPI<br />Private Declare Function GetCursorPos Lib "user32" _<br /> (lpPoi
2010-06-04 07:28:00
416
原创 网线线序
网线线序大家都很清楚，下面我总结了一下，为大家详细注明一下： 一般的 橙白,橙,绿白,蓝,蓝白,绿,棕白,棕.若是只有四根线的,则任选四根,做线时对应水晶头的1/2/3/6四个入口压制即可.如果只有一根网线，但想两台机子同时上网，不增加外设，做网线时45水晶头连接方法水晶头金属面对自己，从左到右为1－8 （白橙、橙，白绿、蓝，白蓝、绿，白棕、棕） 网 线
2010-05-28 09:00:00
2233
原创 VB正则表达式
如果原来没有使用过正则表达式，那么可能对这个术语和概念会不太熟悉。不过，它们并不是您想象的那么新奇。请回想一下在硬盘上是如何查找文件的。您肯定会使用 ? 和 * 字符来帮助查找您正寻找的文件。? 字符匹配文件名中的单个字符，而 * 则匹配一个或多个字符。一个如 data?.dat 的模式可以找到下述文件：data1.datdata2.datdatax.datdataN.da
2010-05-28 08:56:00
565
原创 VB显示透明FLASH效果
VB显示透明FLASH效果 演示效果： 代码如下：公共声明区域Option ExplicitPrivate Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPriv
2010-05-27 09:09:00
831
sleep.dll不带卡机的缓冲等待
2011-04-05
PC春天里的小猫 V1.0
2011-03-21
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人