Beiträge von sec3k

Opt('GUIOnEventMode', 1)
Func readFile()

GUICtrlSetOnEvent(-1, "_LV1_ItemSelected")
_GUICtrlListView_Scroll($idListview, 0, 500)
$linecount = _FileCountLines(@ScriptDir & "\data.cfg" )
$file = FileOpen(@ScriptDir & "\data.cfg", 0 )
For $i = $linecount to 1 Step -1
$strFileLine = FileReadLine( $file, $i )
$strsplitted=StringSplit($strFileLine, ",")
Local $idItem1 = GUICtrlCreateListViewItem($strsplitted[1] & "|" & $strsplitted[2] & "|" & $strsplitted[3] , $idListview)

Next
FileClose( $file )
EndFunc

Func _LV1_GetSelected()
$toSplit=GUICtrlRead(GUICtrlRead($idListview), 1)
$strsplitted=StringSplit($toSplit, "|")
Run("C:\Program Files (x86)\SCCM_Remote\CmRcViewer.exe")
WinWaitActive("Configuration Manager Remote Control")
WinMenuSelectItem("Configuration Manager Remote Control","","&File","&Connect")
send($strsplitted[1])
send("{ENTER}")
EndFunc

Func _Connect()
If GUICtrlRead($remote_name)=="DEBI-" Then
MsgBox(48, "Achtung!", "Please insert a correct machine name!")
Else
Run("C:\Program Files (x86)\SCCM_Remote\CmRcViewer.exe")
WinWaitActive("Configuration Manager Remote Control")
WinMenuSelectItem("Configuration Manager Remote Control","","&File","&Connect")
send(GUICtrlRead($remote_name))
send("{ENTER}")
$date=_DateTimeFormat(_NowCalc(), 2)
$time=_NowTime()
FileWrite(@ScriptDir & "\data.cfg", GUICtrlRead($remote_name) & "," & $time & "," &$date & @CRLF)
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($idListview))
readFile()

EndIf
EndFunc
Func _Exit()
Exit
EndFunc
Func _Delete()
FileDelete(@ScriptDir & "\data.cfg")
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($idListview))
readFile()
EndFunc
remote()
Func remote()
Local $hGUI = GUICreate("SCCMHistroy 1.0", 260, 375, 242, 505)
Global $idListview = GUICtrlCreateListView("Host | Time | Date ", 10,60, 240, 200)
_GUICtrlListView_SetColumnWidth($idListview, 0, 111)
$filemenu = GUICtrlCreateMenu("File")
$delete = GUICtrlCreateMenuItem("Delete History", $filemenu)
GUICtrlSetOnEvent(-1, "_Delete")
readFile()
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
$remote_start=GUICtrlCreateButton("Connect", 10, 308, 240, 40)
GUICtrlSetImage(-1, "shell32.dll", 14)
GUICtrlSetOnEvent(-1, "_Connect")
GUICtrlCreateButton("Connect From List",10,10, 195, 40)
GUICtrlSetOnEvent(-1, "_LV1_GetSelected")
GUICtrlSetImage(-1, "shell32.dll", 152)
GUICtrlCreateButton("close", 211, 10, 40, 40, $BS_ICON)
GUICtrlSetImage(-1, "shell32.dll", 28)
GUICtrlSetOnEvent(-1, "_Exit")
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
Local $sFont = "Arial"
GUISetFont(16, 400, "", $sFont)
Global $remote_name = GUICtrlCreateInput("DEBI-", 10, 270, 240, 35)
GUISetState(@SW_SHOW, $hGUI)
While 1
Switch GUIGetMsg()
)
Case $remote_start

If @error Then
ContinueLoop
EndIf

Case $GUI_EVENT_CLOSE
ExitLoop

EndSwitch
WEnd

GUIDelete($hGUI)
EndFunc ;==>Example

Func readFile()
Local $idListview = GUICtrlCreateListView("Connection Name ", 10, 10, 200, 200)
_GUICtrlListView_Scroll($idListview, 0, 500)
$linecount = _FileCountLines(@ScriptDir & "\data.cfg" )
$file = FileOpen(@ScriptDir & "\data.cfg", 0 )
For $i = $linecount to 1 Step -1
$strFileLine = FileReadLine( $file, $i )
Local $idItem1 = GUICtrlCreateListViewItem($strFileLine, $idListview)
Next
FileClose( $file )
EndFunc
remote()
Func remote()
Local $hGUI = GUICreate("Remote Histroy 1.0", 220, 300, 242, 505)
readFile()
$remote_name = GUICtrlCreateInput("DEBI-", 10, 220, 200, 25)
$remote_start=GUICtrlCreateButton("Connect", 10, 250, 200, 40)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
GUICtrlSetImage(-1, "shell32.dll", 19)
GUISetState(@SW_SHOW, $hGUI)
While 1
Switch GUIGetMsg()
)
Case $remote_start
Run("C:\Program Files (x86)\SCCM_Remote\CmRcViewer.exe")
WinWaitActive("Configuration Manager Remote Control")
WinMenuSelectItem("Configuration Manager Remote Control","","&File","&Connect")
send(GUICtrlRead($remote_name))
send("{ENTER}")
FileWrite(@ScriptDir & "\data.cfg", GUICtrlRead($remote_name) & @CRLF)
readFile()
If @error Then
ContinueLoop
EndIf
Case $GUI_EVENT_CLOSE
ExitLoop

EndSwitch
WEnd

GUIDelete($hGUI)
EndFunc ;==>Example