Помогите реализовать програмку опять из бат файла нужно окультурить этот батник

Форумы "Игра в слова"Помогите реализовать програмку опять из бат файла нужно окультурить этот батник ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 12

Рейтинг: 0

#1: 2016-03-08 23:29:51 ЛС | профиль | цитата

:next0
@echo off
color 1e
cls
Echo ------------------------------------------------
Echo ------------------------------------------------
Echo СМЕНА РЕЖИМОВ ЭЛЕКТОРПИТАНИЯ
Echo ------------------------------------------------
Echo ------------------------------------------------
Echo ------------------------------------------------
Echo 1 СБАЛАНСИРОВАННЫЙ РЕЖИМ
Echo 2 ВЫСОКАЯ ПРОИЗВОДИТЕЛЬНОСТЬ
Echo 3 ЭКОНОМИЯ ЭНЕРГИИ
Echo ------------------------------------------------
Echo ------------------------------------------------
Echo ------------------------------------------------
:next1
set /p regim= "ВВЕДИТЕ ЦИФРУ РЕЖИМА: "
:next0
if %regim%==1 goto :next2
if %regim%==2 goto :next3
if %regim%==3 goto :next4
:next2
cls
Echo ------------------------------------------------
Echo ------------------------------------------------
Echo СМЕНА РЕЖИМОВ ЭЛЕКТОРПИТАНИЯ
Echo ------------------------------------------------
Echo ------------------------------------------------
Echo ------------------------------------------------
Echo ------------------------------------------------
Echo ------------------------------------------------
Echo ------------------------------------------------
Echo ------------------------------------------------
Echo ------------------------------------------------
Echo ------------------------------------------------
Echo ------------------------------------------------
Echo ВАШ РЕЖИМ ------------------ СБАЛАНСИРОВАННЫЙ --------------
pause
Powercfg -setactive 381b4222-f694-41f0-9685-ff5bb260df2e
exit
:next3
cls
Echo ------------------------------------------------
Echo ------------------------------------------------
Echo СМЕНА РЕЖИМОВ ЭЛЕКТОРПИТАНИЯ
Echo ------------------------------------------------
Echo ------------------------------------------------
Echo ------------------------------------------------
Echo ------------------------------------------------
Echo ------------------------------------------------
Echo ------------------------------------------------
Echo ------------------------------------------------
Echo ------------------------------------------------
Echo ------------------------------------------------
Echo ------------------------------------------------
Echo ВАШ РЕЖИМ ------------- ВЫСОКАЯ ПРОИЗВОДИТЕЛЬНОСТЬ ------------------
pause
Powercfg -setactive 8c5e7fda-e8bf-4a96-9a85-a6e23a8c635c
exit
:next4
cls
Echo ------------------------------------------------
Echo ------------------------------------------------
Echo СМЕНА РЕЖИМОВ ЭЛЕКТОРПИТАНИЯ
Echo ------------------------------------------------
Echo ------------------------------------------------
Echo ------------------------------------------------
Echo ------------------------------------------------
Echo ------------------------------------------------
Echo ------------------------------------------------
Echo ------------------------------------------------
Echo ------------------------------------------------
Echo ------------------------------------------------
Echo ------------------------------------------------
Echo ВАШ РЕЖИМ ------------------ ЭКОНОМИЯ ЭНЕРГИИ ------------------
pause
Powercfg -setactive a1841308-3541-4fab-bc81-f71556f20b4a
exit

не так элегантно конечно же как в хиасм но все же

карма: 0

Ответов: 4630

Рейтинг: 749

#2: 2016-03-09 12:26:20 ЛС | профиль | цитата

code_37032.txt
А самому?

карма: 26

файлы: 1

code_37032.txt [994B] [600]

Ответов: 39

Рейтинг: 2

#3: 2016-03-09 21:40:56 ЛС | профиль | цитата

Используя случaй можно пример работы с cmd в exec? Например запустить и провести парочку действий с результатом типа пинг и отправка сообщения юзеру и это все за один запуск cmd в exec. Сам толкую но результата 0

карма: 1

Разработчик

Ответов: 26158

Рейтинг: 2127

