Beiträge von donpascal

donpascal

Hallo,

ich tu mir echt schwer mit dem Befehl. Ich habe eine Variable die in Anführungszeichen steht. Also "34534".

Jetzt will ich die Anführungszeichen löschen und nur den Wert dazwischen weiter verwenden.

Nur wie ?

donpascal

ich sehe gerade, das verzieht sich bei jedem Script das ich habe.
Sobald die Auflösung höher wird, stimmt die ganze Beschriftung nicht mehr.
Das andere Script das ich habe funktioniert mit Radio-Button.
Die Gui bleibt nicht so wie einmalig definiert.

donpascal

Hallo,
also kein DPI eingeschaltet.
Einmal im Windows 7 ausgeführt und im Windows PE, ich habe ca 15 verschiedene Rechner Hardwaretypen.
Die alle im Windows PE booten. Bei jedem sieht es anders aus.
Keine Ahnung was ich hier noch ändern könnte.

donpascal

Also hier ist mal ein Teil der GUI.

donpascal

Hallo,
es ändert sich die Schrift im Button. Auf dem Entwicklungsrechner wird alles korrekt angezeigt.
Sobald ich auf eine höhere Auflösung gehe, ist der Button kleiner und die Schrift größer.

donpascal

Hallo,

ich hab das Problem, dass ich eine GUI geschrieben habe,
diese aber in einem Windows PE auf verschiedenen Rechner mit unterschiedlicher Auflösung läuft.
Die Darstellung der GUI ist jedesmal anders. Was muss ich den an icludes alles mit nehmen oder ergänzen für eine einheitliche Darstellung

C

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
#include <file.au3>
#include <Date.au3>
#include <DateTimeConstants.au3>
#include <array.au3>
#include <Process.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <UpdownConstants.au3>
#include <EditConstants.au3>
#include <ListboxConstants.au3>
#include <GUIConstantsEx.au3>
#include <Constants.au3>
#include <FontConstants.au3>
#include <SliderConstants.au3>
#include <ColorConstants.au3>
#include <GuiSlider.au3>
#include <GuiTab.au3>
#include <GuiButton.au3>
#include <ColorConstants.au3>
#include <MsgBoxConstants.au3>

Alles anzeigen

donpascal

Ich hab noch ein Problem, und nachdem ich gesehen habe es geht hier echt super mit Lösungen.
Vielleicht kann mir jemand helfen.
Ich möchte eine Datei in einen Array lesen, dann nach einem Wert suchen und die Datei (falls nicht vorhanden) um den Wert ergänzen.
Sollte die Datei nicht vorhanden sein, sollte sie erstellt werden.
Aber ich steh da voll auf dem Schlauch.
danke

C

#include <GUIConstants.au3>
#include <file.au3>
#include <Date.au3>
#include <array.au3>
#include <Process.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <UpdownConstants.au3>
#include <EditConstants.au3>
#include <ListboxConstants.au3>
#include <WindowsConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <Constants.au3>
#include <GuiListView.au3>
#include <Misc.au3>


$APPDATA=EnvGet("APPDATA")
$SystemDrive=EnvGet("SystemDrive")
$Systemroot= EnvGet("SYSTEMROOT")
$USERNAME=EnvGet("USERNAME")
$ProgramData= EnvGet("ProgramData")
$temp=EnvGet("TEMP")
$USERPROFILE=EnvGet("USERPROFILE")
Local $arraydbfile
Break(0) ; 0 = Break is disabled (user cannot quit)
$arraydbfile="0"
$returncode="0"




$dbfile=$USERPROFILE & "\AppData\LocalLow\Sun\Java\Deployment\security\exception.sites"


$x=0


$url="Beispieltext"
If Not FileExists($dbfile) Then
Local $hFileOpen = FileOpen($dbfile, 10)
FileWriteLine($dbfile,@LF)
FileClose($dbfile)
EndIf


