[решено] Автоматизация старт/стоп при неудачном ping-овании

Iska · Отправлено: **16:55, 02-06-2010** | #2

nyevgen, что изменилось за полдня по сравнению с этим?

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

nyevgen,
Попробуйте так, у меня работает. Можно поменять

Код:

If @IPAddress2 = "0.0.0.0" Then

на

Код:

If Ping("Вторая машина") = 0 Then

Код:

#NoTrayIcon

Opt("TrayMenuMode", 1)

Global $i = 0
Global $sRegRun = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run"

;проверка и запись себя в автозагрузку
If RegRead($sRegRun, @ScriptName) = "" Or RegRead($sRegRun, @ScriptName) <> @ScriptFullPath Then
    RegWrite($sRegRun, @ScriptName, "REG_SZ", @ScriptFullPath)
EndIf

Global $exititem = TrayCreateItem("Выход")
TrayCreateItem("")
TraySetState()

While 1
    $msg = TrayGetMsg()
    Select
        Case $msg = $exititem
            Exit
    EndSelect

    $i += 1
    If $i = 1000 Then ;прошло 10 секунд
        If @IPAddress2 = "0.0.0.0" Then ;нет второй машины в сети.
            If ProcessExists("Ваш процесс.exe") Then ProcessClose("Ваш процесс.exe");если есть процесс, то закрываем его.
        Else ;есть вторая машина в сети
            If Not ProcessExists("Ваш процесс.exe") Then Run("Путь к Вашему\Процессу\Ваш процесс.exe");если нет процесса, запускаем его.
            ;что у Вас за процесс, я не знаю, может он по другому запускается.
        EndIf
        $i = 0 ;обнуляем счетчик
    EndIf

    Sleep(10)
WEnd

Цитата Iska:

что изменилось за полдня по сравнению с этим?

Может nyevgen не на VBScript код хочет, а на AutoIt.

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

Цитата Iska:

nyevgen, что изменилось за полдня по сравнению с этим? »

На второй машине сидит пользователь, который вообще мало что в этом понимает. Я ему хочу собрать на Autoit!, чтоб был просто файл *.exe для автозагрузки и в трее будет отображаться. Да и мне удобнее - через radmin к нему зашел - проверил, без его ведома.

Цитата madmasles:

Попробуйте так, у меня работает. Можно поменять »

Спасибо. Попробую. Дело еще в том что она работает как служба, и если я убиваю процесс - исчезает только иконка в трее, а служба продолжает работать и ограничивать. Какой командой старт/запуск именно службы?

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

nyevgen,
У меня так службы включаются - выключаются:

Код:

; 1-й вариант:
Run(@ComSpec & " /C sc start служба", "", @SW_HIDE)
Run(@ComSpec & " /C sc stop служба", "", @SW_HIDE)
; 2-й вариант:
; если название службы из двух слов (с пробелом), то надо так ""Ваша служба""
RunWait(@ComSpec & " /C net start ""Ваша служба""", "", @SW_HIDE)
RunWait(@ComSpec & " /C net stop ""Ваша служба""", "", @SW_HIDE)

Если не будет работать из под пользователя не администратора, то можно службу на него перерегистрировать.

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

Цитата madmasles:

If Ping("Вторая машина") = 0 Then »

вот этот вариант заработал.

Цитата madmasles:

У меня так службы включаются - выключаются: »

заработал первый вариант.

Все заработало! Спасибо огромное!

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

Можно еще вопросик. Контекстное меню сделать-сделал. Как сделать пункт "Ввод IP адреса" пингуемой машины так, чтобы выскакивало окошко с кнопками Ок и Отмена для ввода ip адреса?
Зараннее спасибо!

FlatX007 · Отправлено: **18:42, 03-06-2010** | #8

Код:

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiIPAddress.au3>
#include <WindowsConstants.au3>

$nForm = GUICreate("", 207, 102, 731, 366)
$hIPAddress = _GUICtrlIpAddress_Create($nForm, 32, 8, 130, 21)
;~ _GUICtrlIpAddress_Set($hIPAddress, "0.0.0.0")
$Button1 = GUICtrlCreateButton("OK", 120, 56, 75, 25, 0)
$Button2 = GUICtrlCreateButton("Cancel", 32, 56, 75, 25, 0)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE, $Button2
            Exit
        Case $Button1
            MsgBox (4160, "Information", "IP Address: " & _GUICtrlIpAddress_Get($hIPAddress))
            Exit

    EndSwitch
