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

Хм. Может так:
idMessage1.Body.Text:=Memo1.Text+Memo2.Text;

 

Имеется следующий вопрос: каким образом (программным) можно получить данные из полей ID и PASS программы TeamViewer. Пробовал стандартными FindWindow, FindWindowEx, GetWindowText - ничего не вышло.

Может есть какие-нибудь догадки по этому поводу?

Линк на донлоад самой программы с офф-сайта _h++p://www.teamviewer.com/download/TeamViewerQS.exe

Работаю на делфи, т.к. с другими языками пока туго, но буду очень признателен за реализацию задуманного на любом из языков =\

 

Может быть это глупый вопрос, но что-то не получается у меня написать что-то дельное.
Есть список в MEMO в формате IPORT, а мне нужно что б по нажатию на кнопку в ListBox1 записались IP,
а в ListBox2 записались все порты

 

Archangelus

Code:

function GetIP(s:string):string;
var
 p:integer;
begin
 p:=pos(':',s);
 delete(s,p,length(s)-p+1);
 result:=s;
end;

function GetPort(s:string):string;
var
 p:integer;
begin
 p:=pos(':',s);
 delete(s,1,p);
 result:=s;
end;

береш построчно из мемо, потом с помощью этих функций получаешь ip и порт и раскидываешь по своим лист боксам, или куда тебе есчо надо.

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

 

Здравствуйте уважаемые эксперты! Чтобы проще объяснить суть вопроса объясню на примере ну хотя бы Winamp'a. Если например сам исполняемый модуль winamp.exe переместить в другую папку, ну хотя бы темп, то возможно ли написать такую программку, которая находясь в папке с винампом передавала бы ему управление? Возможно конечно вызвать WinExec или CreateProcess но волнует вопрос найдет ли Winamp (тот что в темпе) ресурсы и библиотеки находящиеся в папке Winamp. Буду рад любой помощи. Заранее спасибо.

 

Всем привет! Чтобы проще объяснить суть вопроса объясню на примере ну хотя бы Winamp'a. Если например сам исполняемый модуль winamp.exe переместить в другую папку, ну хотя бы темп, то возможно ли написать такую программку, которая находясь в папке с винампом передавала бы ему управление? Возможно конечно вызвать WinExec или CreateProcess но волнует вопрос найдет ли Winamp (тот что в темпе) ресурсы и библиотеки находящиеся в папке Winamp. Буду рад любой помощи. Заранее спасибо.

 

Не найдёт.
была такая история на итхэпенс про товарища, который удалял игры путём удаления екзешников.
на самом деле скорее всего не найдёт он ничего, потому что ищет в той же папке где сам лежит)

 

как через delphi или реестр отключить восстановление системы? возможно ли?

 

2 Scripter вроде как можно через реестр отрубать. но и то помойму требуется ребут если не ошибаюсь

 

нашёл

Code:

HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SystemRestore

DisableSR:DWORD = 1 восстановление системы отключено, 0 - включено

 

подскажите как сделать чтобы через заданный промежуток времени программа выполняла команды,но без TTimer а.например через каждые 3 часа отправляла лог или проверяла подключен ли интернет или размер файла лога.....

 

а чем TTimer не подходит?
вообще можно усыплять прогу на нужное время по истечению которого она будет выполнять нужные действия.

 

программа написана на api класс forms не включен

 

miqo, может sleep()?

 

2 criz

а там же много разных процедур и у каждых разные интервалы.......в книге делфи глазами хакера есть исходник кейлоггера я хочу узхнать как можно сделат такое именно в таком кейлоггере

 

Можно написать скрипт на чём нибудь, допустим на том же JScript(просто не надо его воспринимать только как язык для инета). там в событии onload забить скажем каждый нужный интервал времени, и после него ставить выполнение нужной программы.
лично я это не делал, но знаю что можно

 

интерестное решение ео в моем случае неудобное......

 

Класс

Code:

unit WaitThread;

interface

uses Classes, Windows;

type
TWaitThread = class(TThread)
   WaitUntil: TDateTime;
   procedure Execute; override;
end;

implementation

uses SysUtils;

procedure TWaitThread.Execute;
var
Timer: THandle;
SystemTime: TSystemTime;
FileTime, LocalFileTime: TFileTime;
begin
Timer := CreateWaitableTimer(NIL, FALSE, NIL);
try
   DateTimeToSystemTime(WaitUntil, SystemTime);
   SystemTimeToFileTime(SystemTime, LocalFileTime);
   LocalFileTimeToFileTime(LocalFileTime, FileTime);
   SetWaitableTimer(Timer, TLargeInteger(FileTime), 0, 
     NIL, NIL, FALSE);
   WaitForSingleObject(Timer, INFINITE);
finally
   CloseHandle(Timer);
end;
end;

end.

Использовать можно так:

Code:

type
TForm1 = class(TForm)
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
private
   procedure TimerFired(Sender: TObject);
end;

//.....

implementation

uses WaitThread;

procedure TForm1.Button1Click(Sender: TObject);
var
T: TDateTime;
begin
with TWaitThread.Create(TRUE) do
begin
   OnTerminate := TimerFired;
   FreeOnTerminate := TRUE;
   // Срок ожидания закончится через 5 секунд
   WaitUntil := Now + 1 / 24 / 60 / 60 * 5;
   Resume;
end;
end;

procedure TForm1.TimerFired(Sender: TObject);
begin
	ShowMessage('Timer fired !');
end;

(c) DRKB

 

Помогите пожалуйста, как запустить на одновременное выполнение сразу n потоков?
Весь код потока лежит в процедуре TNewThread.Execute;, имеется также процедура show для вывода информации. Пробовал сделать просто цикл вида :

Code:

procedure TForm1.sButton1Click(Sender: TObject);
begin
  sButton1.Enabled:=false;
  for i:=1 to 50 do
    NewThread:=TNewThread.Create(true);
    NewThread.FreeOnTerminate:=true;
    NewThread.Priority:=tpLOWER;
    NewThread.Resume;
  end;
end;

, но по-моему это бред, т. к. тогда все потоки будут делать тоже самое.В общем кто знает, помогите реализовать.

 

Создаешь массив потоков aka TTHREAD, a в цикле выполняешь свои действия...