» AutoIT

Есть такая прога в поставке с Scite с сайта автоита, вроде AU3Record называется.
Работает как раз как ты описал)
ViSiToR
Я так и сделал, когда понял что ещё 1 такой пост и я не смогу в шапке ориентироваться

kpuk

Цитата:

Есть такая прога в поставке с Scite с сайта автоита, вроде AU3Record называется.

Блин, даже и не думал что такое чудо существует, надо бы найти его и сюда в шапку прикрепить

Пожалста вот вам пару тулзей для Autoit:
1. AutoItMacroGenerator - описание в посте от Dmitriy_Kolesnikov
2. Koda - чтото похожее на панель компонентов Delphi. Удобно GUI клепать.
3. ScriptWriter - вариация на №1
4. CodeWizard - нечто простенькое на вариант №2
Всё это тут: http://rapidshare.com/files/32826397/tools.zip

kpuk
Класс, спасибо. Надо бы в шапку это добро поместить, и чтобы ссылка рано или поздно не умерла на рапиде , я перезалил инструменты - AutoIt Tools (1236 Kb).

P.S
Правда Koda немного глючит при попытке перетаскивания окон инструментов, а вот ScriptWriter довольно полезная штука иногда.

ViSiToR
На рапиде не умрёт у меня премиум до августа а там планирую продлить..

kpuk

Цитата:

На рапиде не умрёт у меня премиум до августа

Но всё же мне кажется прямые ссылки удобнее качать

Кстати, я щас перезаливаю отдельно каждый инструмент, думаю не нужно качать всё сразу, а вдруг кому то это всё не нужно, а только что то одно, а также добавлю ещё пару, шапку пока немного обновил, когда всю залью тогда обновлю всё сразу .

Добавлено:
Ну что, шапка теперь сияет и информирует ... продолжение следует....

Мужики, а не лучше ли ScriptPACK из обьявленных здесь скриптов залить. а то лазишь, как...

pom205

Цитата:

а не лучше ли ScriptPACK из обьявленных здесь скриптов залить.

А подробнее можно?

В шапке 3 ссылки на "Filters collections" с "родного" сайта. Я уж и зарегился, и попробовал Offline explorer-ом закачать все zip, au со всех пронумерованных страниц топика. Оказалось, названия скриптов могут дублироваться для разных версий программ, и поскольку ссылки ведут через PHP, пришлось помучиться вручную, но там обьявились куча "вспомогательных" программ и их модулей. Разбираться, что из них имеет более-менее серьёзную полезность для работы с AutoIt надо много времени, но ведь есть же уже испробовавшие всё это люди. Воооот.

Добавлено:
Как то сгруппировать их по признакам и назначению.

pom205

Цитата:

Как то сгруппировать их по признакам и назначению.

Хех, сгрупирируем (или “сгрупируем” правильнее?) их со временем

Всем привет!
Есть вопрос:
Есть MemGetStats - которая показывает сколько оперативной памяти у компютера!
Как сделать так чтобы показывало в МегаБайт?
Подскажите пожалуйста!

Sero

Цитата:

Как сделать так чтобы показывало в МегаБайт?

Код: 1024 byte = 1 kb
1024 kb = 1 mb
1024 mb = 1 gb

ViSiToR
Была такая идея чтобы поделить на 1024
Спасибо за помощь!


Добавлено:
Еще один вопрос на эту тему:
Вот get_hw_caps.dll которая проверяет систему.
Хочу провереть видео память,на этот раз показывает в байтах
Если поделить на 1024 и еще раз на 1024 показывает меньше чем есть!

Вот кусок кода:

Код:
$videomemory = DllCall(@ScriptDir & "\get_hw_caps.dll","int","hwc_GetVidMemLocal")
GUICtrlCreateLabel("Видео память:",20,290)
$videomemory_label = GUICtrlCreateLabel($videomemory[0]/1024/1024,300,290)

Цитата:

Еще один вопрос на эту тему:
Вот get_hw_caps.dll которая проверяет систему.
Хочу провереть видео память,на этот раз показывает в байтах
Если поделить на 1024 и еще раз на 1024 показывает меньше чем есть!

Все! сделал.

А как сделать чтобы GUI обновился каждую секунду?

Sero

Цитата:

как сделать чтобы GUI обновился каждую секунду?

Обновлялся в каком смысле?
если нужно только надпись с данными обновлять, то есть GuiCtrlSetData()...

Способ с обычным циклом:



Код:
$videomemory = DllCall(@ScriptDir & "\get_hw_caps.dll","int","hwc_GetVidMemLocal")
GUICtrlCreateLabel("Видео память:",20,290)
$videomemory_label = GUICtrlCreateLabel($videomemory[0]/1024/1024,300,290)

While 1
Sleep(1000) ;Спим одну секунду
$videomemory = DllCall(@ScriptDir & "\get_hw_caps.dll","int","hwc_GetVidMemLocal")
GUICtrlSetData($videomemory_label, Round($videomemory[0]/1024/1024, 1))
WEnd

Цитата:

Обновлялся в каком смысле?

