Ответить в теме

Сообщение

[QUOTE="Кирилл, post: 178457, member: 5381"]
[USER=8028]Гимаев Наиль[/USER], вот в вашей версии HTA есть один нюанс - это то что твик виден.
Я пытался спрятать его разными методами но тогда reg-код не читается в скрипт.

Попытался сделать так:
[code=vbs]<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">
            Option Explicit

Sub OK_OnClick
                With document
                    .getElementByID("Wait").disabled        = True
                    .getElementByID("OK").disabled          = True
             
                    .getElementByID("tagBody").style.cursor = "wait"
                End With
         
                setTimeout "SetOK", 0
            End Sub

Sub SetOK()
                With CreateObject("Scripting.FileSystemObject").CreateTextFile("services.reg", True)
                    .WriteLine document.getElementByID("Wait").value
                    .Close
                End With
         
             
                With document
                    .getElementByID("Wait").disabled        = False
                    .getElementByID("OK").disabled          = False
             
                    .getElementByID("tagBody").style.cursor = "auto"
                End With
            End Sub

</script>
    </head>
    <body id="tagBody" scroll="auto">
        <span Class="Row">
            <span Class="left"><span id="lblChoice">Версия операционной системы: </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">
            <span Class="left"><span id="lblOK">Выберите версию операционной системы</span></span>
            <span Class="right"><input type="Button" name="OK" value="OK"></span>
        </span>
    </body>

Ребят,есть что посоветовать?
[/QUOTE]

Проверка