Beiträge von i2c

MsgBox(0, "Mein erstes Script!", "Halloo :D, führe die Anweisungen durch!")
$alter = InputBox("Los gehts!", "Gib dein Alter ein!")
If $alter < 14 Then
MsgBox(0, $alter, "Du musst über 14 sein!")
Exit
Else
MsgBox(0, $alter, "1.Test:")
$zahl = InputBox("", "1 + 1 =")
If $zahl = 2 Then
MsgBox(0, "", "Richtig!")
Else
MsgBox(0, "", "Falsch! Ende!")
Exit
EndIf
$try = InputBox("nächste Frage", "Wie heisst frau merkel mit vornamen?")
If $try = "angela" Then
MsgBox(0, "", "richtig!")
Else
MsgBox(0, "", "Falsch! Ende!")
Exit
EndIf
EndIf

#include <GUIConstants.au3>
#include <ComboConstants.au3>
#region - GUI Create
GUICreate('',200,200)
$Combo1 = GUICtrlCreateCombo("", 8, 8, 145, 25, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Hallo|Welt", "Hallo")
GUISetState()
#endregion

#region - GUI SelectLoop
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
EndSelect
WEnd
#endregion

; EU Staaten und deren Hauptstädte
; Lern script für das Fach ,,Politik"

Dim $Land[27]

$Land[0] = "Belgien"
$Land[1] = "Deutschland"
$Land[2] = "Frankreich"
$Land[3] = "Italien"
$Land[4] = "Luxemburg"
$Land[5] = "Niederlande"
$Land[6] = "Dänemark"
$Land[7] = "Irland"
$Land[8] = "England"
$Land[9] = "Griechenland"
$Land[10] = "Protugal"
$Land[11] = "Spanien"
$Land[12] = "Finnland"
$Land[13] = "Österreich"
$Land[14] = "Schweden"
$Land[15] = "Estland"
$Land[16] = "Lettland"
$Land[17] = "Litauen"
$Land[18] = "Malta"
$Land[19] = "Polen"
$Land[20] = "Slowakei"
$Land[21] = "Slowenien"
$Land[22] = "Tschechien"
$Land[23] = "Ungarn"
$Land[24] = "Zypern"
$Land[25] = "Bulgarien"
$Land[26] = "Rumänien"

Dim $Haupstadt[27]

$Haupstadt[0] = "Brüssel"
$Haupstadt[1] = "Berlin"
$Haupstadt[2] = "Paris"
$Haupstadt[3] = "Rom"
$Haupstadt[4] = "Luxemburg"
$Haupstadt[5] = "Amsterdam"
$Haupstadt[6] = "Kopenhagen"
$Haupstadt[7] = "Dublin"
$Haupstadt[8] = "London"
$Haupstadt[9] = "Athen"
$Haupstadt[10] = "Lissabon"
$Haupstadt[11] = "Madrid"
$Haupstadt[12] = "Helsinki"
$Haupstadt[13] = "Wien"
$Haupstadt[14] = "Stockholm"
$Haupstadt[15] = "Tallinn"
$Haupstadt[16] = "Riga"
$Haupstadt[17] = "Vilnius"
$Haupstadt[18] = "Valletta"
$Haupstadt[19] = "Warschau"
$Haupstadt[20] = "Bratislava"
$Haupstadt[21] = "Ljubljana"
$Haupstadt[22] = "Prag"
$Haupstadt[23] = "Budapest"
$Haupstadt[24] = "Nikosia"
$Haupstadt[25] = "Sofia"
$Haupstadt[26] = "Bukarest"

While 1
$rand = Random(0, 26, 1)
$Eingabe = InputBox("EU Städte + Hauptstädte", "Was ist die Hauptstadt von " & $Land[$rand] & "?")
If $Eingabe = $Haupstadt[$rand] Then
MsgBox(0, "Richtig!", "Die Hauptstadt von " & $Land[$rand] & " ist " & $Haupstadt[$rand] & "!")
Else
MsgBox(0, "Falsch", "Die Hauptstadt von " & $Land[$rand] & " war nicht " & $Eingabe & @CRLF & @CRLF & "Die Hauptstadt von " & $Land[$rand] & " war " & $Haupstadt[$rand] & "!")
EndIf
WEnd

#RequireAdmin
#include <array.au3>
#include <File.au3>
#include <SQLite.au3>
Global $sIni = @ScriptDir & "\data.ini"
Global $sFile = @ScriptDir & "\test.txt"
If Not FileExists($sIni) Then IniWrite($sIni, "Reports", "Ordner", @ScriptDir & "\reports")
Global $sReports = IniRead($sIni, "Reports", "Ordner",@ScriptDir & "\reports")
If Not FileExists($sReports) Then DirCreate($sReports)
Dim $aResult[1][2]
Dim $aGUID[5][2] = [["IBM T41","B89BD56C-102C-4659-A172-4E00EC2D80F4"], _
["Dell","2EF17A45-9DB2-4871-8AB8-BBEA55C2DBE2"], _
["HP","A7A8E459-F128-4F40-848A-87EB9CE4E634"], _
["Lenovo","8DE17A45-9DB2-4871-8AB8-BBEA55C2DBE2"], _
["ASUS","599BD56C-102C-4659-A172-4E00EC2D80F4"]]

For $i = 2 To _FileCountLines($sFile)
$sLine = FileReadLine($sFile, $i)
;ConsoleWrite($sLine & @CRLF)
If StringInStr($sLine, "PC010", 1) And StringInStr($sLine, "Aktiv", 1) Then
$aTmp = StringSplit($sLine, ";", 1)
If IsArray($aTmp) And $aTmp[0] = 30 Then
$iIndex = _ArraySearch($aResult, $aTmp[4], 0, 0, 1, 0, 1, 0)
If $iIndex = -1 Then
_Array2DAdd($aResult, $aTmp[4] & "|1")
ElseIf $iIndex >= 0 Then
$aResult[$iIndex][1] += 1
EndIf
EndIf
EndIf
Next
For $i = 1 To UBound($aResult)-1
$index = _ArraySearch($aGUID, $aResult[$i][0])
If Not @error Then
IniWrite($sIni, "HWTyp-GUID", $aResult[$i][0], $aGUID[$index][1])
$tmp = FileOpen($sReports & "\" & $aGUID[$index][1],2)
FileWrite($tmp,$aResult[$i][1])
FileClose($tmp)
Else
MsgBox(0,0,"Keine GUID für " & $aResult[$i][0] & " gefunden")
EndIf
Next
_ArrayDisplay($aResult)
_ArrayDisplay($aResult)

;------------------------------------------------------------------------------------------------------------
;
; Function _Array2DAdd(ByRef $avArray, $sValue='')
;
; Description Redim Array Size and add an Array element at last position
; Works with any occurences in 2nd Dimension
; Works also with 1D-Array
;
; Parameter $avArray Given Array
; optional $sValue Value of new Element, parts must be seperate with '|'
;
; Return Succes -1
; Failure 0 and set @error
; @error = 1 given array is not array
; @error = 2 given parts of Element too less/much
;
; Author BugFix ([email='bugfix@autoit.de'][/email])
;------------------------------------------------------------------------------------------------------------
Func _Array2DAdd(ByRef $avArray, $sValue = '')
If (Not IsArray($avArray)) Then
SetError(1)
Return 0
EndIf
Local $i
Local $UBound2nd = UBound($avArray, 2)
If @error = 2 Then
ReDim $avArray[UBound($avArray) + 1]
$avArray[UBound($avArray) - 1] = $sValue
Else
Local $arValue
ReDim $avArray[UBound($avArray) + 1][$UBound2nd]
If $sValue = '' Then
For $i = 0 To $UBound2nd - 2
$sValue &= '|'
Next
EndIf
$arValue = StringSplit($sValue, '|')
If $arValue[0] <> $UBound2nd Then
SetError(2)
Return 0
EndIf
For $i = 0 To $UBound2nd - 1
$avArray[UBound($avArray) - 1][$i] = $arValue[$i + 1]
Next
EndIf
Return -1
EndFunc ;==>_Array2DAdd

$sIni = ""

$aSections = IniReadSectionNames($sIni)

For $i = 1 To $aSections[0]
$aSection = IniReadSection($sIni, $aSections[$i])
IniDelete($sIni, $aSections[$i])
For $j = 1 To $aSection[0][0]
IniWrite($sIni, $aSections[$i], $j, $aSection[$j][1])
Next
Next