Как запустить приложение на ПК в сети - VB
Формулировка задачи:
День добрый. Кто может подсказать код на VB для запуска по сети приложений?
К примеру, имеются три тачки в сети: SERVER (на нем приложение на VB для запуска), USER1 и USER2.
Как выглядит код для запуска блокнота на этих двух машинах? Заранее благодарен.
Решение задачи: «Как запустить приложение на ПК в сети»
textual
Листинг программы
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 ", , "http://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