Beiträge von ytwinky

#include "GuiConstants.au3"
#include "Constants.au3"


GuiCreate("DOS Box", 800, 600, -1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))


$ctrlEdit_Output = GUICtrlCreateEdit("", 0, 0, 800, 575, _
	BitOR($ES_READONLY, $WS_VSCROLL, $WS_HSCROLL, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL))
	GUICtrlSetBkColor(-1, 0x000000)
	GUICtrlSetColor(-1, 0xFFFFFF)
	GUICtrlSetFont(-1, 9, 5000)
$ctrlInput_Input=GuiCtrlCreateInput("", 0, 575, 720, 25)
	GUICtrlSetFont(-1, 9, 5000)
	GUICtrlSetState(-1, $GUI_FOCUS) ;Natürlich muß der Focus in die Eingabezeile :D
$ctrlButton_Send=GuiCtrlCreateButton("TuEs", 720, 575, 80, 25, $BS_DEFPUSHBUTTON)


GuiSetState()


Do
	Switch GuiGetMsg()
		Case $GUI_EVENT_CLOSE
			Exit
		Case $ctrlButton_Send
			$Result=Run(@ComSpec &" /c " &GUICtrlRead($ctrlInput_Input), "", @SW_HIDE, $STDERR_CHILD+$STDOUT_CHILD)
			$Msg=GUICtrlRead($ctrlEdit_Output) &@CrLf
			Do
				$Erg=StdOutRead($Result)
				$Fehler=@Error
				If Not $Fehler Then
					$Msg&=$Erg &@CrLf
				EndIf
			Until $Fehler
			$Erg=StdOutRead($Result)
			GUICtrlSetData($ctrlEdit_Output, $Msg)
	EndSwitch
Until 0

; Erstellt von AutoIt Scriptomatic
Dim $i, $m, $Manual, $Auto, $Disabled, $Stopped, $Running
$wbemFlagReturnImmediately=0x10
$wbemFlagForwardOnly=0x20
$colItems=""
$strComputer=@ComputerName
$s="<table cellspacing=0 colspacing=0 border=1>"
$s&="<tr><th colspan=6 align=left><fontcolor=navy>Computer: " &$strComputer &"</td></tr>"
$objWMIService=ObjGet("winmgmts:\\" &$strComputer &"\root\CIMV2")
$colItems=$objWMIService.ExecQuery("SELECT * FROM Win32_Service", "WQL", _
                                          $wbemFlagReturnImmediately+$wbemFlagForwardOnly)
If IsObj($colItems) Then
  $s&="<tr><th>lfd.</th><th>ServiceName</th><th>ProcessId</th><th>StartMode</th><th>State</td></tr>"
  For $objItem In $colItems
   		With $objItem
   		$i+=1
      $s&="<tr><td align=right><b><font color=red>" &$i &"</td>"
      $s&="<td title=" &Chr(34) &"Display_Name:" &.DisplayName &@Lf &"Caption:" &.Caption &@Lf &StringReplace(.Description, Chr(34), "'") &Chr(34) &"><b>" &.Name &"</td>"
;			 $s&=AppendLn(.AcceptPause)"<td>" &$Inhalt &"</td>"
;      $s&=AppendLn(.AcceptStop)"<td>" &$Inhalt &"</td>"
;      $s&=AppendLn(.Caption)"<td>" &$Inhalt &"</td>"
;      $s&=AppendLn(.CheckPoint)"<td>" &$Inhalt &"</td>"
;      $s&=AppendLn(.CreationClassName)"<td>" &$Inhalt &"</td>"
;      $s&=AppendLn(.Description)"<td>" &$Inhalt &"</td>"
;      $s&=AppendLn(.DesktopInteract)"<td>" &$Inhalt &"</td>"
;      $s&=AppendLn(.DisplayName)"<td>" &$Inhalt &"</td>"
;      $s&=AppendLn(.ErrorControl)"<td>" &$Inhalt &"</td>"
;      $s&=AppendLn(.ExitCode)"<td>" &$Inhalt &"</td>"
;      $s&=AppendLn(WMIDateStringToDate(.InstallDate))"<td>" &$Inhalt &"</td>"
;      $s&=AppendLn(.InstallDate)"<td>" &$Inhalt &"</td>"
;      $s&=AppendLn(.PathName)"<td>" &$Inhalt &"</td>"
			$t=.ProcessId
			If $t=0 Then $t="&nbsp;"
      $s&="<td>" &.ProcessId &"</td>"
