Beiträge von bernd670

Hallo,

Es gibt noch enen Mirror auf dem Koda zu finden ist.

Hallo,

der Windows-Standard-Modus ist UTF16 Little Endian, die 32 passt.

Hallo,

die Lösung ist recht einfach, man muss nur das Hauptfenster wieder @SW_ENABLE setzen bevor man das Child-Fenster löscht!

#include <GUIConstants.au3>

$S_WINTITLE = "Main GUI"

$h_maingui = GUICreate($S_WINTITLE, 394, 375, -1, -1)
$h_settingsbt = GUICtrlCreateButton("&Settings", 10, 10)

GUISetState(@SW_SHOW, $h_maingui)
While 1
$a_msg = GUIGetMsg(1)
Select
Case $a_msg[0] == $GUI_EVENT_CLOSE
ExitLoop 1
Case $a_msg[0] == $h_settingsbt
GUISetState(@SW_DISABLE, $h_maingui)
$h_settingsgui = GUICreate("Settings GUI", 240, 240, -1, -1, $WS_CAPTION + $WS_SYSMENU, -1, $h_maingui)

GUISetState(@SW_SHOW, $h_settingsgui)
While 1
$a_msg = GUIGetMsg(1)
Select
Case $a_msg[0] == $GUI_EVENT_CLOSE
ExitLoop 1
EndSelect
WEnd
GUISetState(@SW_ENABLE, $h_maingui)
GUIDelete($h_settingsgui)
;~ WinActivate($S_WINTITLE, "")
EndSelect
WEnd
GUIDelete($h_maingui)
Exit(0)

Hallo,

meinst Du sowas -> Neue Tipps beim Windows-Start

Hallo,

mit / oder - eingeleitet Parameter sind in der Regel Programmoptionen mit denen ich das Verhalten des Programms steuern kann. Irgendwie muss man im Programm ja zwischen Programmoption und anderen Parametern, wie Dateinamen oder ähnlichem, unterscheiden können.

Hallo,

ersetzte mal die While-Schleife am Ende durch folgende und probiers dann noch mal!

While 1
If WinExists("[Title:Microsoft Business Solutions-Navision;CLASS:#32770]") Then
$text = WinGetText("[Title:Microsoft Business Solutions-Navision;CLASS:#32770]")
$suchbegriff = _StringBetween($text, 'Debitor ', ' fehlt', 1)
If IsArray($suchbegriff) Then MsgBox(0, 'gefunden', $text)
EndIf
WEnd

Das WinAcivate in Zeile 56 ist Falsch, müsste eigentlch so heissen:

If WinActivate ("Microsoft Business Solutions-Navision",$text) Then

Hallo,

Du bekommst bestimmt einen Blue-Screen mit der Meldung "Inaccesible boot device" oder?

Alten Rechner hochfahren und unterm Geräte-Manager->IDE ATA/ATAPI-Controller den Vorhanden Controller umstellen auf Standard-Zweikanal-PCI-IDE-Controller. Danach den Primären- und Sekundären-IDE-Kanal auf Standard-IDE/ESDI-Festplattencontroller umstellen.

Rechner herunterfahren, Festplatte ausbauen und an den IDE-Conroller des neuen Rechners anschliessen, von der Festplatte booten und Treiber installieren. Danach sollte auch das Klonen auf die SATA-Platte funktionieren.

Hallo,

wenn Du die Funktion von Xenobiologist so aufrufst geht's:

_getLastDayOfUltimo(@YEAR, @MON)

Der Code sollte ja nur demonstrieren was im Januar passiert.

Hallo,

hier mein Lösungsvorschlag:

Mit der Konstanten $iStep kannst Du einstellen mit wievielen Schritte die Fenster von oben-links nach unten unten-rechts laufen.

Hallo,

So gehts auf jeden Fall:

$aszFile = StringSplit(FileRead("C:\test.txt"),@CRLF,1)
$fhOutput = FileOpen("C:\test.txt",2)
For $i = 1 To $aszFile[0]
If StringLen(StringStripWS($aszFile[$i],8)) Then
FileWriteLine($fhOutput,$aszFile[$i])
EndIf
Next
FileClose($fhOutput)

Hallo,

bitte mal ein Code-Beispiel posten!

Hallo,

da muss ich dir widersprechen, IniWrite ist viel flexibler als FileWrite, ausserdem müsste man, wenn man nur eine Wert ändert, vorher die ganze Ini-Datei einlesen, den Wert ändern und wieder wegschreiben. Dann ist es wieder vorbei mit dem Geschwindigkeitsvorteil.

Und ausserdem rebootet man ja nicht ständig.

Hallo,

ich hab auch noch einen:

Dim $str[3] = ['4:32', '10:01', '1:01']

For $i = 0 To UBound($str) - 1
$str[$i] = StringRight('0' & $str[$i],5)
ConsoleWrite($str[$i] & @CRLF)
Next

Hallo,

eine Möglichkeit wäre folgendes:

$szResult = Funktion_A()
While 1
Switch $szResult
Case "Funktion_A"
$szResult = Funktion_A()

Case "Funktion_B"
$szResult = Funktion_B()
EndSwitch
WEnd

Func Funktion_A()
; [Code mit Auswertung von User-Input]
Return "Funktion_B"
EndFunc

Func Funktion_B()
; [Code mit Auswertung von User-Input]
Return "Funktion_A"
EndFunc

Nicht .ink sondern .LNK, das ist die Dateierweiterung von Verknüpfungen!

An den Entwickler wenden und freundlich nachfragen!

Hallo,

mit ShellExecute kann man auch .lnk-Dateien starten!

Hallo,

unter Autoit3\Extras\Exe2Aut gibt es ein Tool mit dem Du,
wenn Du der rechtmäßige Besitzer bist und das Passwort hast, das Programm wieder in eine au3-Datei umwandeln.

Nein, dass passt schon so:

$binPatch = BinaryMid($binOrginal,1,0x205F); kopiert 0x205F Bytes nach $binPatch
$binPatch &= BinaryMid(Binary(0xEB),1,1) ; 0xEB anhängen
$binPatch &= BinaryMid(Binary(0x1A),1,1) ; 0x1A anhängen
$binPatch &= BinaryMid($binOrginal,0x2062) ; den Rest nach 0x7403 anhängen