Работа с командной строкой (1. FTP-сервер 2. Проверка наличия подключения) - VB
Формулировка задачи:
имеется совет:
Для восстановления конфигурации выполните команду:
put [путь и имя файла в локальной файловой системе] rom-0, например put c:\config\660hw.cfg rom-0
Как мне из программы на vb6
Выполнить все эти команды последовательно в командной строке, что бы добиться того же результата.
Пишу shell "ftp"
открывается консоль и ждёт ввода команд.
А дальше ничего не работает.
То есть команды я не знаю как послать туда.
Решение задачи: «Работа с командной строкой (1. FTP-сервер 2. Проверка наличия подключения)»
textual
Листинг программы
Host = "8.8.8.8" 'Любой сервер
With CreateObject("WScript.Shell")
.Run "cmd /c (Ping -n 1 " & Host & "|FindStr ""TTL=""&&(setX tVal 0)||(setX tVal 1))", 0, True
MsgBox "Connection " & IIf(.Environment("User").Item("tVal") = 0, "Ok", "Failure")
End With
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д