Beiträge von i2c

[autoit]

#include <GUIConstants.au3>

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

$Form1 = GUICreate("BLLN", 180, 87, 193, 125)
$Combo1 = GUICtrlCreateCombo("dk01", 56, 8, 113, 25)
GUICtrlSetData(-1, "dk01|dk02|d01|d12", "dk01")
$In1 = GUICtrlCreateInput("", 56, 32, 113, 21)
GUICtrlSetLimit(-1, 4, 4)
$In2 = GUICtrlCreateInput("", 56, 56, 113, 21)
$Lab1 = GUICtrlCreateLabel("BLLN", 8, 8, 38, 20)
$Lab2 = GUICtrlCreateLabel("Eingabe", 8, 32, 43, 17)
$Lab3 = GUICtrlCreateLabel("Ausgabe", 8, 56, 46, 17)
GUISetState(@SW_SHOW)

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

AdlibRegister("_check")
$file = "test.txt"
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

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

Func _check()
If StringLen(GUICtrlRead($In1)) = 4 Then
GUICtrlSetData($In2, _BllRead($file, GUICtrlRead($Combo1), GUICtrlRead($In1), ""))
EndIf
EndFunc ;==>_check

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

;Die Original _IniRead() müsste von SEuBo sein. Hab hier lediglich das Pattern leicht angepasst.
Func _BllRead($sPath, $sSection, $sKey, $sDefault)
$aRet = StringRegExp(FileRead($sPath), '(?i)\[\Q' & $sSection & '\E]\s+(?>.+\s+)*?\Q' & $sKey & '\E\s*:\s*([^\n\r]+)', 1)
If @error Then Return $sDefault
Return $aRet[0]
EndFunc ;==>_BllRead

[/autoit]

[autoit]

;99ojo
#include <GUIConstants.au3>
Global $oRP = ObjCreate("ShockwaveFlash.ShockwaveFlash.1")
GUICreate ("Flash", 820, 600, -1, -1)
$GUIActiveX = GUICtrlCreateObj( $oRP, 10, 10 , 800 , 580)

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

With $oRP
.bgcolor = "#000000"
.Movie = @WindowsDir & '\Help\Tours\mmTour\intro.swf';
.ScaleMode = 2
.Loop = True
.wmode = "Opaque"
.FlashVars = ""
EndWith

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

GUISetState ()

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

While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
EndSelect
WEnd

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

$oRP = 0
GUIDelete ()
Exit

[/autoit]

[autoit]

#include <File.au3>
dim $aFile
$file = @ScriptDir & "\test.txt"
_FileReadToArray($file, $aFile)
For $i = 1 To $aFile[0]
If $aFile[$i] = "" Then
_FileWriteToLine($file, $i, "Klaus", 1)
EndIf
Next

[/autoit]

[autoit]

$1 = "eins"
$2 = "zwei"
$3 = "drei"
$4 = "vier"

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

$Random = Random(1,4,1)
MsgBox(64, "", Eval($Random))

[/autoit]

[autoit]

Global $sound, $msg, $Weck_Sound, $shut, $shutdown, $restart, $sleep
$ini = @ScriptDir & "\config.ini"
$aSettings = IniReadSection($ini, "Settings")

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

For $i = 1 To $aSettings[0][0]
If $aSettings[$i][1] = "False" Then
Assign($aSettings[$i][0], False, 2)
ElseIf $aSettings[$i][1] = "True" Then
Assign($aSettings[$i][0], True, 2)
EndIf
Next

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

;TEST
MsgBox(64, "", "sound: " & $sound & @CRLF & "msg: " & $msg & @CRLF & "Weck_Sound: " & $Weck_Sound & @CRLF & "shuts: " & $shut& @CRLF & "shutdown: " & $shutdown& @CRLF & "restart: " & $restart & @CRLF & $sleep)

[/autoit]