Сделал Label которая показывает статус оперативной памяти(свободно)
мне нужно чтобы этот label обновился каждую секунду!

Sero

Цитата:

нужно чтобы этот label обновился каждую секунду

См. пример выше (два примера ).

Цитата:

См. пример выше (два примера ).

Все O.K. Спасибо!

И еще один вопрос:
Сделал кнопку(при нажатии создается еще один GUI) - так вот,как создать что то на этот новый GUI? а то все создается на первый GUI.

Sero

Цитата:

,как создать что то на этот новый GUI?

Покажи пример того как создаётся второй гуи, вообще то не должно на первый ссылаться, но на всякий случай, есть функция GuiSwitch(), позволяет “сообщать скрипту” что все “гуивские” действия относятся именно к тому гуи, на который переключает функция GuiSwitch().

ViSiToR

Цитата:

Покажи пример того как создаётся второй гуи

Код:
Func _GUI()
$main2 = GUICreate("О программе", 350, 180, -1, -1, $WS_CAPTION, BitORFunc($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST))
.....
.....
.....
EndFunc
.....

.....

While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
exit
Case $msg = $button
_GUI()
EndSelect
WEnd

Sero
В примере плохо видно где именно переход с одного гуи на второй...

В общем вот пример:


Код:
#include <GuiConstants.au3>

$main1 = GUICreate("Main Gui")

$button = GUICtrlCreateButton("Button", 80, 50)

GUISetState()

While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $button
_GUI()
EndSelect
WEnd

Func _GUI()
$main2 = GUICreate("О программе", 350, 180, -1, -1, $WS_CAPTION, BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST))

$Button2 = GUICtrlCreateButton("Button2", 80, 50)

GUISetState()
EndFunc

ViSiToR
Спасибо! Все понял

И последний вопрос:
Хочу сделать листбокс в котором отоброжается список локальных дисков и свободного места на них. Можно реализовать это?

Код:
#include <GUIConstants.au3>

$Title = "About Info"

$MainLabel = "My program Name"
$CopyRLabel = "Copyright © " & @YEAR & " Company/Author. All rights reserved."

$NameURL1 = "App Web Page"
$URL1 = "http://www.autoitscript.com"
$NameURL2 = "Email"
$URL2 = "mailto:my_email@mail.com"
$NameURL3 = "Some additional link"
$URL3 = "http://personalwebpafe.com"
$LinkColor = 0x0000FF
$BkColor = 0xFFFFFF

$ParentGui = GUICreate('Parent For "About Program" Demo', 200, 100)

$Menu = GUICtrlCreateMenu("Help")
$AboutItem = GUICtrlCreateMenuitem("About...", $Menu)

GUISetState()

While 1
Switch GUIGetMsg()
Case -3
Exit
Case $AboutItem
_AboutGUI($Title, $MainLabel, "Program version: " & @LF & "v1.0", $CopyRLabel, _
$NameURL1, $URL1, $NameURL2, $URL2, $NameURL3, $URL3, $ParentGui, @AutoItExe, $LinkColor, $BkColor, 500, 300)
EndSwitch
WEnd

Func _AboutGUI($Title, $MainLabel, $TextLabel, $CopyRLabel, $NameURL1, $URL1, $NameURL2, $URL2, $NameURL3, $URL3, $Parent=0, $IconFile="", $LinkColor=0x0000FF, $BkColor=0xFFFFFF, $Width=300, $Height=120, $Left=-1, $Top=-1, $Style=-1, $ExStyle=-1)
Local $OldEventOpt = Opt("GUIOnEventMode", 0)
Local $OldRunErrOpt = Opt("RunErrorsFatal", 0)
Local $About_GUI, $LinkTop=120, $About_Msg, $CurInfo
Local $CurIsOnCtrlArr[1]

Local $LinkVisitedColor[4] = [3, $LinkColor, $LinkColor, $LinkColor]
Local $LinkLabel[4]

WinSetState($Parent, "", @SW_DISABLE)

If $ExStyle = -1 Then $ExStyle = ""
$About_GUI = GUICreate($Title, $Width, $Height, $Left, $Top, $Style, 0x00000080+$ExStyle, $Parent)
GUISetBkColor($BkColor)

GUICtrlCreateLabel($MainLabel, 0, 20, $Width, 25, 1)
GUICtrlSetFont(-1, 14)

GUICtrlCreateIcon($IconFile, 0, 10, 20)
GUICtrlSetState(-1, 128)

GUICtrlCreateGraphic(5, 75, $Width-10, 3, $SS_ETCHEDFRAME)

For $i = 1 To 3
$LinkLabel[$i] = GUICtrlCreateLabel(Eval("NameURL" & $i), $Width-150, $LinkTop, 145, 15, 1)
GUICtrlSetCursor(-1, 0)
GUICtrlSetColor(-1, $LinkColor)
GUICtrlSetFont(-1, 9, 400, 0)
GUICtrlSetTip(-1, Eval("URL" & $i))
$LinkTop += 30
Next

GUICtrlCreateLabel($TextLabel, 10, 100, $Width-155, 35)
GUICtrlSetFont(-1, 10, 600, 0, "Tahoma")

