[Iska]

TERMINAL, в аккурат по этой самой статье Hey, Scripting Guy! Can I Pin a File to the Start Menu by Using a Script? делаете на AutoIt (я, правда, предпочитаю прикреплять не сами исполняемые файлы, а ярлыки из Главного меню).

Какие проблемы с переводом с WSH на AutoIt?

[TERMINAL]

Какие проблемы с переводом с WSH на AutoIt? »

Угадали, и хотелось бы конечно тоже ярлыки создавать...

[Iska]

Угадали »

Что угадал? Я спросил — «какие проблемы?», а Вы отвечаете — «угадал»?!

[TERMINAL]

Iska, проблема с переводом с WSH на AutoIt.

[Iska]

WSH:

читать дальше »

Код:

Option Explicit

Dim objShell
Dim objFolder
Dim objFolderItem
Dim objVerb

Set objShell = WScript.CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("shell:Start Menu")

If Not objFolder Is Nothing Then
	Set objFolderItem = objFolder.ParseName("Программы")
	
	If Not objFolderItem Is Nothing Then
		If objFolderItem.IsFolder Then
			Set objFolder = objFolderItem.GetFolder
			
			If Not objFolder Is Nothing Then
				Set objFolderItem = objFolder.ParseName("Internet Explorer.lnk")
				
				If Not objFolderItem Is Nothing Then
					For Each objVerb In objFolderItem.Verbs
						' &Закрепить в меню "Пуск"
						' &Изъять из меню "Пуск"
						
						If objVerb.Name = "&Закрепить в меню ""Пуск""" Then
							objVerb.DoIt()
						End If
					Next
				Else
					WScript.Echo "Can't parse name [Internet Explorer.lnk]"
				End If
			Else
				WScript.Echo "Can't get folder from item [Программы]"
			End If
		Else
			WScript.Echo "Folder item [Программы] is not a folder"
		End If
	Else
		WScript.Echo "Can't parse name [Программы]"
	End If
Else
	WScript.Echo "Can't get folder [Start Menu]"
End If

WScript.Quit 0

AutoIt:

читать дальше »

Код:

AutoItSetOption("MustDeclareVars", 1)

Local $oShell  = ObjCreate("Shell.Application")
Local $oFolder = $oShell.Namespace("shell:Start Menu")
Local $oFolderItem
Local $oVerb

If Not ObjName($oFolder) = "" Then
	$oFolderItem = $oFolder.ParseName("Программы")

	If Not ObjName($oFolderItem) = "" Then
		If $oFolderItem.IsFolder Then
			$oFolder = $oFolderItem.GetFolder

			If Not ObjName($oFolder) = "" Then
				$oFolderItem = $oFolder.ParseName("Internet Explorer.lnk")

				If Not ObjName($oFolderItem) = "" Then
					For $oVerb In $oFolderItem.Verbs
						; &Закрепить в меню "Пуск"
						; &Изъять из меню "Пуск"

						If $oVerb.Name = "&Закрепить в меню ""Пуск""" Then
							$oVerb.DoIt()
						EndIf
					Next
				Else
					ConsoleWriteError("Can't parse name [Internet Explorer.lnk]" & @CRLF)
				EndIf
			Else
				ConsoleWriteError("Can't get folder from item [Программы]" & @CRLF)
			EndIf
		Else
			ConsoleWriteError("Folder item [Программы] is not a folder" & @CRLF)
		EndIf
	Else
		ConsoleWriteError("Can't parse name [Программы]" & @CRLF)
	EndIf
Else
	ConsoleWriteError("Can't get folder [Start Menu]" & @CRLF)
EndIf

Exit(0)

Полагаю, что на основе этого будет понятнее.

[TERMINAL]

Iska, А обновить сразу можно меню ПУСК, чтобы увидеть изменения?

[Iska]

TERMINAL, я под Windows XP вижу изменения сразу — мы ведь работаем с самим Проводником.

[TERMINAL]

Iska, Ничего не происходит и ошибки не выдаёт-вроде всё правильно, я так понял поиск идёт по самому ПУСК=Все программы?

читать дальше »

AutoItSetOption("MustDeclareVars", 1)

Local $oShell = ObjCreate("Shell.Application")
Local $oFolder = $oShell.Namespace("shell:Start Menu")
Local $oFolderItem
Local $oVerb

If Not ObjName($oFolder) = "" Then
$oFolderItem = $oFolder.ParseName("Программы")

If Not ObjName($oFolderItem) = "" Then
If $oFolderItem.IsFolder Then
$oFolder = $oFolderItem.GetFolder

If Not ObjName($oFolder) = "" Then
$oFolderItem = $oFolder.ParseName("Skype 5.lnk")

If Not ObjName($oFolderItem) = "" Then
For $oVerb In $oFolderItem.Verbs
; &Закрепить в меню "Пуск"
; &Изъять из меню "Пуск"

If $oVerb.Name = '&Закрепить в меню ""Пуск""' Then
$oVerb.DoIt()
EndIf
Next
Else
ConsoleWriteError("Can't parse name [D:\Program Files\Skype\Phone\Skype.exe]" & @CRLF)
EndIf
Else
ConsoleWriteError("Can't get folder from item [Программы]" & @CRLF)
EndIf
Else
ConsoleWriteError("Folder item [Программы] is not a folder" & @CRLF)
EndIf
Else
ConsoleWriteError("Can't parse name [Программы]" & @CRLF)
EndIf
Else
ConsoleWriteError("Can't get folder [Start Menu]" & @CRLF)
EndIf

Exit(0)

[Iska]

TERMINAL, скомпилируйте скрипт для консоли (как CUI) и запустите скомпилированный код непосредственно из командной строки. Если будут ошибки — Вы их увидите. Либо просто сделайте перенаправление потока ошибок в файл:

Код:

"<скомпилированный код>.exe" 2>errors.txt

и посмотрите на его содержимое.

я так понял поиск идёт по самому ПУСК=Все программы? »

Нет. Мы спускаемся по дереву Проводника: «C:\Documents and Settings\UserName\Главное меню» [это "shell:Start Menu"] → «Программы» → «Internet Explorer.lnk». Сия структура справедлива для Windows XP.