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

здравствуйте господа. пишу на форуме редко, потому что задаю вопросы тока по теме, соответствено жду только подобающих ответов. пишу на дельфи программу - rdp клиент. взял компонент из раздела activeX (TMsRdpClient2). не могу найти параметр отвечающий за ввод пароля и выбор домена из списка. кто сможет помочь. если честно планирую написать свой брутер для дедиков. если кто-то сможет помочь то могу выложить готовый проект в openSource для того чтобы была возможность дальнейшего развития. для меня лишь нужны деды только для личного пользования не для продаж

 

о, а что такое dedicated services или как вы говорите, дедики?

 

Наведи на слово dedicated в своем посте

 

2 Nullsleep в Опере это не прокатит )

 

Nullsleep, навел, что дальше?

 

ну просил же по теме писать. неужели так трудно? есть у кого-то варианты как это можно реализовать? теперь уже выслушаю все возможные варианты. пробовал через findwindow() найти имена полей в окне акторизации удаленного рабочего стола, что-то не получается.
Есть конечно вариант: сначала забить все необходимые поля в настройках подключения к удаленному рабочему столу а потом уже пробовать коннектиться, но тогда я не смогу получить список доменов на удаленном серваке. Скорее всего буду думать в этом направлении...

 

пуск - выполнить - mstsc /? - enter

там указываешь файл с rdp настройками

 

rdp.AdvancedSettings2.ClearTextPassword := 'pass';
Или так:
rdp.AdvancedSettings2.Set_ClearTextPassword('pass');
Про домен - не помню, но помоему rdp.Domain.

 

Такой вопрос...
Вот к примеру есть потоки, они обрабатывают инфу и заносят в мемо, потоки чуть не успевают туда записывать строки (точнее так сказать мемо не резиновый)(совсем чуть чуть не успевает), куда не записанные строки (т.е. ждущие строки пока их запишут) деются? В память я так думаю... А что если эта очередь может разорваться? Т.е. если очередь разорвется то высветится ошибка типа Out of memory? Верно?

 

ответьте про дедики...и пинч что такое?

 

пробовал. я такой пример нагуглил. дельфи ругается.

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

а вот этот вариант мне понравился:

осталось с шифрованием пароля разобраться-нагуглил:

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

 

Как в строковом параметре отсеять буквы и оставить только цифры?

 

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
 i:integer;
 s:string;
begin
 for i:=1 to length(edit1.text) do
  begin
    if pos(edit1.text[i],'1234567890')<>0 then
     begin
       s:=s+edit1.text[i];
     end;
  end;

 edit1.text:=s;
end;

 

Создать функцию по отсеиванию - НЕ ВАРИАНТ?

 

Подскажите пожалуйса, как определить смещение в РЕ файле на таблицу экспорта/импорта, а точнее на имена экспортируемых/импортируемых функции

 

Для начала надо внимательно почитать о структуре PE файла и таких вопросов не возникнет. -> wasm.ru

 

У тебя наверное mstscax.dll версии 5.*. обнови до 6.*, ошибка исчезнет.

 

как ра знашел что, что искал)

 

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

 

Здравствуйте!
Помогите пожалуйста для моего случая найти какую-то альтернативу для case или подскажите, что я должен сделать с ним, чтобы эта зараза работала. Видите ли ему нужны ordinal types, то есть проверить, равна ли переменная числу мы можем, а вот проверить равность какой-то строке не получается, тут только многострочным if..else приходится..

Хотя, все несколько проще. На функцию пришла строка в виде одного символа или буквы.. Надо определить, чему она там равна и вывести результат; на каждый символ результат разный.

Например:

---------------
function TForm1.ABC(c:string):string;
begin
case с of
'A': begin .. end;
'B': begin .. end;
...
'Z': begin .. end;
end;
end;
------------

переход на pchar не получился, все равно где-нибудь ругается..
помогите, пожалуйста все поставить на места, мне ужасно лень набирать кучу ифов и их элсов.. но если надо, то придется..