[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

Нубище, TThread это класс
И у нормальных людей он кстати не глючит. Если грамотно синхронизировать.

 

А как сделать чтобы при нажатии на кнопку результат запысывался в строку состояния?

 

Результат чего? = )
Если ты про статус бар то
StatusBar1.SimpleText := 'Результат';

 

Как в делфи приложении вывести страничку сайта?

 

Положить на форму TWebBrowser.
Свойство Silent лучше поставить в true
WebBrowser.Navigate(URL);

 

Компонент TWebBrowser.

 

Плиз нужен совет.
Нужно вывести мыло:пароль

существуют строки:
1. Пароль

try
Fil.LoadFromFile('password1.txt');
Fil.LoadFromFile('password2.txt');
except
Showmessage('Файл не найден');
end;
Temp:=fil.strings[random (fil.count-1)];
Data.add ('user.password1='+temp);
Data.add ('user.password2='+temp);

2. Логин (от мыла , до @)
Data.Add('user.login='+fil.strings[random(fil.count-1)]);

Как мне то что получилось после реги, то есть мыло:пароль вывести в мемо ?

Memo1.Lines.Add(''); - что в скобках писать ? или как то строки можно вписать, то есть их номера.

Спасибо заранее!

 

как сделать какоето действие с каждой строкой из текстовика
дайте примерчик хороший плиз)

 

Как отследить нажатие горячих клавишь?
Например, если нажата комбинация alt f4, тогда вылазиет мессаджбокс с каким то текстом.
ps Пример нужен для winapi.

 

Code:

var textFile: TStringList;
i: integer;
begin
textFile:=TStringList.Create;
textFile.LoadFromFile('Путь_К_текстовику');
for i:=0 to textFile.Count - 1 do begin
//здесь что-то делаем, обращаясь к конкретной строке как textFile[i]
end;
end;

end.

легко...

http://www.cyberguru.ru/delphi-sources/keyboard/perekhvat-hook-klaviatury-programma-sendkeys.html

 

непонятный текст... выложи исходник

 

1. Обрезать логин от мыла:
2. Записать строкой в Мемо Логин:Пароль

PHP:

const
  str='[email protected]';
  Password= '123456';
var
  Login:string;
begin
  Login:=Copy(str,1,Pos('@',str)-1); {1. В Login сохранится Administrator}
  Memo1.Lines.Add(Login+':'+Password); {2. В мемо добиватся строка Administrator:123456}
end;

 

Как сделать чтобы въводился с сайта текст между ффф и шшш символами? Т.е. Например есть там текст на сайте "ыуа11.фффJMTDAGPJшшш" и надо чтобы выводилось только JMTDAGPJ в самой программе

 

Считывай побайтово строку до тех пор пока не найдешь подряд 3 "ффф", записывай порядковый номер последнего ( var1 ) и продолжай считывать до тех пор пока не встретишь сочетание из "шшш". Записывай порядковый номер первого из них ( var2 ). Затем просто выводи символы в диапазоне от var1+1 до var2-1.

--

Ну короче говоря ты ничего не понял, так что юзай регулярку.

 

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

 

PHP:

function ParserBlock(const Str:string; const Param1,Param2:string):string;
var
  BeginPos,
  EndPos:integer;
  TempStr:string;
begin
  TempStr:=Str;
  BeginPos:=AnsiPos(Param1,TempStr)+length(Param1);
  delete(TempStr,1,beginPos-1);
  BeginPos:=AnsiPos(Param1,TempStr)+length(Param1);
  EndPos:=AnsiPos(Param2,TempStr);
  Result:=copy(TempStr,1,EndPos-1);
end;


Применять:

PHP:

ShowMessage(ParserBlock('ыуа11.фффJMTDAGPJшшш', 'ффф','шшш ')); // JMTDAGPJ

Содержимое страницы:

PHP:

Str:=idHttp1.Get('http://127.0.0.1'); // получить содержимое страницы.

 

Приводи тогда исходник.
Иначе объявляй str, Password как переменные string;
и в цикле присваивай значений

PHP:

str:=fil.strings[random (fil.count-1)]; // login
Password:=fil.strings[random (fil.count-1)]; // Password
//Password:=Temp; // Password


P.s. из приведенного кода можно понять, что ты загружаешь в StringList пароли из password2.txt и рандомно выбираешь из него пароль, и не понятно как логин .

PHP:

Fil.LoadFromFile('password1.txt');
Fil.LoadFromFile('password2.txt');

они не дополняются, а заменяются, последним загруженным файлом.

 

а как чтобы не ('ыуа11.фффJMTDAGPJшшш', было, а то, что на сайте, и от туда извлекало? Значение между ффф и шшш всегда разное (

 

поснифал трафик при заливке аватарки вк, вот что получил:

Code:

POST /upload.php?act=profile&mid=********&hash=2539ce128944e34c65d35a5683edbf0e&rhash=704af199d8f74ba45d646f47b249dc5a&vk= HTTP/1.1

сабж: откуда берутся хеши и имя сервера для отправки аватарки? сниффер не дает ответа на эти вопросы

 

при авторизации, хэш есть в исходнике страници.

vkontakte.ru/upload.php?act=profile&mid=
или
http://cs10311.vkontakte.ru/upload.php?act=profile&mid=ххх&hash=ххх&rhash=ххх&vk=