Local $rep_zertmodelArray
$i=0
	_FileReadToArray($dbfile, $rep_zertmodelArray)
 		For $i = 0 To $rep_zertmodelArray[0]
 				if $test1 = 0 Then
 					$x=$x+1
 				EndIf
		Next


 	if $x=0 Then
 		;MsgBox(0,"x", $x)
 		_ArrayDelete($rep_zertmodelArray,0)
 		_ArrayInsert($rep_zertmodelArray,0,$url)
		Local $hFileOpen = FileOpen($dbfile, 10)
 		_FileWriteFromArray($dbfile, $rep_zertmodelArray)
 		FileClose($dbfile)
 	EndIf
$y=0
_FileReadToArray($dbfile, $rep_zertmodelArray)
	For $y = 0 To $rep_zertmodelArray[0]
		If $rep_zertmodelArray[$i] = "" Then
			_ArrayDelete($rep_zertmodelArray, $y)
		EndIf
	Next


Exit

Alles anzeigen

donpascal

super vielen Dank

donpascal

Hallo,

ich das Problem, dass der Progressbalken nicht mit dem Random Sleep syncron läuft. Ab einer gewissen Zeit laufen mehrere Balken zeitgleich.
Wo hab ich mich vertan ?

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
local $iRest
local $iSec
$schriftgroesse=10
GUICreate("My GUI")
GUISetState()
$idLblRest = GUICtrlCreateLabel("Zeit : ", 5, 5, 60, 20)
$idProgress = GUICtrlCreateProgress(70, 5, 200, 20)
$sleep=3000
$sleep1=3000
sleeping()
sleeping()
sleeping()

Func sleeping()

$sleep1=Random(60, 200, 1)

;MsgBox(0,"$sleep1",$sleep1)
$time=$sleep1 * 1000
;MsgBox(0,"$time",$time)
$idProgress = GUICtrlCreateProgress(70, 5, 200, 20)
GUICtrlSetColor(-1, 0x000066)
GUICtrlSetBkColor($idProgress, $GUI_BKCOLOR_TRANSPARENT)

$tstart = TimerInit()
$stime = $time
Do
GUICtrlCreateLabel("wait for : " & $stime / 1000 & " sec", 70, 55, 200, 20)
GUICtrlSetBkColor($idProgress, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, $schriftgroesse, 100, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x009900)
Sleep(1000)
$stime -= 1000
GUICtrlSetData($idProgress, Floor(100 * (($time - $stime) / $time)))
GUICtrlSetBkColor($idProgress, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, $schriftgroesse, 100, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x009900)
Until TimerDiff($tstart) >= $time
EndFunc

donpascal

Hallo,

danke

ich wollte es nicht in einer msgbox, sondern schön in der gui in einem Fenster

donpascal

Hallo,

ich würde mir gerne die msdos Ausgabe von z.B. ping in einer gui anzeigen lassen, bekomme aber alles in einer Zeile und nicht schön untereinander.
Wie kann ich die einzelne Zeilen mir anzeigen lassen ?

[autoit]

#include <ButtonConstants.au3>#include <ComboConstants.au3>#include <GUIConstantsEx.au3>#include <WindowsConstants.au3>#include <GUIConstants.au3>#include <file.au3>#include <Date.au3>#include <array.au3>#include <Process.au3>#include <ProgressConstants.au3>#include <StaticConstants.au3>#include <UpdownConstants.au3>#include <EditConstants.au3>#include <ListboxConstants.au3>#include <ComboConstants.au3>#include <Constants.au3>#include <ButtonConstants.au3>#include <StaticConstants.au3>#include <GuiListView.au3>
$Form1_1 = GUICreate("ping Status", 850, 450, 300, 160)GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")$EXIT = GUICtrlCreateButton("EXIT", 100, 368, 145, 41, $BS_PUSHLIKE)GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")$Button1 = GUICtrlCreateButton("Ping Status", 24, 25, 150, 35)GUISetState(@SW_SHOW)
While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $Button1 $cmdreturn = "" $returncode=run(@ComSpec & " /c " & "ping 127.0.0.1",@SystemDir, @SW_HIDE, $STDERR_MERGED + $STDIN_CHILD) While 1 ; loop through the return from the command until there is no more $line = StdoutRead($returncode) If @error Then ExitLoop $cmdreturn &= $line WEnd $cmdreturn1=StringSplit($cmdreturn,@CRLF) For $i = 0 To UBound($cmdreturn1) - 1 GUICtrlCreateInput($cmdreturn1[$i] , 180, 155, 600, 60) Next GUICtrlCreateInput($cmdreturn, 180, 25, 600, 60) Case $GUI_EVENT_CLOSE Exit Case $EXIT Exit EndSwitchWEnd

