[YanTo]

Аааа..., что-то грустно совсем... Вобщем, вот с

этой рекомендацией

2884, Надо найти на просторах инет файл mshta.exe или скопировать с другой винды (на крайний случай прикрепляю к сообщению) и кинуть его в системный раздел WINDOWS\system32. Для своей сборки, как советовал мне stasys44, я бросил этот файл в папку с WPI.hta и запускаю install.cmd: start /wait "%wpipath%\mshta.exe" WPI.hta. »

тоже запарка.......
Значится, попробовал запускать из вот такого

install.cmd

Код:

@echo off
FOR %%d IN (c d e f g h i j k l m n o p q r s t u v w x y z) DO IF EXIST %%d:\WIN51 SET CDROM=%%d:
start /wait "%CDROM%\WPI\mshta.exe" WPI.hta
exit

, но на Т-13 прилетает птичка обломинго с сообщением "Windows не удалось найти 'WPI.hta'. Проверьте, что имя было введено правильно..." и т.д. При этом, и WPI.hta и mshta.exe лежат рядом, в одной папке %CDROM%\WPI\

Что же делать? Как запустить WPI?

[-SK-]

Возможно дело в рабочей директории, попробуйте так:

Код:

@echo off
FOR %%d IN (c d e f g h i j k l m n o p q r s t u v w x y z) DO IF EXIST %%d:\WIN51 SET CDROM=%%d:
start /wait /D "%CDROM%\WPI" "%CDROM%\WPI\mshta.exe" "WPI.hta"
exit

ключ /D указывает на рабочую директорию.

а вообще я использую другой скрипт для запуска HTA файлов:

Код:

@ECHO OFF
TITLE %~n0
IF EXIST "%~dpn0.HTA"	(
				ECHO START %~n0.HTA
				START /WAIT "%~n0" /D "%~dp0" "%WINDIR%\SYSTEM32\MSHTA.EXE" "%~dpn0.HTA"
			)
EXIT /B

коммандный файл должен называться также как и HTA файл т.е. "WPI.cmd"

[YanTo]

-SK-,

коммандный файл должен называться также как и HTA файл т.е. "WPI.cmd" »

ммм..., а расположить его (ком.файл) можно где угодно? Или он должен быть в той же папке где и .hta ?

[-SK-]

должен быть в той же папке

[S.T.R.E.L.O.K.]

хммм... странно, у меня вообще идёт просто запуск файла mshta.exe, а последующего запуска hta файла таким образом вообще не происходит.

[Pozia]

Наблюдаю у себя интересную вещь с WPI. На винде с которой я сейчас пишу это сообщение WPI запускается на ура из RunOnceEx. Когда я ставлю винду на другой веник то WPI запускается после загрузки рабочего стола. Как я заметил, это происходи из за того, что на моей винде, которую я ставлю, почему то процесс mshta.exe при запуске WPI запускается ДВА раза, а на винде что стоит ОДИН раз. То есть получается, когда из RunOnceEx запускается WPI, то винда видя что mshta.exe исчезает из диспетчера задач на секунду начинает грузить рабочий стол, и в это же время mshta.exe снова появляется и грузит WPI. У кого нибудь подобное наблюдается? Есть ли решение против двойного запуска mshta.exe?

[Pozia]

Решил свою проблему. Возможно еще кому поможет. Сейчас WPI запускается у меня на ура. Для этого на 13 минуте у меня срабатывает автоит скрипт содержания:

Код:

#NOtrayIcon
#include <GuiConstantsEx.au3>
#include <ComboConstants.au3>
;

$sWPI_Drives = ""
$sSel_Drive = ""
$sFirst_Drive = ""

$sKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceEx"

$aDrives = DriveGetDrive("All")

RegWrite($sKey &"\910", "1", "REG_SZ", "REGEDIT /S " & @HomeDrive & "\HKLM.reg")
RegWrite($sKey &"\920", "" , "REG_SZ", "Перезагрузка...")
RegWrite($sKey &"\920", "1", "REG_SZ", "hidcon.exe Shutdown -r -f -t 0")
RegWrite($sKey &"\995", "1", "REG_SZ", @HomeDrive & "\WPI.exe")

;=============================================================================

For $i = 1 To $aDrives[0]
    If DriveStatus($aDrives[$i]) <> "READY" Then ContinueLoop

    If FileExists($aDrives[$i] & "\WPI\WPI.hta") Then
        If $sWPI_Drives = "" Then $sFirst_Drive = $aDrives[$i]
        $sWPI_Drives &= StringUpper($aDrives[$i]) & "|"
    EndIf
Next

$sWPI_Drives = StringRegExpReplace($sWPI_Drives, "\|+$", "")

If StringInStr($sWPI_Drives, "|") Then
    $hGUI = GUICreate("Выберите диск запуска WPI", 240, 50)
	
    $Drives_Combo = GUICtrlCreateCombo("", 20, 20, 40, 20, $CBS_DROPDOWNLIST)
    GUICtrlSetData(-1, $sWPI_Drives, $sFirst_Drive)

    $OK_Button = GUICtrlCreateButton("OK", 80, 19, 60, 25)
    $Cancel_Button = GUICtrlCreateButton("Cancel", 160, 19, 60, 25)

    GUISetState(@SW_SHOW, $hGUI)

    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE, $Cancel_Button
                Exit
            Case $OK_Button
                $sSel_Drive = GUICtrlRead($Drives_Combo)

                ExitLoop
        EndSwitch
    WEnd
ElseIf $sWPI_Drives <> "" Then
    $sSel_Drive = $sWPI_Drives
EndIf

If $sSel_Drive <> "" Then RegWrite($sKey & "\999", "1", "REG_SZ", $sSel_Drive & "\WPI\WPI.exe")

Скрипт можно конечно же упростить. Но главное что он делает выделил. То есть на 995 ключ назначается запуск самоудоляющегося файла с диска С (естественно он там должен уже быть) который вносит в реестр:

Код:

Reg Add "HKCU\Software\Microsoft\Internet Explorer\Main" /v Disable Script Debugger /d "no" /F >Nul
Reg Add "HKCU\Software\Microsoft\Internet Explorer\Main" /v DisableScriptDebuggerIE /d "no" /F >Nul
exit

и только потом с ключа 999 запускается WPI. Также скрипт заменяет x-Reset от горы и перегружает комп. Без перезагрузки не тестил.

[Pozia]

в принципе можно еще проще. Используя скрипт -SK- можно так:

Код:

Reg Add "HKCU\Software\Microsoft\Internet Explorer\Main" /v Disable Script Debugger /d "no" /F >Nul
Reg Add "HKCU\Software\Microsoft\Internet Explorer\Main" /v DisableScriptDebuggerIE /d "no" /F >Nul

@ECHO OFF
TITLE %~n0
IF EXIST "%~dpn0.HTA"	(
				ECHO START %~n0.HTA
				START /WAIT "%~n0" /D "%~dp0" "%WINDIR%\SYSTEM32\MSHTA.EXE" "%~dpn0.HTA"
			)
EXIT /B

а запуск данного CMD в 999 ключ вносить любым удобным способом.

[Pozia]

Ошибочка. В обоих моих сообщениях параметр "Disable Script Debugger" нужно брать в кавычки

[denis121991]

Такой вопрос, если взять программы wpi взятые с одной сборки поставить на другую то глючить не будет ?