[Архив - Часть 3] AutoIt скрипты .:[общие вопросы]:.

litus · Отправлено: **17:06, 09-11-2008** | #**1111**

После запуска с флешки "MyProga"остаються даные от autorun.inf
Даные реестра:
Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\{6b3faa70-78d3-11dd-aff1-001b9ee364da}\_Autorun]

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\{6b3faa70-78d3-11dd-aff1-001b9ee364da}\_Autorun\Action]
@="Запустить MyProga"

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\{6b3faa70-78d3-11dd-aff1-001b9ee364da}\_Autorun\DefaultLabel]
@="MyProga"
Здесь ключ реестра как я понимаю "@" если я прописываю его то значение не удаляеться. Тогда произвожу удаление по значению .
Код:
_RegDeleteEx1("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\{6b 3faa70-78d3-11dd-aff1-001b9ee364da}\_Autorun\Action", "Запустить MyProga")

Func _RegDeleteEx1($s_Key, $s_Val)
Local $sCurrent_ValName, $iCount = 1

While 1
$sCurrent_ValName = RegEnumVal($s_Key, $iCount)
If @error <> 0 Then ExitLoop

If String(RegRead($s_Key, $sCurrent_ValName)) = $s_Val Then Return RegDelete($s_Key, $sCurrent_ValName)

$iCount += 1
WEnd

Return @error
EndFunc

_RegDeleteEx2("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\{6b 3faa70-78d3-11dd-aff1-001b9ee364da}\_Autorun\DefaultLabel", "MyProga")

Func _RegDeleteEx2($s_Key, $s_Val)
Local $sCurrent_ValName, $iCount = 1

While 1
$sCurrent_ValName = RegEnumVal($s_Key, $iCount)
If @error <> 0 Then ExitLoop

If String(RegRead($s_Key, $sCurrent_ValName)) = $s_Val Then Return RegDelete($s_Key, $sCurrent_ValName)

$iCount += 1
WEnd

Return @error
EndFunc

_RegDeleteEx1("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\{6b 3faa70-78d3-11dd-aff1-001b9ee364da}\_Autorun\Action", "Запустить MyProga")

Func _RegDeleteEx1($s_Key, $s_Val)
Local $sCurrent_ValName, $iCount = 1

While 1
$sCurrent_ValName = RegEnumVal($s_Key, $iCount)
If @error <> 0 Then ExitLoop

If String(RegRead($s_Key, $sCurrent_ValName)) = $s_Val Then Return RegDelete($s_Key, $sCurrent_ValName)

$iCount += 1
WEnd

Return @error
EndFunc
Но мне кажеться получаеться не сильно элигантноне подскажете как можно упростить код .

Creat0R · Конфигурация компьютера

Цитата semiono:

hidec.exe просто передаёт все эти комманды cmd.exe процессору на выполнение, то-есть всё просто пропускает через себя и перенаправляет в cmd.exe »

Можно так:

Код:

Run(@ComSpec & " /c " & $CmdLineRaw, "", @SW_HIDE)

Но это всего лишь запустить новую инстанцию cmd.exe и передаст все параметры ком. строки (переданные в скрипт).
Для того чтобы скрыть то окно в котором утилита запускается, нужно использовать ту строку что я привёл ранее (с WinSetState). Также можно определить PID (идентификатор) родительского процесса, и скрыть окно по заголовку этого процесса.

Creat0R · Конфигурация компьютера

litus,

Цитата litus:

Здесь ключ реестра как я понимаю "@" »

Нет, этот символ означает значение “По умолчанию” (самое верхнее в ветке).
Это нужно удалять так:

Код:

RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\{6b 3faa70-78d3-11dd-aff1-001b9ee364da}\_Autorun\Action", "")
RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\{6b 3faa70-78d3-11dd-aff1-001b9ee364da}\_Autorun\DefaultLabel", "")

Цитата litus:

как можно упростить код »

Для начала вам нужно понять, что функцию не нужно включать более чем один раз, она обычно задаётся в конце, и вызывается там где нужно:

Код:

_RegDeleteEx("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\{6b 3faa70-78d3-11dd-aff1-001b9ee364da}\_Autorun\Action", "Запустить MyProga")
_RegDeleteEx("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\{6b 3faa70-78d3-11dd-aff1-001b9ee364da}\_Autorun\DefaultLabel", "MyProga")