GUICtrlCreateLabel($CopyRLabel, 0, $Height-20, $Width, -1, 1)
GUICtrlSetColor(-1, 0x969696)
GUICtrlSetState(-1, 128)

GUISetState(@SW_SHOW, $About_GUI)

While 1
$About_Msg = GUIGetMsg()

Switch $About_Msg
Case -3
ExitLoop
Case $LinkLabel[1], $LinkLabel[2], $LinkLabel[3]
GUISetCursor(0, 1, $About_GUI)
$CurInfo = GUIGetCursorInfo($About_GUI)
If $About_Msg = $LinkLabel[1] Then $i = 1
If $About_Msg = $LinkLabel[2] Then $i = 2
If $About_Msg = $LinkLabel[3] Then $i = 3

While $CurInfo[2] = 1
$CurInfo = GUIGetCursorInfo($About_GUI)
Sleep(10)
WEnd

If $CurInfo[4] = $About_Msg Then
GUISetCursor(-1, 0, $About_GUI)
$LinkVisitedColor[$i] = 0xAC00A9
GUICtrlSetColor($About_Msg, $LinkVisitedColor[$i])
ShellExecute(Eval("URL" & $i))
EndIf
GUISetCursor(-1, 0, $About_GUI)
EndSwitch

Sleep(10)
ControlHover($About_GUI, $LinkLabel[1], 1, $CurIsOnCtrlArr, 0xFF0000, $LinkVisitedColor[1])
ControlHover($About_GUI, $LinkLabel[2], 2, $CurIsOnCtrlArr, 0xFF0000, $LinkVisitedColor[2])
ControlHover($About_GUI, $LinkLabel[3], 3, $CurIsOnCtrlArr, 0xFF0000, $LinkVisitedColor[3])
WEnd
WinSetState($Parent, "", @SW_ENABLE)
GUIDelete($About_GUI)
GUISwitch($Parent)
Opt("GUIOnEventMode", $OldEventOpt)
Opt("RunErrorsFatal", $OldRunErrOpt)
EndFunc

Func ControlHover($hWnd, $CtrlID, $CtrlNum, ByRef $CurIsOnCtrlArr, $HoverColor=0xFF0000, $LinkColor=0x0000FF)
Local $CursorCtrl = GUIGetCursorInfo($hWnd)
ReDim $CurIsOnCtrlArr[UBound($CurIsOnCtrlArr)+1]
If $CursorCtrl[4] = $CtrlID And $CurIsOnCtrlArr[$CtrlNum] = 1 Then
GUICtrlSetFont($CtrlID, 9, 400, 6)
GUICtrlSetColor($CtrlID, $HoverColor)
$CurIsOnCtrlArr[$CtrlNum] = 0
ElseIf $CursorCtrl[4] <> $CtrlID And $CurIsOnCtrlArr[$CtrlNum] = 0 Then
GUICtrlSetFont($CtrlID, 9, 400, 0)
GUICtrlSetColor($CtrlID, $LinkColor)
$CurIsOnCtrlArr[$CtrlNum] = 1
EndIf
EndFunc

ViSiToR
Спасибо за помощь!


Цитата:

Функция (и пример использования) для отображения стильного диалога “О Программе”

Да, красиво!

ViSiToR
Ты собирался выложить скрипт для "разукрашивания" кода на форуме...
Можно его увидеть?

Elroir

Цитата:

Можно его увидеть?

Конечно...

В системе должен для этого быть установлен (корректно) AutoIt как минимум версии 3.2.2.0, и содержащий адаптированный под AutoIt редактор SciTE (через него делается конвертация тегов (в Xml формат)).

Вот ссылка на страничку закачки (сегодня только выложил) - http://creator-lab.ucoz.ru/load/3-1-0-18

Скриншоты:

ViSiToR
Спасибо! Буду разбираться...
Я хочу код батников так выкладывать

Elroir

Цитата:

Спасибо! Буду разбираться...

Наздоровье
А что там разбираться? указал файл, или зажал обе галки вверху, и вводи код, потом “Выполнить”, и кнопка “Копировать”.
Всё, можешь смело вставлять код в форму ответа, смотри не теряйся в многочисленных строках получившейся каши
Кстати, код в результате уже обрамлён тегами [cоde][/cоde], поэтому эти теги не нужно самому добавлять (я так пару раз забывал об этом).


Цитата:

Я хочу код батников так выкладывать

Не получится, а точнее получится, но не то.... подсветка синтаксиса расчитана на код AutoIt'а, будет не совсем в тему

ViSiToR

Цитата:

Не получится, а точнее получится, но не то.... подсветка синтаксиса расчитана на код AutoIt'а, будет не совсем в тему

Это я понял
Я поэтому и хочу в коде разобраться - посмотреть, как переделать под батники.
SciTE же подсвечивает и синтаксис батников тоже.

Elroir

Цитата:

как переделать под батники.

В принципе нужно выходной временный файл задать как батник.... но также придётся и стили подбирать.

Вот для начала переделал выходные файлы под батник - BatToPost