Как запустить приложение на ПК в сети - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4.125 из 5