Beiträge von palmers7

#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.8.1
Author: Palmers Julian
Script Function:
Dieses Programm soll visuell zeigen, welche Computer in welchem Stockwerk online sind.
#ce ----------------------------------------------------------------------------
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
global $selectedFloor, $s = 0, $raumnummer[100], $person[200][2], $online[2]
$iniPath = @ScriptDir&"\Config.ini"
$windowSize = StringSplit(IniRead($iniPath,"Look","windowSize","900%700"),"%",2)
$tabSize = StringSplit(IniRead($iniPath,"Look","tabSize","700%700"),"%",2)
$bmpSize = StringSplit(IniRead($iniPath,"Look","bmpSize","700%700"),"%",2)
$hWnd = GUICreate("WhoIsInTheHouse", $windowSize[0], $windowSize[1])
$console = GUICtrlCreateInput("0. Stock", 0, $windowSize[1]-25, $windowSize[0], 25, $ES_READONLY)
GUICtrlCreateLabel("Legende:", $tabSize[0]+15, 20)
GUICtrlCreatePic(@ScriptDir&"\legende.jpg", $tabSize[0]+30, 40, 79, 53)
$image = GUICtrlCreatePic(@ScriptDir&"\0.bmp", 2, 25, $tabSize[0]-30, $tabSize[1]-30)
$tab = GUICtrlCreateTab(0, 0, $tabSize[0], $tabSize[1])
$tab0 = GUICtrlCreateTabItem("0. Stock")
$tab1 = GUICtrlCreateTabItem("1. Stock")
$tab2 = GUICtrlCreateTabItem("2. Stock")
$tab3 = GUICtrlCreateTabItem("3. Stock")
$tab4 = GUICtrlCreateTabItem("4. Stock")
$tab5 = GUICtrlCreateTabItem("5. Stock")
GUISetState()
$whoIsWhoIni = IniReadSection($iniPath,"WhoIsWho")
$j = $whoIsWhoIni[0][0]
local $whoIsWho[$j-1][5]
For $i=2 To $j
$data = StringSplit($whoIsWhoIni[$i][1],"%",2)
$whoIsWho[$i-2][0] = $whoIsWhoIni[$i][0] ;IP-Adresse
$whoIsWho[$i-2][1] = $data[0] ;Computername
$whoIsWho[$i-2][2] = $data[1] ;Nachname
$whoIsWho[$i-2][3] = $data[2] ;Vorname
$whoIsWho[$i-2][4] = $data[3] ;Raumnummer
Next
;~ _ArrayDisplay($whoIsWho)
$whereIsWhereIni = IniReadSection($iniPath,"WhereIsWhere")
$j = $whereIsWhereIni[0][0]
local $whereIsWhere[$j-1][4]
For $i=2 To $j
$data = StringSplit($whereIsWhereIni[$i][1],"%",2)
$whereIsWhere[$i-2][0] = $whereIsWhereIni[$i][0] ;Raumnummer
$whereIsWhere[$i-2][1] = $data[0] ;X-Koordinate
$whereIsWhere[$i-2][2] = $data[1] ;Y-Koordinate
$whereIsWhere[$i-2][3] = 0 ;Computeranzahl
Next
;~ _ArrayDisplay($whereIsWhere)
While 1
$msg = GUIGetMsg()
If ($msg = $tab OR $s = False) Then
$s = True
$online[0] = 0 ;Online
$online[1] = 0 ;Gesamtanzahl
$selectedFloor = 0
$selectedFloor = GUICtrlRead($tab)
GUICtrlSetImage($image, @ScriptDir&"\"&$selectedFloor&".bmp")
GUICtrlSetData($console, $selectedFloor&". Stock gewählt")
#region Raumnummern
;~ For $i = 0 To 99
;~ GUICtrlDelete($raumnummer[$i])
;~ $raumnummer[$i] = ""
;~ Next
;~ For $i = 0 To UBound($whereIsWhere)-1
;~ If (StringLeft($whereIsWhere[$i][0],1) = ($selectedFloor)) Then
;~ $raumnummer[$i] = GUICtrlCreateLabel($whereIsWhere[$i][0], 5+($whereIsWhere[$i][1])*($tabSize[0]/$bmpSize[0])*0.965, ($whereIsWhere[$i][2])*($tabSize[1]/$bmpSize[1])*0.965)
;~ EndIf
;~ Next
#endregion
For $i = 0 To 199
GUICtrlDelete($person[$i][0])
$person[$i][0] = ""
$person[$i][1] = ""
Next
#region Display
For $i = 0 To UBound($whereIsWhere)-1
$whereIsWhere[$i][3] = "0"
Next
For $l=0 To UBound($whoIsWho)-1
If (StringLeft($whoIsWho[$l][4],1) = ($selectedFloor)) Then
$person[$l][0] = GUICtrlCreateCheckbox($whoIsWho[$l][1], 5+($whereIsWhere[_ArraySearch($whereIsWhere,$whoIsWho[$l][4],"","","","",0)][1])*($tabSize[0]/$bmpSize[0])*0.965, (($whereIsWhere[_ArraySearch($whereIsWhere,$whoIsWho[$l][4],"","","","",0)][2])*($tabSize[1]/$bmpSize[1])*0.965)-($whereIsWhere[_ArraySearch($whereIsWhere,$whoIsWho[$l][4],"","","","",0)][3]*25))
;~ TODO GUICtrlSetTip($person[$l][0],"Computer: "&$whoIsWho[$l][1]&@CRLF&"IP: "&$whoIsWho[$l][0]&@CRLF&"Benutzer: "&$whoIsWho[$l][2]&" "&$whoIsWho[$l][3]&@CRLF&@CRLF&"Raum: "&$whoIsWho[$l][4])
If (Ping($whoIsWho[$l][0],50)<>0 AND TRUE) Then
GUICtrlSetState($person[$l][0], $GUI_CHECKED)
$online[0] = $online[0]+1
Else
GUICtrlSetState($person[$l][0], $GUI_UNCHECKED)
GUICtrlSetState($person[$l][0], $GUI_DISABLE)
EndIf
$online[1] = $online[1]+1
$person[$l][1] = $whoIsWho[$l][1]
$whereIsWhere[_ArraySearch($whereIsWhere,$whoIsWho[$l][4],"","","","",0)][3]=$whereIsWhere[_ArraySearch($whereIsWhere,$whoIsWho[$l][4],"","","","",0)][3]+1
GUICtrlSetData($console, $whoIsWho[$l][1]&" wird gepingt")
EndIf
Next
_ArrayDisplay($person)
For $l=0 To UBound($person)-1
GUICtrlSetTip($person[$l][0],"test")
GUISetState()
Next
GUICtrlSetData($console, "Alle Computer im "&$selectedFloor&". Stock wurden überprüft - ("&$online[0]&" von "&$online[1]&" online)")
#endregion
EndIf
Select
Case $msg = $GUI_EVENT_CLOSE
GUIDelete()
Exit
EndSelect
WEnd

#include <Inet.au3>
$ipRange = "192.168."
$iniName = "NetzINI.ini"
$timer = TimerInit()
TCPStartup()
$pcs=0
For $ip1=0 To 1
For $ip2=1 To 253
$ping = Ping($ipRange&$ip1&"."&$ip2, 10)
if ($ping > 0) Then
$pcs=$pcs+1
$IpToName = IniRead($iniName,"IpToName",$ipRange&$ip1&"."&$ip2,"x82")
$IpToNameSuccess = IniRead($iniName,"IpToNameSuccess",$ipRange&$ip1&"."&$ip2,"x82")
If ($IpToName=="x82" AND $IpToNameSuccess=="x82") Then
$name = _TCPIpToName($ipRange&$ip1&"."&$ip2)
IniWrite($iniName,"IpToName",$ipRange&$ip1&"."&$ip2,$name)
If ($name<>"") Then
IniWrite($iniName,"IpToNameSuccess",$ipRange&$ip1&"."&$ip2,1)
Else
IniWrite($iniName,"IpToNameSuccess",$ipRange&$ip1&"."&$ip2,0)
EndIf
EndIf
Else
IniDelete($iniName,"IpToName",$ipRange&$ip1&"."&$ip2)
IniDelete($iniName,"IpToNameSuccess",$ipRange&$ip1&"."&$ip2)
EndIf
Next
Next
IniWrite($iniName,"PCsOnline","Online",$pcs)
MsgBox(0,"","Es sind "&$pcs&" PCs online!"&@CRLF&"Zeit zum Scannen: "&(TimerDiff($timer)/1000)&" Sekunden")