[/autoit]

donpascal

super vielen dank

donpascal

Hallo,

hat den keiner einen Vorschlag, wie erzeuge ich hier Einträge die den ersten Wert suchen und dann dahnter den rest schreiben ?

donpascal

Hallo,

hab eine ini Datei aus der ich Werte auslesen möchte, dann vergleichen und die Werte dann erweitern

also in der Datei steht der Wert "4", den möchte ich suchen und dann erweitern "4";"bla";"bla2"

Code

#include <GUIConstants.au3>#include <file.au3>#include <Date.au3>#include <array.au3>#include <Process.au3>
$sPCFile = @ScriptDir & "\pc.ini"$sFile = FileRead($sPCFile)$sSearch = "4"
If StringInStr($sFile, $sSearch) Then$wert1 = "bla"	$sFile = StringRegExpReplace($sFile, '(' & $sSearch & '),.+', '$1, ' & $wert1)	writefile()EndIf
If StringInStr($sFile, $sSearch) Then	$wert2 = "bla2"	$sFile = StringRegExpReplace($sFile, '(' & $sSearch & '),.+', '$1, ' & $wert2)	writefile()EndIf


func writefile()$hFile = FileOpen($sPCFile, 2)If $hFile <> -1 ThenFileWrite($hFile, $sFile)  FileClose($hFile)EndIfEndFunc


Exit

nur macht er garnichts wo hab ich da meinen Fehler

donpascal

ja super, jetzt hab ich nur das problem wie binde ich es ein ?

donpascal

´Hallo,

ich würde gerne die exe auf den remote rechnern starten. Jedoch passiert da garnichts.
Hat jemand eine Idee

danke

[autoit]

