С Новым годом! Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
 
Рейтинг 4.63/16: Рейтинг темы: голосов - 16, средняя оценка - 4.63
 Аватар для Sapphire
58 / 52 / 0
Регистрация: 15.12.2012
Сообщений: 449

Как запустить приложение на ПК в сети

17.02.2014, 05:16. Показов 3569. Ответов 27
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
День добрый. Кто может подсказать код на VB для запуска по сети приложений?
К примеру, имеются три тачки в сети: SERVER (на нем приложение на VB для запуска), USER1 и USER2.
Как выглядит код для запуска блокнота на этих двух машинах? Заранее благодарен.
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
17.02.2014, 05:16
Ответы с готовыми решениями:

Запустить приложение на другом компютере в локальной сети
Всем привет. Написал программу, которая пишет логи в скрытом режиме, логи о файлах. Это программа будет находится на сетевом диске. В...

Сокеты по локальной сети чтобы запустить приложение на другом компе.
Как по локальной сети запустить приложение на другом компе с помощью сокетов?На Delphi

Приложение со всеми библиотеками, или как запустить приложение без установленного FW
Извините, если для профессионалов эта тема покажется уже заезженной, но я не нашла решения в интернете. Я в целях обучения языку С#...

27
 Аватар для Антихакер32
1201 / 473 / 46
Регистрация: 06.01.2014
Сообщений: 1,797
Записей в блоге: 19
17.02.2014, 06:35
Скинь прямую ссылку на твой блокнот, чтоб можно было протестировать

Добавлено через 23 минуты
Вобщем ответа я не дождался вот ...
пример запуска URL, запустится страница Форум Visual Basic

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
'
'    © FelixMacintosh
'
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Function OpenApp(Optional Url$)
    'По умолчанию адрес киберфорума
    While Len(Url) = 0: Url = InputBox("Введите адрес Url ", , "https://www.cyberforum.ru/visual-basic/"): Wend
    ShellExecute 0&, vbNullString, Url, vbNullString, vbNullString, vbNormalFocus
End Function
 
Private Sub Form_Unload(Cancel As Integer)
    OpenApp
End Sub
0
 Аватар для Pro_grammer
6807 / 2839 / 527
Регистрация: 24.04.2011
Сообщений: 5,308
Записей в блоге: 10
17.02.2014, 07:32
Цитата Сообщение от Sapphire Посмотреть сообщение
Кто может подсказать код на VB для запуска по сети приложений?
Если бы это было возможно, то безопасности компьютеров была бы хана!
Для этого надо писать клиент-серверное приложение, причем клиент на компьютерах USER1 и USER2 должен быть запущен первоначально юзерами USER1 и USER2 ручками, а уже потом Вы с сервера сможете управлять запуском программ и делать с жертвой вообще всё, что только заложено в возможностях вашей программы.
Цитата Сообщение от FelixMacintosh Посмотреть сообщение
Скинь прямую ссылку на твой блокнот, чтоб можно было протестировать
Вне зависимости от ссылок и расположения программ, все они будут запускаться на стороне того компьютера, в котором исполнен код запуска, в данном случае на сервере.

Кликните здесь для просмотра всего текста
Технология управления чужим компом используется вирусописателями давно. Для запуска приложений на чужом компьютере нужно, что бы на этом компе была запущена программа типа Бэкдор, backdoor (от англ. back door, чёрный ход) или руткит. Эта внедренная программа может предоставлять по сети ( локальной или Интернет) возможность управления зараженным компьютером - запускать программы на нём, удалять, модифицировать, проводить сетевые атаки и т.п.
Но это, как понимаете, совершенно незаконно.
1
 Аватар для Антихакер32
1201 / 473 / 46
Регистрация: 06.01.2014
Сообщений: 1,797
Записей в блоге: 19
17.02.2014, 07:39
Если вам что-то известно, выложите здесь, что такое BackDoor
как реализовать управление, как с удаленного компьютера
вообще что-то сделать, раз уж начали, для этой темы
думаю самое то будет, а то это только слова
1
 Аватар для Sapphire
58 / 52 / 0
Регистрация: 15.12.2012
Сообщений: 449
17.02.2014, 08:50  [ТС]
Хех, насчет безопасности как то не подумал... А действительно, клиент-серверное изобретение требуется, вроде backdoor'а...

