Beiträge von RR04

ich nutze eigentlich immer die aktuelle Version von SciTe, da hat sich nämlich was im aussehen geändert... ich Versuche es mal zu beschreiben.
Also au3-Datei geöffnet.
Dann unter Extras->Kompilieren (STRG+F7)
Dann unter dem Reiter "Resource update" -> hier muss der Reshack installiert werden, wenn noch nicht geschehen
Dann ziemlich in der Mitte vom Register: FileVersion
dort dann eine Versionnummer angeben und rechts "Auto increment" auswählen. Wenn nun Kompiliert wird, wird automatisch die letzte Stelle der Versionsnummer hochgezählt...

Hoffe du findest jetzt die Stelle, hat sich im Design mal geändert, seit dem ich es nutze...

Geht die "Versionsnummer setzen Funktion" nur über SciTe, oder auch über die Shell(RechteMaustaste auf die au3)???
Die Versionnummer wird mit dem Reshack-Tool gesetzt. Du kannst das Reshack-Tool auch so starten (ist nur ne exe im Verzeichnis AutoIt3\SciTE\AutoIt3Wrapper\ResHacker.exe) und kannst da dir die erzeugten EXEs genauer anschauen.

Original-URL des Artikels: http://www.golem.de/0802/57768.html Veröffentlicht: 18.02.2008 11:31
Freier Zugriff auf Microsofts binäre Office-Formate
Microsoft gibt Spezifikationen frei

Wie angekündigt, hat Microsoft die Spezifikationen für die binären Office-Formate des Softwaregiganten freigegeben. Damit erhalten nun alle Interessierten Zugriff auf den Aufbau der Dateiformate von Word, Excel, PowerPoint sowie Drawing. Als kleine Überraschung wurden auch die Spezifikationen des WMF-Dateiformats veröffentlicht.

Ab sofort hat jedermann Zugriff auf die Spezifikationen der binären Office-Formate doc, xls, ppt sowie das Dateiformat von Office Drawing, die gesammelt auf einer Webseite präsentiert werden. Zwar waren diese Spezifikationen bereits zuvor lizenzfrei zu bekommen, aber diese gab es erst nach direkter Anfrage bei Microsoft. Es gibt die Vermutung, dass dabei vor allem große Unternehmen berücksichtigt wurden, während kleinere Entwickler oder Firmen keine Möglichkeit hatten, an diese Daten heranzukommen.

Nun hat Microsoft diese Spezifikationen unter der Open Specification Promise veröffentlicht. In diesem Rahmen wurden auch die Spezifikationen für das WMF-Dateiformat (Windows Metafile Format) sowie das "Windows Compound Binary File Format" und die Spezifikationen zum "Ink Serialized Format" (ISF) frei zugänglich gemacht.

Zudem wurde auf Sourceforge der bereits angekündigte "Office Binary Translator to Open XML" veröffentlicht. Innerhalb des Projekts soll ein Konverter unter einer BSD-Lizenz entwickelt werden, um die alten Office-Formate aus Redmond in das neue XML-Format OOXML umzuwandeln. Hierbei will Microsoft mit anderen Firmen zusammenarbeiten. Noch befinde sich das Projekt in einem frühen Stadium, erklärte Brian Jones aus Microsofts Office-Team. (ip)

[autoit]

; by Ritzelrocker04 ==> IGRv8017.au3

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

#include <GUIConstants.au3>

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

Dim $_Ergebnis_BMI
Dim $_EingabeGew , $_EingabeGro
Dim $_Ergebnis_Klasse
Dim $_Smileys

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

$ico_Normalgew = "IGRsys\Normalgew.ico"
$ico_Untergew = "IGRsys\Untergew.ico"
$ico_Uebergew = "IGRsys\Uebergew.ico"
$ico_StarkUebergew = "IGRsys\StarkUebergew.ico"
$ico_Zwink = "IGRsys\Zwink.ico"
$ico_Zwink2 = "IGRsys\Zwink2.ico"
$ico_ZwinkY = "IGRsys\ZwinkY.ico"

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

$var1 = IniRead(@ScriptDir & "\IGR.ini", "Settings", "maennlich", "0")

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

