- Сообщения
- 14,037
- Решения
- 2
- Реакции
- 5,754
Хм...кто знает как прикрутить кнопку ОК к выбору?
Ошибка получается как ни пробую.
Ошибка получается как ни пробую.
Код:
<html>
<head>
<meta charset="windows-1251">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
<meta http-equiv="Content-Language" content="ru">
<title>Восстановление запуска системных служб по умолчанию</title>
<hta:application
borderStyle="complex"
windowState=" minimize"
innerBorder="yes"
selection="yes"
scroll="no"
caption="yes"
maximizebutton="yes"
minimizebutton="yes"
contextmenu="yes" />
<style type="text/css">
BODY {
font: x-small Verdana, Arial, sans-serif;
color: WindowText;
background-color: ButtonFace;
}
.Row {
clear:both;
}
.Left {
float:Left;
clear:none;
}
.Right, SELECT {
float:Right;
clear:none;
}
</style>
<script language="VBScript">
Sub GetOSVersion
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
Msgbox objOperatingSystem.Caption & " " & objOperatingSystem.Version
Next
End Sub
</script>
<script language="VBScript">
Sub tweak
End Sub
</script>
<script language="VBScript">
Sub tweak2
End Sub
</script>
<script language="VBScript">
Sub tweak3
End Sub
</script>
<script language="VBScript">
Sub tweak4
End Sub
</script>
<script language="VBScript">
Sub tweak5
End Sub
</script>
<script language="VBScript">
Sub tweak6
End Sub
</script>
<script language="VBScript">
Sub tweak7
End Sub
</script>
<script language="VBScript">
Sub tweak8
End Sub
</script>
</head>
<br><br><br>
<body id="tagBody" scroll="auto">
<span Class="Row">
<span Class="left"><span id="lblChoice">Версия Windows: </span></span>
<span Class="right">
<select name="Wait" id="Wait" size="1">
<option value="1" selected> Windows 7 Ultimate *64 bit
<option value="2"> Windows 7 Ultimate *32 bit
<option value="3">Windows 7 Professional SP1 *64 bit
<option value="4">Windows 7 Professional SP1 *32 bit
<option value="5">Windows 7 Home Premium *64 bit
<option value="6">Windows 7 Home Premium *32 bit
<option value="7">Windows 7 Windows 7 Home Basic
<option value="8">Windows 7 Starter
</select>
</span>
</span>
<span Class="Row"><br>
<span Class="left"><span id="lblOK">Выберите из списка Вашу версию Windows и нажмите кнопку "OK"</span></span>
<span Class="right"><input type="Button" name="OK" value="OK"></span>
</span>
</body>
<br><br><br>
<body STYLE="font:12 pt arial; color:white;
filter:progid:DXImageTransform.Microsoft.Gradient (GradientType=1, StartColorStr='#000000', EndColorStr='#0000FF')">
<input type="button" value="Показать версию ОС..." name="run_button" onClick="GetOSVersion">
</body>
<script language="VBScript">
With window
.resizeTo 500, tagBody.scrollHeight + 220
.moveTo (.screen.availWidth - tagBody.offsetWidth) \ 2, (.screen.availHeight - tagBody.offsetHeight) \ 2
End With
</script>
</html>
