Вверх ↑
Этот топик читают: Гость
Ответов: 3514
Рейтинг: 184
#1: 2008-11-06 21:09:29 ЛС | профиль | цитата
Пример демонстрирует такую возможность использования MRA протокола, как управление системой.
Присланные с E-mail`a админа сообщения парсятся на команды и в случае совпадения выполняются.
Возможно практически бесконечное наращивание функций и возможностей...

code_10555.txt
карма: 0
1
файлы: 1code_10555.txt [12.5KB] [390]
Голосовали:Konst
Ответов: 5227
Рейтинг: 587
#2: 2008-11-06 21:20:55 ЛС | профиль | цитата
Астрамак, твоему суправлятору только гравицапы не хватает
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 3514
Рейтинг: 184
#3: 2008-11-06 21:27:21 ЛС | профиль | цитата
andrestudio, клади КЦ, получишь и гравицапу))
карма: 0
0
Ответов: 5227
Рейтинг: 587
#4: 2008-11-06 21:34:47 ЛС | профиль | цитата
Как тебе такое кц от каспера

Фaйл coдepжит тpoянcкyю
пpoгpaммy 'Trojan-
Notifier.Win32.Small.b'. Лeчeниe
нeвoзмoжнo

карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 1161
Рейтинг: 160
#5: 2008-11-06 21:35:49 ЛС | профиль | цитата
что за "гравицапа", что за зверь такой?
карма: 0

0
Ответов: 5227
Рейтинг: 587
#6: 2008-11-06 21:41:48 ЛС | профиль | цитата
кстати с настройками там ты вроде малость переборщил, может быть всё это проще будет работать, например так

Add(ChildForm,9151305,798,161)
{
}
BEGIN_SDK
Add(EditMulti,12690098,21,21)
{
WorkCount=2
Width=328
link(doWork1,504226:doVisible,[(45,27)(45,146)])
link(doWork2,332028:doWork1,[(126,34)(126,118)])
}
Add(MainForm,504226,70,112)
{
Left=35
Top=105
Visible=1
Caption="Настройки"
BorderStyle=3
Point(doVisible)
}
Add(ChildGroupBox,332028,238,112)
{
}
BEGIN_SDK
Add(EditMulti,1056532,21,21)
{
WorkCount=2
Width=335
Height=165
link(doWork1,2136874:doEvent1,[(95,27)(95,90)])
link(doWork2,2136874:doEvent2,[(85,34)(85,97)])
}
Add(GroupBox,16023588,35,70)
{
Left=10
Top=10
Width=193
Height=82
Caption="Аккаунт"
}
Add(Edit,7463841,175,91)
{
Left=10
Top=25
Width=170
Text="E-mail"
link(onChange,4808087:doValue,[(218,97)(218,74)(163,74)(163,55)])
link(Str,4808087:Var,[])
}
Add(Edit,5631792,252,84)
{
Left=10
Top=50
Width=170
Text="Pass"
link(onChange,14672676:doValue,[(296,90)(296,72)(240,72)(240,55)])
link(Str,14672676:Var,[])
}
Add(GlobalVar,4808087,175,49)
{
Name="mail"
}
Add(Hub,2136874,112,84)
{
InCount=2
link(onEvent1,5631792:doText,[])
link(onEvent2,7463841:doText,[])
}
Add(GlobalVar,14672676,252,49)
{
Name="pass"
}
END_SDK
Add(Button,7372813,133,119)
{
Left=140
Top=110
Width=65
Caption="Сохранить"
link(onClick,5956324:doEvent1,[])
}
Add(GVarContainer,5667933,238,154)
{
Section="vars"
FilleName="opt.ini"
VarList=#4:mail|4:pass|
}
Add(Hub,5956324,182,119)
{
link(onEvent1,332028:doWork2,[])
link(onEvent2,5667933:doSave,[(222,132)(222,167)])
}
END_SDK


------------ Дoбавленo:

LainX, киндза-дза
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 1328
Рейтинг: 69
#7: 2008-11-06 22:01:04 ЛС | профиль | цитата
andrestudio писал(а):
Как тебе такое кц от каспера

Фaйл coдepжит тpoянcкyю
пpoгpaммy 'Trojan-
Notifier.Win32.Small.b'. Лeчeниe
нeвoзмoжнo

andrestudio, от каспера чего хочешь можно ожидать, он скоро поймет, что на самом деле он тоже троян
карма: 2

1
Голосовали:EcsTasY
Ответов: 3514
Рейтинг: 184
#8: 2008-11-06 22:15:11 ЛС | профиль | цитата
andrestudio, за настройки спасибо
карма: 0
0
Ответов: 199
Рейтинг: 7
#9: 2008-11-07 12:37:38 ЛС | профиль | цитата
Я такое тоже начанал делать! Но как то не продолжил Надо опять взяца и доделать, только мой проэкт в запущенном виде антивирусами не палится.
карма: 0

0
Ответов: 563
Рейтинг: 54
#10: 2008-11-29 15:49:31 ЛС | профиль | цитата
lenchik_vla, а в не запущенном?
карма: 0

0
Ответов: 28
Рейтинг: 2
#11: 2008-11-29 22:46:07 ЛС | профиль | цитата
Мну тоге сделал такой проект, типа "БОТ", вот что умеет:

Команды бота:
help - Помощь

- Работа с процессами -
gettask - Выдает список запущенных процессов
killtask>(ID) - Убить процесс, вводится - killtask>(Id процесса)

- работа с диском -
getdrive - Выдает список дисков
cd>(Путь) - Открыть папку
openfile>(путь) - Открыть файл
dellfile>(путь) - Удалить файл

-Работа с сетью-
getip - Получить IP

- Windows -
reset - Перезагрузить систему
shutdown - Выключить систему
lockkomp - Блокировать компьютер

- О системе -
procinfo - Информация о процессоре
diskinfo - Информация о дисках
matherinfo - Информация о материнской плате
memoriinfo - Информация об оперативной памяти

- Работа с TXT файлами -
txtopen>(Путь) - Открывает txt файл, и присылает содержимое
txtsave>(путь)>(Содержимое) - переаписывает TXT файл
- Разное -
send>(сообщение) - Выводит сообщение на комп
карма: 1

0
Ответов: 5227
Рейтинг: 587
#12: 2008-11-29 22:50:14 ЛС | профиль | цитата
LeRioN, когда получишь удовлетворение и головную боль поделись пожалуйста что лучше
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 28
Рейтинг: 2
#13: 2008-11-29 22:52:28 ЛС | профиль | цитата
Я уже бота дней 5 назад собрал, уже на компе моей девушки висит, дабы следить за компом... :-)
карма: 1

0
Ответов: 5227
Рейтинг: 587
#14: 2008-11-29 23:01:58 ЛС | профиль | цитата
LeRioN, выбирай девушку с которой параноя тебя мучить не будет
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 28
Рейтинг: 2
#15: 2008-11-29 23:03:42 ЛС | профиль | цитата
Хм, хочешь выдеоиться на форуме? Тогда пиши куда-нить в другое место, не флуди тут! Пиши в тему!
карма: 1

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)