#include <GUIConstants.au3>#include <file.au3>#include <Date.au3>#include <array.au3>#include <Process.au3>
$rechnerfile = @ScriptDir & "\testclient.ini"$rechner = IniReadSection($rechnerfile, "rechner")$Logfile = @ScriptDir & "\test_" & today() & ".csv" ; in der INI stehen einige Variable$logfile1=@ScriptDir & "\test2_" & today() & ".csv" ; in der INI stehen einige Variable;msgbox(0,"",$rechner)FileOpen($Logfile, 9)FileOpen($Logfile1, 9)FileWrite($Logfile, "Rechnername" & " ; " & "Dirsize" & " ; " & "Java_Fileversion" & " ; " & "EC_Client vorhanden" & @CRLF)For $i = 1 To $rechner[0][0] $pc = $rechner[$i][1] ping($pc, 5) if @error = 0 Then $size = DirGetSize("\\" & $pc & "\c$\Program Files\Java\jre6", 1) If IsArray($size) Then $fileversion = FileGetVersion("\\" & $pc & "\c$\Program Files\Java\jre6\bin\java.exe") $username="administrator" $usernamepassword="12345678" if FileExists("\\" & $pc & "\c$\etc\") Then FileWrite($Logfile, $pc & " ; " & $size[0] & " ; " & $fileversion & " ; " & "EC_Client vorhanden" & @CRLF) Else FileWrite($Logfile, $pc & " ; " & $size[0] & " ; " & $fileversion & " ; " & "kein EC_Client vorhanden" & @CRLF) EndIf

[/autoit][autoit][/autoit][autoit]

if $size[0] < "80000000" Then FileWrite($Logfile1, $pc & " ; " & $size[0] & " ; " & $fileversion & @CRLF) FileCopy(@ScriptDir & "\repair.EXE", "\\" & $pc & "\c$\Windows\Temp",9) $filerun="\\" & $pc & "\c$\Windows\Temp\repair.EXE" $filedir="\\" & $pc & "\c$\Windows\Temp\" RunAsWait($username, $pc, $usernamepassword,0, $filerun , $filedir, @SW_MAXIMIZE) EndIf EndIf Else FileWrite($Logfile, $pc & " ; " & "no ping - offline" & @CRLF) EndIfNextFileWrite($Logfile, "fertig" & @CRLF)FileWrite($Logfile1, "fertig" & @CRLF)FileClose($Logfile1)FileClose($Logfile)Func today() ;Return the current date in mm/dd/yyyy form Return (@MON & "_" & @MDAY & "_" & @YEAR & "_" & @HOUR & "_" & @MIN & "_" & @MSEC)EndFuncExit

[/autoit]

donpascal

Hallo,

ich hab einen Ordner im Startmenü\Programme\Beispiel Anwendung

hier befinden sich 55 Verknüpfungen in 4 Unterordner um Anwendungen zu starten.

Im Targetpath werden die verschiedene Programme immer mit dem selben Parameter aufgerufen.
%Zielpfad%\test\test.bat test1.

Hat da jemand ein script, dass den Wert test1 sucht und durch test2 ersetzt ??

Würde mich freuen

donpascal

Hallo vielen Dank,
ich habe das Script momentan im Einsatz.
Nur ersetzt er mir das Datum nicht
Er findet den Rechner nur wird die $sDate Variable nicht neu geschrieben

$sPCFile = @ScriptDir & '\PC.txt'
$sFile = FileRead($sPCFile)
$sDate = StringFormat('%s-%s-%s - %s:%s:%s', @MDAY, @MON, @YEAR, @HOUR, @MIN, @SEC)
$sSearch = @Computername
If StringInStr($sFile, $sSearch) Then
$sFile = StringRegExpReplace($sFile, '(' & $sSearch & '),.+', '$1, ' & $sDate)
Else
$sFile &= $sSearch & ', ' & $sDate & @CRLF
EndIf
$hFile = FileOpen($sPCFile, 2)
If $hFile <> -1 Then
FileWrite($hFile, $sFile)
FileClose($hFile)
EndIf
MsgBox(0,0,$sFile)

donpascal

Hallo,

super vielen Dank für die Antworten, eine Erweiterung hätte ich noch.

Die Datei sieht folgend aus

C123456768, 11-05-2010 - 13:04:06
C123456777, 11-05-2010 - 13:14:06

Die Datei soll durchsucht werden, und wenn der Rechner gefunden wird, soll das Datum und die Zeit neu geschrieben werden.
Andernfalls soll der Rechner mit Datum und Zeit angehängt werden.

Hat hier jemand nochmals eine Idee

danke

donpascal

Hallo,

ich will den Inhalt einer Datei mit einem Variablen Wert vergleichen.
Also ich hab eine Datei in der über 100 Rechnernamen stehen.
Es soll überprüft werden, ob der aktuelle Rechner schon in der Datei steht, wenn nicht sollte der Rechnername am Schluss angehängt werden.

Hat hier jemand eine Idee oder Vorschlag ??

danke

Beiträge von donpascal

StringRegExp

GUI Standard Ansicht

GUI Standard Ansicht

GUI Standard Ansicht

GUI Standard Ansicht

GUI Standard Ansicht

Datei einlesen nach Wert suchen und ergänzen

Progressbar mit Countdown

Progressbar mit Countdown

msdos fenster anzeigen in gui

msdos fenster anzeigen in gui

Datei mit Wert vergleichen

Datei mit Wert vergleichen

Datei mit Wert vergleichen

Programm Remote auf anderem Rechner starten

Programm Remote auf anderem Rechner starten

Wert in Verknüpfungen ändern

Datei mit Wert vergleichen

Datei mit Wert vergleichen

Datei mit Wert vergleichen