var
Security_handle, Edit_handle, Button1_handle, Conn_info_handle, Success_handle : HWND;
ip, success:pchar;
begin
ip:=pchar('Radmin security: '+Edit1.Text);
success:=pchar(Edit1.Text+' - Telnet');
Security_handle := FindWindow (nil, ip);
If Security_handle <> 0 then begin
Edit_handle := FindWindowEx(Security_handle, 0, 'Edit', '');
SendMessage(Edit_handle, WM_SETTEXT, 0, Integer(PChar('password')));
Button1_handle := FindWindowEx(Security_handle, 0, 'Button', 'OK');
SendMessage(Button1_handle, BM_CLICK, 0, 0);
Sleep(5000); //!!!!
Conn_info_handle:=FindWindow (nil, 'Connection info');
Success_handle:=FindWindow (nil, success);
if (Conn_info_handle <> 0) and (Success_handle=0) then begin
PostMessage(Conn_info_handle,WM_QUIT,0,0)
end
else begin
ShowMessage('GoodPass');
Conn_info_handle:=FindWindow (nil, 'Connection info');
Success_handle:=FindWindow (nil, success);
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.