Добавлено через 1 минуту
Цитата Сообщение от FelixMacintosh Посмотреть сообщение
Если вам что-то известно, выложите здесь, что такое BackDoor
как реализовать управление, как с удаленного компьютера
вообще что-то сделать, раз уж начали, для этой темы
думаю самое то будет, а то это только слова
А это уже обсуждение совершения хака, что по моему на данном форуме не привеццтвуется...
0
Модератор
10048 / 3894 / 883
Регистрация: 22.02.2013
Сообщений: 5,847
Записей в блоге: 79
17.02.2014, 08:55
Цитата Сообщение от Sapphire Посмотреть сообщение
А это уже обсуждение совершения хака, что по моему на данном форуме не привеццтвуется...
Ты можешь написать клиент-серверное приложение которое будет иметь нужный функционал. На целевой машине должен будеть быть запущен клиент, обрабатывающий запросы от сервера и запускающий приложения уже непосредственно на целевой машине.
0
 Аватар для Sapphire
58 / 52 / 0
Регистрация: 15.12.2012
Сообщений: 449
17.02.2014, 09:03  [ТС]
Ну да, только писать клиент-серверное приложение ради запуска блокнота и убить массу времени, неблагодарное занятие.Только если в целях самообразования...
0
Модератор
10048 / 3894 / 883
Регистрация: 22.02.2013
Сообщений: 5,847
Записей в блоге: 79
17.02.2014, 09:07
Цитата Сообщение от Sapphire Посмотреть сообщение
Ну да, только писать клиент-серверное приложение ради запуска блокнота и убить массу времени, неблагодарное занятие.Только если в целях самообразования...
Ну если ты об этом написал в раздел vb6, значит на то были причины, и тебе необходимо это сделать именно на вб. А писать клиент-серверное приложение не такая уж и сложная задача. Windows предоставляет именованные канала для таких целей например. И задача решается тривиально.
0
 Аватар для Sapphire
58 / 52 / 0
Регистрация: 15.12.2012
Сообщений: 449
17.02.2014, 11:25  [ТС]
Цитата Сообщение от The trick Посмотреть сообщение
и тебе необходимо это сделать именно на вб. таких целей например.
А просто я с другими языками знаком только заочно Пробовал изучать Delphi но понял что изучение двух языков одновременно ниасилю
0
 Аватар для Антихакер32
1201 / 473 / 46
Регистрация: 06.01.2014
Сообщений: 1,797
Записей в блоге: 19
17.02.2014, 11:38
The Trick если такие службы выключенны как
Удаленный реестр, Вэб клиент, Маршрутизация и удаленный доступ
то моим компьютером можно после этого управлять ?
я по-отключал у себя, ещё очень давно
0
 Аватар для Sapphire
58 / 52 / 0
Регистрация: 15.12.2012
Сообщений: 449
17.02.2014, 11:41  [ТС]
Ловишь какую нибудь пакость, к примеру с флешки которая все это запускает и привет
0
 Аватар для Антихакер32
1201 / 473 / 46
Регистрация: 06.01.2014
Сообщений: 1,797
Записей в блоге: 19
17.02.2014, 12:00
Цитата Сообщение от Sapphire Посмотреть сообщение
, к примеру с флешки
вообще-то можно и не только с флешки, я уже представляю
как реализовать запуск служб, просто раньше я об этом
не задумывался, если по-гуглить на сайтах, и сделать нужные запросы
то думаю есть, подробные примеры как реализовать

Добавлено через 8 минут
Вот к примеру из википедии ...

Есть 3 вида предоставления shell-доступа:
«BindShell» — самый распространённый, работает по архитектуре «клиент-сервер», то есть бэкдор ожидает соединение.
«Back Connect» — применяется для обхода брандмауэров, бэкдор сам пытается соединиться с компьютером хакера.
«Middle Connect» — бэкдор и компьютер хакера обмениваются данными через дополнительный сервер.

Известные бэкдоры заносятся в базы антивирусных систем. Хакеры высокого класса ....
0
 Аватар для Pro_grammer
6807 / 2839 / 527
Регистрация: 24.04.2011
Сообщений: 5,308
Записей в блоге: 10
17.02.2014, 12:02
Реализовать на VB6 клиент-серверное приложение( DDE) в пределах своего компа можно настолько просто, что даже и программировать ни чего не надо. Всё можно сделать настройками. Одно приложение настраиваем как сервер, другое как клиент. Запускаем сервер, запускаем клиент. Пишем команду на запуск Блокнота ( уже написана, можем написать потом calc.exe ) жмем кнопку и клиент эту команду выполняет.
Для локальной сети примерно то же самое, только настраиваем МS Winsock Контрол 6.0 и слава VB6!

