• Обратная связь: [email protected]

    Наш канал в telegram: https://t.me/ru_sfera

    Группа VK: https://vk.com/rusfera

    Пользователи могут писать на форуме ТОЛЬКО ЧЕРЕЗ 7 ДНЕЙ после регистрации

RMS - полностью скрытая установка и управление.


dencikkkk

Пользователь
Форумчанин
Регистрация
29.07.2015
Сообщения
58
Репутация
13
Функция парсит Id-шник из реестра , написанно на 'недо' яп Autoit

Func GetId()
$sPath = RegRead('HKEY_CURRENT_USER\Software\TektonIT\Remote Manipulator System\Server\Parameters' ,'InternetId')
$sResult = __HexToString($sPath)
$sResult = StringReplace($sResult , '"', '*')
$sResult = StringReplace($sResult , '<?xml version=*1.0* encoding=*UTF-8*?>', '')
$sResult = StringReplace($sResult , '<rms_internet_id_settings version=*63006*><internet_id>','')
$sResult = StringReplace($sResult , '</internet_id><use_inet_connection>true</use_inet_connection><inet_server>','')
$sResult = StringReplace($sResult , '</inet_server><use_custom_inet_server>false</use_custom_inet_server>','')
$sResult = StringReplace($sResult , '<inet_id_port>5655</inet_id_port><use_inet_id_ipv6>false</use_inet_id_ipv6></rms_internet_id_settings>','')
Return $sResult
EndFunc

Func __StringToHex($sString)
Return Hex(StringToBinary($sString))
EndFunc

Func __HexToString($sString)
If StringLeft($sString, 2) <> '0x' Then $sString = '0x' & $sString
Return BinaryToString($sString)
на делфе в несколько строчек кода... Вот тока зачем ?
 

X-Shar

:)
Администрация
Регистрация
03.06.2012
Сообщения
6 202
Репутация
8 335

Nodarius

Пользователь
Форумчанин
Регистрация
10.11.2015
Сообщения
10
Репутация
1
Ну как-же, по пойму ясно дали понять:


Какой нах. Делфи, тут нужна сборка бай Царь:


Dmeh-Smeh-Smeh!!!Dmeh-Smeh-Smeh!!!Dmeh-Smeh-Smeh!!!
Ну вот , поделился своей проблемой , дал готовый скрипт , а эти технари меня унизили. А если серьезно , что объективный паскаль , что аутоит , кал , для гуманитарного быдла.
 

dencikkkk

Пользователь
Форумчанин
Регистрация
29.07.2015
Сообщения
58
Репутация
13
Ну вот , поделился своей проблемой , дал готовый скрипт , а эти технари меня унизили. А если серьезно , что объективный паскаль , что аутоит , кал , для гуманитарного быдла.
смеюсь с тех , кто признает все языки програмирования калом , кроме С++ ... сами в этом не шарят , а С++ кул для них , а тот же паскаль - гавно. Фак логик
 

X-Shar

:)
Администрация
Регистрация
03.06.2012
Сообщения
6 202
Репутация
8 335
Согласен, вообще не плохо-бы аргументировать мнение, почему тот или иной ЯП гамно...

Если про Паскаль, так он создавался изначально как обучающий язык, синтаксис там по проще чем у си, на первых парах там и возможностей было гораздо меньше, потом уже появился Object Pascal, к тому Паскалю который создавался для обучения он отношения практически не имеет, это профессиональный ЯП, для тех-кто профессионально кодит проги...

Я к сожалению закончил кодить в Делфи 7, с новыми что-то неработал, но если сравнивать с тем-же C++ Builder, те задачи которые я решал на С++ также можно-было решить и на Делфи, в моём случае си был выбран из ходя, что все проекты на работе кодили на си...

Каждый ЯП должен выбираться из задачи, например задача "Отследить и закрыть окошко RMS" идеально решается аутоит, там всё это делается максимально просто и быстро...

Если нужно какие-то манипуляции с памятью и что-то такое более сложное, какая-то обработка данных и т.д., си, Делфи могут помочь...

Кодинг для микроконтроллеров вообще пишут на классическом си, без ООП, ООП тут излишен...

