记得当时是看了几天黑客，了解了黑客基本的网络常用命令，，其中这个net send 我倒觉得有点意思，不需要对方的许可，你不收都得收，另外在看windows2000的批理命令中的for可以连续执行某个条命令，A,,,历害，当时我就有一个想法，如果说我用for连续发他个几万次的消息过去，他会点了再点点了再就是难得点完确定，呵呵，，，，心想中    一天在学校没事就耍吓这些常用的命令，，，，打一条net send /?看帮助，耶，还有一个domain哒嘛，，，，这么说一次可以向一个域的机子发信息了哦，，，，呵呵，，，更幸的是，，，那个FOR的/L参数的配合，，哈我看你们都遭映吧，还不气死你们，，，    看看我一直在想的事就要成功的表演一吓了，，       我就用一条        for /l %i in(1,1,999999) do net send /domain:121gp %i%illlaskf%i%i    哈哈，看看这么简单的一条命令，却是要连续向整个域里面的机子发送999999次信息，看看不点才怪哈哈哈，，，     我说一吓，那个FOR是循环的命令，，是专用在批处理文件里的，/L就是代失下去，也就是说1，2，3，4，5，6，，，，这样不断的执行下去，，，具体执行多少次就由in(1,1,999999)这个IN里面的最后一个参数决定，注意这个IN后的括号"("要在一起，不要有空格哟，否则就要出错，IN里面有三个参数，第一个是初始值，第二是每次加多少的，最后一个是最大数，当变量i加到这个值就会停止。。。   具体也可以在CMD下输入for /?看帮助   当时那个教室还在上课，，我发了这条命令后就锁定机子走人，，，不幸，一会，一个女教室来了，，在我后面，，我还在为刚才的那命令开心得想会怎么样？   不经意的又在另一个教室再发了一次，，，这时那个女老师走过来说，，，你还多发几条嘛？...............  我晕，，，漏线了，，，不过她还好，没有向校长说，，，只是警告了一次，。。不一会班主任知道了，，，，也来询问刚才是你在发？   我。。。。。。。。无语了         想起的话，就是一教室的机子都在不停的"嘟嘟.."的响，，那场院面可真是热呼哟。。呵呵         同学们都在广播中，，突然所有的机子都叫起来了，，哈哈，，，俞想愈有意思。。。 implement net send? 主要是要向局域网内的机器发送信息。 function NetSend(dest, Source, Msg: string): Longint; overload; type  TNetMessageBufferSendFunction = function(servername, msgname, fromname: PWideChar;   buf: PWideChar; buflen: Cardinal): Longint;  stdcall; var  NetMessageBufferSend: TNetMessageBufferSendFunction;  SourceWideChar: PWideChar;  DestWideChar: PWideChar;  MessagetextWideChar: PWideChar;  Handle: THandle; begin  Handle := LoadLibrary('NETAPI32.DLL');  if Handle = 0 then  begin   Result := GetLastError;   Exit;  end;   @NetMessageBufferSend := GetProcAddress(Handle, 'NetMessageBufferSend');  if @NetMessageBufferSend = nil then  begin   Result := GetLastError;   Exit;  end;  MessagetextWideChar := nil;  SourceWideChar   := nil;  DestWideChar    := nil;  try   GetMem(MessagetextWideChar, Length(Msg) * SizeOf(WideChar) + 1);   GetMem(DestWideChar, 20 * SizeOf(WideChar) + 1);   StringToWideChar(Msg, MessagetextWideChar, Length(Msg) * SizeOf(WideChar) + 1);   StringToWideChar(Dest, DestWideChar, 20 * SizeOf(WideChar) + 1);   if Source = '' then    Result := NetMessageBufferSend(nil, DestWideChar, nil,     MessagetextWideChar, Length(Msg) * SizeOf(WideChar) + 1)   else   begin    GetMem(SourceWideChar, 20 * SizeOf(WideChar) + 1);    StringToWideChar(Source, SourceWideChar, 20 * SizeOf(WideChar) + 1);    Result := NetMessageBufferSend(nil, DestWideChar, SourceWideChar,     MessagetextWideChar, Length(Msg) * SizeOf(WideChar) + 1);    FreeMem(SourceWideChar);   end;  finally   FreeMem(MessagetextWideChar);   FreeLibrary(Handle);  end; end; function NetSend(Dest, Msg: string): Longint; overload; begin  Result := NetSend(Dest, '', Msg); end; function NetSend(Msg: string): Longint; overload; begin  Result := NetSend('', '', Msg); end; // Example: procedure TForm1.Button1Click(Sender: TObject); const  NERR_BASE = 2100;  NERR_NameNotFound = NERR_BASE + 173;  NERR_NetworkError = NERR_BASE + 36;  NERR_Success = 0; var  Res: Longint;  sMsg: string; begin  Res := NetSend('LoginName', 'Your Message...');  case Res of   ERROR_ACCESS_DENIED: sMsg := 'user does not have access to the requested information.';   ERROR_INVALID_PARAMETER: sMsg := 'The specified parameter is invalid.';   ERROR_NOT_SUPPORTED: sMsg := 'This network request is not supported.';   NERR_NameNotFound: sMsg := 'The user name could not be found.';   NERR_NetworkError: sMsg := 'A general failure occurred in the network hardware.';   NERR_Success: sMsg := 'Message sent!';  end;  ShowMessage(sMsg); end;  

评论