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 ?
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 ?
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.
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.
Also hier ist mal ein Teil der GUI.
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.
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
#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
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
#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
super vielen Dank
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
Hallo,
danke
ich wollte es nicht in einer msgbox, sondern schön in der gui in einem Fenster
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 ?
#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
super vielen dank
Hallo,
hat den keiner einen Vorschlag, wie erzeuge ich hier Einträge die den ersten Wert suchen und dann dahnter den rest schreiben ?
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"
#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
ja super, jetzt hab ich nur das problem wie binde ich es ein ?
´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
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]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
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)
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
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