Beiträge von McPoldy

#cs Beispiel FTP#ce
#include ; wird benötigt
$FTP_Targetfile = '/Marketing/Fachhaendler_Information.txt' ; Die Datei auf dem FTP Server, die du haben willst$FTP_Server = 'ftp.wortmann.de' ; FTP Server auf den du verbinden willst$FTP_User = 'anonymous' ; Benutzername auf dem FTP$FTP_Passwort = 'test@test.de' ; Passwort auf dem FTP
; Verbindung aufbauen$o_FTP = _FTP_Open("MyFTP")$s_FTP = _FTP_Connect($o_FTP,$FTP_Server,$FTP_User,$FTP_Passwort)
; Datei laden und speichern_FTP_FileGet($c_FTP,$_FTP_Targetfile,'test.txt')

#cs Beispiel einfacher Dateidownload von URL#ce
InetGet('http://dl.dropbox.com/u/167259/BlogDateien/wordpress_shortcode.txt','text2.txt'

#cs
iTunes steuern, alle Tastenkombinationen findet man unter:
http://tipps-tricks-kniffe.de/…tenkuerzel-im-ueberblick/

Dieses Skript prüft ob iTunes läuft und man kann dann mittels
F2 = Lauter
F3 = Leiser
F4 = Ton aus
F5 = Ton an
schalten.
F9 = Skript beenden
#ce

HotKeySet("{F2}","_lauter")
HotKeySet("{F3}","_leiser")
HotKeySet("{F4}","_tonaus")
HotKeySet("{F5}","_tonan")
HotKeySet("{F9}","_Skriptende")

Local $pID, $hWnd

_iTunes()
ConsoleWrite(@lf & ControlSend('iTunes','','','^{down}'))

While True
Sleep(50)
WEnd

Func _lauter()
ControlSend('iTunes','','','^{up}')
EndFunc

Func _leiser()
ControlSend('iTunes','','','^{down}')
EndFunc

Func _tonaus()
ControlSend('iTunes','','','^!{down}')
EndFunc

Func _tonan()
ControlSend('iTunes','','','^!{up}')
EndFunc

Func _Skriptende()
Exit
EndFunc

Func _iTunes()
$pID = ProcessExists('iTunes.exe')
If $pID = 0 Then
MsgBox(32,'iTunes Controll', 'iTunes scheint nicht zu laufen, ich mache mich aus :-)')
_Skriptende()
EndIf
$hWnd = WinGetHandle('iTunes')
If $hWnd = '' Then
MsgBox(32,'iTunes Controll', 'iTunes konnte nicht gefunden werden, ich mache mich aus :-)')
_Skriptende()
EndIf
EndFunc

#include <IE.au3>
HotKeySet("{ESC}", "Terminate")
HotKeySet("{F9}", "_Pause")

Local $timeout = 10000 ; 10 Sekunden
Local $pause = False

; Erster Start beim Programmstart
AdlibEnable('_Machwas',$timeout)

; Endlosschleife
While True
ConsoleWrite(@LF & 'Teil der Endlosschleife' & @LF)
Sleep(1000) ;Pause damit man was sieht
WEnd

; Diese Funktion wird aufgerufen, wenn man F9 drückt
Func _Pause()
; Setze die Variable $pause
$pause = Not $pause

; Wenn Pause = True, dann den Teil in _Machwas nicht
; mehr ausführen
If $pause Then
AdlibDisable()
ConsoleWrite(@LF & 'Pause aktiviert' & @LF)
; Ansonsten soll wieder alle X Sekunden der Teil in
; der Machwas Funktion abgearbeitet werden.
Else
AdlibEnable('_Machwas',$timeout)
ConsoleWrite(@LF & 'Pause deaktiviert' & @LF)
EndIf
EndFunc

; Beende das Skript
Func Terminate()
Exit
EndFunc

; Diese Funktion wird alle X Sekunden aufgerufen.
Func _Machwas()
ConsoleWrite(@LF & 'Hier ist der Teil, der alle x Sekunden, je nach Timeout Einstellung, laufen soll.' & @LF)
; _IEAction($oIE, "refresh")
EndFunc

#include <GUIConstants.au3>
#include <array.au3> ; <-- Benötigt für Array Arbeiten

Local $ausgabe[1] ; <-- Ein Array mit einem Eintrag, Index 0, ich zähle gerne ab 1

GUICreate ("Hallo",450,300,-1,-1)
GUISetBkColor (0xDF6E12)
GUISetState ()
$input1 = GUICtrlCreateInput ("Hi",20,40,200)
$input2 = GUICtrlCreateInput ("Hey",20,90,200)
$input3 = GUICtrlCreateInput ("Hallo",20,140,200)
$input4 = GUICtrlCreateInput ("Huhu",20,190,200)
$input5 = GUICtrlCreateInput ("Sers",20,240,200)
Global $pn[6]
$pn[1] = GUICtrlCreateCheckbox ("Nachricht 1 aktivieren",300,40,-1,-1)
$pn[2] = GUICtrlCreateCheckbox ("Nachricht 2 aktivieren",300,90,-1,-1)
$pn[3] = GUICtrlCreateCheckbox ("Nachricht 3 aktivieren",300,140,-1,-1)
$pn[4] = GUICtrlCreateCheckbox ("Nachricht 4 aktivieren",300,190,-1,-1)
$pn[5] = GUICtrlCreateCheckbox ("Nachricht 5 aktivieren",300,240,-1,-1)
$button = GUICtrlCreateButton ("Start",150,270,100,30)

GUICtrlSetState ($input1,$GUI_DISABLE)
GUICtrlSetState ($input2,$GUI_DISABLE)
GUICtrlSetState ($input3,$GUI_DISABLE)
GUICtrlSetState ($input4,$GUI_DISABLE)
GUICtrlSetState ($input5,$GUI_DISABLE)

While 1
$msg = GUIGetMsg ()
Select
Case $msg = $pn[1]
If GUICtrlRead ($pn[1]) = 4 Then
GUICtrlSetState ($input1,$GUI_DISABLE)
ElseIf GUICtrlRead ($pn[1]) = 1 Then
GUICtrlSetState ($input1,$GUI_ENABLE)
EndIf
Case $msg = $pn[2]
If GUICtrlRead ($pn[2]) = 4 Then
GUICtrlSetState ($input2,$GUI_DISABLE)
ElseIf GUICtrlRead ($pn[2]) = 1 Then
GUICtrlSetState ($input2,$GUI_ENABLE)
EndIf
Case $msg = $pn[3]
If GUICtrlRead ($pn[3]) = 4 Then
GUICtrlSetState ($input3,$GUI_DISABLE)
ElseIf GUICtrlRead ($pn[3]) = 1 Then
GUICtrlSetState ($input3,$GUI_ENABLE)
EndIf
Case $msg = $pn[4]
If GUICtrlRead ($pn[4]) = 4 Then
GUICtrlSetState ($input4,$GUI_DISABLE)
ElseIf GUICtrlRead ($pn[4]) = 1 Then
GUICtrlSetState ($input4,$GUI_ENABLE)
EndIf
Case $msg = $pn[5]
If GUICtrlRead ($pn[5]) = 4 Then
GUICtrlSetState ($input5,$GUI_DISABLE)
ElseIf GUICtrlRead ($pn[5]) = 1 Then
GUICtrlSetState ($input5,$GUI_ENABLE)
EndIf
Case $msg = $button

For $i = 1 to 5
If GUICtrlRead ($pn[$i]) = 1 Then
; Wenn die Checkbox aktiv ist, wird ein Eintrag im Array hinzugefügt
_ArrayAdd($ausgabe,GUICtrlRead(eval('input' & $i)))
EndIf
Next
; Hier kommt die Ausgabe, aber nur wenn mindestens eine Checkbox aktiv ist.
If UBound($ausgabe) > 1 Then MsgBox(64,'DIE AUSGABE',$ausgabe[Random(1,UBound($ausgabe) - 1,1)])

Exit
Case $msg = $GUI_EVENT_CLOSE
Exit
EndSelect
WEnd