[Maza Faka]

HORRIBLE

как в созданное GUI поместить картинку находящююся в интернете

Загрузить в компьютер с помощью функции InetGet(), а затем создать контрол GuiCtrlCreatePic() с использованием этой картинки.

[DImaN!]

У меня есть один наболевший вопрос. как можно сделать так, чтобы изменился размер таскбара с одной в 2 строки причем квикланч был сверху, а открытые приложения снизу?

[TimAlex]

Помогите пожалуста!!!

Мне надо использовать несколько готовых заготовк написаных на VBS. По вот этому примеру получилось:

Код:

 
$id_W=RegRead ("HKLM\SOFTWARE\Microsoft\Internet Explorer\Registration","DigitalProductId")

MsgBox(0,"", _GetKeyVBS($id_W))

Func _GetKeyVBS($key) 

Local $Code = ""
$Code &= 'Function GetKey(rpk)' & @LF
$Code &= 'Const rpkOffset=52' & @LF
$Code &= 'i=28' & @LF
$Code &= 'szPossibleChars="BCDFGHJKMPQRTVWXY2346789"' & @LF
$Code &= 'Do ' & @LF
$Code &= 'dwAccumulator=0 ' & @LF
$Code &= 'j=14' & @LF
$Code &= 'Do ' & @LF
$Code &= 'dwAccumulator=dwAccumulator*256 ' & @LF
$Code &= 'dwAccumulator=rpk(j+rpkOffset)+dwAccumulator' & @LF
$Code &= 'rpk(j+rpkOffset)=(dwAccumulator\24) and 255 ' & @LF
$Code &= 'dwAccumulator=dwAccumulator Mod 24' & @LF
$Code &= 'j=j-1' & @LF
$Code &= 'Loop While j>=0' & @LF
$Code &= 'i=i-1 ' & @LF
$Code &= 'szProductKey=mid(szPossibleChars,dwAccumulator+1,1 )&szProductKey' & @LF
$Code &= 'if (((29-i) Mod 6)=0) and (i<>-1) then ' & @LF
$Code &= 'i=i-1 ' & @LF
$Code &= 'szProductKey="-"&szProductKey' & @LF
$Code &= 'End If' & @LF
$Code &= 'Loop While i>=0' & @LF
$Code &= 'GetKey=szProductKey' & @LF
$Code &= 'End Function' 
MsgBox(0,'', $Code)

Local $VbsObj = ObjCreate("ScriptControl")
If @error Then Return SetError(1, 0, -1) 

$VbsObj.Language = "vbscript"
$VbsObj.AddCode($Code)
Local $Ret = $VbsObj.Run("GetKey ",$key)
If $Ret = 0 Then Return SetError(0, 0, 0)
Return $Ret

EndFunc

но выдет ошибку:

Код:

D:\auto_it\office.au3 (48) : ==> The requested action with this object has failed.:
$VbsObj.Run("GetKey ","")
$VbsObj.Run("GetKey ","")^ ERROR

[amel27]

DImaN!,

как можно сделать так, чтобы изменился размер таскбара с одной в 2 строки причем квикланч был сверху, а открытые приложения снизу? »

а разве возможно, чтобы AppBar-приложения размещались иначе, чем вдоль панели (горизонтально)?

TimAlex,

выдет ошибку»

- VBScript и AutoIT по разному считывают REG_BINARY параметры реестра;
- строковая переменная всегда =0 (смотри закомментированную строку);
- имя функции в "$VbsObj.Run" должно быть без пробелов

Код:

$oWshShell = ObjCreate("WScript.Shell")
$id_W = $oWshShell.RegRead("HKLM\SOFTWARE\Microsoft\Internet Explorer\Registration\DigitalProductId")

MsgBox(0,"", _GetKeyVBS($id_W))

