Исходники и листинги ::: Delphi ::: LAN Spider Men v1.2
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
  unit Unit1;
 
  interface
 
  uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, jpeg, ExtCtrls, ComCtrls, XPMan, StdCtrls, Buttons, Mask;
 
  type
    TForm1 = class(TForm)
      PageControl1: TPageControl;
      TabSheet1: TTabSheet;
      TabSheet2: TTabSheet;
      TabSheet3: TTabSheet;
      TabSheet4: TTabSheet;
      Image1: TImage;
      Image2: TImage;
      Image3: TImage;
      Image4: TImage;
      XPManifest1: TXPManifest;
      Edit1: TEdit;
      Memo1: TMemo;
      BitBtn1: TBitBtn;
      BitBtn2: TBitBtn;
      Label1: TLabel;
      Label2: TLabel;
      BitBtn3: TBitBtn;
      Label3: TLabel;
      Button1: TButton;
      BitBtn5: TBitBtn;
      BitBtn4: TBitBtn;
      Memo2: TMemo;
      Label4: TLabel;
      BitBtn6: TBitBtn;
      BitBtn7: TBitBtn;
      Label5: TLabel;
      Button2: TButton;
      procedure BitBtn1Click(Sender: TObject);
      procedure BitBtn2Click(Sender: TObject);
      procedure BitBtn3Click(Sender: TObject);
      procedure Button1Click(Sender: TObject);
      procedure Image3Click(Sender: TObject);
      procedure BitBtn4Click(Sender: TObject);
      procedure BitBtn5Click(Sender: TObject);
      procedure BitBtn6Click(Sender: TObject);
      procedure BitBtn7MouseMove(Sender: TObject; Shift: TShiftState; X,
        Y: Integer);
 
    private
      { Private declarations }
    public
      { Public declarations }
    end;
 
  var
    Form1: TForm1;
 
  implementation
 
  {$R *.dfm}
 
  procedure TForm1.BitBtn1Click(Sender: TObject);
  begin
  close;
  end;
 
  procedure TForm1.BitBtn2Click(Sender: TObject);
  var
      space,i,j:integer;
      n,k,k2,s,e:string;
  begin
  n:='net send';
  k:=edit1.Text;
  k:=k+' ';
  space:=1;
  for i:=1 to Length(k) do
  begin
   if k[i]=' ' then
   begin
     k2:=copy(k, space,i-space);
     k2:=' '+k+' ';
     j:=0; s:='';
  &nbsp;&nbsp; while memo1.lines[j]<>'' do
  &nbsp;&nbsp; begin
  &nbsp;&nbsp; s:= s + memo1.lines[j];
  &nbsp;&nbsp; j:= j+1;
  &nbsp;&nbsp; s:= s+#10+#13;
  &nbsp;&nbsp; end;
  &nbsp;&nbsp; e:=n+k2+s;
  &nbsp;&nbsp; WinExec(PAnsiChar(e), Sw_show);
  &nbsp;&nbsp; space:=i;
   end;
  end;
 
  end;
 
 
 
  procedure TForm1.BitBtn3Click(Sender: TObject);
  begin
   winExec('net start messenger', SW_SHow);
  end;
 
  procedure TForm1.Button1Click(Sender: TObject);
  begin
  &nbsp;&nbsp;&nbsp;&nbsp;winExec('net stop messenger', SW_SHow);
  end;
 
  procedure TForm1.Image3Click(Sender: TObject);
  begin
  Memo1.selText:='Не тыкай где попало!';
  end;
 
  procedure TForm1.BitBtn4Click(Sender: TObject);
  begin
  edit1.Text:='';
  end;
 
  procedure TForm1.BitBtn5Click(Sender: TObject);
  var&nbsp;&nbsp;j2:integer;
  begin
  &nbsp;&nbsp; j2:=0;
  &nbsp;&nbsp; while memo1.lines[j2]<>'' do
  &nbsp;&nbsp; begin
  &nbsp;&nbsp; memo1.lines[j2]:='';
  &nbsp;&nbsp; j2:= j2+1;
  &nbsp;&nbsp; end;
  end;
 
  procedure TForm1.BitBtn6Click(Sender: TObject);
  begin
  Label5.Caption:='Мы и не сомневаемся!';
  end;
 
  procedure TForm1.BitBtn7MouseMove(Sender: TObject; Shift: TShiftState; X,
  &nbsp;&nbsp;Y: Integer);
   var z:integer;
  begin
  &nbsp;&nbsp; randomize;
  &nbsp;&nbsp; z:=random(60)-30;
  &nbsp;&nbsp; If ((BitBTn7.Left+z)<297)and((BitBTn7.Left+z)>0)and
  &nbsp;&nbsp; ((BitBTn7.top+z)<280)and((BitBTn7.top+z)>0) then
  &nbsp;&nbsp; begin
  &nbsp;&nbsp;&nbsp;&nbsp;BitBTn7.Left:=BitBTn7.Left+z;
  &nbsp;&nbsp;&nbsp;&nbsp;BitBTn7.top:=BitBTn7.top+z;
  &nbsp;&nbsp; end;
  end;
 
  end.
<<< Предыдущая работа

Вернуться в галерею исходников 		LAN Spider Men v1.2
Автор: Taow*
Город: Дульдурга
 Дата: 14.09.2006  11:09
Комментариев: 2
Просмотров: 244
Оценка: 6 (1|1|2|1|1) [2]
Вернуться на главную
Авторский комментарий к работе: Программа передачи сообщений опробовал только на Win2000
Вы не можете оценивать

КОММЕНТАРИИ К РАБОТЕ:
wolong ::: комментарий от 10.11.2006 | 21:37
wolong Искатель (ур.5)
Очки: 383
Город: Tomsk
Тв. работ: 1
Рег: 15.06.2006 (280)
"опробовал только на Win2000" и правильно

т.к. на ХР не пойдёт а на юниксах нечего даже пытаться

имхо опять бесполезная программа в 100 раз проще

start -> run...

net send

тем более программа использует тот же механизм WinExec(PAnsiChar(e), Sw_show);

она была бы полезной если бы была двухсторонней и в ней была реализована работа с сокетами.

неужели это так трудно?

нет, надо ипать мозги бредовым кодом всего лишь достраивая некоторые части выни которые и так реализованы удобно



ЗЫ: публикуйте листинги файлов форм


--------------------
$_="1K8}3v3w8(5f1o2q5y6n3h1s5%2R0e9{7s9)5m1b6i2m6k3u";s/(.)(.)/pack('C',ord($2)-$1)/eg;print;
Chronos ::: комментарий от 14.09.2006 | 11:36
Chronos Приверженец (ур.6)
Очки: 748
Город: Томск
Тв. работ: 4
Рег: 05.05.2006 (80)
могу ощибаться, но в блоке

цитирую:


while memo1.lines[j]'' do

begin

s:= s + memo1.lines[j];

j:= j+1;

s:= s+#10+#13;

end;



можно было достать весь текст из мемки s=memo1.text

а для очистки проще воспользоваться стандартной
цитирую:


while memo1.lines[j2]'' do

begin

memo1.lines[j2]:='';

j2:= j2+1;

end;



memo1.clear


--------------------
Хорошо смееться тот кто стреляет последним