Вверх ↑
Этот топик читают: Гость
Ответов: 12
Рейтинг: 0
#1: 2015-01-26 13:26:53 ЛС | профиль | цитата
@echo offcolor 3A
cls
echo ------------
echo операционная система ХП-[1],Виндовс7/8,Виста-[2]
set /p WIN= "Выберите 1 или 2 и нажмите enter:"
cls
if %WIN%==1 goto :next1
if %WIN%==2 goto :next2
:next1
echo ---Выбрана Операционная система ХП---
:next3
set /p IP= "Введите ваш IP адресс enter:"
:next4
set /p GATEWAY= "Введите ШЛЮЗ enter:"
cls
echo Сверьте введенные данные
echo ------------
echo [1]Айпи ---%IP%
echo ------------
echo [2]Шлюз--- %GATEWAY%
echo ------------
echo Если всё верно нажмите Y
set /p ANSWER1= "Если требуется правка тогда выберте 1 или 2 и нажмите enter:"
if %answer1%==Y goto :next8
if %answer1%==1 goto :next3
if %answer1%==2 goto :next4
:next8
echo ---Выбрана Операционная система ХП---
netsh interface ip set address name="Подключение по локальной сети" source=static addr=%IP% mask=255.255.255.224
netsh interface ip set address name="Подключение по локальной сети" gateway=%GATEWAY% gwmetric=0
netsh interface ip set dns name="Подключение по локальной сети" source=static addr=static 217.24.176.230 register=PRIMARY
netsh interface ip add dns name="Подключение по локальной сети" addr=217.24.177.2 index=2
pause&exit
:next2
echo ---Выбрана Операционная система Виндовс 7/8, Виста---
:next5
set /p IP= "Введите ваш IP адресс enter:"
:next6
set /p GATEWAY= "Введите ШЛЮЗ enter:"
cls
echo Сверьте введенные данные
echo ------------
echo [1]Айпи ---%IP%
echo ------------
echo [2]Шлюз--- %GATEWAY%
echo ------------
echo Если всё верно нажмите Y
set /p ANSWER= "Если требуется правка тогда выберте 1 или 2 и нажмите enter:"
if %answer%==y goto :next7
if %answer%==1 goto :next5
if %answer%==2 goto :next6
:next7
echo ---Выбрана Операционная система ХП7/8---
netsh interface ipv4 set address "Подключение по локальной сети" static %IP% 255.255.255.224 %GATEWAY%
netsh interface ipv4 set dnsserver "Подключение по локальной сети" static 217.24.176.230
netsh interface ipv4 add dnsserver "Подключение по локальной сети" 217.24.177.2 index=2
pause&exit


ну не получается понять
в бат-файле тоже самое событие>>>>Действие

ЗАдается вопрос Операционной системы>>>>>>Далее конфигурация либо ХП либо ХП 7,8 >>>>>>> запись настроек сети

новичек полнейший

Make(delphi)ver(4.04 build 184)
Add(SimpleForm,2953706,21,308)
{
Width=284
Height=250
}
Add(Edit,3790056,231,406)
{
Left=75
Top=140
Width=160
Text="введите шлюз"
}
Add(Edit,16659124,231,266)
{
Left=75
Top=110
Width=160
Text="введите ip"
}
Add(Button,16413902,161,315)
{
Left=15
Top=110
Caption="ОК"
link(onClick,16659124:doText,[(212,321)(212,272)])
}
Add(Button,14293758,161,357)
{
Left=15
Top=140
Caption="ОК"
link(onClick,3790056:doText,[(212,363)(212,412)])
}
Add(CheckBox,8067341,154,140)
{
Left=15
Top=65
Width=75
Caption="виндовс 7"
}
Add(CheckBox,11866113,154,63)
{
Left=15
Top=40
Width=65
Caption="виндовс"
}
Add(Label,11417141,9,14)
{
Left=20
Top=10
Width=224
Height=17
Caption="Выберите версию операционной системы"
}
Add(CheckBox,14720574,236,139)
{
Left=100
Top=40
Caption="Виста"
}
Add(CheckBox,4678822,238,63)
{
Left=100
Top=65
Width=80
Caption="виндовс 8"
}

карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#2: 2015-01-26 17:04:55 правка | ЛС | профиль | цитата


Редактировалось 6 раз(а), последний 2021-06-24 07:59:25
карма: 0

0
Ответов: 12
Рейтинг: 0
#3: 2015-01-27 13:28:30 ЛС | профиль | цитата
79.180.14.199 писал(а):
СПАСИБО
ааааа ни фига себе ты там наделал!блин жоско
------------ Дoбавленo в 13.28:
79.180.14.199 писал(а):

Подскажи почему функция WinExes не запускает командный сценарий Cmd

а этой схеме не хрена не уразумел
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#4: 2015-01-27 21:31:49 ЛС | профиль | цитата
zzup писал(а):
почему функция WinExes не запускает командный сценарий Cmd
А вопроса про запуск небыло.
Был вопрос
zzup писал(а):
Как реализовать бат файл
Вот я (79.180.14.199 - это я) и показал как реализовать.
А компонент WinExes положил для подсказки - куда копать для запуска.

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 12
Рейтинг: 0
#5: 2015-01-28 10:20:44 ЛС | профиль | цитата
Как ты все это понял. пыжился что то я и думаю емае не осилю , а блин как это все в голове твоей запомнилось, пытался понять стрелочки туда сюда, а блин если что извиняй дуб я в этой программе((( я его куда не подключал только ахахааа блин , везде тянул шнурки от него, блин так и не понял , все же HiAsm это дпя штука понять бы ее
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#6: 2015-01-28 11:20:54 ЛС | профиль | цитата
zzup писал(а):
везде тыкал
тыкать не надо.
Выделяешь компонент, жмёшь F1, читаешь и смотришь примеры.
zzup писал(а):
ни фига себе
Насчет "нифига" то я бы делал так:
running_lan.rar
Это решает проблему хватания то за мышку то за клавиатуру :
Можно работать только мышью или только с клавы (Tab, Home, End, стрелки курсора ВверхВниз, Пробел)
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1running_lan.rar [2.1KB] [293]
Ответов: 12
Рейтинг: 0
#7: 2015-01-28 22:48:01 ЛС | профиль | цитата
ну я прям чаем поперхнулся ребята ну вы спецы абалдеть




running_lan ну прям шедеврально, я опать ни черта не понял как запуститьь netsh чем еще можно кроме командной
строки! привык к батникам , вот все и хочется через них , при нажатии на

карма: 0

0
Ответов: 12
Рейтинг: 0
#8: 2015-01-30 18:58:10 ЛС | профиль | цитата
как записать в сетевую карту без бат файла есть какие то варианты,
карма: 0

0
Ответов: 12
Рейтинг: 0
#9: 2015-02-02 07:09:40 ЛС | профиль | цитата
У меня тунельное мышление, все делаю через , бат файл, как можно используя ,hiasm записать в бат файл параметры сетевой карты, вы профи я смотрю на вашу схему ну прям и не бельмеса непонимэ , тяну проводки туда сюда, что то подключаются , вообщем ахинею делаю , помоги пожалста

карма: 0

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