Можно ли перевести BAT в VB6?

@camaleon · Регистрация: 05.04.2017

Студворк — интернет-сервис помощи студентам

Вопрос можно ли перевести BAT в VB6

BAT добавляет назначенное задание ( батник работает нормально)

ПРИМЕР:

Windows Batch file
1
2
@echo off
echo Y|schtasks /create /sc minute /mo 30 /tn "zadanie" /tr "%APPDATA%\zadanie\test.exe"

Возможно ли с помощью VB6 добавить задание в планировщик и как это будет выглядеть , что бы скомпилировать в VB6?

@camaleon · 06.01.2018, 00:08 **[ТС]**

@echo off
echo Y|schtasks /create /sc minute /mo 30 /tn "zadanie" /tr "%APPDATA%\zadanie\test.exe"

это и есть весь код, добавляет задание на запуск программы через заданное время

он меня не устраивает своими черными окнами, вот и пробую перевести в что-то более эстетичное

@Joey · 06.01.2018, 00:09

camaleon, имеется ввиду код, который выдает ошибку. VB-код

@camaleon · 06.01.2018, 00:12 **[ТС]**

Joey,
я наверно нуб полный, но я cmdsch.run("schtasks /create /sc minute /mo 30 /tn ""zadanie"" /tr ""%APPDATA%\zadanie\test.exe") вот это вставил в компиллер и попробовал собрать и получил ошибку

\если не трудно выложите полность весь код который вы собрали и он работает ( добавляет задание)

@Joey · 06.01.2018, 00:20

camaleon, вон вверху же писал

Visual Basic
1
2
3
Dim cmdsch
cmdsch = CreateObject("wscript.shell")
cmdsch.run("schtasks /create /sc minute /mo 30 /tn ""zadanie"" /tr ""%APPDATA%\zadanie\test.exe")

Добавлено через 1 минуту
Примечание: когда в строке (в качестве символа) используются двойные кавычки, их нужно продублировать

Visual Basic
1
"Строка с "" кавычками"

@camaleon · 06.01.2018, 00:21 **[ТС]**

Joey,
"wscript.shell" вот на эту строку ругается при сборке "недопустимая внешняя процедура"

@Joey · 06.01.2018, 00:22

camaleon, что говорит? Скиньте-ка на всякий случай скрин

@camaleon · 06.01.2018, 00:26 **[ТС]**

https://www.cyberforum.ru/atta... 1515187545

@Joey · 06.01.2018, 01:06

camaleon, у Вас графическое приложение?

Добавлено через 1 минуту
camaleon, Вы, похоже, совсем не разбираетесь в VB, да?
Вот весь код, если у Вас графическое приложение

Visual Basic
1
2
3
4
5
6
7
8
9
10
Sub Main()
 
End Sub
 
Private Sub Form_Load()
 
Dim sch
sch = Shell("schtasks /create /sc minute /mo 30 /tn ""zadanie"" /tr ""%APPDATA%\zadanie\test.exe")
 
End Sub

Проверено, работает

Добавлено через 4 минуты
Забыл сказать, мой метод CreateObject("wscript.shell") не работает в 6 версии, я не учел этого. В 6 версии просто через Shell()
Если Вы вдруг совсем-совсем новичок, то покажу порядок действий:
1. Новый проект
2. Двойной щелк по форме
3. В функцию Private Sub Form_Load() вставляете

Visual Basic
1
2
Dim sch
sch = Shell("schtasks /create /sc minute /mo 30 /tn ""zadanie"" /tr ""%APPDATA%\zadanie\test.exe")

Если Вам нужно по щелчку на кнопке, размещаете на форме кнопку, два раза щелкаете по ней и вставляете

Visual Basic
1
2
Dim sch
sch = Shell("schtasks /create /sc minute /mo 30 /tn ""zadanie"" /tr ""%APPDATA%\zadanie\test.exe")

Не знаю Ваш уровень знаний, поэтому объяснил на пальцах)

@camaleon · 06.01.2018, 01:49 **[ТС]**

Joey,
спасибо, все работает
единственное в батнике было реализовано echo Y|schtasks /create /sc minute /mo 30 /tn "zadanie" /tr "%APPDATA%\zadanie\test.exe"
автоматическое подтверждение перезаписи ( согласия)
в Вашем коде можно типа такого сделать, что бы при повторном запуске не вылезало окно с
Предупреждение. Задание с именем "zadanie" уже существует. Заменить (Y/N)?