Есть кто вообще кроме асма ничего не признают, более того считают себя "Королями коденга"...:Mem26:

Другое дело, может-быть в асме они и гуру, но отстали в других аспектах, причём сильно, ибо незная другой инструментарий, приходится делать портянки кода, тратя на решение задачи часы, которую можно решить за 5-ть минут...Dmeh-Smeh-Smeh!!!
 

dencikkkk

Пользователь
Форумчанин
Регистрация
29.07.2015
Сообщения
58
Репутация
13
Согласен, вообще не плохо-бы аргументировать мнение, почему тот или иной ЯП гамно...

Если про Паскаль, так он создавался изначально как обучающий язык, синтаксис там по проще чем у си, на первых парах там и возможностей было гораздо меньше, потом уже появился Object Pascal, к тому Паскалю который создавался для обучения он отношения практически не имеет, это профессиональный ЯП, для тех-кто профессионально кодит проги...

Я к сожалению закончил кодить в Делфи 7, с новыми что-то неработал, но если сравнивать с тем-же C++ Builder, те задачи которые я решал на С++ также можно-было решить и на Делфи, в моём случае си был выбран из ходя, что все проекты на работе кодили на си...

Каждый ЯП должен выбираться из задачи, например задача "Отследить и закрыть окошко RMS" идеально решается аутоит, там всё это делается максимально просто и быстро...

Если нужно какие-то манипуляции с памятью и что-то такое более сложное, какая-то обработка данных и т.д., си, Делфи могут помочь...

Кодинг для микроконтроллеров вообще пишут на классическом си, без ООП, ООП тут излишен...

Есть кто вообще кроме асма ничего не признают, более того считают себя "Королями коденга"...:Mem26:

Другое дело, может-быть в асме они и гуру, но отстали в других аспектах, причём сильно, ибо незная другой инструментарий, приходится делать портянки кода, тратя на решение задачи часы, которую можно решить за 5-ть минут...Dmeh-Smeh-Smeh!!!
Спасибо тебе добрый человек за такой объяснение. Многие ламеры признают только СИ потому , что в "обществе" восновном говорят о СИ и большинство проэктов делается на нем , а от сюда идет и вирусная реклама этого СИ . Мне вот человек упорно доказывал , что складывать переменные integer типа (5+2 , 7+1) суперски на СИ и он типо бог , потому что делает на СИ , а я дно , потому что делаю на Делфе , а разницы - ноль. Объяснить свою правоту он не мог , вот и вопрос кто тут дно )))
 

shtraus

Пользователь
Форумчанин
Регистрация
22.10.2015
Сообщения
47
Репутация
3
Здрасти
Вот например я создала сборку из Rms 6 та которая с официального сайта, как сделать что бы диалоговое окно то что в конце инсталляции где где две кнопки да или нет вот чтобы это окно не появлялось и баннер видео убрать
Вот молодоц человек Nodarius послал мне код а куда его поставить и в какой файл не успел
Вото этот код

#NoTrayIcon
#include "Process.au3"
While 1
$hRMS = WinGetHandle("Remote Manipulator System - Вопрос")
If $hRMS<>"" Then
ControlClick($hRMS, "", "[CLASS:Button;INSTANCE:1]")
Exit
EndIf
WEnd
 

shtraus

Пользователь
Форумчанин
Регистрация
22.10.2015
Сообщения
47
Репутация
3
не хочу сборку ставить пишут что там вирусы есть
 
Последнее редактирование:

X-Shar

:)
Администрация
Регистрация
03.06.2012
Сообщения
6 202
Репутация
8 335
Вот молодоц человек Nodarius послал мне код а куда его поставить и в какой файл не успел
Вото этот код
Этот код уже давно на форуме, нужно скачать компилятор АутоИТ и скомпилировать, вот скомпилировал...

RMS_AutoIT.zip - Обработан UPX, что уменьшит детект некоторых АВ;

RMS_AutoIT_No_Puck.zip - Без обработки...

Пароль:111
 

Вложения

  • RMS_AutoIT.zip
    344.4 КБ · Просмотры: 43
  • RMS_AutoIT_No_Puck.rar
    412 КБ · Просмотры: 38
Последнее редактирование:
Верх Низ