Beiträge von Cartan12

[autoit]

$open = _FTP_Open("Upload")
$server = "Server"
$benutzer = "Benutzername"
$pass = "Passwort"
$phat = "Ordnerpfad"
$conn = _FTP_Connect($open,$server,$benutzer,$pass)
If $conn == 0 Then
MsgBox(0,"!","Verbinden fehlgeschlagen")
EndIf

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

$err = _FTP_FileGet($conn, $phat & "/MeineDatei.php" , @ScriptDir & "\MeineDatei.php")
If $err == 0 Then
MsgBox(0,"!","Runterladen fehlgeschlagen")
EndIf

[/autoit]

[autoit]

$open = _FTP_Open("Upload")
$server = "Server"
$benutzer = "Benutzername"
$pass = "Passwort"
$phat = "Ordnerpfad"
$conn = _FTP_Connect($open,$server,$benutzer,$pass)
If $conn == 0 Then
MsgBox(0,"!","Verbinden fehlgeschlagen")
EndIf

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

$err = _FTP_FilePut($conn,@ScriptDir & "\MeineDatei.php",$phat & "/MeineDatei.php")
If $err == 0 Then
MsgBox(0,"!","Hochladen fehlgeschlagen")
EndIf

[/autoit]

[autoit]

#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <INET.au3>

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

Dim $array[1000]
$zahl = IniRead(@ScriptDir & "\Jugendschutz.ini","Zahl","Zahl","0")
If $zahl <> 0 Then
For $i = 1 To $zahl
$array[$i] = IniRead(@ScriptDir & "\Jugendschutz.ini","VerboteneSeiten",$i,"")
Next
EndIf

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

$IE = _IECreateEmbedded ()

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

#Region ### START Koda GUI section ### Form=c:\users\killax2x\desktop\browser.kxf
$Form1_1 = GUICreate("Little Webbrowser made by killax2x based on the Internet Explorer", 1316, 759, 183, 107)
GUISetStyle ($WS_BORDER)
$adress = GUICtrlCreateInput("www.google.de", 208, 48, 521, 21)
$Label1 = GUICtrlCreateLabel("Web Adresse:", 80, 48, 104, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$go = GUICtrlCreateButton("Go!", 744, 48, 129, 25, 0)
$home = GUICtrlCreateButton("Home", 888, 48, 129, 25, 0)
$inet = GUICtrlCreateObj($IE,0, 104, 1313, 665)
$refresh = GUICtrlCreateButton("Aktualisieren", 208, 72, 113, 25, 0)
$print = GUICtrlCreateButton("Drucken", 616, 72, 113, 25, 0)
$save = GUICtrlCreateButton("Seite speichern", 328, 72, 281, 25, 0)
$exit = GUICtrlCreateButton("Beenden", 1096, 16, 193, 33, 0)
$back = GUICtrlCreateButton("<----", 56, 8, 81, 25, 0)
$next = GUICtrlCreateButton("---->", 144, 8, 81, 25, 0)
$datei = GUICtrlCreateMenu("&Datei")
$credits = GUICtrlCreateMenuItem("Credits", $datei)
$contact = GUICtrlCreateMenuItem("Kontakt", $datei)
$quell = GUICtrlCreateMenuItem("Seitenquellcode anzeigen", $datei)
$email = GUICtrlCreateMenuItem("Emailprogramm starten", $datei)
$end = GUICtrlCreateMenuItem("Beenden", $datei)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

_IENavigate ($IE,"www.google.de")

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

Case $go
$url = GUICtrlRead ($adress)
_IENavigate ($IE,$url)
$f = _IEBodyReadText($IE)
$g = StringInStr($f,"google")
For $i = 1 to $zahl
If _IEAttach("","URL") == $array[$i] Then
_IENavigate($IE,"about:blank")
EndIf
Next
If $g <> 0 Then
IniWrite(@ScriptDir & "\Jugendschutz.ini","VerboteneSeiten",$zahl,_IEAttach("","URL"))
$zahl = $zahl + 1
IniWrite(@ScriptDir & "\Jugendschutz.ini","Zahl","Zahl",$zahl)
_IENavigate($IE,"about:blank")
$array[$zahl] = _IEAttach("","URL")
EndIf
For $i = 1 to $zahl
If _IEAttach("","URL") == $array[$i] Then
_IENavigate($IE,"about:blank")
EndIf
Next
Case $home
_IENavigate ($IE,"www.google.de")
Case $refresh
_IEAction ($IE,"refresh")
Case $print
_IEAction ($IE,"print")
Case $save
_IEAction ($IE,"saveas")
Case $contact
MsgBox (0,"Kontakt","Email: daniel_belz@gmx.net")
Case $credits
MsgBox (0,"Credits","Little Webbrowser made by killax2x.Webbrowser is based of the Internet Explorer")
Case $end
Exit
Case $back
_IEAction($IE,"back")
Case $next
_IEAction($IE,"forward")
Case $quell
$sHTML = _IEDocReadHTML ($IE)
MsgBox(0, "Quelltext", $sHTML)
Case $email
$Address = InputBox('Adresse', 'Gib die E-Mail-Adresse des Empfängers ein:')
$Subject = InputBox('Betreff', 'Gib einen Betreff für die E-Mail ein:')
$Body = InputBox('Inhalt', 'Gib den Inhalt der E-Mail-Nachricht ein:')
MsgBox(0, 'Das E-Mail-Programm wurde geöffnet', 'Das E-Mail-Programm wurde geöffnet, dessen Prozess-ID lautet: ' & _INetMail($Address, $Subject, $Body))

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

Case $exit
Exit
EndSwitch
WEnd

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

[autoit]

#include <GUIConstants.au3>
#Include <GuiListBox.au3>

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 193, 417, 193, 125)
$Liste = GUICtrlCreateList("", 16, 24, 161, 110,BitOr($GUI_SS_DEFAULT_LIST,$LBS_EXTENDEDSEL,$LBS_DISABLENOSCROLL))
$Label = GUICtrlCreateLabel("Label1", 16, 8, 28, 17)
$Test = GUICtrlCreateButton("Button1", 96, 0, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

For $i = 1 to 20
GUICtrlSetData($Liste, $i)
Next

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

Case $Test
$Get = _GUICtrlListBox_GetSelItemsText($Liste)
For $i = 1 to $Get[0]
MsgBox(64, "test", $Get[$i])
Next
EndSwitch
WEnd

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