|
Старший Пользователь
Регистрация: 10.11.2014
Возраст: 49
Город: Усть-Илимск
Регион: 38
Машина: HYUNDAI I30 Рестайлинг
Сообщений: 958
|
seriousstas
Цитата:
|
если пройтись батником (ком.строкой)
|
Все отключал вручную, батником не пользовался.
Цитата:
|
а где твой SUSPEND , можно посмотреть ?
|
1. С перезапуском Икара и Фубара.
PHP код:
#NoTrayIcon
#RequireAdmin
#pragma compile(Icon, "C:\Program Files (x86)\AutoIt3\Icons\MyAutoIt3_Green.ico")
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=y
#AutoIt3Wrapper_Run_AU3Check=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <WindowsConstants.au3>
#include<Process.au3>
; Это команда на сон
Global $PBT_APMSUSPEND = 0x0004
Global $PBT_APMRESUMESUSPEND = 0x0007
$hGUI = GUICreate("Restart", 100, 100, 1, 1)
GUIRegisterMsg($WM_POWERBROADCAST, "Standby")
; Пауза при обычном запуске (без сна)
Sleep(1500)
; Перезапуск служб BlueSoleil при обычном старте
Run('taskkill /f /im BtTray.exe',"", @SW_HIDE)
Run('taskkill /f /im BlueSoleilCS.exe',"", @SW_HIDE)
Run('taskkill /f /im BsHelpCS.exe',"", @SW_HIDE)
Run('taskkill /f /im BsMobileCS.exe',"", @SW_HIDE)
ShellExecute("C:\Program Files (x86)\IVT Corporation\BlueSoleil\BtTray.exe")
While 1
;Циклический перезапуск Wi-Fi:
$connect = _GetNetworkConnect()
If Not $connect Then
_RunDOS('netsh interface set interface "Беспроводная сеть" DISABLE') ; выкл "Local Area Connection"
Sleep(5000)
_RunDOS('netsh interface set interface "Беспроводная сеть" ENABLE') ; вкл "Local Area Connection"
EndIf
;Циклическая проверка прозрачности иконки полноэкранного шаблона FSReal
$winList = WinList("[CLASS:TOverlayForm; W:77; H:73]")
If ($winList[0][0] = 1) Then
$hwnd = $winList[1][1]
WinSetTrans($hWnd, "", 50)
EndIf
Sleep(10000)
WEnd
Func _GetNetworkConnect()
Local Const $NETWORK_ALIVE_LAN = 0x1 ;net card connection
Local $aRet, $iResult
$aRet = DllCall("sensapi.dll", "int", "IsNetworkAlive", "int*", 0)
If BitAND($aRet[1], $NETWORK_ALIVE_LAN) Then $iResult &= "LAN connected" & @LF
Return $iResult
EndFunc
Func Standby($hWnd, $Msg, $wParam, $lParam)
Select
Case $wParam = $PBT_APMSUSPEND
Suspend()
Case $wParam = $PBT_APMRESUMESUSPEND
ResumeSuspend()
Case Else
EndSelect
EndFunc
; Вход в спящий режим
Func Suspend()
WinClose("foobar2000")
WinClose("Vkey_ARDUINO")
WinClose("iCar DS")
Run('taskkill /f /im BtTray.exe',"", @SW_HIDE)
Run('taskkill /f /im BlueSoleilCS.exe',"", @SW_HIDE)
Run('taskkill /f /im BsHelpCS.exe',"", @SW_HIDE)
Run('taskkill /f /im BsMobileCS.exe',"", @SW_HIDE)
EndFunc
; Выход из спящего режима
Func ResumeSuspend()
If (ProcessWaitClose("foobar2000.exe", 5) == 0) Then
ProcessClose("foobar2000.exe")
EndIf
Sleep(100)
If (ProcessWaitClose("iCarDS.exe", 3) == 0) Then
WinClose("iCar DS")
EndIf
If (ProcessWaitClose("Vkey_ARDUINO.exe", 1) == 0) Then
ProcessClose("Vkey_ARDUINO.exe")
EndIf
ShellExecute("d:\Install\FRONTEND\ICar\START\Vkey_ARDUINO.exe")
Sleep(1000)
; Перезапуск BlueSoleilCS
Run('taskkill /f /im BtTray.exe',"", @SW_HIDE)
Run('taskkill /f /im BlueSoleilCS.exe',"", @SW_HIDE)
Run('taskkill /f /im BsHelpCS.exe',"", @SW_HIDE)
Run('taskkill /f /im BsMobileCS.exe',"", @SW_HIDE)
Sleep(200)
ShellExecute("C:\Program Files (x86)\IVT Corporation\BlueSoleil\BtTray.exe")
Sleep(1000)
; Запускаем iCarDS
ShellExecute("C:\Program Files (x86)\TipTop software\iCar DS\iCarDS.exe")
EndFunc
2.Без перезапуска
PHP код:
#NoTrayIcon
#RequireAdmin
#pragma compile(Icon, "C:\Program Files (x86)\AutoIt3\Icons\MyAutoIt3_Green.ico")
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=y
#AutoIt3Wrapper_Run_AU3Check=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <WindowsConstants.au3>
#include<Process.au3>
; Это команда на сон
Global $PBT_APMSUSPEND = 0x0004
Global $PBT_APMRESUMESUSPEND = 0x0007
$hGUI = GUICreate("Restart", 100, 100, 1, 1)
GUIRegisterMsg($WM_POWERBROADCAST, "Standby")
; Пауза при обычном запуске (без сна)
Sleep(1500)
; Перезапуск служб BlueSoleil при обычном старте
Run('taskkill /f /im BtTray.exe',"", @SW_HIDE)
Run('taskkill /f /im BlueSoleilCS.exe',"", @SW_HIDE)
Run('taskkill /f /im BsHelpCS.exe',"", @SW_HIDE)
Run('taskkill /f /im BsMobileCS.exe',"", @SW_HIDE)
ShellExecute("C:\Program Files (x86)\IVT Corporation\BlueSoleil\BtTray.exe")
While 1
;Циклический перезапуск Wi-Fi:
$connect = _GetNetworkConnect()
If Not $connect Then
_RunDOS('netsh interface set interface "Беспроводная сеть" DISABLE') ; выкл "Local Area Connection"
Sleep(5000)
_RunDOS('netsh interface set interface "Беспроводная сеть" ENABLE') ; вкл "Local Area Connection"
EndIf
;Циклическая проверка прозрачности иконки полноэкранного шаблона FSReal
$winList = WinList("[CLASS:TOverlayForm; W:77; H:73]")
If ($winList[0][0] = 1) Then
$hwnd = $winList[1][1]
WinSetTrans($hWnd, "", 50)
EndIf
Sleep(10000)
WEnd
Func _GetNetworkConnect()
Local Const $NETWORK_ALIVE_LAN = 0x1 ;net card connection
Local $aRet, $iResult
$aRet = DllCall("sensapi.dll", "int", "IsNetworkAlive", "int*", 0)
If BitAND($aRet[1], $NETWORK_ALIVE_LAN) Then $iResult &= "LAN connected" & @LF
Return $iResult
EndFunc
Func Standby($hWnd, $Msg, $wParam, $lParam)
Select
Case $wParam = $PBT_APMSUSPEND
Suspend()
Case $wParam = $PBT_APMRESUMESUSPEND
ResumeSuspend()
Case Else
EndSelect
EndFunc
; Вход в спящий режим
Func Suspend()
WinClose("Vkey_ARDUINO")
Run('taskkill /f /im BtTray.exe',"", @SW_HIDE)
Run('taskkill /f /im BlueSoleilCS.exe',"", @SW_HIDE)
Run('taskkill /f /im BsHelpCS.exe',"", @SW_HIDE)
Run('taskkill /f /im BsMobileCS.exe',"", @SW_HIDE)
EndFunc
; Выход из спящего режима
Func ResumeSuspend()
Sleep(100)
If (ProcessWaitClose("Vkey_ARDUINO.exe", 1) == 0) Then
ProcessClose("Vkey_ARDUINO.exe")
EndIf
; Перезапуск Vkey_ARDUINO
Sleep(1000)
ShellExecute("d:\Install\FRONTEND\ICar\START\Vkey_ARDUINO.exe")
; Перезапуск BlueSoleilCS
Run('taskkill /f /im BtTray.exe',"", @SW_HIDE)
Run('taskkill /f /im BlueSoleilCS.exe',"", @SW_HIDE)
Run('taskkill /f /im BsHelpCS.exe',"", @SW_HIDE)
Run('taskkill /f /im BsMobileCS.exe',"", @SW_HIDE)
Sleep(200)
ShellExecute("C:\Program Files (x86)\IVT Corporation\BlueSoleil\BtTray.exe")
EndFunc
__________________
GIGABYTE LGA1150 GA-85N B85,Intel Core i3-4330 3.5GHz 4Mb 2xDDR3-1600,Kingston HyperX 4Gb...USB GPS приемник Locosys LS-23030G.,блок питания M4-ATX
Windows 7-64, iCarDS 1.7.0.60 (лицензия)
Оформления и темы для iCarDS
|