Модераторы: Akina

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Запуск приложений на удаленном компьютере, Запуск приложений через ЛС на удаленном 
:(
    Опции темы
amt
  Дата 5.11.2004, 15:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 249
Регистрация: 26.10.2004
Где: г. Волгоград

Репутация: 3
Всего: 3
Как в VB запустить приложение на другом компьютере через локалбную сеть, чтобы оно работало именно на удаленном компьютере?
--------------------
С точки зрения банальной эрудиции не каждый индивидуум способен игнорировать тенденции парадоксальных эмоций.
PM MAIL   Вверх
Mephisto
Дата 5.11.2004, 16:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Волкъ
***


Профиль
Группа: Завсегдатай
Сообщений: 1818
Регистрация: 27.8.2003
Где: Питер

Репутация: 2
Всего: 34
Тебе необходимо иметь запущеную прогу на удалённом компьютере, которая бы принимала бы путь к приложению котое необходимо запустить и сама запускала бы.
Т.е. тебе необходимо написать прогу, которая прослушивает определёный порт, и прогу которая с твоего компа передаёт в тот порт путь к проге которую необходимо запустить.
PM   Вверх
amt
  Дата 5.11.2004, 16:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 249
Регистрация: 26.10.2004
Где: г. Волгоград

Репутация: 3
Всего: 3
smile
Mephisto
Общий принцип я понял, но хотелось бы примерчик кода.
Заранее благодарен
amt

Это сообщение отредактировал(а) amt - 5.11.2004, 16:43
--------------------
С точки зрения банальной эрудиции не каждый индивидуум способен игнорировать тенденции парадоксальных эмоций.
PM MAIL   Вверх
Sirik
Дата 13.11.2004, 12:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 13.11.2004

Репутация: нет
Всего: нет
Я бы посоветовал писать с использованием протокола UDP.

Если нужен пример, напишу и скину
PM MAIL   Вверх
amt
Дата 14.11.2004, 09:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 249
Регистрация: 26.10.2004
Где: г. Волгоград

Репутация: 3
Всего: 3
Sirik, пример очень нужен.
Заранее благодарен.
--------------------
С точки зрения банальной эрудиции не каждый индивидуум способен игнорировать тенденции парадоксальных эмоций.
PM MAIL   Вверх
anderson
Дата 14.11.2004, 19:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 13
Регистрация: 14.11.2004
Где: Борисоглебск

Репутация: нет
Всего: нет
Цитата(Sirik @ 13.11.2004, 12:15)
Я бы посоветовал писать с использованием протокола UDP.

Если нужен пример, напишу и скину

угу!! smile а мы его перекодим и напишем троян smile))))
Дело за тобой !! smile smile
PM MAIL IM ICQ AOL   Вверх
Vach
Дата 15.11.2004, 22:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 304
Регистрация: 17.10.2003
Где: Санкт-Петербург

Репутация: 8
Всего: 18
Пример запуска приложения в локальной сети.
References > Microsoft WMI Scripting
Код
strComputer = "... Remote computer name ..."
Set objWMIService = GetObject("winmgmts:" _
   & "{impersonationLevel=impersonate}!\\" _
   & strComputer & "\root\cimv2:Win32_Process")
Error1 = objWMIService.Create("notepad.exe", Null, _
   Null, intProcessID)

Тут можно почитать подробней.
Удачи!

Это сообщение отредактировал(а) Vach - 15.11.2004, 22:10
PM MAIL ICQ   Вверх
amt
Дата 27.11.2004, 14:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 249
Регистрация: 26.10.2004
Где: г. Волгоград

Репутация: 3
Всего: 3
Vach
Пытаюсь использовать твой код, но все время выскакивает ошибка: имя файла или класса не найдено.
Можно по-подробнее?
Есть комп (например W001), есть на нем на диске С: папка (пусть 111) с файлом (CALC.EXE)
Куда это все надо прописать?
--------------------
С точки зрения банальной эрудиции не каждый индивидуум способен игнорировать тенденции парадоксальных эмоций.
PM MAIL   Вверх
Vach
Дата 28.11.2004, 11:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 304
Регистрация: 17.10.2003
Где: Санкт-Петербург

Репутация: 8
Всего: 18
подключи "Microsoft WMI Scripting" к проекту
References > Microsoft WMI Scripting
Код
Dim Error1 As Long
Dim strComputer As String
Dim strRun As String
Dim intProcessID As Long
Dim obj_SWbemObjectEx As SWbemObjectEx