#4: 2016-03-09 23:04:31 ЛС | профиль | цитата

RAWY писал(а):

можно пример работы с cmd в exec?

Add(MainForm,2953706,126,91)
{
 link(onCreate,10434332:doConsoleExec,[(263,111)(263,125)])
}
Add(Memo,11459866,126,133)
{
 Left=5
 Top=5
 Width=305
 Strings=#14:ping 127.0.0.1|26:msg console "test message"|
 ScrollBars=2
}
Add(Memo,9159788,511,112)
{
 Left=10
 Top=90
 Width=300
 Height=165
 ScrollBars=2
 Point(doSetSelStart)
 Point(doEnsureVisible)
}
Add(Button,16370985,84,203)
{
 Left=320
 Top=10
 TabOrder=-1
 Caption="Start"
 link(onClick,4828633:doEnum,[])
}
Add(WinExec,10434332,273,105)
{
 FileName="cmd.exe"
 Point(doConsoleExec)
 Point(doConsoleInput)
 Point(onConsoleResult)
 Point(onConsoleError)
 link(onConsoleResult,9858150:doCharset,[])
}
Add(Charset,9858150,329,112)
{
 link(onCharset,10319002:doEvent1,[])
}
Add(ArrayEnum,4828633,140,203)
{
 link(onItem,4624052:doStrCat,[])
 link(Array,11459866:Array,[])
}
Add(StrCat,4624052,189,203)
{
 Str2="\13\10"
 link(onStrCat,10434332:doConsoleInput,[(228,209)(228,132)])
}
Add(Hub,10319002,385,112)
{
 OutCount=3
 link(onEvent1,9159788:doAdd,[])
 link(onEvent2,11948446:doData,[])
 link(onEvent3,9159788:doEnsureVisible,[(424,132)(424,167)])
}
Add(DoData,11948446,448,119)
{
 Data=String(10000)
 link(onEventData,9159788:doSetSelStart,[(501,125)(501,160)])
}

Можно одной строкой

Add(MainForm,2953706,175,105)
{
 link(onCreate,10434332:doConsoleExec,[])
}
Add(Memo,9159788,511,112)
{
 Left=10
 Top=35
 Width=365
 Height=220
 ScrollBars=2
 Point(doSetSelStart)
 Point(doEnsureVisible)
}
Add(Button,16370985,119,203)
{
 Left=320
 Top=10
 TabOrder=-1
 Caption="Start"
 link(onClick,4624052:doStrCat,[])
}
Add(WinExec,10434332,273,105)
{
 FileName="cmd.exe"
 Point(doConsoleExec)
 Point(doConsoleInput)
 Point(onConsoleResult)
 Point(onConsoleError)
 link(onConsoleResult,9858150:doCharset,[])
}
Add(Charset,9858150,329,112)
{
 link(onCharset,10319002:doEvent1,[])
}
Add(Hub,10319002,385,112)
{
 OutCount=3
 link(onEvent1,9159788:doAdd,[])
 link(onEvent2,11948446:doData,[])
 link(onEvent3,9159788:doEnsureVisible,[(424,132)(424,167)])
}
Add(DoData,11948446,448,119)
{
 Data=String(10000)
 link(onEventData,9159788:doSetSelStart,[(501,125)(501,160)])
}
Add(StrCat,4624052,175,203)
{
 Str2="\13\10"
 link(onStrCat,10434332:doConsoleInput,[(228,209)(228,132)])
 link(Str1,6392175:Text,[])
}
Add(Edit,6392175,175,154)
{
 Left=5
 Top=10
 Width=305
 Text="ping 127.0.0.1 && msg console "test message""
}

Почему msg, а потому, что net send в новых версиях ОС не поддерживается -- http://ab57.ru/cmdlist/msg.html

карма: 22

Ответов: 39

Рейтинг: 2

#5: 2016-03-10 17:23:43 ЛС | профиль | цитата

nesco, спасибо!

карма: 1

Ответов: 12

Рейтинг: 0

#6: 2016-05-14 03:26:59 ЛС | профиль | цитата

всем спасибо

карма: 0


Сообщение ...
Прикрепленные файлы (файлы не залиты)