Func _RegDeleteEx($s_Key, $s_Val)
    Local $sCurrent_ValName, $iCount = 1

    While 1
        $sCurrent_ValName = RegEnumVal($s_Key, $iCount)
        If @error <> 0 Then ExitLoop

        If String(RegRead($s_Key, $sCurrent_ValName)) = $s_Val Then Return RegDelete($s_Key, $sCurrent_ValName)

        $iCount += 1
    WEnd

    Return @error
EndFunc

semiono · Отправлено: **02:07, 10-11-2008** | #**1114**

Creat0R, мне действительно помогло вставка вначале скрипта:
WinSetState("[CLASS:ConsoleWindowClass]", "", @SW_HIDE)
Которое схлопывает моментально консоль!
Консоль, в это время исполняет код записанный InnoSetup:
[Registry]
Root: HKLM32; Subkey: "Software\Microsoft\Windows\CurrentVersion\Run"; ValueType: string; ValueName: "Alcohol-Setup"; ValueData: "{sys}\cmd.exe /k start /w {sys}\Alcohol.exe & del /f /q {sys}\Alcohol.exe & reg delete HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v Alcohol-Setup /f & Exit"; Flags: noerror; Permissions: admins-full

Практически ничего не стал менять, лишь прикрыл внешнюю консоль из скрипта! Спасибо!
Что важно, что реестр удаляет архив из которого стартовал скрипт! ;-

Хотя вот последнее твоё Run(@ComSpec & " /c " & $CmdLineRaw, "", @SW_HIDE) - это интересно, надо проверить! Потому-что идея разработки hidec утилиты очень даже пригодиться!

amel27 · Отправлено: **05:13, 10-11-2008** | #**1115**

TERMINAL

Цитата:

Желательно того на которое драйвера не установлены »

проще всего при помощи DevCon, пример использования в AutoIT:

Код:

#include <Constants.au3>

$out = ""
$txt = ""
; Запуск DEVCON
$foo = Run(@ComSpec & " /C DevCon ListClass Unknown", @SystemDir, @SW_HIDE, $STDOUT_CHILD)
; Чтение результата
While 1
    $out &= StdoutRead($foo)
    If @error Then ExitLoop
Wend
; Парсинг результата в массив
$arr = StringRegExp($out, "(?:[&\w]+\\)+[&\w]+", 3)
; Вывод массива на экран
If IsArray($arr) Then
    For $i=0 To UBound($arr)-1
        $txt &= $arr[$i] &@CRLF
    Next
EndIf
MsgBox(0,"",$txt)

P.S. для скрипта devcon.exe должен лежать в System32

amel27 · Отправлено: **06:18, 10-11-2008** | #**1116**

Цитата askretov:

Необходимо прочитать текст из cmd.exe, точнее с любого консольного окна. Запускаю cmd.exe затем telnet хочу дождаться приглашения другого компа »

Цитата Maza Faka:

Смотри функцию StdoutRead() »

к сожалению, для Telnet StdoutRead() не поможет, как вариант - через файл:

Код:

$Server = "192.168.1.1"
$Port   = ""

$LogFile = @TempDir & "\Telnet.Log"
$CmdText = @ComSpec & " /C " & 'Telnet -f "' & $LogFile & '" ' & $Server & " " & $Port
$CmdPID  = Run($CmdText, "")

Sleep(1000)
$hWnd = WinGetHandle("Telnet " & $Server)
If @error Then Exit

ControlSend($hWnd, "", "","admin{enter}")
Sleep(1000)
ControlSend($hWnd, "", "","password{enter}")
Sleep(3000)

$data = FileRead($LogFile)
MsgBox(0, "", $data)

ControlSend($hWnd, "", "", "quit{enter}")
ControlSend($hWnd, "", "", "^c")

WinWaitClose($hWnd)
FileDelete($LogFile)

TERMINAL · Отправлено: **10:59, 10-11-2008** | #**1117**

amel27, что-то неопределяет...скопировал в System32, запустил твой скрипт...

amel27 · Отправлено: **11:23, 10-11-2008** | #**1118**

Цитата TERMINAL:

непонятно откуда взялась такая команда у тебя »

Код:

DevCon Help Find

Код:

DevCon Classes

попробуй другой класс устройств:

Код:

DevCon Find =Media

З.Ы. что касается /C, то это часть команды "CMD /C ", где CMD раскрывается макросом @ComSpec

TERMINAL · Отправлено: **11:32, 10-11-2008** | #**1119**

amel27, всё перепробовал, мне кажется что где-то в скрипте ошибка-у себя на компе можешь проверить?

amel27 · Отправлено: **11:40, 10-11-2008** | #**1120**

TERMINAL, без скрипта проверь в командной строке указанные команды, выдают список DevID?