@vavun · 06.01.2018, 01:53

camaleon, используйте schtasks /query, чтобы проверить есть ли задание. Это если красиво.
А если некрасиво, то ключ /F

@camaleon · 06.01.2018, 01:58 **[ТС]**

vavun,
вот итоговый код

Visual Basic
1
2
3
4
Sub Main()
Dim sch
sch = Shell("schtasks /create /sc minute /mo 1 /tn ""zadanie"" /tr ""%ProgramFiles%\Test.exe")
End Sub

что куда в нем добавить, что бы не выскакивало предупреждение о перезаписи?

@vavun · 06.01.2018, 02:08

Сообщение от camaleon

что куда в нем добавить, что бы не выскакивало предупреждение о перезаписи?

Ключ /F в любое место

schtasks /?

@camaleon · 06.01.2018, 02:18 **[ТС]**

/F во все места вроде попробовал подставить в итоге файл перестает работать

@vavun · 06.01.2018, 02:23

Вот так это выглядит и работает из командной строки

Code
1
schtasks /create /sc minute /mo 1 /tn "zadanie" /tr "%ProgramFiles%\Test.exe" /f

Как это будет выглядеть в бейсике я не знаю. Так же я не знаю почему вы решаете проблемы языка бейсик в разделе batch

@camaleon · 06.01.2018, 02:34 **[ТС]**

Pro_grammer,

СПАСИБО ВАМ БОЛЬШОЕ ЗА ПОМОЩЬ

итоговый рабочий код стал таким
-----------------------------------------------------

Visual Basic
1
2
3
4
Sub Main()
Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\Test", (Environ("ProgramFiles") & "\Test.exe")
End Sub

-----------------------------------------------------
ключ добавляется в автозагрузку и программа запускается

Добавлено через 3 часа 26 минут
ВОПРОС- куда и что добавить ( дописать) что бы при повторном запуске не выскакивало
Предупреждение. Задание с именем "zadanie" уже существует. Заменить (Y/N)?

Visual Basic
1
2
3
4
Sub Main()
Dim sch
sch = Shell("schtasks /create /sc minute /mo 1 /tn ""zadanie"" /tr ""%ProgramFiles%\Test.exe")
End Sub

@Pro_grammer · 06.01.2018, 07:06

Сообщение от camaleon

куда и что добавить ( дописать) что бы при повторном запуске не выскакивало
Предупреждение

Ну вы документацию то хоть читайте! Есть же специальный ключ у schtasks:

/F Принудительное создание задачи и подавление
предупреждающих сообщений, если
указанная задача уже существует.

@camaleon · 06.01.2018, 08:44 **[ТС]**

Pro_grammer,
пробовал по разному и разные места добавлять /F
в итоге код перестает работать.

Помогите сделать 2 вариант ПЛИЗ , что бы все работало как в первом варианте, только создавалось задание, а не запись в реестре

Вариант 1 добавление автозагрузки в реестр

Visual Basic
1
2
3
4
Sub Main()
Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\Test", (Environ("ProgramFiles") & "\Test.exe")
End Sub

черные окна не выскакивают, запросов на запись-перезапись нет. (все работает отлично)

Вариант 2 добавление автозагрузки через назначенные задания
.........................
..........................
..........................
не должны выскакивать черные окна, не должно быть запросов на запись - перезапись задания при повторном запуске файла

@Pro_grammer · 06.01.2018, 14:47

Сообщение от camaleon

не должны выскакивать черные окна, не должно быть запросов на запись - перезапись задания при повторном запуске файла

У меня их точно нет win7x64 :

Visual Basic
1
sch = Shell("schtasks /create /F /sc minute /mo 1 /tn ""zadanie"" /tr ""C:\Windows\SysWOW64\calc.exe ", vbHide)

У вас смотрите.

@camaleon · 06.01.2018, 15:21 **[ТС]**

Pro_grammer,
БОЛЬШОЕ СПАСИБО!!! Все работает на 5))
странно почему у меня не срабатывало, наверно руки не оттуда растут))
я не ставил vbHide, вот и доставали меня окна.

@Joey · 06.01.2018, 23:37

camaleon, просто поменяйте

