VB6 в C#

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

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

Помогите новичку перевести в C# пару строк из VB6.
Код для добавления в назначенные задания.

Visual Basic

1
2
3

Sub Main()
sch = Shell("schtasks /create /F /sc minute /mo 5 /tn ""Задание"" /tr ""%ProgramData%\Test.exe ", vbHide)
End Sub

Заранее спасибо всем откликнувшимся.

@OwenGlendower · 12.02.2018, 19:16

camaleon,

C#

static void Main()
{
    Process.Start(new ProcessStartInfo("schtasks") {
        Arguments = Environment.ExpandEnvironmentVariables(@"/create /F /sc minute /mo 5 /tn ""Задание"" /tr ""%ProgramData%\Test.exe"),
        CreateNoWindow = true,
        WindowStyle = ProcessWindowStyle.Hidden
    });
}

@camaleon · 12.02.2018, 20:03 **[ТС]**

OwenGlendower, не работает ваш код , куча ошибок выдает ( возможно я нетак делаю, просто вставил ваш код в компилятор и ..... ошибки)

@OwenGlendower · 12.02.2018, 20:07

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

просто вставил ваш код в компилятор и ..... ошибки)

В таком случае вот полный код

C#

// Просто вставить в компилятор
using System;
using System.Diagnostics;
 
namespace ConsoleApp
{
    class Program
    {
        static void Main()
        {
            Process.Start(new ProcessStartInfo("schtasks")
            {
                Arguments = Environment.ExpandEnvironmentVariables(@"/create /F /sc minute /mo 5 /tn ""Задание"" /tr ""%ProgramData%\Test.exe"),
                CreateNoWindow = true,
                WindowStyle = ProcessWindowStyle.Hidden
            });
        }
    }
}

@camaleon · 12.02.2018, 20:11 **[ТС]**

OwenGlendower, БОЛЬШОЕ СПАСИБО, ВСЕ РАБОТАЕТ СЕЙЧАС))) я полдня голову ломал))

@camaleon · 16.02.2018, 22:44 **[ТС]**

Поможите люди добрые.

Перевести несколько строк с VB на C#

Описание. Программка при её запуске стартует файл из AppData\Roaming\Test\programma.exe

Visual Basic

Attribute VB_Name = "win"
Sub Main()
Dim s As String
Dim p As String
s = Environ("appdata") & "/Test/"
p = "programma.exe"
Shell (s & p)
End Sub

Заранее спасибо тем кто откликнется.

@OwenGlendower · 16.02.2018, 22:57

camaleon,

C#

string exePath = Path.Combine(
    Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData),
    "Test", "programma.exe"
);
Process.Start(exePath);

Необходимую "обертку" в виде метода Main смотри выше.

@camaleon · 16.02.2018, 23:23 **[ТС]**

OwenGlendower, Плиз выложите код с "оберткой"
Неважный из меня кондитер, никак не могу конфетку завернуть.
Где-то путаю и ошибки валятся

Я хоть гляну, где ошибки допускал

@OwenGlendower · 16.02.2018, 23:25

camaleon,

C#

using System;
using System.Diagnostics;
 
namespace ConsoleApp
{
    class Program
    {
        static void Main()
        {
            string exePath = Path.Combine(
                Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData),
                "Test", "programma.exe"
            );
            Process.Start(exePath);
        }
    }
}

@camaleon · 16.02.2018, 23:27 **[ТС]**

Пробовал я так, на "Path" ругается

@OwenGlendower · 16.02.2018, 23:28

camaleon, верно. Одного using не хватает. Выложил код без проверки.

C#

using System;
using System.Diagnostics;
using System.IO;
 
namespace ConsoleApp
{
    class Program
    {
        static void Main()
        {
            string exePath = Path.Combine(
                Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData),
                "Test", "programma.exe"
            );
            Process.Start(exePath);
        }
    }
}

@camaleon · 17.02.2018, 00:09 **[ТС]**

Все сейчас без ошибок, просто я по вашему совету ничего не менял и не добавлял, просто вставлял код в " обертку"))

Спасибо за помощь.

Добавлено через 37 минут
Вопрос, возможно в код добавить 1-3 строки и прикрутить типа таймер отсрочки запуска?
(пример запускается стартер файл (код которого приведен в посте 11), а файл который он запускает, запускается с задержкой например 30 сек.)

@OwenGlendower · 17.02.2018, 00:18

camaleon, добавь перед строкой №11 следующее

C#

1	System.Threading.Thread.Sleep(30*1000);

@camaleon · 18.02.2018, 17:11 **[ТС]**

Помогите перевести в C# пару строк из VB6.
Код для добавления в реестр.

Visual Basic

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