WEnd

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

Подскажите, что я делаю не так??? Ну не силен я в этом. Нужно чтоб в контекстном меню был пункт "Смена IP" - это я сделал. А как сделать чтоб выскакивало "это самое окно" и потом вбивался новый IP в пинговании???

PHP код:


;меню скрипта - кнопка Выход и кнопка Смена IP

Global $exititem = TrayCreateItem("Выход")

TraySetState()

TrayCreateItem("")

Global $nForm = TrayCreateItem("Смена IP")

TraySetIcon("shell32.dll",156)



While 1

    $msg = TrayGetMsg()

    Select

    Case $msg = $exititem

    Exit

EndSelect



#include <ButtonConstants.au3>

#include <GUIConstantsEx.au3>

#include <GuiIPAddress.au3>

#include <WindowsConstants.au3>



$nForm = GUICreate("", 207, 102, 731, 366)

$hIPAddress = _GUICtrlIpAddress_Create($nForm, 32, 8, 130, 21)

_GUICtrlIpAddress_Set($hIPAddress, "0.0.0.0")

$Button1 = GUICtrlCreateButton("OK", 120, 56, 75, 25, 0)

$Button2 = GUICtrlCreateButton("Cancel", 32, 56, 75, 25, 0)

GUISetState(@SW_SHOW)



While 2

    $nMsg = GUIGetMsg()

    Switch $nMsg

        Case $GUI_EVENT_CLOSE, $Button2

            Exit

        Case $Button1

            MsgBox (4160, "Information", "IP Address: " & _GUICtrlIpAddress_Get($hIPAddress))

            Exit

    EndSwitch

FlatX007 · Отправлено: **23:36, 03-06-2010** | #10

Код:

#include <GUIConstantsEx.au3>
#include <Constants.au3>
#include <GuiIPAddress.au3>
#include <WindowsConstants.au3>

Global $nForm, $hIPAddress, $sLastIP
Global $START_IP = "127.0.0.1"

Opt("TrayMenuMode", 1)

$hIp = TrayCreateItem("IP Ping")
TrayCreateItem("")
$hExit = TrayCreateItem("Exit")
TraySetState()

$start = 0
While 1
    $msg = TrayGetMsg()
    Switch $msg
        Case $hIp
            TrayItemSetState($hIp, $TRAY_UNCHECKED + $TRAY_DISABLE)
            TrayItemSetState($hExit, $TRAY_DISABLE)
            $sIP = _GuiCreate()
            If Not (@error) Then MsgBox(0, "", 'IP - ' & $sIP)
            TrayItemSetState($hIp, $TRAY_ENABLE)
            TrayItemSetState($hExit, $TRAY_ENABLE)

        Case $hExit
            Exit

    EndSwitch
WEnd

Func _GuiCreate()

    $nForm = GUICreate("", 223, 102, -1, -1, BitOR($WS_SYSMENU, $WS_CAPTION, $WS_POPUP, $WS_POPUPWINDOW, $WS_BORDER, $WS_CLIPSIBLINGS), BitOR($WS_EX_TOPMOST, $WS_EX_WINDOWEDGE))
    $hIPAddress = _GUICtrlIpAddress_Create($nForm, 24, 16, 162, 21)
    If Not $sLastIP Then
        _GUICtrlIpAddress_Set($hIPAddress, $START_IP)
    Else
        _GUICtrlIpAddress_Set($hIPAddress, $sLastIP)
    EndIf
    $Button1 = GUICtrlCreateButton("Ok", 144, 64, 43, 25)
    $Button2 = GUICtrlCreateButton("Cancel", 64, 64, 75, 25)

    GUISetState(@SW_SHOW, $nForm)

    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE, $Button2
                GUIDelete($nForm)
                Return SetError(1, 0, 0)
            Case $Button1
                $sLastIP = _GUICtrlIpAddress_Get($hIPAddress)
                GUIDelete($nForm)
                Return $sLastIP
        EndSwitch
    WEnd

EndFunc   ;==>_GuiCreate