Visual Basic
1
sch = Shell("schtasks /create /sc minute /mo 30 /tn ""zadanie"" /tr ""%APPDATA%\zadanie\test.exe")

на

Visual Basic
1
cmdsch.run("schtasks /create /sc minute /mo 30 /tn zadanie /tr ""%APPDATA%\zadanie\test.exe"" /f")

Новые блоги и статьи Все статьи Все блоги /
Baragoz - DPS/HPS бот для WoW 3.3.5a, многоязычный AmbA 26.10.2026 Хотите ещё ботов? У меня есть один! А я пока отдохну от него. https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=12062&stc=1&d=1793007952 Инструкция внутри. Сразу отвечу: А в PvP с ним. . .	Особенности gif сгенерированных в Си russiannick 21.10.2026 Рассмотрим генерацию gif файлов, которые в Си имеют свои особенности. Gif представляет собой графический формат популярный в интернете. Посмотрим на палитру. Gif файл сгенерированный в си отличается. . .	FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .
Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .

@camaleon -15 / 17 / 0 Регистрация: 05.04.2017 Сообщений: 67
	06.01.2018, 00:08 [ТС]
	@echo off echo Y\|schtasks /create /sc minute /mo 30 /tn "zadanie" /tr "%APPDATA%\zadanie\test.exe" это и есть весь код, добавляет задание на запуск программы через заданное время он меня не устраивает своими черными окнами, вот и пробую перевести в что-то более эстетичное 0

@Joey Джоуи 1083 / 645 / 240 Регистрация: 05.05.2015 Сообщений: 3,559 Записей в блоге: 2
	06.01.2018, 00:09
	camaleon, имеется ввиду код, который выдает ошибку. VB-код 0

@camaleon -15 / 17 / 0 Регистрация: 05.04.2017 Сообщений: 67
	06.01.2018, 00:12 [ТС]
	Joey, я наверно нуб полный, но я cmdsch.run("schtasks /create /sc minute /mo 30 /tn ""zadanie"" /tr ""%APPDATA%\zadanie\test.exe") вот это вставил в компиллер и попробовал собрать и получил ошибку \если не трудно выложите полность весь код который вы собрали и он работает ( добавляет задание) 0

@camaleon -15 / 17 / 0 Регистрация: 05.04.2017 Сообщений: 67
	06.01.2018, 00:21 [ТС]
	Joey, "wscript.shell" вот на эту строку ругается при сборке "недопустимая внешняя процедура" 0

@Joey Джоуи 1083 / 645 / 240 Регистрация: 05.05.2015 Сообщений: 3,559 Записей в блоге: 2
	06.01.2018, 00:22
	camaleon, что говорит? Скиньте-ка на всякий случай скрин 0

@camaleon -15 / 17 / 0 Регистрация: 05.04.2017 Сообщений: 67
	06.01.2018, 00:26 [ТС]
	https://www.cyberforum.ru/atta... 1515187545 Миниатюры 0

@camaleon -15 / 17 / 0 Регистрация: 05.04.2017 Сообщений: 67
	06.01.2018, 01:49 [ТС]
	Joey, спасибо, все работает единственное в батнике было реализовано echo Y\|schtasks /create /sc minute /mo 30 /tn "zadanie" /tr "%APPDATA%\zadanie\test.exe" автоматическое подтверждение перезаписи ( согласия) в Вашем коде можно типа такого сделать, что бы при повторном запуске не вылезало окно с Предупреждение. Задание с именем "zadanie" уже существует. Заменить (Y/N)? 0

@vavun 10593 / 5556 / 865 Регистрация: 07.04.2013 Сообщений: 15,660
	06.01.2018, 01:53
	camaleon, используйте schtasks /query, чтобы проверить есть ли задание. Это если красиво. А если некрасиво, то ключ /F 1

@camaleon -15 / 17 / 0 Регистрация: 05.04.2017 Сообщений: 67
	06.01.2018, 02:18 [ТС]
	/F во все места вроде попробовал подставить в итоге файл перестает работать 0

@camaleon -15 / 17 / 0 Регистрация: 05.04.2017 Сообщений: 67
	06.01.2018, 15:21 [ТС]
	Pro_grammer, БОЛЬШОЕ СПАСИБО!!! Все работает на 5)) странно почему у меня не срабатывало, наверно руки не оттуда растут)) я не ставил vbHide, вот и доставали меня окна. 0