Beiträge von Kleiner

[autoit]

#include <Array.au3>
#include <File.au3>

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

Dim $File1, $File2, $File3
If Not _FileReadToArray(@ScriptDir & "\eins.ini", $File1) Or Not _FileReadToArray(@ScriptDir & "\zwei.ini", $File2) Or Not _FileReadToArray(@ScriptDir & "\drei.ini", $File3) Then; Steht in der Hilfe Beschrieben!
MsgBox(0, 'Fehler', 'Es sind keine Ini Einträge gefunden!')
Exit
EndIf

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

If ($File1[0] <> $File2[0]) Or ($File1[0] <> $File3[0]) Or ($File2[0] <> $File3[0]) Then MsgBox(0, 'Fehler', 'Datein sind ungleich!' & @CR & 'Wir machen weiter!') ; abfrage ob datein gleich groß!

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

;Möglichkeit trotzdem weiter zu arbeiten alle auf die gleiche größe zu bringen!
Dim $UB
If ($File1[0] > $File2[0]) And ($File1[0] > $File3[0]) Then
$UB = $File1[0]
ElseIf ($File2[0] > $File1[0]) And ($File2[0] > $File3[0]) Then
$UB = $File2[0]
Else
$UB = $File3[0]
EndIf

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

ReDim $File1[$UB + 1]
ReDim $File2[$UB + 1]
ReDim $File3[$UB + 1]
Dim $Files2d[$UB][3]

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

For $i = 1 To $UB
$Files2d[$i - 1][0] = $File1[$i]
$Files2d[$i - 1][1] = $File2[$i]
$Files2d[$i - 1][2] = $File3[$i]
Next
_ArrayDisplay($Files2d)

[/autoit]

[autoit]

#include <StructureConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ProgressConstants.au3>
#include <Security.au3>
#include <Memory.au3>
#include <UDFGlobalID.au3>
#include <GuiStatusBar.au3>
#include <GUIEdit.au3>
#include-once
#include <WinAPI.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <Constants.au3>
#include <GUIEdit.au3>
#include <GuiToolbar.au3>
#include <inet.au3>
#include <array.au3>
#include <ie.au3>

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

AdlibRegister("CheckMouse")

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

$oWMP = ObjCreate("WMPLayer.ocx")
$GUI = GUICreate("BlackEyes Stream Player", 498, 357, 238, 172)
$Pic1 = GUICtrlCreatePic("C:\Users\Tobias\Desktop\Schwarzer-hintergrund.jpg", 0, 0, 497, 353, BitOR($WS_GROUP, $WS_CLIPSIBLINGS))
$Combo1 = GUICtrlCreateCombo("Bitte auswählen", 144, 112, 209, 25)
GUICtrlSetData(-1, "TechnoBase.FM|Top100Station|Planet Radio|YouFM|BigFM|89.0 RTL", "Bitte auswählen")
$Label1 = GUICtrlCreateLabel("Radio Streams", 144, 88, 94, 20)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
$Button1 = GUICtrlCreateButton("Play", 24, 304, 193, 33, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("Stop", 280, 304, 193, 33, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetState($Button2, $GUI_DISABLE)
$Progress1 = GUICtrlCreateProgress(8, 8, 33, 265, $PBS_VERTICAL)
$Volume = GUICtrlCreateSlider(448, 8, 33, 265, BitOR($TBS_AUTOTICKS, $TBS_VERT))
GUICtrlSetData(-1, $oWMP.settings.volume())
GUICtrlSetState($Volume, $GUI_DISABLE)
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$readcombo1 = GUICtrlRead($Combo1)
Select
Case $readcombo1 = "TechnoBase.FM"
$oWMP.URL = 'http://listen.technobase.fm/tunein-dsl-asx'
Case $readcombo1 = "Top100Station"
$oWMP.URL = 'http://www.top100station.de/switch/r3472.asx'
Case $readcombo1 = "Planet Radio"
$oWMP.URL = 'http://lsd.newmedia.nacamar.net/bb/redirect.lsc?stream=planetradio$livestream.mp3&content=live&media=mp3'
Case $readcombo1 = "YouFM"
$oWMP.URL = 'http://metafiles.gl-systemhaus.de/hr/youfm_1.asx'
Case $readcombo1 = "BigFM"
$oWMP.URL = 'http://217.151.152.245/bigfm-mp3-96'
Case $readcombo1 = "89.0 RTL"
$oWMP.URL = 'http://www.89.0rtl.de/webradio/rtl-high.m3u'
EndSelect
$oWMP.controls.play()
GUICtrlSetData($Progress1, 100)
$oWMP.settings.volume = 50
GUICtrlSetState($Volume, $GUI_ENABLE)
GUICtrlSetState($Button1, $GUI_DISABLE)
GUICtrlSetState($Button2, $GUI_ENABLE)
GUICtrlSetState($Combo1, $GUI_DISABLE)
Case $Button2
$oWMP.controls.stop()
GUICtrlSetState($Volume, $GUI_DISABLE)
GUICtrlSetState($Button1, $GUI_ENABLE)
GUICtrlSetState($Button2, $GUI_DISABLE)
GUICtrlSetState($Combo1, $GUI_ENABLE)
Case $Volume
$oWMP.settings.volume = 100 - GUICtrlRead($Volume)
EndSwitch
WEnd

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

Func CheckMouse()
Local Static $mouseout = 0
$aMpos = MouseGetPos()
$aWpos = WinGetPos("BlackEyes Stream Player")
If $aMpos[0] > $aWpos[0] And $aMpos[0] < $aWpos[0] + $aWpos[2] And $aMpos[1] > $aWpos[1] And $aMpos[1] < $aWpos[1] + $aWpos[3] Then
If $mouseout = 1 Then
For $i = 30 To 255 Step 30
WinSetTrans("BlackEyes Stream Player", "", $i)
Sleep(50)
Next
WinSetTrans("BlackEyes Stream Player", "", 255)
$mouseout = 0
EndIf
Else
If $mouseout = 0 Then
For $i = 255 To 30 Step -30
WinSetTrans("BlackEyes Stream Player", "", $i)
Sleep(50)
Next
$mouseout = 1
EndIf
EndIf
EndFunc ;==>CheckMouse

[/autoit]

[autoit]

$1D_Array[5] ;-------> 1 Dimension Array mit einer Spalte und 5 Zeilen

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

$1D_Array[0]; = 1 zeile
$1D_Array[1]; = 2 zeile
$1D_Array[2]; = usw.
$1D_Array[3]
$1D_Array[4]

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

$2D_Array[5][3] ;----> 2 Dimension Array mit 3 Spalte und 5 Zeilen

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

$2D_Array[0][0]; = 1 Zeile 1 Spalte
$2D_Array[1][1]; = 2 Zeile 2 Spalte
$2D_Array[2][2]; usw.

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

$1D_Array[0] = 4

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

$2D_Array[$1D_Array[0]][0]; 5 zeile 1 Spalte weil $1D_Array[0] = 4

[/autoit]

[autoit]

#include <Misc.au3>
$Eintrag1 = "78" ; F9
$Eintrag2 = "2"
Do
If _IsPressed($Eintrag1) Then
Send("^c")
$text = ClipGet()
MsgBox(4096, "test", $text)
;IniWrite($openini,"Rasse",$i,$text)
EndIf
;If _IsPressed ($Eintrag2) then
;Send("^c")
;$text = ClipGet()
;IniWrite($openini,"Alter",$i,$text)
;EndIf
Until _IsPressed("1B");Esc-Taste

[/autoit]