09.11.2008, 00:50
|
|
Постоянный
Регистрация: 04.04.2008
Сообщений: 527
С нами:
9526747
Репутация:
272
|
|
Сообщение от cremator (c)
Выложи весь код. Эти переменные наверно глобальные
Та я тоже думаю, что глобальные, в учебникe нет, там просто:
Код:
program editor;
{Раздел описания меток, констант, и тд}
procedure Line (ch:char; ln:integer);
var symbol : integer;
begin
write('{');
for symbol:=1 to ln do
write('ch');
writeln('}');
end;
begin
read(a,b);
Line(a,b);
end.
|
|
|
09.11.2008, 01:01
|
|
Постоянный
Регистрация: 04.04.2008
Сообщений: 527
С нами:
9526747
Репутация:
272
|
|
Все..сделал, да это глобальные переменные, вот:
Код:
program editor;
var a : char;
var b : integer;
procedure Line (ch:char; ln:integer);
var symbol : integer;
begin
write('{');
for symbol:=1 to ln do
write('ch');
writeln('}');
end;
begin
read(a,b);
Line(a,b);
end.
|
|
|
|
10.11.2008, 20:39
|
|
Постоянный
Регистрация: 31.01.2008
Сообщений: 643
С нами:
9619229
Репутация:
445
|
|
Народ как сделать брутфорс http форм???
То есть я знаю как отправлять пакеты серверу а вот как узнать есть ли авторизация или нет вот в чем вопрос
|
|
|
|
10.11.2008, 20:42
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
С нами:
9655526
Репутация:
1821
|
|
Сообщение от diznt
Народ как сделать брутфорс http форм???
То есть я знаю как отправлять пакеты серверу а вот как узнать есть ли авторизация или нет вот в чем вопрос
по ответу сервера.
|
|
|
|
10.11.2008, 20:47
|
|
Постоянный
Регистрация: 31.01.2008
Сообщений: 643
С нами:
9619229
Репутация:
445
|
|
можно пример как обрабатываеться ответ от сервера??? или где можно об этом почитать на русском???
|
|
|
|
10.11.2008, 22:01
|
|
Новичок
Регистрация: 28.06.2008
Сообщений: 19
С нами:
9404614
Репутация:
14
|
|
Нюбский вопрос по Pascal... допустим мне надо чтобы прога запускала приложение с особыми параметрами... плюс чтобы между запусками приложений была пауза.... И при том как сделат чтобы он считывал параметры из .txt файла... Например ...
start C:/server/1.exe -n -d -1
pause 5000
start C:/server/2.exe -a -a -d
В таком роде.... но чтобы он считывал это из текстового файла.... и как вообще запускать приложения через pascal и ставить паузу...
|
|
|
|
10.11.2008, 23:46
|
|
Участник форума
Регистрация: 20.12.2007
Сообщений: 295
С нами:
9679872
Репутация:
347
|
|
для запуска приложений используй WinAPI функции ShellExecute, также можно WinExec ну или даже CreateProcess. Для паузы здесь проще всего Sleep
|
|
|
|
10.11.2008, 23:59
|
|
Новичок
Регистрация: 28.06.2008
Сообщений: 19
С нами:
9404614
Репутация:
14
|
|
нууу
Сообщение от bons
для запуска приложений используй WinAPI функции ShellExecute, также можно WinExec ну или даже CreateProcess. Для паузы здесь проще всего Sleep
ну... а пример ?
|
|
|
|
11.11.2008, 00:21
|
|
Участник форума
Регистрация: 20.12.2007
Сообщений: 295
С нами:
9679872
Репутация:
347
|
|
Сообщение от TheJahte
ну... а пример ?
Код:
program executer;
{$APPTYPE CONSOLE}
uses windows;
var f:textfile;
cmd:string;
begin
assignfile(f,'file.txt');
reset(f);
while not eof(f) do begin
readln(f,cmd);
WinExec(pChar(cmd),SW_SHOW);
Sleep(5000);
end;
closefile(f);
end.
пример файла file.txt
Код:
ping ya.ru
ping forum.antichat.ru
|
|
|
|
11.11.2008, 01:00
|
|
Новичок
Регистрация: 28.06.2008
Сообщений: 19
С нами:
9404614
Репутация:
14
|
|
Хммм... т.е. прописывать в .txt файле не ping а start ?
|
|
|
|
|
 |
|
Предыдущая тема
Следующая тема
|
Здесь присутствуют: 2 (пользователей: 0 , гостей: 2)
|
|
|
|
Похожие темы
Комбинированный вид
