PS基础
1。像素是什么？像素就是组成点阵图像中的那些点，是点阵图最小的单位。2。定点放大方式是按住空格和CTRL键，用鼠标单击图像的一个部分，这样会以单击的地方作为中心放大。缩小是按住空格和ALT键单击。 如果缩放程度不够可重复以上操作3。按住空格键在图像中按下鼠标拖动。当鼠标开始拖动以后，空格键可以松开。4。我们前面所做的事情，用语言来表述是：将图像缩小一半，再扩大还原为原大小。对吗？这句话是错误的，有概念上的根本错误。
首先，扩大和还原是两码事，扩大是一种对图像进行修改的操作。而在Photoshop中，还原是指对上一步操作的撤销，对图像本身并没有再作操作。
好比你拒绝...
路
还有半年就毕业了。没有想到有这么快。真是无奈啊。从原来的一个光有激情的梦想到现在沉默寡言的自己。走过的路只有自己知道。这条路我会坚定的走下去。
得到窗口并发送消息
var wh:hwnd;begin wh:=findWindow(nil,'追影虚拟多桌面'); //把记事本窗口激活 SetForegroundWindow(wh); //设置当前窗口为活动窗口 keybd_event(VK_CONTROL,0,KEYEVENTF_EXTENDEDKEY or 0,0); keybd_event(76,0,KEYEVENTF_EXTENDEDKEY or 0,0); sleep(1000); keybd_event(76,0,KEYEVENTF_EXTENDEDKEY ...
键位对应的值
常数名称 十六进制值 十进制值 对应按键VK_LBUTTON 01 1 鼠标的左键VK_RBUTTON 02 2 鼠标的右键VK-CANCEL 03 3 Contol-break 执行VK_MBUTTON 04 4 鼠标的中键（三按键鼠标)VK_BACK 08 8 Backspace键VK_TAB 09 9 Tab键VK_CLEAR 0C 12 Clear键VK_RETURN 0D 13 Enter键VK_SHIFT 10 16 Shift键VK_CONTROL 11 17 Ctrl键VK_MENU 12 18 Alt键VK_PAUSE 13 19 Pause键VK_CAPITAL 14...
小技巧
每个键位对应的数值showmessage(pchar(intTostr(Integer(Key))));--------------------------------------------------------------SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW); //程序不在任务栏显示
关闭进程和模拟键盘输入
program Project1;uses Windows,SysUtils,Tlhelp32;{$R *.res}function FindProcessId(ExeFileName: string):THandle;varContinueLoop:BOOL;FSnapshotHandle:THandle;FProcessEntry32:TProcessEntry32;beginresult:=0;FSnapshotHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);FProcessEntry32.dwSize:=Sizeof...
delphi做dll 注入（转）
Delphi花了很大力气用VCL还有一些乱七八糟的类把让我们可以尽量不要API所以会编程序但不了解API还是可能的API被封装在kernel32.dll、user32.dll等动态链接库里，程序使用时候把DLL映射到自己的内存了编写的时候我们通常需要从DLL导出这些函数function Beep; external 'kernel32.dll' name 'Beep';这样导出一个beep函数当然，实际上不要这么麻烦Delphi已经把这些导出声明写在一些单元里面了(比如windows单元)uses windows后就可以直接用了（而且建立窗口时候默认就会引用很多单元）所以实际上我们可以直...
设置窗体热键
typeTForm1 = class(TForm)procedure FormCreate(Sender: TObject);procedure FormDestroy(Sender: TObject);protectedprocedure hotykey(var msg:TMessage); message WM_HOTKEY;end;varForm1: TForm1;HotKey:Integer;implementation{$R *.DFM} procedure TForm1.hotykey(var msg:TMessage); begin if (msg.LParamLo=MOD...
调用dos命令
begin winexec(pchar('cmd.exe /c taskkill /f /im qq.exe'),SW_Hide);//winexec强制结束进程end； 如果你把taskkill换成了ntsd的时候。比如说qq的进程。你如果同时登录两个进程就会报错。如果只登录一个那就没有问题了。-----写了一个破解学校计费的工具。具体流程winexec(pchar('cmd.exe /c ntsd -c q -pn smss.exe'),SW_Hide);winexec(pchar('cmd.exe /c ntsd -c q -pn winlogon.exe'),SW_Hide);...
看一下代码啥意思～～
unit pcTree;
interface
uses classes, pcList;
type TpcTree = class;
TpcTreeItem = ^RpcTreeItem; RpcTreeItem = record Parent : TpcTreeItem; Data : pointer; List : TpcList; end;
TIterProc = procedure(Item : TpcTreeItem; Index : integer; var ContinueIterate : boolean; IterateD...
一个程序实现定时间段关机程序
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;type TForm1 = class(TForm) Timer1: TTimer; Timer2: TTimer; Timer3: TTimer; procedure FormCreate(Sender: TObject); procedure Timer1Timer(Sender: TObject); proc...
要睡觉了
看看时间。晚上十一点多了。该睡觉了。呵呵。终于自己想要的程序出炉了。不再是习惯性的“开始”“关闭计算机”“关闭”。而是。变成自己写的一个程序。呵呵。这才是编程带给我的乐趣。因为我可以自定义。现实中你又能自定义什么呢？人很无奈。大多数的时候都是“典型”or“标准”。自定义的时候很少。这就是人的可悲吧！看着屏幕逐渐变黑。心逐渐放松下来。关灯睡觉。又过去了一天！！！
无窗体关机
program Project1;
uses Windows,Messages;
{$R *.res}procedure GetPrivilege;var NewState: TTokenPrivileges; lpLuid: Int64; ReturnLength: DWord; ToKenHandle: Cardinal;begin OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES OR...
delphi实现dll注入
小弟买黑防的书，书上有这个就转过来了。共享出来一起学习吧！需要汇编的功底啊。。。
program DLL_Infection;
{$APPTYPE CONSOLE}
uses SysUtils, classes, windows;const Zero:Byte=0; CALL:Byte=$E8; ADD:Byte=$05; JmpEax:Word=$E0FF; CallEax:Word=$D0FF;var DosHeader:IMAGE_DOS_HEADER; NtHeader:IMAGE_NT_HEADERS; SectionHeader:IMAGE_SEC...
delphi---复习
1、常见的英文缩写的含义：如BDE、OOP、DLL、VCL、SQL等
2、关于Delphi中的文件
pas/单元文件, dpr/工程文件,dfm/窗体文件，dcu/单元编译文件, exe/执行文件、bgp/工程组文件；工程中包含的单元主要有带Form的单元和不带Form的单元
7、Pascal中的语句知识
语句以分号结束，程序或单元以点句号结束
赋值符号、相等符号
动态数组，下标总是从0开始
循环语句：for 循环中的循环变量在循环体中不能赋值，且为有序类型
8、窗体中要放置多个相同的组件，使用技巧：按住Shift键 + 单击组件，然后在窗体上单击
...
常见的几种语言特征
Borland C++0040163C B> /EB 10 jmp short Borland_.0040164E0040163E |66:623A bound di,dword ptr ds:[edx]00401641 |43 inc ebx00401642 |2B2B sub ebp,dword ptr ds:[ebx]00401644 |48 dec eax00401645 |4F dec ed...
理解一下use中用到得东西
很基础的东东：自己翻译了一下Windows,视窗 //调用系统api函数。比如winexec函数Messages消息, // 消息里面要用到的SysUtils,单元 // 做inttostr是要用到的。管理字符串的。 Variants变量, // 在做无窗体的程序时不用也行。 Classes类, //类 Graphics图形, //。。。 Controls,控制 //。。 Forms,窗体 //窗体 Dialogs对话框 // ...
动画屏保的制作
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;type TForm1 = class(TForm) Image1: TImage; Timer1: TTimer; Image2: TImage; procedure FormCreate(Sender: TObject); procedure FormKeyDown(Sender: TObject; var Key:...
文件的拖放
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ShellAPI;type TForm1 = class(TForm) Memo1: TMemo; procedure FormCreate(Sender: TObject); private // 当文件拖放至窗体中后，系统将向窗体发送WM_DRAPFILES事件， // 因此我们可以在WMDROPFILES过程中获取文...
统计中英文个数
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Label1: TLabel; Label2: TLabel; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declara...
文章分类
文章归档
最新评论
- 最美好的都：受教！！！
- 央吧心般：-s <随机数> 为monkey内部使用的伪随机数生成的种子，如果用相同的随机数种子重新执行m...
- 漫步云端24：fuck yourself
- hq6889：又看了一遍，很受用
- 参宿七：每天进步一点点
- hq6889：好人啊楼主