Func _GetKeyVBS($key)
    Local $Code = ""
    $Code &= 'Function GetKey(rpk)' & @LF
    $Code &= 'Const rpkOffset=52' & @LF
    $Code &= 'i=28' & @LF
    $Code &= 'szPossibleChars="BCDFGHJKMPQRTVWXY2346789"' & @LF
    $Code &= 'Do' & @LF
    $Code &= 'dwAccumulator=0' & @LF
    $Code &= 'j=14' & @LF
    $Code &= 'Do' & @LF
    $Code &= 'dwAccumulator=dwAccumulator*256' & @LF
    $Code &= 'dwAccumulator=rpk(j+rpkOffset)+dwAccumulator' & @LF
    $Code &= 'rpk(j+rpkOffset)=(dwAccumulator\24) and 255' & @LF
    $Code &= 'dwAccumulator=dwAccumulator Mod 24' & @LF
    $Code &= 'j=j-1' & @LF
    $Code &= 'Loop While j>=0' & @LF
    $Code &= 'i=i-1' & @LF
    $Code &= 'szProductKey=mid(szPossibleChars,dwAccumulator+1,1 )&szProductKey' & @LF
    $Code &= 'if (((29-i) Mod 6)=0) and (i<>-1) then' & @LF
    $Code &= 'i=i-1' & @LF
    $Code &= 'szProductKey="-"&szProductKey' & @LF
    $Code &= 'End If' & @LF
    $Code &= 'Loop While i>=0' & @LF
    $Code &= 'GetKey=szProductKey' & @LF
    $Code &= 'End Function'

    MsgBox(0,'', $Code)

    Local $VbsObj = ObjCreate("ScriptControl")
    If @error Then Return SetError(1, 0, -1)

    $VbsObj.Language = "vbscript"
    $VbsObj.AddCode($Code)
    Local $Ret = $VbsObj.Run("GetKey",$key)
;   If $Ret = 0 Then Return SetError(0, 0, 0)
    Return $Ret
EndFunc

[DImaN!]

Извеняюсь за непонятную постановку моей проблемы. Я имел в виду каким образ можно сделать так, чтобы панели QuickLaunch и AppBar размещались не как на этом скриншоте:
,
а как на следующем:

если учесть то, что изначально TaskBar отображается только в одну строку и без QuickLainch-а

[amel27]

DImaN!
вот блин, не знал что так можно...

AFAIK программно это не реализовать, так можно менять только "Закрепление" и AutoHide, остальное придется автоматизацией кликов и перетаскиваний, тут основная проблема - определение актуальных координат... Если универсальность не требуется (первоначальные настройки всегда одинаковые), то все просто. Вот скрипт, который я сгенерил в AU3Record из комплекта AutoIT и слегка подредактировал:

Код:

Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)

WinWait("classname=Shell_TrayWnd","")
If Not WinActive("classname=Shell_TrayWnd","") Then WinActivate("classname=Shell_TrayWnd","")
WinWaitActive("classname=Shell_TrayWnd","")

; Расширил таскбар с одной до двух строк
MouseMove(397,2,0)
MouseDown("left")
MouseMove(397,-36,0)
MouseUp("left")

; Пауза для применения новых настроек
Sleep(3000)

; Опустил QuickLaunch вниз
MouseMove(121,32,0)
MouseDown("left")
MouseMove(138,63)
MouseUp("left")

[DImaN!]

amel27, Спасибо огромное! Я немного подкорректировал и получилось именно то, что мне нужно. Только вот можете подсказать, где можно скачать саму тулу AU3Record, потому что у меня при инсталле самого AutoIT3 данного приложения в комплекте не было...

[amel27]

где можно скачать саму тулу AU3Record »

идет в комплекте SciTE

[DImaN!]

Можете подсказать, возможно ли при помощт AutoIt реализовать сохранение выполненных действий в отдельный файл. Т.е. просто пример: написан скрипт, в котором открывается программа и выполняются определенные действия с контролами (клики по контролам, открытия комбо-боксов, ввод текста и т.п.). Нужно чтобы все эти действия сохранялись в отдельный txt (log) файл в виде "действие - контрол"...

[Maza Faka]

DImaN!

написан скрипт, в котором открывается программа

Программа написанная на AutoIt-е?