如何映射肉鸡磁盘(Delphi黑客编程) || 中国X黑客小组


	您现在的位置：中国X黑客小组 >> 技术文章 >> 编程技术 >> 黑客编程 >> 文章正文	用户登录新用户注册

如何映射肉鸡磁盘(Delphi黑客编程)

热

【字体：小大】

如何映射肉鸡磁盘(Delphi黑客编程)

作者：不详文章来源：CnXHacker.Net 点击数：更新时间：2007-5-21

本实例演示如何映射和断开网络虚拟盘。
向窗体上添加两个TLabel组件、两个TEdit组件和两个TButton组件，设计完成的主界面
首先添加“连接”按钮的响应代码，在其中调用WNetAddConnection2函数，根据用户输入的本地虚拟盘和网络共享目录来映射虚拟盘，响应代码如下：
procedure TfrmMain.btnConnectClick(Sender: TObject);
var
    NetShare :NETRESOURCE;
begin
    NetShare.dwType := RESOURCETYPE_DISK;
    NetShare.lpLocalName := PAnsiChar(edtLocal.Text);
    NetShare.lpRemoteName := PAnsiChar(edtRemote.Text);
    NetShare.lpProvider :=’’;
    WNetAddConnection2(NetShare, ’’, ’’, CONNECT_UPDATE_PROFILE);
end;
然后添加“断开”按钮的响应代码，在其中调用WNetCancelConnection2函数断开用户输入的本地虚拟盘，响应代码如下：
procedure TfrmMain.btnDisconnectClick(Sender: TObject);
var
    strLocalName : PChar;
begin
    strLocalName:=PAnsiChar(edtLocal.Text);
    WNetCancelConnection2(strLocalName,CONNECT_UPDATE_PROFILE,False);
end;

程序代码如下：
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TfrmMain = class(TForm)
    btnConnect: TButton;
    btnDisconnect: TButton;
    edtLocal: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    edtRemote: TEdit;
    procedure btnConnectClick(Sender: TObject);
    procedure btnDisconnectClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;
implementation
{$R *.dfm}

procedure TfrmMain.btnConnectClick(Sender: TObject);
var
    NetShare :NETRESOURCE;
begin
    NetShare.dwType := RESOURCETYPE_DISK;
    NetShare.lpLocalName := PAnsiChar(edtLocal.Text);
    NetShare.lpRemoteName := PAnsiChar(edtRemote.Text);
    NetShare.lpProvider :=’’;
    WNetAddConnection2(NetShare, ’’, ’’, CONNECT_UPDATE_PROFILE);
end;

procedure TfrmMain.btnDisconnectClick(Sender: TObject);
var
    strLocalName : PChar;
begin
    strLocalName:=PAnsiChar(edtLocal.Text);
    WNetCancelConnection2(strLocalName,CONNECT_UPDATE_PROFILE,False);
end;

end.
保存文件，然后按F9键运行程序，程序运行的初始画面。
在“本地虚拟盘”对应的文本框中输入一个有效的本地虚拟盘，在“网络共享目录”对应的文本框中输入一个有效的网络共享目录.
单击“连接”按钮可以映射虚拟盘，单击“断开”按钮可以断开虚拟盘。

文章录入：IceRiver 责任编辑：admin

上一篇文章： dll插入系统进程的源码！算是写木马的经典了

下一篇文章： WINDOWS钩子函数-黑客编程

【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

最新热点		最新推荐		相关文章
				如何分级防御针对Linux服务器网上交易失窃责任归属存争议网络安全越来越重要未来该如教您如何全面清除计算的机病拒绝威胁教你如何合理高效配适合的才是最好的教你如何挑黑帽大会研究人员展示如何攻如何正确使用“网络入侵检测如何巧妙从进程信息中判断病如何解决大型企业反病毒跨地

　网友评论：（只显示最新5条。评论内容只代表网友观点，与本站立场无关！）


关于我们 - 版权声明 - 帮助(？) - 广告服务 - 联系我们 - 友情链接 - 用户注册 -	Powered by ICE RIVER - STUDIO

» CnXHacker.CoM