;      $s&=AppendLn(".ServiceSpecificExitCode)"<td>" &$Inhalt &"</td>"
;      $s&=AppendLn(.ServiceType)"<td>" &$Inhalt &"</td>"
;      $s&="<td>" &.Started &"</td>"
      $s&="<td>" &.StartMode &"</td>"
;      $s&=AppendLn(.StartName)"<td>" &$Inhalt &"</td>"
      $s&="<td>" &.State &"</td>"
;      $s&=AppendLn(.Status)"<td>" &$Inhalt &"</td>"
;      $s&=AppendLn(.SystemCreationClassName)"<td>" &$Inhalt &"</td>"
;      $s&=AppendLn(.SystemName)"<td>" &$Inhalt &"</td>"
;      $s&=AppendLn(.TagId)"<td>" &$Inhalt &"</td>"
;      $s&=AppendLn(.WaitHint)"<td>" &$Inhalt &"</td>"
;      If Msgbox(1, "WMI-Ausgabe", $s)=2 then ExitLoop
      $s&="</tr>"
      $Manual+=(.StartMode="Manual")*1
      $Auto+=(.StartMode="Auto")*1
      $Disabled+=(.StartMode="Disabled")*1
      $Stopped+=(.State="Stopped")*1
      $Running+=(.State="Running")*1
     EndWith
   Next
   $s&="<tr><td colspan=9>Auto=" &$Auto &", Manual=" &$Manual &", Disabled=" &$Disabled &", Stopped=" &$Stopped &", Running=" &$Running &"</td></tr>"
	 _IEPrt($s, "Service-Details")
Else
   Msgbox(0, "WMI-Ausgabe", "Keine WMI-Objekte gefunden für Klasse: " &"Win32_Service")
Endif


Func _IEPrt($Was, $Titel, $Breite=660, $Hoehe=300, $Links=100, $Oben=100)
	Dim $IE=ObjCreate("InternetExplorer.Application.1")
	$IE.Navigate("about:blank")
	$IE.Document.Title=$Titel
	$IE.Left=$Links
	$IE.Top=$Oben
	$IE.Width=$Breite
	$IE.Height=$Hoehe
	$IE.Visible=True
	$IE.Document.Body.InnerHtml="Bitte warten.."
	$IE.Toolbar=False
	$IE.Menubar=False
	$IE.Statusbar=False
	$IE.Document.Body.InnerHtml=$Was
EndFunc


Func WMIDateStringToDate($dtmDate)
  Return (StringMid($dtmDate, 5, 2) &"/" &StringMid($dtmDate, 7, 2) &"/" &StringLeft($dtmDate, 4) &" " &StringMid($dtmDate, 9, 2) &":" &StringMid($dtmDate, 11, 2) &":" &StringMid($dtmDate,13, 2))
EndFunc

;(c) 2006 by ytwinky, MD
#NoTrayIcon
#include <Constants.au3>
#include <GuiConstants.au3>
Dim $Prt, $ProgName, $Optionen, $MaxB=0, $i, $PrtArray
$ProgName="Route Print"
$Optionen="|Find /v""=="""
$PrtArray=StringSplit(_SysProg($ProgName &" " &$Optionen), @CrLf)
For $i=1 To UBound($PrtArray, 1)-1
 	If StringLen($PrtArray[$i])>$MaxB Then $MaxB=StringLen($PrtArray[$i])
 	If $PrtArray[$i]<>"" Then $Prt &=$PrtArray[$i] &@CrLF
Next
; == GUI generated with Koda ==
$RoutePrint = GUICreate("RoutePrint", 267, 149, 192, 125)
GUICtrlCreateLabel("Route Print", 16, 8, 123, 33)
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
GUICtrlCreateLabel("©2006 by ytwinky, MD", 144, 0, 112, 17)
$TuEs=GUICtrlCreateButton("Tu es", 44, 64, 75, 25, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Quit=GUICtrlCreateButton("Quit", 144, 64, 75, 25, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
While 1
	Switch GuiGetMsg()
		Case $GUI_EVENT_CLOSE, $Quit
			ExitLoop
		Case $TuEs
			_IEPrt($Prt, $ProgName, 9*$MaxB, 9*UBound(StringSplit($Prt, @CrLf), 1))
		Case Else
			;-))
	EndSwitch
WEnd
Exit




Func _IEPrt($Was, $Titel, $Breite=660, $Hoehe=300, $Links=100, $Oben=100)
	Dim $IE=ObjCreate("InternetExplorer.Application.1")
;			MsgBox(4096, "Test", $Titel)
	$IE.Navigate("about:blank")
;	$IE.Document.Title=$Titel
	$IE.Left=$Links
	$IE.Top=$Oben
	$IE.Width=$Breite
	$IE.Height=$Hoehe
	$IE.Visible=True
	$IE.Document.Body.InnerHtml="Bitte warten.."
	$IE.Toolbar=False
	$IE.Menubar=False
	$IE.Statusbar=False
	$IE.Document.Body.InnerHtml=$Was
EndFunc


Func _SysProg($Which) ;SystemProgramm ausführen
	Local $h, $i, $Prt
	$i=Run(@ComSpec &" /c " &$Which, @SystemDir, @SW_HIDE, $STDOUT_CHILD+$STDERR_CHILD)
	Sleep(1000)
	$h=StdOutRead($i)
	If @Error=0 Then $Prt=$h
	$h=StdErrRead($i)
	If @Error=0 Then $Prt = $h
	$Prt=StringReplace($Prt, Chr(154), "Ü")
	$Prt=StringReplace($Prt, Chr(129), "ü")
	$Prt=StringReplace($Prt, Chr(142), "Ä")
	$Prt=StringReplace($Prt, Chr(132), "ä")
	$Prt=StringReplace($Prt, Chr(153), "Ö")
	$Prt=StringReplace($Prt, Chr(148), "ö")
	Return "<body scroll=auto><Pre>" &$Prt
EndFunc

; Dateien umbenennen V2
Dim $TestArray[2]=[" nicht", ""]
$AlterName="J:\Tmp\TestAlt.Txt"
$NeuerName="TestNeu.Txt"
MsgBox(4096, "Umbenennen", "Datei " &$AlterName &$TestArray[_FileRename($AlterName, $NeuerName)]  &" in " &$NeuerName &" umbenannt!")


Func _FileRename($FromName, $ToName)
  If $FromName="" Or $ToName="" Then Return 0
  $Path=StringMid($FromName, 1, StringInstr($FromName, Chr(92), 0, -1)) ;StringReverse
  $NewName=StringMid($ToName, StringInstr($ToName, Chr(92), 0, -1)+1) ;StripPath
  If FileExists($FromName) Then
    If FileExists($Path &$NewName) Then
      MsgBox(4096, "Renaming Error..", "File " &$Path &$NewName &" already exists..")
      Return 0
    Else
      $Fso=ObjCreate("Scripting.FileSystemObject")
      $Datei=$Fso.GetFile($FromName)
      $Datei.Name=$NewName
      $Fso=0
      $Datei=0
      Return 1
    EndIf
  Else
    MsgBox(4096, "Renaming Error..", "File " &$FromName &" not found..")
    Return 0
  EndIf
EndFunc

;<AutoItScript>
Opt("MustDeclareVars", 1)  ;0=ohne, 1=erfordert Variablen-Deklaration
#NoTrayIcon  ;Ohne Icon im Tray, hängende Prozesse im ProcessViewer beenden
;+----------------------------------------------------------------------------+
;|    Header: Bestimmen der Übergabeparameter                                 |
;|    ( Alles Strings(!!!), bis auf ArgC )                                    |
;|    FontAnzeigeCheck: |Il1 sind Alt-0124, Großes i, Kleines L, Eins         |
Const $Autor="fcstarten.au3 ©2006 by ytwinky, MD";                            |
;|    EMail: PIII1kSystem-AutoIt3Forum@yahoo.de                               |
;|    AutoIt3-Version: aktuelle beta                                          |
;|    Editor: SciTE aktuelle Version, feste Schriftart                        |
;|    Zweck : freeCommander mit AuswahlBox starten                            |
;|    Tab auf 2 setzen wg. Lesbarkeit                                         |
;+----------------------------------------------------------------------------+
Const $fc="freeCommander"
Dim $installLocation=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" &$fc &"_is1", "InstallLocation")
Dim $fchnd=ControlGetHandle($fc, "", "TfcCustomPanel15")
Dim $fcAuswahl=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\", "InstallDir") &"\au3\fcAuswahlBox.exe"
If $installLocation="" Then fcNotFound()


If $fchnd Then
  WinSetState($fc, "", @SW_RESTORE Or @SW_ENABLE)
Else
  If Not FileExists($installLocation &$fc &".exe") Then fcNotFound()
  Run($installLocation &$fc &".exe", "", @SW_MINIMIZE)
  Do
    Sleep(1)
  Until ControlGetHandle($fc, "", "TfcCustomPanel15")
  Run($fcAuswahl)
EndIf


Exit


Func fcNotFound()
  MsgBox(4096, "Ooops..", "The " &$fc &" is not (properly) installed.." &@CrLf &"Get it from http://www." &$fc &".com and (re-)install it..")
  Exit
EndFunc


;</AutoItScript>