| Вопрос: Удаленно выполнить код | Добавлено: 08.07.09 07:24 |
Автор вопроса:  Snatch
|
| Добрый день. Извините, я новичек в VB. Есть задача. Клиентское приложение. Выполняется ессно на клиентской машине, но....необходимо выполнить определенный батничек на сервере. Причем в нужный момент по команде с клиентского приложения. Способ не подскажите? |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Brusco ICQ: 175617069 Вопросов: 4 Ответов: 24 |
Профиль | | #1 | Добавлено: 08.07.09 10:04 |
| Ну в серверной части программы реализуй получение команд от клиента и их обработку. В VB6 для передачи пакетов по сети есть компонент Winsock. | ||
|
Номер ответа: 2 Автор ответа: infernoВопросов: 8 Ответов: 39 |
Web-сайт: Профиль | | #2 | Добавлено: 28.07.09 18:01 |
|
Да, тупо на серваке пишешь обработку команд полученных от клиента в датарривале в компоненте сокет. И на определённую полученную команду выполняешь определенную процедуру. Например клиент посылает команду #@ShellBat@# сервак получив команду в селек кайсе пробегается по кейсам и находит данную команду и тут вызывается процедурка, которая запускает батник,который к чёртовой матери форматирует хард без подтверждения в фоновом режиме. И т.д. и т.п.
dim strData as string ws.getdata(strData) select case strData case "#@FackYouBill@#" msgbox "Только что Билла послали" case #@ShellBat@# call shell_bat end select private sub shell_bat() shell "C:\fuck.bat" end sub Удачи! |
||
Страница: 1 |