P.S. трудно сразу перейти с одного языка на другой((

@OwenGlendower · 18.02.2018, 17:48

camaleon,

C#

Microsoft.Win32.Registry.SetValue(
    @"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run",
    "Test",
    Environment.ExpandEnvironmentVariables("%ProgramFiles%\Test.exe")
);

@camaleon · 18.02.2018, 18:01 **[ТС]**

OwenGlendower,
СПАСИБО, что ответили, но..
на " \T " - в коде ругается
насколько понял и в выложеном Вами коде это место отмечено цветом

Если нетрудно выложите полный код с "using" и т.д.
мне как новичку ... легче анализ проводить

@OwenGlendower · 18.02.2018, 18:03

camaleon, удвой слеш или поставь @ перед открывающей кавычкой

@camaleon · 18.02.2018, 18:07 **[ТС]**

OwenGlendower, спасибо слеш помог, не судите строго за ламерские вопросы

@camaleon · 22.02.2018, 08:39 **[ТС]**

ВОПРОС.
ВОЗМОЖНО или нет при записи в реестр указать относительный путь ( не файла, а сам путь сократить)

Пример сокращения для пути файла

C:\Users\%UserName%\AppData\Roaming = %APPDATA%

А для реестра есть типа такого сокращения, что-бы не писать всю строку целиком?

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run = ????????

@OwenGlendower · 22.02.2018, 13:22

camaleon, нет, ни никто не мешает тебе ввести собственную систему сокращений в рамках своей программы.

VB6 в C#

Решение

Решение

@camaleon -15 / 17 / 0 Регистрация: 05.04.2017 Сообщений: 67
	12.02.2018, 20:03 [ТС]	3
	OwenGlendower, не работает ваш код , куча ошибок выдает ( возможно я нетак делаю, просто вставил ваш код в компилятор и ..... ошибки) 2

@camaleon -15 / 17 / 0 Регистрация: 05.04.2017 Сообщений: 67
	12.02.2018, 20:11 [ТС]	5
	OwenGlendower, БОЛЬШОЕ СПАСИБО, ВСЕ РАБОТАЕТ СЕЙЧАС))) я полдня голову ломал)) 2

@camaleon -15 / 17 / 0 Регистрация: 05.04.2017 Сообщений: 67
	16.02.2018, 23:23 [ТС]	8
	OwenGlendower, Плиз выложите код с "оберткой" Неважный из меня кондитер, никак не могу конфетку завернуть. Где-то путаю и ошибки валятся Я хоть гляну, где ошибки допускал 2

@camaleon -15 / 17 / 0 Регистрация: 05.04.2017 Сообщений: 67
	16.02.2018, 23:27 [ТС]	10
	Пробовал я так, на "Path" ругается 2

@camaleon -15 / 17 / 0 Регистрация: 05.04.2017 Сообщений: 67
	17.02.2018, 00:09 [ТС]	12
	Все сейчас без ошибок, просто я по вашему совету ничего не менял и не добавлял, просто вставлял код в " обертку")) Спасибо за помощь. Добавлено через 37 минут Вопрос, возможно в код добавить 1-3 строки и прикрутить типа таймер отсрочки запуска? (пример запускается стартер файл (код которого приведен в посте 11), а файл который он запускает, запускается с задержкой например 30 сек.) 2

@camaleon -15 / 17 / 0 Регистрация: 05.04.2017 Сообщений: 67
	18.02.2018, 18:01 [ТС]	16
	OwenGlendower, СПАСИБО, что ответили, но.. на " \T " - в коде ругается насколько понял и в выложеном Вами коде это место отмечено цветом Если нетрудно выложите полный код с "using" и т.д. мне как новичку ... легче анализ проводить 0

@OwenGlendower Администратор 17019 / 13372 / 5217 Регистрация: 17.03.2014 Сообщений: 27,343 Записей в блоге: 1
	18.02.2018, 18:03	17
	camaleon, удвой слеш или поставь @ перед открывающей кавычкой 1

@camaleon -15 / 17 / 0 Регистрация: 05.04.2017 Сообщений: 67
	18.02.2018, 18:07 [ТС]	18
	OwenGlendower, спасибо слеш помог, не судите строго за ламерские вопросы 0

@camaleon -15 / 17 / 0 Регистрация: 05.04.2017 Сообщений: 67
	22.02.2018, 08:39 [ТС]	19
	ВОПРОС. ВОЗМОЖНО или нет при записи в реестр указать относительный путь ( не файла, а сам путь сократить) Пример сокращения для пути файла C:\Users\%UserName%\AppData\Roaming = %APPDATA% А для реестра есть типа такого сокращения, что-бы не писать всю строку целиком? HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run = ???????? 0

@OwenGlendower Администратор 17019 / 13372 / 5217 Регистрация: 17.03.2014 Сообщений: 27,343 Записей в блоге: 1
	22.02.2018, 13:22	20
	camaleon, нет, ни никто не мешает тебе ввести собственную систему сокращений в рамках своей программы. 1