Не по теме:

Это вам не Делфи:D

Вложения
Тип файла: zip dde.zip (11.9 Кб, 15 просмотров)
2
 Аватар для Антихакер32
1201 / 473 / 46
Регистрация: 06.01.2014
Сообщений: 1,797
Записей в блоге: 19
17.02.2014, 12:12
а что это за ошибка
run-time error '282'
no foriegn application responded to a dde initiate

я перевел
...не ответил на DDE инициировать
0
 Аватар для Pro_grammer
6807 / 2839 / 527
Регистрация: 24.04.2011
Сообщений: 5,308
Записей в блоге: 10
17.02.2014, 12:19
Вначале запускаем сервер, потом клиент, сервер не останавливаем.
1
 Аватар для Антихакер32
1201 / 473 / 46
Регистрация: 06.01.2014
Сообщений: 1,797
Записей в блоге: 19
17.02.2014, 12:45
Получилось !

Добавлено через 19 минут
Pro_grammer, у меня блокнот открывается, я так понимаю
команды как у батника можно посылать ?
0
Модератор
10048 / 3894 / 883
Регистрация: 22.02.2013
Сообщений: 5,847
Записей в блоге: 79
17.02.2014, 12:49
Вот по теме еще http://support.microsoft.com/kb/181946/ru
1
17.02.2014, 13:01

Не по теме:

спасибо, пригодится, мне перед н.годом работу предлогали, там как-раз нужно было
уметь реализовывать клиент-сервер, +базы данных +програмирование, 3.п ~50.000 я тогда отказался, так как знаний было маловато )

0
 Аватар для Pro_grammer
6807 / 2839 / 527
Регистрация: 24.04.2011
Сообщений: 5,308
Записей в блоге: 10
17.02.2014, 13:07
Цитата Сообщение от FelixMacintosh Посмотреть сообщение
команды как у батника можно посылать ?
В клиенте за запуск программ отвечает процедура
Visual Basic
1
2
3
4
5
6
Private Sub Text1_Change()
Dim result As Long
 If Len(Text1.Text) > 3 Then
     result = Shell(Text1.Text, vbNormalFocus)
     If result = 0 Then MsgBox "Команда не распознана!"
 End If
Т.о. все команды, которые поддерживает
Shell(Text1.Text, vbNormalFocus)
можно запускать.
Но это написано для примера и демонстрации возможностей. А вообще DDE на практике используют для различного обмена данными между приложениями, написанными на VB.
1
 Аватар для Антихакер32
1201 / 473 / 46
Регистрация: 06.01.2014
Сообщений: 1,797
Записей в блоге: 19
17.02.2014, 13:21
Я горжусь, собой, что у меня есть бейсик )
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
17.02.2014, 13:21
Помогаю со студенческими работами здесь

Как java-приложение может попросить OS запустить внешнее приложение?
Как java-приложение может попросить OS запустить внешнее приложение?

Как запустить приложение?
Проект прикреплен. Непонятно, есть ли ошибки в моем коде, или просто несовместим конструктор Tkinter'а.

Как запустить приложение?
Здравствуйте, помогите разобраться пожалуйста, я скачала JDK, Eclipse, и создала первое приложение, Hello, но не понимаю как же мне...

Как запустить приложение не из IDEc++
Написал простенький пример кода на CodeBlock все от компилировалось запустилось, но как теперь это послать например другу и чтоб он...

Как запустить приложение на android 4.0.4
При запуске на смартфоне megafon android 4.0.4 пишет "при синтаксическом анализе пакета возникла неполадка" На других девайсах,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему
Новые блоги и статьи
сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3
anaschu 06.01.2026
aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR
ФедосеевПавел 06.01.2026
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .
Модель микоризы: классовый агентный подход 2
anaschu 06.01.2026
репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
Расчёт токов в цепи постоянного тока
igorrr37 05.01.2026
/ * Дана цепь постоянного тока с сопротивлениями и источниками (напряжения, ЭДС и тока). Найти токи и напряжения во всех элементах. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru