[FunkyByte]

А можно при помощи AutoIt запускать/останавливать службы Windows?

[Maza Faka]

FunkyByte
Пример:

Код:

Run(@ComSpec & ' /c net stop "Диспетчер очереди печати"', @SystemDir, @SW_HIDE) ;останавливаем службу
Run(@ComSpec & ' /c net start "Диспетчер очереди печати"', @SystemDir, @SW_HIDE) ;запускаем службу

[amel27]

FunkyByte

...или через WMI:

Код:

Func _ServiceStart($sService, $sComputer = "localhost")
  Local $objWMI = ObjGet("winmgmts:\\" & $sComputer & "\root\cimv2")
  Local $sQuery = "Select * From Win32_Service Where Name Like '"& $sService &"'"
  Local $iRet, $colItems = $objWMI.ExecQuery($sQuery)
  For $objService In $colItems
    If $objService.State = "Stopped" Then
        $iRet = $objService.StartService($objService.Name)
        If $iRet=0 Then Return True
    ElseIf $objService.State = "Running" Then
        Return True
    EndIf
  Next
  Return False
EndFunc

Func _ServiceStop($sService, $sComputer = "localhost")
  Local $objWMI = ObjGet("winmgmts:\\" & $sComputer & "\root\cimv2")
  Local $sQuery = "Select * From Win32_Service Where Name Like '"& $sService &"'"
  Local $iRet, $colItems = $objWMI.ExecQuery($sQuery)
  For $objService In $colItems
    If $objService.State = "Running" Then
        $iRet = $objService.StopService($objService.Name)
        If $iRet=0 Then Return True
    ElseIf $objService.State = "Stopped" Then
        Return True
    EndIf
  Next
  Return False
EndFunc

[FunkyByte]

Спасибо. Помогло.

[HORRIBLE]

Встала такая проблемка:
Есть 3 файла, называются они lico, func_1, func_2, код простой, так для примера:

lico.au3

посмотреть

PHP код:

#include <GUIConstantsEx.au3>





HotKeySet("{ESC}","term")



GUICreate("", 1000, 700)



$label_for_func_1 = GUICtrlCreateLabel("Sost func_1 ",10,10,60,20)

$label_for_func_2 = GUICtrlCreateLabel("Sost func_2 ",10,50,60,20)



$input_for_func_1 = GUICtrlCreateInput("0",100,10,60,20)

$input_for_func_2 = GUICtrlCreateInput("0",100,50,60,20)



$button_for_func = GUICtrlCreateButton("Turn on func_1 and 2",170,50,150,20)



$label_from_func_1 = GUICtrlCreateLabel("",350,10,100,20)

$label_from_func_2 = GUICtrlCreateLabel("",350,50,100,20)



GUISetState()

 

While 1

         $msg = GUIGetMsg()

         Select

            Case $msg = $GUI_EVENT_CLOSE

                 Exit



            Case $msg = $button_for_func

;                    #include <func two.au3>

;                    #include <func one.au3>

;                    ShellExecute("func one.exe","","","open")

;                    ShellExecute("func two.exe","","","open")

         EndSelect

WEnd 

     

 

func term()

     Exit

 EndFunc 

func_1.au3

посмотреть

PHP код:

while 1



if GUICtrlRead($input_for_func_1) = 1 then

    GUICtrlSetData($label_from_func_1, "1-я задержка 5 с.")

    sleep(5000)    

    GUICtrlSetData($label_from_func_1, "2-я задержка 2 с.")

    sleep(2000)

    GUICtrlSetData($label_from_func_1, "сост. 1")

Else

    GUICtrlSetData($label_from_func_1, "сост. 0")

EndIf

wend 

func_2.au3

посмотреть

PHP код:

while 1 

if GUICtrlRead($input_for_func_2) = 1 then

    GUICtrlSetData($label_from_func_2, "Задержка 10 с.")

    sleep(10000)

    GUICtrlSetData($label_from_func_2, "Сост. 1")

Else

    GUICtrlSetData($label_from_func_2, "Сост. 0")

EndIf

wend 

Смысл работы, как только я нажимаю кнопочку $button_for_func, два файлика func_1, func_2 должны запуститься и висеть в памяти и смотреть, что вписано в $input_for_func_1, $input_for_func_2 и в зависимости от того, что в них вписано выполнять те или иные предписания.

Вроде просто, как мне казалось, а может оно так и есть, я может чего то недопонимаю.

Что я делал, написал событие для кнопки $button_for_func сперва такое: #include <func_1.au3>, #include <func_2.au3>, даже заработало, правда только первый файл, ну тут ясно почему из-за бесконечного цикла...
далее переправил на shellExecute("func_1.exe","","","open"), ShellExecute("func_2.exe","","","open"), нажал на кнопочку все туже и сразу же словил ошибку, переменные без объявления, хотя файлы просто были скомпилированы и в них я ничего не менял!
я попробовал вообще через одно м..то сделать, создал ini и туда записывал, что считывал с $input_for_func_1, $input_for_func_2, а потом файлики func_2 и func_1 считывали из это ini делали, что нужно, записывали в эту же ini далее файл lico считывал из ini что ему пришло и вписывал эти данные куда надо.
Это муторно и медленно работало.

Такая проблема возникла из за того, что func_1 и func_2 реализуют алгоритм работы 2-х устройств, каждое устройство имеет свой алгоритм, свои задерки и так далее, вот и понадобилось создавать отдельные файлы.

Подскажите, как все таки реализовать смысл работы?
Спасибо.

[Рысь]

HORRIBLE, всё просто, на мой взгляд у Вас геморный метод, но какой есть)

Вам нужно лишь добавить в каждую функцию (func_1.au3 и func_2.au3) объявления переменных
func_1.au3 :
Dim $input_for_func_1, $label_from_func_1

В func_2.au3 :
Dim $input_for_func_2, $label_from_func_2

Также советую добавить в func_1.au3 и func_2.au3 такие строчки, только с разными символами, при повторном нажатии на кнопку запуска 2-х ехе программа будет выдавать сообщение о том, что такие процессы уже запущены

if _Singleton("Символы характеризующие первую функцию",1) = 0 Then
MsgBox(16, "Ошибка!", "Программа уже запущена.")
Exit
EndIf

и немного переделать основной скрипт, так будет удобнее, если в основном цикле Вы будете что-то делать:

#include <GUIConstantsEx.au3>
HotKeySet("{ESC}","term")
GUICreate("fgfgfgfgfgfgfgfg", 350, 150)
$label_for_func_1 = GUICtrlCreateLabel("Sost func_1 ",10,10,60,20)
$label_for_func_2 = GUICtrlCreateLabel("Sost func_2 ",10,50,60,20)
$input_for_func_1 = GUICtrlCreateInput("0",100,10,60,20)
$input_for_func_2 = GUICtrlCreateInput("0",100,50,60,20)
$button_for_func = GUICtrlCreateButton("Turn on func_1 and 2",170,50,150,20)
$label_from_func_1 = GUICtrlCreateLabel("",350,10,100,20)
$label_from_func_2 = GUICtrlCreateLabel("",350,50,100,20)
GUISetState()

Opt("GUIOnEventMode", 1) ; Change to OnEvent mode
GUISetOnEvent($GUI_EVENT_CLOSE, "term")
GUICtrlSetOnEvent($button_for_func, "F1")
; таким образом, действия будут происходить лишь при нажатии на кнопки, получается что основной цикл свободен
While 1
WEnd

Func F1()
Run("func_1.exe", "")
Run("func_2.exe", "")
EndFunc

Func term()
Exit
EndFunc

[HORRIBLE]

Рысь, увы, но непомогло ( добавление объявки переменных спасло лишь от ошибки, но не более.
Но за изменение кода спасибо.

[Creat0R]

Смысл работы, как только я нажимаю кнопочку $button_for_func, два файлика func_1, func_2 должны запуститься и висеть в памяти и смотреть, что вписано в $input_for_func_1, $input_for_func_2 и в зависимости от того, что в них вписано выполнять те или иные предписания. »

Только немного непонятно, зачем 2 дополнительных файла тут? В любом случае, чуть ниже три файла, и ещё один, в которм совмещаются все три:

Lico.au3

Код:

#include <GUIConstantsEx.au3>

HotKeySet("{ESC}", "Term")

GUICreate("My App", 1000, 700)

$Label_for_func_1 = GUICtrlCreateLabel("Sost func_1 ", 10, 10, 80, 20)
$Label_for_func_2 = GUICtrlCreateLabel("Sost func_2 ", 10, 50, 80, 20)

$Input_for_func_1 = GUICtrlCreateInput("0", 100, 10, 60, 20)
$Input_for_func_2 = GUICtrlCreateInput("0", 100, 50, 60, 20)

$Button_for_func = GUICtrlCreateButton("Turn on func_1 and 2", 170, 50, 150, 20)

$Label_from_func_1 = GUICtrlCreateLabel("", 350, 10, 100, 20)
$Label_from_func_2 = GUICtrlCreateLabel("", 350, 50, 100, 20)

GUISetState()

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button_for_func
            Run(@AutoItExe & ' /AutoIt3ExecuteScript "' & @ScriptDir & '\Func_1.au3"', @ScriptDir)
            Run(@AutoItExe & ' /AutoIt3ExecuteScript "' & @ScriptDir & '\Func_2.au3"', @ScriptDir)
    EndSwitch
WEnd

Func Term()
    Exit
EndFunc

Func_1.au3

Код:

#NoTrayIcon
$sTitle = "[CLASS:AutoIt v3 GUI;TITLE:My App]"

While 1
    $sInput1_Text = ControlGetText($sTitle, "", "Edit1")

    If $sInput1_Text = 1 Then
        ControlSetText($sTitle, "", "Static3", "1-я задержка 5 с.")
        Sleep(5000)
        ControlSetText($sTitle, "", "Static3", "2-я задержка 2 с.")
        Sleep(2000)
        ControlSetText($sTitle, "", "Static3", "сост. 1")
    Else
        ControlSetText($sTitle, "", "Static3", "сост. 0")
    EndIf

    Sleep(100)
WEnd

Func_2.au3

Код:

$sTitle = "[CLASS:AutoIt v3 GUI;TITLE:My App]"

While 1
    $sInput2_Text = ControlGetText($sTitle, "", "Edit2")

    If $sInput2_Text = 1 Then
        ControlSetText($sTitle, "", "Static4", "Задержка 10 с.")
        Sleep(10000)
        ControlSetText($sTitle, "", "Static4", "Сост. 1")
    Else
        ControlSetText($sTitle, "", "Static4", "Сост. 0")
    EndIf

    Sleep(100)
WEnd

Lico_All.au3

Код:

#include <GUIConstantsEx.au3>

Opt("GUIOnEventMode", 1)
HotKeySet("{ESC}", "_Quit")

Global $iCheckInputs = False
Global $iTimer_1 = -1, $iTimer_2 = -1, $iTimer_3 = -1

$hGUI = GUICreate("My App", 1000, 700)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Main_Events")

$Label_for_func_1 = GUICtrlCreateLabel("Sost func_1 ", 10, 10, 80, 20)
$Label_for_func_2 = GUICtrlCreateLabel("Sost func_2 ", 10, 50, 80, 20)

$Input_for_func_1 = GUICtrlCreateInput("0", 100, 10, 60, 20)
$Input_for_func_2 = GUICtrlCreateInput("0", 100, 50, 60, 20)

$Button_for_func = GUICtrlCreateButton("Turn on func_1 and 2", 170, 50, 150, 20)
GUICtrlSetOnEvent(-1, "_Main_Events")

$Label_from_func_1 = GUICtrlCreateLabel("", 350, 10, 100, 20)
$Label_from_func_2 = GUICtrlCreateLabel("", 350, 50, 100, 20)

GUISetState()

While 1
    _CheckInputs()
    Sleep(1000)
WEnd

Func _Main_Events()
    Switch @GUI_CtrlId
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button_for_func
            $iCheckInputs = Not $iCheckInputs
    EndSwitch
EndFunc

Func _CheckInputs()
    If Not $iCheckInputs Then Return

    ;Func_1.au3
    If GUICtrlRead($Input_for_func_1) = 1 Then
        If $iTimer_1 = -1 Then
            GUICtrlSetData($Label_from_func_1, "1-я задержка 5 с.")
            $iTimer_1 = TimerInit()
        EndIf

        If TimerDiff($iTimer_1) > 5000 Then
            If $iTimer_2 = -1 Then
                GUICtrlSetData($Label_from_func_1, "2-я задержка 2 с.")
                $iTimer_2 = TimerInit()
            EndIf

            If TimerDiff($iTimer_2) > 2000 Then GUICtrlSetData($Label_from_func_1, "сост. 1")

            If TimerDiff($iTimer_1) > 5000 And TimerDiff($iTimer_2) > 2000 Then
                $iTimer_1 = -1
                $iTimer_2 = -1
            EndIf
        EndIf
    Else
        GUICtrlSetData($Label_from_func_1, "сост. 0")
    EndIf

    ;Func_2.au3
    If GUICtrlRead($Input_for_func_2) = 1 Then
        If $iTimer_3 = -1 Then
            GUICtrlSetData($Label_from_func_2, "Задержка 10 с.")
            $iTimer_3 = TimerInit()
        EndIf

        If TimerDiff($iTimer_3) > 10000 Then
            GUICtrlSetData($Label_from_func_2, "Сост. 1")
            $iTimer_3 = -1
        EndIf
    Else
        GUICtrlSetData($Label_from_func_2, "Сост. 0")
    EndIf
EndFunc

Func _Quit()
    Exit
EndFunc

как окрашивать код в цвета Автоита при посте на форуме? »

См. утилиту Au3ToPost .

[HORRIBLE]

Creat0R, еще 2-ва файлика появились из-за незнания,т.к. я не знал как сделать, чтобы команды вополняли с задержкой без использования sleep, конечно догадывался, что наверно можно, даже срашивал тут про таймер в милисекундах, но дальше неполучилось продвинуться, опять таки из-за незнания ).

[shyra1976]

Мужики , кто знает как послать Chr(0x00) через функцию CommSendString и что бы AUTOIT оптеделяла что это "0"?