[Pascal] MS-DOS Prompt

[dd666]

Hoe kan ik in Turbo Pascal een commando geven zoals in de DOS prompt, zoals 'ipconfig'?

Alvast bedankt,
DD - Thei

[McMotion]

Exec()

[dd666]

Ehh, McMotion...
Dat is heel vriendelijk van je, maar ik volg er (ook met die weirde hulp van Turbo Pascal) geen malle moer van
Zou je ietsje duidelijker kunnen zin met wat ik moet invullen, een voorbeeld ofzow zou handig zijn

Toch bedankt!

Gr33tz,
DD - Thei

[jungle_brother]

program jemoer;

uses crt, dos;

begin
swapvectors;
exec ('c:\windows\calc.exe', '');
swapvectors;
end.

[Talon]

of kijk in de help..
daar staat het ook in, zelfs met voorbeelden..
rtfm..

[dd666]

Talon schreef:
of kijk in de help..
daar staat het ook in, zelfs met voorbeelden..
rtfm..

Ja, kijk, dat bedoel ik nou Daar kom ik echt niet wijs uit man!

Wat ik nou eigenlijk wil, is dat via dat programma de volgende regel wordt uitgevoerd:

net send [IP#] message

Alvast bedankt!

[Talon]

uh..
dus je zit op school, leert net pascal, en je wilt over je schoolnetwerk mensen lastig vallen met berichtjes

[dd666]

Talon schreef:
uh..
dus je zit op school, leert net pascal, en je wilt over je schoolnetwerk mensen lastig vallen met berichtjes

Nee, niet via het schoolnetwerk, daar zit al zo'n progje op. Maar ik wilde graag 'n progje schrijven dat meerdere berichtjes tegelijk sturen, met zo'n herhalings-loop...

Maar 't lijkt dat ook jij niet weet hoe ik dat moet doen??

[McMotion]

dd666 schreef:
Wat ik nou eigenlijk wil, is dat via dat programma de volgende regel wordt uitgevoerd:

net send [IP#] message

Alvast bedankt!

ja dikke lul met jou! 2 mensen hebben al verteld hoe je het moet doen... kijk even iets verder dan je neus lang is ok!?

[Kermit the frog]

You are thinking evil thoughts - I can tell
Ik heb even snel een programma voor je gemaakt die dit moet kunnen. Ik had geen tijd om het te testen, en er zullen ook wel wat bugs inzitten. Maar goed. Good old PASCAL (Gebruik deze allang niet meer sinds we C++ krijgen).

Net Storm

Hier is broncode....

PHP-code:

{*
  Net Storm network message sender by Kermit! Encapsulation of the
  NET SEND command. Original content converted from C++ to PASCAL.

  [email]kermitrules@hotmail.com[/email]
*}

program netstorm;

{$M $4000,0,0 }

uses Crt, Dos;

const
     Const_All = '*';
     Const_Domain = '/DOMAIN: ';
     Const_Multi = '/USERS ';

type
    TSendType = (stUser, stAll, stDomain, stMulti);

    TSender = Object
            E_Prog: String;
            E_Message: String;
            E_Loop: Integer;
            E_Delay: Integer;
            procedure Send (SendType: TSendType);
    end;

    TUI = Object
        Sender: TSender;
        st_Option: String;
        SendType: TSendType;
        procedure Flash;
        procedure Execute;
    end;

procedure TSender.Send (SendType: TSendType);

var
   in_Key: Char;
   in_Line: String;
   i: Integer;

begin
     SwapVectors;
     case SendType of
          stUser: begin
                       Write ('#Specify username: ');
                       ReadLn (in_Line);
                       Write ('#Proceed with message broadcast? Press Y or N: ');
                       ReadLn (in_Key);
                       if UpCase (in_Key) = 'Y' then
                          for i:=1 to E_Loop do
                          begin
                               Exec (E_Prog, in_Line+' '+E_Message);
                               Write ('.');
                               Delay (E_Delay);
                          end;
                  end;
          stAll: begin
                      Write ('#Proceed with message broadcast? Press Y or N: ');
                      ReadLn (in_Key);
                      if UpCase (in_Key) = 'Y' then
                         for i:=1 to E_Loop do
                         begin
                              Exec (E_Prog, Const_All+' '+E_Message);
                              Write ('.');
                              Delay (E_Delay);
                         end;
                 end;
          stDomain: begin
                         Write ('#Specify domain: ');
                         ReadLn (in_Line);
                         Write ('#Proceed with message broadcast? Press Y or N: ');
                         ReadLn (in_Key);
                         if UpCase (in_Key) = 'Y' then
                            for i:=1 to E_Loop do
                            begin
                                 Exec (E_Prog, Const_Domain+in_Line+' '+E_Message);
                                 Write ('.');
                                 Delay (E_Delay);
                            end;
                    end;
          stMulti: begin
                        Write ('#Specify users: ');
                        ReadLn (in_Line);
                        Write ('#Proceed with message broadcast? Press Y or N: ');
                        ReadLn (in_Key);
                        if UpCase (in_Key) = 'Y' then
                           for i:=1 to E_Loop do
                           begin
                                Exec (E_Prog, Const_Multi+in_Line+' '+E_Message);
                                Write ('.');
                                Delay (E_Delay);
                           end;
                   end;
     end;
     SwapVectors;
end;

procedure TUI.Flash;
begin
     ClrScr;
     TextColor (2);
     WriteLn ('                        #########'+Chr (255)); Delay (80);
     WriteLn ('                    ####         ###  ########'+Chr (255)); Delay (80);
     WriteLn ('                  ##                ##++++++++#####'+Chr (255)); Delay (80);
     WriteLn ('                 #     ########       #++++++++++++##########'+Chr (255)); Delay (80);
     WriteLn ('                #     #######         ##++++++++###          ###'+Chr (255)); Delay (80);
     WriteLn ('               #    #######          ##++++++++#                ##'+Chr (255)); Delay (80);
     WriteLn ('               #   ##              ##+++++++++++#     ####        #'+Chr (255)); Delay (80);
     WriteLn ('              #                ####++++++++++++++#      ######     #'+Chr (255)); Delay (80);
     WriteLn ('              #             ###+++++++++++++++++++#      #####      #'+Chr (255)); Delay (80);
     WriteLn ('            ##+###    ######+++++++++++++++++++++++#     #####      #'+Chr (255)); Delay (80);
     WriteLn ('           #++++++####++++++++++++++++++++++++++++++#       ###     #'+Chr (255)); Delay (80);
     WriteLn ('         ##++++++++++++++++++++++++++++++++++++++++++##      ##     #'+Chr (255)); Delay (80);
     WriteLn ('       ##++++++++++++++++++++++++++++++++++++++++++++++##          ##'+Chr (255)); Delay (80);
     WriteLn ('      #++++++++++++++++++++++++++++++++++++++++++++++++++###      #++#'+Chr (255)); Delay (80);
     WriteLn ('     #++++++++++++++++++++++++++++++++++++++++++++++++++++++######++++#'+Chr (255)); Delay (80);
     WriteLn ('    #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#'+Chr (255)); Delay (80);
     WriteLn ('    #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#'+Chr (255)); Delay (80);
     WriteLn ('   #++++++#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#'+Chr (255)); Delay (80);
     WriteLn ('   #++++##+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#'+Chr (255)); Delay (80);
     WriteLn ('   #+++##+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#'+Chr (255)); Delay (80);
     WriteLn ('   #+++#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++##+++++#'+Chr (255)); Delay (80);
     WriteLn ('    #+++#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#++++#'+Chr (255)); Delay (80);
     WriteLn ('    #+++#+++###+++++++++++++++++++++++++++++++++++++++++++++++++++++++#++++#'+Chr (255)); Delay (80);
     WriteLn ('     #+++#++#XX###++++++++++++++++++++++++++++++++++++++++++++++++++++#++++#'+Chr (255)); Delay (80);
     WriteLn ('      #++++++##xx####++++++++++++++++++++++++++++++++++++++####++++++##+++#'+Chr (255)); Delay (80);
     WriteLn ('       #+++++++#xxxxx#####+++++++++++++++++++++++++++######XX#++++++##+++#'+Chr (255)); Delay (80);
     WriteLn ('        #+++++++#xxxxxxxxx########++++++++++#########xxxxxx##++++++++++##'+Chr (255)); Delay (80);
     WriteLn ('         ##++++++#xxxxxxxxxxxxxxxx##########xxxxxxxxxxxxx##+++++++++++#'+Chr (255)); Delay (80);
     WriteLn ('           #++++++##xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx###+++++++++++##'+Chr (255)); Delay (80);
     WriteLn ('            #+++++++#xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx##++++++++++++##'+Chr (255)); Delay (80);
     WriteLn ('             #+++++++#xxxxxxxxxxxxxxxxxxxxxxxxxxxx##++++++++++++##'+Chr (255)); Delay (80);
     WriteLn ('              #+++++++##xxxxxxxxxxxxxxxxxxxxxxxx##++++++++++++##'+Chr (255)); Delay (80);
     WriteLn ('               ##+++++++#xxxxxxxxxxxxxxxxxxxxx##++++++++++++##'+Chr (255)); Delay (80);
     WriteLn ('                 ##++++++##xxxxxxxxxxxxxxxxx##++++++++++++##'+Chr (255)); Delay (80);
     WriteLn ('                   ##++++++##xxxxxxxxxxxxx##++++++++++++##'+Chr (255)); Delay (80);
     WriteLn ('                     ##++++++###xxxxxxx###++++++++++++##'+Chr (255)); Delay (80);
     WriteLn ('                       ##+++++++#######+++++++++++++##'+Chr (255)); Delay (80);
     WriteLn ('                         ##+++++++++++++++++++++++##'+Chr (255)); Delay (80);
     WriteLn ('                           ##+++++++++++++++++++##'+Chr (255)); Delay (80);
     WriteLn ('                             ##+++++++++++++####'+Chr (255)); Delay (80);
     WriteLn ('                               #############'+Chr (255)); Delay (80);
     WriteLn ('It'+Chr (39)+'s Kermit!');
     WriteLn ('');
     WriteLn ('Welcome to Net Storm network message sender!');
     WriteLn ('Post your stupid question to [email]kermitrules@hotmail.com[/email]');
     WriteLn ('I am not responsible for any kind of mischievous use :)');
     WriteLn ('USE THIS FOR EDUCATIONAL PURPOSES ONLY!');
     WriteLn ('');
     TextColor (15);
end;

procedure TUI.Execute;

var
   in_Option, in_PC: Integer;
   in_Loop, in_Delay: String;

begin
     Flash;
     Write ('#Please specify a full path to NET.EXE: ');
     ReadLn (Sender.E_Prog);
     WriteLn ('#Choose one option: ');
     WriteLn ('[1] User');
     WriteLn ('[2] All');
     WriteLn ('[3] Domain');
     WriteLn ('[4] Multi');
     ReadLn (st_Option);
     Val (st_Option, in_Option, in_PC);
     case in_Option of
          1: SendType := stUser;
          2: SendType := stAll;
          3: SendType := stDomain;
          4: SendType := stMulti;
     else
         SendType := stAll;
     end;
     Write ('#Type a new message: ');
     ReadLn (Sender.E_Message);
     Write ('#Multi broadcast: ');
     ReadLn (in_Loop);
     Val (in_Loop, Sender.E_Loop, in_PC);
     Write ('#Broadcast delay (ms): ');
     ReadLn (in_Delay);
     Val (in_Delay, Sender.E_Delay, in_PC);
        Sender.Send (SendType);
end;

var
   UI: TUI;

begin
     UI.Execute;
     WriteLn ('Bye bye!');
end. 


[D1984]

dd666 schreef:
Nee, niet via het schoolnetwerk, daar zit al zo'n progje op. Maar ik wilde graag 'n progje schrijven dat meerdere berichtjes tegelijk sturen, met zo'n herhalings-loop...

Waarom dat een turbo pascal programma, kan toch gewoon lekker simpel met een *.bat bestand?

gewoon zo:


@echo off
net send IP bericht
call ditbestand.bat

bovenstaande bestand opslaan als ditbestand.bat, succes verzekerd en getest! wat de systeembeheerder overigens niet leuk vond omdat ik een * had gebruikt bij IP

Wil je het toch in Pascal doen, op deze site:

http://www.dickmann.org/pascal/misc.htm

kun een example downloaden, en nog veel meer turbo pascal voorbeelden

[McMotion]

D1984 schreef:
@echo off
net send IP bericht
call ditbestand.bat

bovenstaande bestand opslaan als ditbestand.bat, succes verzekerd en getest! wat de systeembeheerder overigens niet leuk vond omdat ik een * had gebruikt bij IP

succes verzekerd om je geheugen vol mee te pompen jah

[Kermit the frog]

Ik heb een nieuwe versie gemaakt, die het wel doet onder NT, 2000 en XP..... Probeer deze maar eens.....

Net Storm v2.0

Dit is een “overlay” van de NETAPI32.DLL. Je hoeft nu dus niet meer de locatie van NET.EXE op te geven....