Beiträge von DeepRed92

#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=Text Document.ico
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Description=iTunes lyric autoscroller
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=Copyright © 2012 Burak Keskin
#AutoIt3Wrapper_Res_Field=E-Mail|[email='mail@burakkeskin.de'][/email]
#AutoIt3Wrapper_Res_Field=CompanyName|1.0.0.0
#AutoIt3Wrapper_Res_Field=InternalName|LySc
#AutoIt3Wrapper_Res_Field=Comments|
#AutoIt3Wrapper_Res_Field=OriginalFilename|lysc.exe
#AutoIt3Wrapper_Res_Field=ProductName|Lyric Scroller
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.8.1
Author: myName

Script Function:
Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

#include <include/iTunes.au3>
#include <Array.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIEdit.au3>
#include <ButtonConstants.au3>
#include <GUIRichEdit.au3>

Opt('GUIOnEventMode', 1)

Local $aOldSongInfo[3] = ['', '', '']
Local $sTimer = 0
Local $iCount = 1
Local $bLyricExists = False
Local $sScrollTimer = 0
Local $aScrollEvents = 0
Local $iScrollCounter = 1
Local $iTimerLast = 0

_iTunes_Start()

$hGUI = GUICreate("LySc © 2012 Burak Keskin", 720, 188)
GUISetOnEvent($GUI_EVENT_CLOSE, '_closeProgram')
$hLyricBox = _GUICtrlRichEdit_Create($hGUI, '', 8, 8, 705, 135, BitOR($ES_MULTILINE, $ES_CENTER, $WS_VSCROLL, $ES_READONLY))

GUICtrlSetFont(-1, 14, 400, 0, "Calibri")
GUICtrlSetData(-1, "Please wait...")
$hScroll = GUICtrlCreateButton("Lyric autoscroll", 616, 150, 99, 25, $BS_DEFPUSHBUTTON)
GUICtrlSetFont(-1, 10, 400, 0, "Calibri")
GUICtrlSetOnEvent(-1, '_LyricScrollSet')
$hStatus = GUICtrlCreateLabel("No autoscoll information found!", 8, 160, 250, 19)
GUICtrlSetFont(-1, 10, 400, 0, "Calibri")
GUISetState(@SW_SHOW)

Local $sMark = GUICreate('', 687, 20, 8, 65, $WS_POPUP, $WS_EX_MDICHILD, $hGUI)
GUISetBkColor(0x00FF00, $sMark)
WinSetTrans($sMark, '', 80)
GUISetState(@SW_SHOW, $sMark)

_setCurrentSong()

AdlibRegister('_setCurrentSong', 500)
AdlibRegister('_autoScroll', 10)

While 1
Sleep(50)
WEnd