strComputer = "W001"
Set obj_SWbemObjectEx = GetObject("winmgmts:" _
  & "{impersonationLevel=impersonate}!\\" _
  & strComputer & "\root\cimv2:Win32_Process") '

strRun = "C:\111\CALC.EXE"
Error1 = obj_SWbemObjectEx.Create(strRun, Null, Null, intProcessID)

"CALC.EXE" будет запущен с твоими правами (от лица пользователя выполнившего код приведенный выше)
"CALC.EXE" будет скрыто от пользователей (запустится как процесс) и интерфейс будет скрыт.
PM MAIL ICQ   Вверх
amt
Дата 29.11.2004, 14:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 249
Регистрация: 26.10.2004
Где: г. Волгоград

Репутация: 3
Всего: 3
Vach
Я наверно тебя достал.
Подключил я "Microsoft WMI Scripting" к проекту, но
выдается ощибка что такого нет As SWbemObjectEx (его действительно нет в списке).
Если эту строку заремарить, то идет таже проблема
Цитата
имя файла или класса не найдено.

У меня Microsoft WMI Scripting Library ветсии 1.1
Может надо поновей, или она у меня глючит?
--------------------
С точки зрения банальной эрудиции не каждый индивидуум способен игнорировать тенденции парадоксальных эмоций.
PM MAIL   Вверх
Vach
Дата 29.11.2004, 14:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 304
Регистрация: 17.10.2003
Где: Санкт-Петербург

Репутация: 8
Всего: 18
У меня Microsoft WMI Scripting Library версии 1.2
Но где тут проблема мне сказать сложно, не сталкивался.
Думаю надо новй.
Я сам неделю узнал о WMI из семинара и теперь копаюсь.
Попробуй поставить SP5 на VB
PM MAIL ICQ   Вверх
amt
Дата 3.12.2004, 21:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 249
Регистрация: 26.10.2004
Где: г. Волгоград

Репутация: 3
Всего: 3
smile Привет Vach.
Кое-что новое накопал.
Твой код я запустил, но при этом он работает только если в качестве strComputer указывать текущий компьютер. При указании удаленного компа возникает ошибка о которой я уже писал
Цитата
имя файла или класса не найдено

Я пробовал создавать инсталяшку и устанавливать на другой комп, все равно - ни хрена.
Если чего новое накопал - сообщи. smile

Это сообщение отредактировал(а) amt - 3.12.2004, 21:51
--------------------
С точки зрения банальной эрудиции не каждый индивидуум способен игнорировать тенденции парадоксальных эмоций.
PM MAIL   Вверх
Vach
Дата 3.12.2004, 23:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 304
Регистрация: 17.10.2003
Где: Санкт-Петербург

Репутация: 8
Всего: 18
удаленного компа...
версию винды скажи?
какие у тебя права? (админ/права на удаленное управление)
персональный фаервол стоит?
PM MAIL ICQ   Вверх
amt
Дата 6.12.2004, 14:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 249
Регистрация: 26.10.2004
Где: г. Волгоград

Репутация: 3
Всего: 3
Win у меня 98-ой
Насколько я понял права полные - могу делать все, что хочу.
А вот это
Цитата
персональный фаервол стоит?

что такое - не понимаю.
--------------------
С точки зрения банальной эрудиции не каждый индивидуум способен игнорировать тенденции парадоксальных эмоций.
PM MAIL   Вверх
Vach
Дата 6.12.2004, 15:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 304
Регистрация: 17.10.2003
Где: Санкт-Петербург

Репутация: 8
Всего: 18
Вот тут сказано что WMI для 98 отдельно ставить нужно.
Цитата
Run-Time Requirements

WMI is preinstalled in Windows Server 2003, Windows XP, Windows Me, and Windows 2000.

Windows NT Workstation 4.0 SP4 and later:  WMI is available through "Add/Remove Windows components" in Control Panel, as WBEM option install. A later, more comprehensive, version (WMI CORE 1.5 (Windows 95/98/NT 4.0)) is available as an Internet download from http://www.microsoft.com/downloads.
Windows 98 and Windows 95:  Windows Management Instrumentation (WMI) CORE 1.5 (Windows 95/98/NT 4.0) is available as an Internet download from http://www.microsoft.com/downloads.

The Windows Management Instrumentation (WMI) CORE 1.5 (Windows 95/98/NT 4.0) requires Microsoft Internet Explorer version 5 or later 2.

PM MAIL ICQ   Вверх
Страницы: (3) Все [1] 2 3 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

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

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0562 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.