$GUI = GUICreate("IGR & BMI v 8.0", 258, 322, -1, -1)
$gb_Eingaben = GUICtrlCreateGroup("Ihre Eingaben", 16, 16, 225, 120)
$tb_Gewicht = GUICtrlCreateInput("Gewicht in kg", 32, 48, 73, 21, $ES_NUMBER)
GUICtrlSetState(-1, $GUI_FOCUS)
$tb_Groesse = GUICtrlCreateInput("Größe in cm", 32, 88, 73, 21, $ES_NUMBER)
$rb_Maennlich = GUICtrlCreateRadio("&männlich", 144, 56, 65, 17)
$rb_Weiblich = GUICtrlCreateRadio("&weiblich", 144, 88, 65, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$ico_Icon = GUICtrlCreateIcon($ico_Normalgew, 0, 200, 160, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
$lb_BMI = GUICtrlCreateLabel("Willkommen,", 16, 160, 180, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$lb_Klasse = GUICtrlCreateLabel("ich errechne Ihren BMI", 16, 192, 210, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$lb_IGR = GUICtrlCreateLabel("und das Idealgewicht !", 16, 224, 210, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$bn_About = GUICtrlCreateButton("&About", 16, 256, 65, 25, 0)
$bn_Hinweis = GUICtrlCreateButton("&Hinweis", 96, 256, 65, 25, 0)
$bn_Close = GUICtrlCreateButton("&Beenden", 176, 256, 65, 25, 0)
$bn_Rechnen = GUICtrlCreateButton("&Rechnen", 16, 290, 225, 25, 0)
GUICtrlSetState(-1,$GUI_DEFBUTTON)

Switch $var1
Case 0
GUICtrlSetState($rb_Maennlich, $GUI_CHECKED)
Case 1
GUICtrlSetState($rb_Weiblich, $GUI_CHECKED)
EndSwitch

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

GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
If $nMsg <> 0 Then
$_EingabeGew = GUICtrlRead($tb_Gewicht)
$_EingabeGro = GUICtrlRead($tb_Groesse)
$_Er = GUICtrlRead($rb_Maennlich)
Select
Case $nMsg = $bn_Rechnen
If $_EingabeGro >= 100 And $_EingabeGro <= 230 Then
$_Ergebnis_BMI = Round($_EingabeGew / ($_EingabeGro / 100) ^ 2, 0)

If $_Er = 1 Then
Switch GUICtrlRead($rb_Maennlich)
Case $GUI_CHECKED
IniWrite(@ScriptDir & "\IGR.ini", "Settings", "maennlich", "0")
Case $GUI_UNCHECKED
IniWrite(@ScriptDir & "\IGR.ini", "Settings", "maennlich", "1")
EndSwitch

$_Ergebnis_IGR = ($_EingabeGro - 100) * 0.9

Switch $_Ergebnis_BMI
Case 0 To 20
$_Ergebnis_Klasse = "Sie haben Untergewicht ,"
$_Smileys = $ico_Untergew
Case 20 To 25
$_Ergebnis_Klasse = "Sie haben Normalgewicht ,"
$_Smileys = $ico_Normalgew
Case 25 To 30
$_Ergebnis_Klasse = "Sie haben Übergewicht ,"
$_Smileys = $ico_Uebergew
Case 30 To 50
$_Ergebnis_Klasse = "Sie haben starkes Übergewicht ,"
$_Smileys = $ico_StarkUebergew
Case Else
$_Ergebnis_BMI = "erstaunlich"
$_Ergebnis_Klasse = "es bleibt besser unser Geheimnis ,"
$_Smileys = $ico_ZwinkY
EndSwitch
Else
Switch GUICtrlRead($rb_Maennlich)
Case $GUI_CHECKED
IniWrite(@ScriptDir & "\IGR.ini", "Settings", "maennlich", "0")
Case $GUI_UNCHECKED
IniWrite(@ScriptDir & "\IGR.ini", "Settings", "maennlich", "1")
EndSwitch

$_Ergebnis_IGR = ($_EingabeGro - 100) * 0.85

Switch $_Ergebnis_BMI
Case 0 To 19
$_Ergebnis_Klasse = "Sie haben Untergewicht ,"
$_Smileys = $ico_Untergew
Case 19 To 24
$_Ergebnis_Klasse = "Sie haben Normalgewicht ,"
$_Smileys = $ico_Normalgew
Case 24 To 30
$_Ergebnis_Klasse = "Sie haben Übergewicht ,"
$_Smileys = $ico_Uebergew
Case 30 To 50
$_Ergebnis_Klasse = "Sie haben starkes Übergewicht ,"
$_Smileys = $ico_StarkUebergew
Case Else
$_Ergebnis_BMI = "erstaunlich"
$_Ergebnis_Klasse = "es bleibt besser unser Geheimnis ,"
$_Smileys = $ico_ZwinkY
EndSwitch
EndIf
GUICtrlSetImage($ico_Icon, $_Smileys)
GUICtrlSetData($lb_BMI, "Ihr BMI ist " & $_Ergebnis_BMI & " und")
GUICtrlSetData($lb_Klasse, $_Ergebnis_Klasse)
GUICtrlSetData($lb_IGR, "das Idealgewicht beträgt : " & $_Ergebnis_IGR & " kg .")
Else
GUICtrlSetData($lb_BMI, "Sorry ,")
GUICtrlSetData($lb_Klasse, "aber Ihre Größe bitte nur in")
GUICtrlSetData($lb_IGR, "cm von 100 bis 230 eingeben !")
GUICtrlSetImage($ico_Icon, $ico_Zwink2)
EndIf
If $_EingabeGew = 0 Then
GUICtrlSetData($lb_BMI, "Sorry ,")
GUICtrlSetData($lb_Klasse, "Sie müssen noch")
GUICtrlSetData($lb_IGR, "Ihr Gewicht in kg eingeben !")
GUICtrlSetImage($ico_Icon, $ico_Zwink)
EndIf
Case $nMsg = $bn_About
Run("About_008_CSJRE_W9x_3281.exe")
Case $nMsg = $GUI_EVENT_CLOSE Or $nMsg = $bn_Close
Exit
ExitLoop
Case $nMsg = $bn_Hinweis
MsgBox(64, "Wichtiger Hinweis !", "Der BMI unterscheidet nicht zwischen Fett- und Muskelmasse." & @CRLF & _
"Sportler, Bodybuilder und Schwerstarbeiter, die viele Muskel-Kilos auf die Waage bringen," & @CRLF & _
"gehören nach dem BMI bereits in die Kategorie „übergewichtig“, obwohl ihr Körperfett-Anteil " & @CR & _
"nur gering ist. " & @CRLF & _
"Der BMI gilt ebenfalls nicht für Schwangere und stillende Mütter, kranke und alte Menschen " & @CRLF & _
"und Kinder im Wachstum. Überdies werden sehr kleine Menschen ( kleiner als 150 cm) oft " & @CRLF & _
"falsch zu hoch eingestuft, sehr große Menschen (größer als 190 cm) dagegen zu niedrig " & @CRLF & _
"bewertet. Ähnliche Einschränkungen gibt es für Menschen mit schlankem Körperbau, " & @CRLF & _
"die häufig zu niedrig eingestuft werden, und untersetzte Menschen," & @CRLF & _
"die zu schnell als zu dick klassifiziert werden." & @CRLF & _
" " & @CRLF & _
"Der BMI-Rechner soll nur einen ersten Anhalspunkt geben." & @CRLF & _
"Wer es genauer wissen will, ob er abspecken sollte, misst besser seinen persönlichen" & @CRLF & _
"Körperfettanteil, z.B. mit einer speziellen Körperfettwaage!")
EndSelect
EndIf

WEnd

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

[autoit]

; by Benjamin C. und Ritzelrocker04 ==> RDv2100.au3

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

#include <GUIConstants.au3>
#include <file.au3>

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

Dim $aFile

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

$var1 = IniRead(@ScriptDir & "\RD.ini", "Settings", "sichern", "0")

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

$GUI = GUICreate("Running Disk v 2.1.00", 315, 150, -1, 180, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
$gb_All = GUICtrlCreateGroup("", 8, 1, 300, 112)
$tartavi = GUICtrlCreateAvi("RDsys\RD.avi", -1, 24, 10, 100, 100, BitOR($ACS_TRANSPARENT,$ACS_AUTOPLAY))
$gb_EigeneDateien = GUICtrlCreateGroup("Eigene Dateien", 144, 13, 145, 90)
$bn_Close = GUICtrlCreateButton("&Beenden", 229, 120, 75, 25, 0)
$bn_OK = GUICtrlCreateButton("&OK", 149, 120, 75, 25, 0)
$bn_LB = GUICtrlCreateButton("LB", 10, 115, 32, 32, $BS_ICON)
$rb_Sichern = GUICtrlCreateRadio("&sichern", 155, 40, 113, 17)
$rb_SichernUaus = GUICtrlCreateRadio("&nach sichern den PC ausschalten", 155, 65, 113, 33,$BS_MULTILINE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlSetState($bn_OK,$GUI_DEFBUTTON)
GUICtrlSetImage ($bn_LB, "RDsys\ico2770.ico")

Switch $var1
Case 0
GUICtrlSetState($rb_Sichern, $GUI_CHECKED)
Case 1
GUICtrlSetState($rb_SichernUaus, $GUI_CHECKED)
EndSwitch

GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
If $nMsg <> 0 Then
$Sichern = GUICtrlRead($rb_Sichern)
Select
Case $nMsg = $GUI_EVENT_CLOSE Or $nMsg = $bn_Close
Exit
Case $nMsg = $bn_OK
If FileExists("E:\$Backup$\$EigeneDateien$\EigeneDateien-0" & @WDAY & ".zip ") Then
$ExistsFileWahl = MsgBox(32+4, "Löschen", 'Möchten Sie die bereits existierende Datei "EigeneDateien-0' & @WDAY & '.zip" löschen ? ')
If $ExistsFileWahl = 6 Then
FileDelete("E:\$Backup$\$EigeneDateien$\EigeneDateien-0" & @WDAY & ".zip ")
EndIf
EndIf
If $Sichern = 1 Then
$_Userwahlsich = MsgBox(32+4, " Sichern", "Möchten Sie nach der Sicherung weiterarbeiten ? ")
If $_Userwahlsich = 7 Then
MsgBox(48, " Sichern", " ...es wurden keine Daten gesichert ! ")
Exit
EndIf
$Methode = "Sichern"

Switch GUICtrlRead($rb_Sichern)
Case $GUI_CHECKED
IniWrite(@ScriptDir & "\RD.ini", "Settings", "sichern", "0")
Case $GUI_UNCHECKED
IniWrite(@ScriptDir & "\RD.ini", "Settings", "sichern", "1")
EndSwitch

_SichernFunc1()
MsgBox(64, " Sichern", " Sicherung abgeschlossen ! ")
Exit
Else
$_Userwahlout = MsgBox(32+4, " Sichern & Ausschalten", "Möchten Sie nach der Sicherung den PC automatisch ausschalten ? ")
If $_Userwahlout = 7 Then
MsgBox(48, " Sichern & Ausschalten", " ...es wurden keine Daten gesichert ! ")
Exit
EndIf
$Methode = "Sichern & Ausschalten"

Switch GUICtrlRead($rb_Sichern)
Case $GUI_CHECKED
IniWrite(@ScriptDir & "\RD.ini", "Settings", "sichern", "0")
Case $GUI_UNCHECKED
IniWrite(@ScriptDir & "\RD.ini", "Settings", "sichern", "1")
EndSwitch

_SichernFunc1()
Shutdown(9)
EndIf
ExitLoop
Case $nMsg = $bn_LB
$file = "RD.log"
$ret = _FileReadToArray($file, $aFile)
If $ret = 0 Then MsgBox(0, '', 'Fehler')
MsgBox(0, 'Letzte Sicherung', $aFile[$aFile[0]-1])
EndSelect
EndIf
WEnd

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

Func _SichernFunc1()

GUICtrlSetState ($tartavi, 0)
GUICtrlDelete($tartavi)
$avi2go = GUICtrlCreateAvi("RDsys\RDgo.avi", -1, 24, 10, 100, 100, BitOR($ACS_TRANSPARENT,$ACS_AUTOPLAY))
RunWait(@ComSpec & ' /c ' & "RDsys\7za.exe a -tzip " & "E:\$Backup$\$EigeneDateien$\EigeneDateien-0" & @WDAY & ".zip " & '"' & @MyDocumentsDir & '"', @ScriptDir, @SW_MINIMIZE)
GUICtrlSetState ($avi2go, 0)
GUICtrlDelete($avi2go)
$tartavi = GUICtrlCreateAvi("RDsys\RD.avi", -1, 24, 10, 100, 100, BitOR($ACS_TRANSPARENT,$ACS_AUTOPLAY))

$logfile = FileOpen("RD.log", 1)
If $logfile = -1 Then
MsgBox(0, "Error", " Die Datei RD.log konnte nicht geöffnet werden.", 3)
Exit
EndIf

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

FileWriteLine($logfile, "der Eigenen Dateien, den PC " & $Methode & ", am : " & @YEAR & "-" & @MON & "-" & @MDAY & " um " & @HOUR & ":" & @MIN & ":" & @SEC & " Uhr")
FileClose($logfile)
;SoundSetWaveVolume(50)
SoundPlay("RDsys\Success.wav", 1)

EndFunc ; ==> _SichernFunc1()

[/autoit]

Makro
Beschreibung
@SEC
Sekundenwert der Uhrzeit. Wertebereich: 00 bis 59
@MIN
Minutenwert der Uhrzeit. Wertebereich: 00 bis 59
@HOUR
Stundenwert der Uhrzeit im 24-Stunden-Format. Wertebereich: 00 bis 23
@MDAY
Aktueller Tag des Monats. Wertebereich: 01 bis 31
@MON
Aktueller Monat. Wertebereich: 01 bis 12
@YEAR
Aktuelles Jahr (4-stellig)
@WDAY
Numerischer Tag der Woche. Wertebereich: 1 bis 7 = Sonntag bis Samstag
@YDAY
Aktueller Tag des Jahres. Wertebereich: 1 bis 366 (oder 365, wenn es kein Schaltjahr ist)

[autoit]

; by Ritzelrocker04 ==> IGRv8016.au3

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

#include <GUIConstants.au3>

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

Dim $_Ergebnis_BMI
Dim $_EingabeGew , $_EingabeGro
Dim $_Ergebnis_Klasse
Dim $_Smileys

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

$ico_Normalgew = "IGRsys\Normalgew.ico"
$ico_Untergew = "IGRsys\Untergew.ico"
$ico_Uebergew = "IGRsys\Uebergew.ico"
$ico_StarkUebergew = "IGRsys\StarkUebergew.ico"
$ico_Zwink = "IGRsys\Zwink.ico"
$ico_Zwink2 = "IGRsys\Zwink2.ico"
$ico_ZwinkY = "IGRsys\ZwinkY.ico"

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

$GUI = GUICreate("IGR & BMI v 8.0", 258, 322, -1, -1)
$gb_Eingaben = GUICtrlCreateGroup("Ihre Eingaben", 16, 16, 225, 120)
$tb_Gewicht = GUICtrlCreateInput("Gewicht in kg", 32, 48, 73, 21, $ES_NUMBER)
GUICtrlSetState(-1, $GUI_FOCUS)
$tb_Groesse = GUICtrlCreateInput("Größe in cm", 32, 88, 73, 21, $ES_NUMBER)
$rb_Maennlich = GUICtrlCreateRadio("&männlich", 144, 56, 65, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$rb_Weiblich = GUICtrlCreateRadio("&weiblich", 144, 88, 65, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$ico_Icon = GUICtrlCreateIcon($ico_Normalgew, 0, 200, 160, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
$lb_BMI = GUICtrlCreateLabel("Willkommen,", 16, 160, 180, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$lb_Klasse = GUICtrlCreateLabel("ich errechne Ihren BMI", 16, 192, 210, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$lb_IGR = GUICtrlCreateLabel("und das Idealgewicht !", 16, 224, 210, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$bn_About = GUICtrlCreateButton("&About", 16, 256, 65, 25, 0)
$bn_Hinweis = GUICtrlCreateButton("&Hinweis", 96, 256, 65, 25, 0)
$bn_Close = GUICtrlCreateButton("&Beenden", 176, 256, 65, 25, 0)
$bn_Rechnen = GUICtrlCreateButton("&Rechnen", 16, 290, 225, 25, 0)
GUICtrlSetState(-1,$GUI_DEFBUTTON)

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

GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
If $nMsg <> 0 Then
$_EingabeGew = GUICtrlRead($tb_Gewicht)
$_EingabeGro = GUICtrlRead($tb_Groesse)
$_Er = GUICtrlRead($rb_Maennlich)
Select
Case $nMsg = $bn_Rechnen
If $_EingabeGro >= 100 And $_EingabeGro <= 230 Then
$_Ergebnis_BMI = Round($_EingabeGew / ($_EingabeGro / 100) ^ 2, 0)

If $_Er = 1 Then
$_Ergebnis_IGR = ($_EingabeGro - 100) * 0.9

Switch $_Ergebnis_BMI
Case 0 To 20
$_Ergebnis_Klasse = "Sie haben Untergewicht ,"
$_Smileys = $ico_Untergew
Case 20 To 25
$_Ergebnis_Klasse = "Sie haben Normalgewicht ,"
$_Smileys = $ico_Normalgew
Case 25 To 30
$_Ergebnis_Klasse = "Sie haben Übergewicht ,"
$_Smileys = $ico_Uebergew
Case 30 To 50
$_Ergebnis_Klasse = "Sie haben starkes Übergewicht ,"
$_Smileys = $ico_StarkUebergew
Case Else
$_Ergebnis_BMI = "erstaunlich"
$_Ergebnis_Klasse = "es bleibt besser unser Geheimnis ,"
$_Smileys = $ico_ZwinkY
EndSwitch
Else
$_Ergebnis_IGR = ($_EingabeGro - 100) * 0.85

Switch $_Ergebnis_BMI
Case 0 To 19
$_Ergebnis_Klasse = "Sie haben Untergewicht ,"
$_Smileys = $ico_Untergew
Case 19 To 24
$_Ergebnis_Klasse = "Sie haben Normalgewicht ,"
$_Smileys = $ico_Normalgew
Case 24 To 30
$_Ergebnis_Klasse = "Sie haben Übergewicht ,"
$_Smileys = $ico_Uebergew
Case 30 To 50
$_Ergebnis_Klasse = "Sie haben starkes Übergewicht ,"
$_Smileys = $ico_StarkUebergew
Case Else
$_Ergebnis_BMI = "erstaunlich"
$_Ergebnis_Klasse = "es bleibt besser unser Geheimnis ,"
$_Smileys = $ico_ZwinkY
EndSwitch
EndIf
GUICtrlSetImage($ico_Icon, $_Smileys)
GUICtrlSetData($lb_BMI, "Ihr BMI ist " & $_Ergebnis_BMI & " und")
GUICtrlSetData($lb_Klasse, $_Ergebnis_Klasse)
GUICtrlSetData($lb_IGR, "das Idealgewicht beträgt : " & $_Ergebnis_IGR & " kg .")
Else
GUICtrlSetData($lb_BMI, "Sorry ,")
GUICtrlSetData($lb_Klasse, "aber Ihre Größe bitte nur in")
GUICtrlSetData($lb_IGR, "cm von 100 bis 230 eingeben !")
GUICtrlSetImage($ico_Icon, $ico_Zwink2)
EndIf
If $_EingabeGew = 0 Then
GUICtrlSetData($lb_BMI, "Sorry ,")
GUICtrlSetData($lb_Klasse, "Sie müssen noch")
GUICtrlSetData($lb_IGR, "Ihr Gewicht in kg eingeben !")
GUICtrlSetImage($ico_Icon, $ico_Zwink)
EndIf
Case $nMsg = $bn_About
Run("About_007_CSJRE_W9x_3281.exe")
Case $nMsg = $GUI_EVENT_CLOSE Or $nMsg = $bn_Close
Exit
ExitLoop
Case $nMsg = $bn_Hinweis
MsgBox(64, "Wichtiger Hinweis !", "Der BMI unterscheidet nicht zwischen Fett- und Muskelmasse." & @CRLF & _
"Sportler, Bodybuilder und Schwerstarbeiter, die viele Muskel-Kilos auf die Waage bringen," & @CRLF & _
"gehören nach dem BMI bereits in die Kategorie „übergewichtig“, obwohl ihr Körperfett-Anteil " & @CR & _
"nur gering ist. " & @CRLF & _
"Der BMI gilt ebenfalls nicht für Schwangere und stillende Mütter, kranke und alte Menschen " & @CRLF & _
"und Kinder im Wachstum. Überdies werden sehr kleine Menschen ( kleiner als 150 cm) oft " & @CRLF & _
"falsch zu hoch eingestuft, sehr große Menschen (größer als 190 cm) dagegen zu niedrig " & @CRLF & _
"bewertet. Ähnliche Einschränkungen gibt es für Menschen mit schlankem Körperbau, " & @CRLF & _
"die häufig zu niedrig eingestuft werden, und untersetzte Menschen," & @CRLF & _
"die zu schnell als zu dick klassifiziert werden." & @CRLF & _
" " & @CRLF & _
"Der BMI-Rechner soll nur einen ersten Anhalspunkt geben." & @CRLF & _
"Wer es genauer wissen will, ob er abspecken sollte, misst besser seinen persönlichen" & @CRLF & _
"Körperfettanteil, z.B. mit einer speziellen Körperfettwaage!")
EndSelect
EndIf

WEnd

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

[autoit]

Switch Msgbox(32+4,"MsgBox","Soll hiernach noch einer Messagebox angezeigt werden?")

[/autoit]

[autoit]

; by Benjamin C. und Ritzelrocker04 ==> RDv2017.au3

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

#include <GUIConstants.au3>

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

;$var = IniRead("C:\Temp\myfile.ini", "section2", "key", "NotFound") ; Beispiel aus Hilfe

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

$var1 = IniRead(@ScriptDir & "\RD.ini", "Settings", "sichern", "NotFound")
$var2 = IniRead(@ScriptDir & "\RD.ini", "Settings", "sichernUaus", "NotFound")
;GUICtrlSetState($rb_SichernUaus, $var1)

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

$GUI = GUICreate("Running Disk v 2.0.17", 315, 150, -1, 180, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
$gb_All = GUICtrlCreateGroup("", 8, 1, 300, 112)
$avi = GUICtrlCreateAvi("RDsys\RD.avi", -1, 24, 10, 100, 100, BitOR($ACS_TRANSPARENT,$ACS_AUTOPLAY))
$gb_EigeneDateien = GUICtrlCreateGroup("Eigene Dateien", 144, 13, 145, 90)
$bn_Close = GUICtrlCreateButton("&Beenden", 229, 120, 75, 25, 0)
$bn_OK = GUICtrlCreateButton("&OK", 149, 120, 75, 25, 0)
GUICtrlSetState(-1,$GUI_DEFBUTTON)
$rb_Sichern = GUICtrlCreateRadio("&sichern", 150, 40, 113, 17)
;GUICtrlSetState($rb_Sichern, $GUI_CHECKED)
$rb_SichernUaus = GUICtrlCreateRadio("&nach sichern den PC ausschalten", 150, 65, 113, 33, BitOR($BS_AUTORADIOBUTTON,$BS_MULTILINE))
GUICtrlCreateGroup("", -99, -99, 1, 1) ; ==> BitOR($BS_AUTORADIOBUTTON,

GUICtrlSetState($rb_Sichern, $var1)
GUICtrlSetState($rb_SichernUaus, $var2)

;$GUI_UNCHECKED Markierung in Radio oder Checkbox wird entfernt
;$GUI_CHECKED Radio oder Checkbox wird markiert

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

GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
If $nMsg <> 0 Then
$Sichern = GUICtrlRead($rb_Sichern)
Select
Case $nMsg = $GUI_EVENT_CLOSE Or $nMsg = $bn_Close
Exit
Case $nMsg = $bn_OK
If FileExists("E:\$Backup$\$EigeneDateien$\EigeneDateien-0" & @WDAY & ".zip ") Then
$ExistsFileWahl = MsgBox(32+4, "Löschen", 'Möchten Sie die bereits existierende Datei "EigeneDateien-0' & @WDAY & '.zip" löschen ? ')
If $ExistsFileWahl = 6 Then
FileDelete("E:\$Backup$\$EigeneDateien$\EigeneDateien-0" & @WDAY & ".zip ")
EndIf
EndIf
If $Sichern = 1 Then
$_Userwahlsich = MsgBox(32+4, " Sichern", "Möchten Sie nach der Sicherung weiterarbeiten ? ")
If $_Userwahlsich = 7 Then
MsgBox(48, " Sichern", " ...es wurden keine Daten gesichert ! ")
Exit
EndIf
$Methode = "Sichern"
IniWrite(@ScriptDir & "\RD.ini", "Settings", "sichern", "1")
IniWrite(@ScriptDir & "\RD.ini", "Settings", "sichernUaus", "0")
_SichernFunc1()
MsgBox(64, " Sichern", " Sicherung abgeschlossen ! ")
Exit
Else
$_Userwahlout = MsgBox(32+4, " Sichern & Ausschalten", "Möchten Sie nach der Sicherung den PC automatisch ausschalten ? ")
If $_Userwahlout = 7 Then
MsgBox(48, " Sichern & Ausschalten", " ...es wurden keine Daten gesichert ! ")
Exit
EndIf
$Methode = "Sichern & Ausschalten"
IniWrite(@ScriptDir & "\RD.ini", "Settings", "sichern", "0")
IniWrite(@ScriptDir & "\RD.ini", "Settings", "sichernUaus", "1")
_SichernFunc1()
Shutdown(9)
EndIf
ExitLoop
EndSelect
EndIf
WEnd

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

Func _SichernFunc1()

RunWait(@ComSpec & ' /c ' & "RDsys\7za.exe a -tzip " & "E:\$Backup$\$EigeneDateien$\EigeneDateien-0" & @WDAY & ".zip " & '"C:\Dokumente und Einstellungen\XP-Home\Eigene Dateien"',@ScriptDir ,@SW_MINIMIZE)
$logfile = FileOpen("RD.log", 1)

If $logfile = -1 Then
MsgBox(0, "Error", " Die Datei RD.log konnte nicht geöffnet werden.", 3)
Exit
EndIf

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

FileWriteLine($logfile, "Letzte Sicherung (" & $Methode & ") der Eigenen Dateien am : " & @YEAR & "-" & @MON & "-" & @MDAY & " um " & @HOUR & ":" & @MIN & ":" & @SEC & " Uhr")
FileClose($logfile)
SoundSetWaveVolume(50)
SoundPlay("RDsys\Success.wav", 1)

EndFunc

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

[autoit]

; by Benjamin C. und Ritzelrocker04 ==> RDv2018.au3
#include <GUIConstants.au3>
#include <file.au3>

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

Dim $aFile

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

$GUI = GUICreate("Running Disk v 2.0.18", 315, 150, -1, 180, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
$gb_All = GUICtrlCreateGroup("", 8, 1, 300, 112)
$avi = GUICtrlCreateAvi("RDsys\RD.avi", -1, 24, 10, 100, 100, BitOR($ACS_TRANSPARENT,$ACS_AUTOPLAY))
$gb_EigeneDateien = GUICtrlCreateGroup("Eigene Dateien", 144, 13, 145, 90)
$bn_Close = GUICtrlCreateButton("&Beenden", 229, 120, 75, 25, 0)
$bn_OK = GUICtrlCreateButton("&OK", 149, 120, 75, 25, 0)
GUICtrlSetState(-1,$GUI_DEFBUTTON)
$bn_LB = GUICtrlCreateButton("LB", 10, 115, 32, 32, $BS_ICON)
GUICtrlSetImage (-1, "RDsys\ico2770.ico")
$rb_Sichern = GUICtrlCreateRadio("&sichern", 150, 40, 113, 17)
GUICtrlSetState($rb_Sichern, $GUI_CHECKED)
$rb_SichernUaus = GUICtrlCreateRadio("&nach sichern den PC ausschalten", 150, 65, 113, 33, BitOR($BS_AUTORADIOBUTTON,$BS_MULTILINE))
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
If $nMsg <> 0 Then
$Sichern = GUICtrlRead($rb_Sichern)
Select
Case $nMsg = $GUI_EVENT_CLOSE Or $nMsg = $bn_Close
Exit
Case $nMsg = $bn_OK
If FileExists("E:\$Backup$\$EigeneDateien$\EigeneDateien-0" & @WDAY & ".zip ") Then
$ExistsFileWahl = MsgBox(32+4, "Löschen", 'Möchten Sie die bereits existierende Datei "EigeneDateien-0' & @WDAY & '.zip" löschen ? ')
If $ExistsFileWahl = 6 Then
FileDelete("E:\$Backup$\$EigeneDateien$\EigeneDateien-0" & @WDAY & ".zip ")
EndIf
EndIf
If $Sichern = 1 Then
$_Userwahlsich = MsgBox(32+4, " Sichern", "Möchten Sie nach der Sicherung weiterarbeiten ? ")
If $_Userwahlsich = 7 Then
MsgBox(48, " Sichern", " ...es wurden keine Daten gesichert ! ")
Exit
EndIf
$Methode = "Sichern"
_SichernFunc1()
MsgBox(64, " Sichern", " Sicherung abgeschlossen ! ")
Exit
Else
$_Userwahlout = MsgBox(32+4, " Sichern & Ausschalten", "Möchten Sie nach der Sicherung den PC automatisch ausschalten ? ")
If $_Userwahlout = 7 Then
MsgBox(48, " Sichern & Ausschalten", " ...es wurden keine Daten gesichert ! ")
Exit
EndIf
$Methode = "Sichern & Ausschalten"
_SichernFunc1()
Shutdown(9)
EndIf
ExitLoop
Case $nMsg = $bn_LB
$file = "RD.log"
$ret = _FileReadToArray($file, $aFile)
If $ret = 0 Then Exit MsgBox(0, '', 'Fehler')
MsgBox(0, 'Letzte Sicherung', $aFile[$aFile[0]-1])
EndSelect
EndIf
WEnd

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

Func _SichernFunc1()

RunWait(@ComSpec & ' /c ' & "RDsys\7za.exe a -tzip " & "E:\$Backup$\$EigeneDateien$\EigeneDateien-0" & @WDAY & ".zip " & '"C:\Dokumente und Einstellungen\XP-Home\Eigene Dateien"',@ScriptDir ,@SW_MINIMIZE)
$logfile = FileOpen("RD.log", 1)

If $logfile = -1 Then
MsgBox(0, "Error", " Die Datei RD.log konnte nicht geöffnet werden.", 3)
Exit
EndIf

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

FileWriteLine($logfile, "der Eigenen Dateien, den PC " & $Methode & " am : " & @YEAR & "-" & @MON & "-" & @MDAY & " um " & @HOUR & ":" & @MIN & ":" & @SEC & " Uhr")
FileClose($logfile)
SoundSetWaveVolume(50)
SoundPlay("RDsys\Success.wav", 1)

EndFunc

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

[autoit]

; by Ritzelrocker04

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

; Selbstentpackendes Archiv (EXE-Datei) erstellen mit 7zip

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

; 1. Format exe
RunWait(@ComSpec & ' /c ' & "7z a -sfx " & "C:\TEST.exe " & "C:\TEST\*.*",@ScriptDir ,@SW_MINIMIZE)

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

; 2. Format exe
RunWait(@ComSpec & ' /c ' & "7z a -sfx " & "C:\TEST.exe " & "C:\TEST",@ScriptDir ,@SW_MINIMIZE)

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

; Zip-Archiv erstellen mit 7zip

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

; 3. Format zip
RunWait('USBsys\7za.exe a -tzip "' & @MyDocumentsDir & '\My Stick\USB-Stick-0"' & @WDAY & '".zip" "' & $src_LW, @MyDocumentsDir, @SW_MINIMIZE)

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

; 4. klassisch packen mit Variablen Format zip
$zip = '7z a -tzip ' ; Pfad zu 7zip
$archiv = 'archiv.zip ' ; Name des zu erstellenden ZIP-Archivs (anpassen)
$pfad = Chr(34) & @ScriptDir & '\test\' & Chr(34); Verzeichnis das gepackt werden soll (anpassen)
RunWait(@ComSpec & ' /c ' & $zip & $archiv & $pfad, @ScriptDir, @SW_HIDE)

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

; 5. klassisch packen mit Variablen in Funktion Format zip (by qon)
Func _zip($sZipname,$sFoldertozip)
If Fileexists(@scriptdir & "\7z.exe") <> 1 Then Seterror(1,0,0)
IF Fileexists($sFoldertozip) = 0 Then Seterror(2,0,0)
RunWait(@ComSpec & ' /c ' & '7z a -tzip ' & $sZipname & " " & Chr(34) & $sFoldertozip & "\" & Chr(34), @ScriptDir,@SW_HIDE)
IF @error <> 0 Then Seterror(3,0,0)
EndFunc

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

; packen mit Passwort und Verschlüsselung

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

; 6. Format 7z
RunWait(@ComSpec & ' /c ' & "7z a -t7z " & "C:\TEST.7z " & '"C:\TEST" -pGeheim -mhe',@ScriptDir ,@SW_MINIMIZE)

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

; 7. Format exe
RunWait(@ComSpec & ' /c ' & "7z a -sfx " & "C:\TEST.exe " & '"C:\TEST" -pGeheim -mhe',@ScriptDir ,@SW_MINIMIZE)

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

Examples
7z a -sfx a.exe *.txt
adds *.txt files to self extracting archive a.exe using the default console SFX module.
7z a -sfx7z.sfx a.exe *
adds all files to self extracting archive a.exe with module 7z.sfx using windows version of SFX mudule

Examples
7z e archive.zip
extracts all files from archive archive.zip to the current directory.
7z e archive.zip -oc:\soft *.cpp -r
extracts all *.cpp files from archive archive.zip to c:\soft folder.

x (Extract with full paths) command
Extracts files from an archive with their full paths in the current directory, or in an output directory if specified.
See the e (Extract) command description for more deatails.
Examples
7z x archive.zip
extracts all files from the archive archive.zip to the current directory.
7z x archive.zip -oc:\soft *.cpp -r
extracts all *.cpp files from the archive archive.zip to c:\soft folder.