Func _autoScroll()
If Not $bLyricExists Then Return
If IsArray($aScrollEvents) Then
If $aScrollEvents[0][0] < $iScrollCounter Then Return
If Round(TimerDiff($sScrollTimer), 0) >= $aScrollEvents[$iScrollCounter][1] Then
_GUICtrlEdit_Scroll($hLyricBox, 1)
$iScrollCounter += 1
EndIf
Else
$aScrollEvents = IniReadSection(@ScriptDir & '\lyrics\' & _createFileName($aOldSongInfo[0] & ' - ' & $aOldSongInfo[1] & ' - ' & $aOldSongInfo[2]) & '.ini', 'events')
EndIf
EndFunc ;==>_autoScroll

Func _LyricScrollSet()
_GUICtrlEdit_Scroll($hLyricBox, 1)
Local $iTimer = Round(TimerDiff($sTimer), 0)

If ($iTimer - $iTimerLast) <= 300 Then ;Doppelklick bedeutet Zeile überspringen!
$iTimer = $iTimerLast
EndIf

IniWrite(@ScriptDir & '\lyrics\' & _createFileName($aOldSongInfo[0] & ' - ' & $aOldSongInfo[1] & ' - ' & $aOldSongInfo[2]) & '.ini', 'events', 'event' & $iCount, $iTimer)
$iTimerLast = $iTimer
$iCount += 1
EndFunc ;==>_LyricScrollSet

Func _createFileName($sName)
$sName = StringReplace($sName, '\', '')
$sName = StringReplace($sName, '/', '')
$sName = StringReplace($sName, ':', '')
$sName = StringReplace($sName, '*', '')
$sName = StringReplace($sName, '?', '')
$sName = StringReplace($sName, '"', '')
$sName = StringReplace($sName, '<', '')
$sName = StringReplace($sName, '>', '')
$sName = StringReplace($sName, '|', '')
Return $sName
EndFunc ;==>_createFileName

Func _setCurrentSong()
Local $aSongInfo = Execute('_iTunes_Current_GetInfo()')

If Not IsArray($aSongInfo) Then Return

If $aOldSongInfo[0] <> $aSongInfo[2] Or $aOldSongInfo[1] <> $aSongInfo[0] Or $aOldSongInfo[2] <> $aSongInfo[1] Then
Local $sLyric = _iTunes_Current_LyricsGet()
If $sLyric <> '0' Then
_GUICtrlRichEdit_SetText($hLyricBox, _convertTextToRtf($sLyric))
_GUICtrlRichEdit_SetScrollPos($hLyricBox, 0, 0)
If FileExists(@ScriptDir & '\lyrics\' & _createFileName($aSongInfo[2] & ' - ' & $aSongInfo[0] & ' - ' & $aSongInfo[1]) & '.ini') Then
GUICtrlSetData($hStatus, 'Autoscroll information found! :)')
$bLyricExists = True
$sScrollTimer = 0
$sScrollTimer = TimerInit()
$aScrollEvents = 0
$iScrollCounter = 1
Else
GUICtrlSetData($hStatus, 'No autoscoll information found!')
$bLyricExists = False
EndIf

$iCount = 1
$sTimer = 0
$sTimer = TimerInit()
Else
_GUICtrlRichEdit_SetText($hLyricBox, _convertTextToRtf('No Lyrics found! :/'))
_GUICtrlRichEdit_SetScrollPos($hLyricBox, 0, 0)
EndIf
$aOldSongInfo[0] = $aSongInfo[2]
$aOldSongInfo[1] = $aSongInfo[0]
$aOldSongInfo[2] = $aSongInfo[1]
EndIf
EndFunc ;==>_setCurrentSong

Func _closeProgram()
Exit
EndFunc ;==>_closeProgram

Func _convertTextToRtf($sText)
Local $sSplitText = StringSplit($sText, @LF)
Local $sRTF = '{\rtf1\ansi\ansicpg1252\deff0\deflang1031{\fonttbl{\f0\fnil\fcharset0 Calibri;}}' & @LF & _
'{\*\generator Msftedit 5.41.21.2510;}\viewkind4\uc1\pard\sl276\slmult1\qc\lang7\f0\fs28\par\par ' ;\par\par wegen Markierung

For $i = 1 To $sSplitText[0]
$sRTF &= $sSplitText[$i] & '\par' & @LF
Next

$sRTF &= '\par\par' ;\par\par wegen markierung
$sRTF &= '}'

Return $sRTF
EndFunc ;==>_convertTextToRtf

Local $oWMISink, $sData

_MonitorUSBDevices($oWMISink)
If @error Then Exit ConsoleWrite("! Error: " & @error & @LF)

While 1
Sleep(100)
WEnd

Func SINK_OnObjectReady($objLatestEvent, $objAsyncContext)
#forceref $objAsyncContext
Switch $objLatestEvent.Path_.Class
Case "__InstanceCreationEvent"
If (Execute("$objLatestEvent.TargetInstance.PNPDeviceID") == "USB\VID_0421&PID_0154\xxxxxxxxxxxxxxx") Then
If Not ProcessExists('NokiaSuite.exe') Then Run('C:\Program Files (x86)\Nokia\Nokia Suite\NokiaSuite.exe -tray')
EndIf
Case "__InstanceDeletionEvent"
If (Execute("$objLatestEvent.TargetInstance.PNPDeviceID") == "USB\VID_0421&PID_0154\xxxxxxxxxxxxxxx") Then
If ProcessExists('NokiaSuite.exe') Then ProcessClose('NokiaSuite.exe')
EndIf
EndSwitch
EndFunc ;==>SINK_OnObjectReady

Func _MonitorUSBDevices(ByRef $oObj)
$oObj = ObjCreate("WbemScripting.SWbemSink")
If @error Or Not IsObj($oObj) Then Return SetError(1, 0, -1)
ObjEvent($oObj, "SINK_")
If @error Then Return SetError(2, 0, -1)
Local $Obj_WMIService = ObjGet('winmgmts:\\localhost\root\cimv2')
If @error Or Not IsObj($oObj) Then Return SetError(3, 0, -1)
$Obj_WMIService.ExecNotificationQueryAsync($oWMISink, "SELECT TargetInstance FROM __InstanceOperationEvent WITHIN 1 WHERE TargetInstance ISA 'Win32_PnPEntity'")
EndFunc ;==>_MonitorUSBDevices

Func _close()
Exit
EndFunc

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

Global $sDeviceProperty = "Name" ;Caption, Description, DeviceID, Name, PNPDeviceID
Global $sUSBDevice = "Nokia 5800 XpressMusic USB Serial Port (COM3)" ;property value for Caption, Description, DeviceID, Name or PNPDeviceID

Global $fDeviceActive = _FindUSBDevice($sDeviceProperty) ;initialize variable with device state. global var prevents retriggering by other device insertion/removal
ConsoleWrite($fDeviceActive & @LF)
exit
;~ If $fDeviceActive = -1 Then ConsoleWrite("! Error finding device: " & @error & @LF)

ConsoleWrite("> Monitoring - Press ESC to Exit: " & @LF)

_Main()

Func _Main()
Local Const $WM_DEVICE_CHANGE = 0x0219
GUICreate("") ;dummy gui for receiving window messaging
GUIRegisterMsg($WM_DEVICE_CHANGE, "_WM_DEVICE_CHANGE")
While 1
Sleep(1000)
WEnd
EndFunc ;==>_Main

Func _Exit()
Exit
EndFunc ;==>_Exit

Func _WM_DEVICE_CHANGE($hWnd, $Msg, $wParam, $lParam)
#forceref $hWnd, $Msg, $wParam, $lParam
Local Const $DBT_DEVNODES_CHANGED = 0x00000007
If $wParam = $DBT_DEVNODES_CHANGED Then
Switch _FindUSBDevice($sDeviceProperty)
Case 1
If Not $fDeviceActive Then ;check current state buffer to prevent events from other usb devices
$fDeviceActive = True
ConsoleWrite("+ Device Connected" & @LF)
EndIf
Case 0
If $fDeviceActive Then ;check current state buffer to prevent events from other usb devices
$fDeviceActive = False
ConsoleWrite("! Device Disconnected" & @LF)
EndIf
Case -1
ConsoleWrite("! WMI Error: " & @error & @LF)
EndSwitch
EndIf
Return "GUI_RUNDEFMSG"
EndFunc ;==>_WM_DEVICE_CHANGE

Func _FindUSBDevice($sProperty = "*", $strComputer = ".")
Local $objWMIService = ObjGet("winmgmts:" & $strComputer & "rootcimv2")
If @error Then Return SetError(1, 0, -1)
Local $colDevices = $objWMIService.ExecQuery("Select Dependent From Win32_USBControllerDevice") ;Select Dependent instead of Select * - limit items in collection to speed up response slightly
If Not IsObj($colDevices) Then Return SetError(2, 0, -1)
Local $arrDeviceNames, $colUSBDevices
For $objDevice In $colDevices
$arrDeviceNames = StringSplit(StringReplace($objDevice.Dependent, Chr(34), ""), "=", 2)
If @error Or UBound($arrDeviceNames) <> 2 Then Return SetError(3, 0, -1)
$colUSBDevices = $objWMIService.ExecQuery("Select " & $sProperty & " From Win32_PnPEntity Where DeviceID = '" & $arrDeviceNames[1] & "'");Select $sProperty instead of Select * - limit items in collection to speed up response slightly
If Not IsObj($colUSBDevices) Then Return SetError(4, 0, -1)
For $objUSBDevice In $colUSBDevices
;ConsoleWrite("USB Description: " & Execute("$objUSBDevice." & $sProperty) & @LF)
If (Execute("$objUSBDevice." & $sProperty) == $sUSBDevice) Then Return 1 ;device found
If @error Then Return SetError(5, 0, -1)
Next
Next
Return 0 ;device not found
EndFunc ;==>_FindUSBDevice

Func _Test($strComputer = ".")
;use to find your USB device WMI property name and value, then copy/paste value to $sUSBDevice and property name to $sDeviceProperty
Local $objWMIService = ObjGet("winmgmts:" & $strComputer & "rootcimv2")
Local $colDevices = $objWMIService.ExecQuery("Select Dependent From Win32_USBControllerDevice")
Local $arrDeviceNames, $colUSBDevices, $Output

For $objDevice In $colDevices
$arrDeviceNames = StringSplit(StringReplace($objDevice.Dependent, Chr(34), ""), "=", 2)
$colUSBDevices = $objWMIService.ExecQuery("Select * From Win32_PnPEntity Where DeviceID = '" & $arrDeviceNames[1] & "'")

For $objItem In $colUSBDevices ;properties that usually return no value or are not needed are commented
;$Output &= "Availability: " & $objItem.Availability & @CRLF
$Output &= "Caption: " & $objItem.Caption & @CRLF
$Output &= "Description: " & $objItem.Description & @CRLF
$Output &= "Name: " & $objItem.Name & @CRLF
$Output &= "Manufacturer: " & $objItem.Manufacturer & @CRLF
$Output &= "ClassGuid: " & $objItem.ClassGuid & @CRLF
;$Output &= "ConfigManagerErrorCode: " & $objItem.ConfigManagerErrorCode & @CRLF
;$Output &= "ConfigManagerUserConfig: " & $objItem.ConfigManagerUserConfig & @CRLF
;$Output &= "CreationClassName: " & $objItem.CreationClassName & @CRLF
$Output &= "DeviceID: " & $objItem.DeviceID & @CRLF
;$Output &= "ErrorCleared: " & $objItem.ErrorCleared & @CRLF
;$Output &= "ErrorDescription: " & $objItem.ErrorDescription & @CRLF
;$Output &= "InstallDate: " & WMIDateStringToDate($objItem.InstallDate) & @CRLF
;$Output &= "LastErrorCode: " & $objItem.LastErrorCode & @CRLF
$Output &= "PNPDeviceID: " & $objItem.PNPDeviceID & @CRLF
$strPowerManagementCapabilities = $objItem.PowerManagementCapabilities(0)
;$Output &= "PowerManagementCapabilities: " & $strPowerManagementCapabilities & @CRLF
;$Output &= "PowerManagementSupported: " & $objItem.PowerManagementSupported & @CRLF
$Output &= "Service: " & $objItem.Service & @CRLF
$Output &= "Status: " & $objItem.Status & @CRLF
;$Output &= "StatusInfo: " & $objItem.StatusInfo & @CRLF
;$Output &= "SystemCreationClassName: " & $objItem.SystemCreationClassName & @CRLF
;$Output &= "SystemName: " & $objItem.SystemName & @CRLF
ConsoleWrite("+ " & $Output & @LF) ;use to find your device name, then copy/paste to $sUSBDevice declaration
$Output = ""
Next
Next
EndFunc ;==>_Test

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.8.1
Author: Burak Keskin

Script Function:
Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

#include <class\AutoItObject.au3>
#include <class\iTunes.au3>
#include <class\mainGUI.au3>
#include <class\random.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#include <Array.au3>

_AutoItObject_Startup()
_GDIPlus_Startup()

Opt('GUIOnEventMode', 1)

;Objects
Local $mainGUI = _new_mainGUI()
Local $iTunes = _new_iTunes()
Local $random = _new_Random()
;Vars
Local $iWidth = @DesktopWidth
Local $iHeight = @DesktopHeight
Local $aOldSong[3]
Local $hGraphic, $hImage, $iColor = 0xFF000000
Local $sTempFile = @TempDir & '\' & $random.genTmpName()

$iTunes.start()

#region mainGUI
$mainGUI.create()
$mainGUI.setEvent($GUI_EVENT_CLOSE, '_exit')
$mainGUI.setEvent($GUI_EVENT_PRIMARYDOWN, '_clickedLeftDown')
$mainGUI.setEvent($GUI_EVENT_SECONDARYDOWN, '_clickedRightDown')
$mainGUI.setState(@SW_SHOW)
#endregion mainGUI

_setCurrentInfo()
AdlibRegister('_setCurrentInfo', 300)

While 1
Sleep(50)
WEnd

Func _setCurrentInfo()
Local $aSongInfo = $iTunes.curGetInfo()

If Not IsArray($aSongInfo) Or $aSongInfo[1] = '' Or _
$aOldSong[0] == $aSongInfo[0] Or $aOldSong[1] == $aSongInfo[1] Or $aOldSong[2] == $aSongInfo[2] Then Return 0

_GDIPlus_ImageDispose($hImage)

FileDelete($sTempFile)

$iTunes.curCoverGet($sTempFile)

$hGraphic = _GDIPlus_GraphicsCreateFromHWND(HWnd($mainGUI.getGUIHandle))
_GDIPlus_GraphicsClear($hGraphic, $iColor)

$hImage = _GDIPlus_ImageLoadFromFile($sTempFile)
_GDIPlus_GraphicsDrawImageRect($hGraphic, $hImage, 0, 0, 2, 2) ;???????
$iColor = _GDIPlus_GetPixel($hImage, 5, 5)
_GDIPlus_GraphicsClear($hGraphic, $iColor)

_GDIPlus_GraphicsDrawImageRect($hGraphic, $hImage, ($iWidth - $iHeight) / 2, 0, $iHeight, $iHeight)

$aOldSong[0] = $aSongInfo[0] ;Album
$aOldSong[1] = $aSongInfo[1] ;Artist
$aOldSong[2] = $aSongInfo[2] ;Name
EndFunc

Func _clickedLeftDown()
$iTunes.next()
EndFunc

Func _clickedRightDown()
$iTunes.prev()
EndFunc

Func _exit()
Exit
EndFunc

Func _GDIPlus_GetPixel($hBitmap, $X, $Y)
Local $result = DllCall($ghGDIPDLL, "int", "GdipBitmapGetPixel", "ptr", $hBitmap, "int", $X, "int", $Y, "dword*", 0)
If @error Then Return SetError(1, 0, 0)
Return SetError($result[0], 1, $result[4])
EndFunc ;==>_GDIPlus_GetPixel

Local $ziel_ip = "192.168.2.1"
Local $antwort = 0
Local $letzte_antwort = 0

_log("Pinger gestartet")

While True

Sleep(100)

$error = _ping($ziel_ip)

If $error > 0 AND $letzte_antwort == 0 Then
$letzte_antwort = 1
_log($ziel_ip & " erreichbar.")
ElseIf $error < 1 AND $letzte_antwort == 1 Then
$letzte_antwort = 0
_log($ziel_ip & " nicht erreichbar!")
EndIf

WEnd

Func _ping($ziel_ip = "192.168.2.1")
return ping($ziel_ip, 100)
EndFunc

Func _log($text = "")
FileWrite("C:\pinglog.txt", "[" & @MDAY & "." & @MON & "." & @YEAR & " - " & @HOUR & ":" & @MIN & ":" & @SEC & "] " & $text & @CRLF)
EndFunc

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Form1", 112, 116, 192, 124)
$Label1 = GUICtrlCreateLabel("Klick", 32, 32, 44, 17)
$Label2 = GUICtrlCreateLabel("Klick", 32, 64, 44, 17)
GUISetState(@SW_SHOW)

Global $iCounter1 = 5, $iCounter2 = 5

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Label1
AdlibRegister("deine_counter_1", 1000)
$iCounter1 = 5
$iCounter2 = 5
Case $Label2
AdlibRegister("deine_counter_2", 1000)
$iCounter1 = 5
$iCounter2 = 5
EndSwitch
WEnd

Func deine_counter_1()
If $iCounter1 >= 0 Then
GUICtrlSetData($Label1, $iCounter1)
$iCounter1 -= 1
Else
AdlibUnRegister("deine_counter_1")
EndIf
EndFunc ;==>deine_counter_1

Func deine_counter_2()
If $iCounter2 >= 0 Then
GUICtrlSetData($Label2, $iCounter2)
$iCounter2 -= 1
Else
AdlibUnRegister("deine_counter_2")
EndIf
EndFunc ;==>deine_counter_2

Global $networkadapter[1][2]

_GetNetworkadapterInf()
If _getMac() <> 'deineMACAdresse' Then Exit

Func _getMac() ;Die erste Mac-Adresse
For $i = 0 To UBound($networkadapter) - 1
If $networkadapter[$i][1] <> '' Then Return $networkadapter[$i][1]
Next
EndFunc ;==>_getMac

Func _GetNetworkadapterInf()
$x = 0
$strComputer = "Localhost"
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colComputers = $objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter")
For $objItem In $colItems
$networkadapter[$x][0] = $objItem.Name
$networkadapter[$x][1] = $objItem.MACAddress
$x += 1
ReDim $networkadapter[$x + 1][2]
Next
EndFunc ;==>_GetNetworkadapterInf

#RequireAdmin
;Prüfen ob die SETAcl vorhanden ist
$setacl = "D:\Tools\SetACL.exe"
$ProgDir="C:\Program Files (x86)\Altec\"
If FileExists($setacl) Then

;Rechte setzen
RunWait($setacl & ' -on "' & $pfad & '" -ot file ' & _
'-actn setprot -op "dacl:p_nc;sacl:nc" ' & _
'-actn setowner -ownr "n:Administrators" ' & _
'-actn ace -ace "n:Benutzer;p:full"' _
, "", @SW_HIDE)
Else
Msgbox(16,"ACHTUNG","Es
existiert keine Setacl.exe auf D:\Tools." &
@CRLF & "Bitte diese dort hinein kopieren")
Exit
EndIf