Ok, ich denke ich werde es dann nun wohl mit dem IE.au3 machen wollen. Ich habe eben mal nachgeschaut, und have festgestellt, das diese Include soviele Möglichkeiten hat, das ich garnicht weis welche Funktion ich da verwenden soll, um eine html-Datei anzuzeigen...
_IEDocReadHTML ?
lg Tim
Also ich verstehe nicht ganz... ich bekomme die html Datei so ausgegeben:
http://imageshack.us/f/94/ausgabe1.png/
würde es aber lieber so sehen:
http://imageshack.us/f/64/ausgabe2.png/
lg Tim
Ok, und diese dann mit InetRead ? Weil wenn ich diese wieder so auslese, dann habe ich halt den html Code mit da stehen...
lg Tim
Hey, also bei folgendem wird mir in der Editbox kein Zeilenumbruch (ENTER) dargestellt. Der Text ist ein einer Zeile hintereinander geschrieben:
[autoit]#include <GUIConstants.au3>
#include <EditConstants.au3>
#include <FTPEx.au3>
$server =
$username =
$pass =
$Form1 = GUICreate("Minecraft - Info", 922, 619, 193, 125)
$Edit1 = GUICtrlCreateEdit("", 16, 16, 889, 537, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN))
GUICtrlSetData(-1, "Aktualisieren ...")
$Button1 = GUICtrlCreateButton("Aktualisieren", 344, 568, 265, 33, 0)
GUISetState(@SW_SHOW)
Call ("MainScann")
[/autoit][autoit][/autoit][autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Call ("MainScann")
EndSwitch
WEnd
Func MainScann()
[/autoit][autoit][/autoit][autoit]GUICtrlSetData($Edit1,"Aktualisieren ...")
$Open = _FTP_Open('Mein FTP-Control')
If @error then msgbox(0,"","Error1")
$Conn = _FTP_Connect($Open, $server, $username, $pass)
If @error then msgbox(0,"","Error2")
$aFile = _FTP_FileGet($conn, "minecraft_info.txt", @TempDir&"/minecraft_info.txt")
_FTP_Close($Open)
[/autoit][autoit][/autoit][autoit]$datei = FileOpen(@TempDir&"/minecraft_info.txt", 0)
$inhalt = FileRead($datei)
GUICtrlSetData($Edit1,$inhalt)
FileClose($datei)
EndFunc
Mir ist aufgefallen, das ich so keine Farbige Schrift darstellen kann. Was gibt es da für eine Lösung ? Gibt es eine Bessere Idee in der Text gespeichert wird ? mit ner Word Datei ?
lg Tim
Habe das von Koda bekommen, aber schon das geht nicht:
[autoit]#include <GUIConstants.au3>
[/autoit][autoit][/autoit][autoit]#Region ### START Koda GUI section ### Form=D:\Programme\Koda\Forms\Minecraft-Info_main.kxf
$Form1 = GUICreate("Minecraft - Info", 922, 619, 193, 125)
$Edit1 = GUICtrlCreateEdit("", 16, 16, 889, 537, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN))
GUICtrlSetData(-1, "Edit1")
$Button1 = GUICtrlCreateButton("Aktualisieren", 344, 568, 265, 33, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Ich finde einfach den Fehler nicht. Er sagt mir Edit1 sei nicht deklariert...
lg Tim
Ok, anscheinend weis niemand mehr einen Rat.
Gibt es im Internet die Möglichkeit kostenlos einen FTP SErver zu bekommen. Also anmelden, und dann habe ich 10 GB auf nem FTP Server frei ?
lg Tim
Edit: Habe einen FTP Anbieter gefunden...
Ah, das ist dämlich 
Also es geht leider immer ncoh nicht. Wenn ich aber über den Browser gehe (ftp://surgator.myetrayz.net/Dateien/Test.txt) komme ich macht er mir direkt die Datei auf. Also das muss stimmen. Woran könnte es noch liegen ?
#include <FTPEx.au3>
[/autoit][autoit][/autoit][autoit]$server = 'surgator.myetrayz.net'
$username = 'sysadmin'
$pass = 'passwort'
$Open = _FTP_Open('Mein FTP-Control')
$Conn = _FTP_Connect($Open, $server, $username, $pass)
$aFile = _FTP_FileGet($conn, "/Dateien/Test.txt", @DesktopDir & "/test.txt")
[/autoit][autoit][/autoit][autoit]_FTP_Close($Open)
[/autoit]lg Tim
Edit: Ich habe es mal mit einer Subdomain versucht, aber ftp. und ftp:// bringt leider auch nichts 
Edit2: Ich habe es mal so versucht:
;InetGet("ftp://sysadmin:brÜ[email='ck3n4u3R@surgator.myetrayz.net'][/email]/Dateien/test.dat", @DesktopDir & "\test.dat")
[/autoit][autoit][/autoit][autoit]#include <FTPEx.au3>
[/autoit][autoit][/autoit][autoit]$server = 'surgator.myetrayz.net'
$username = 'sysadmin'
$pass = 'passwort'
$Open = _FTP_Open('Mein FTP-Control')
If @error then msgbox(0,"","Error1")
$Conn = _FTP_Connect($Open, $server, $username, $pass)
If @error then msgbox(0,"","Error2")
$aFile = _FTP_FileGet($conn, "/Dateien/Test.txt", @DesktopDir & "/test.txt")
_FTP_Close($Open)
[/autoit][autoit][/autoit][autoit][/autoit]
Ich bekomme den Error2 !
Edit3: Wichtig zu wissen, ist eventuell, das es ein Homeserver ist. Der is aber online WW. Und der den FTP Port 21 hat. Und die IP 192.168.2.100 . HAbe es mla so versucht:
[autoit]#include <FTPEx.au3>
[/autoit][autoit][/autoit][autoit]$Open = _FTP_Open('Mein FTP-Control')
If @error then msgbox(0,"","Error1")
$Conn = _FTP_Connect($Open, "192.168.2.100", "sysadmin", "passwort","","21")
If @error then msgbox(0,"","Error2")
$aFile = _FTP_FileGet($conn, "/Dateien/Test.txt", @DesktopDir & "/test.txt")
_FTP_Close($Open)
[/autoit]Da kommt auch wieder der Error2.
lg Tim
Leider bekomme ich nichts zurück... was ist noch falsch ?
#include <FTPEx.au3>
$server = 'surgator.myetrayz.net'
$username = 'sysadmin'
$pass = 'passwort'
$Open = _FTP_Open('Mein FTP-Control')
$Conn = _FTP_Connect($Open, $server, $username, $pass)
$aFile = _FTP_FileGet($conn, "Test", @DesktopDir & "\Dateien\test.txt")
_FTP_Close($Open)
Lg Tim
Also ich habe keine besonderen Dinge im Passwort. Nun klein und Großschreibung. Allerdings auch ein großes Ü. Wirds an dem liegen ?
lg Tim
Das hatte ich irgendwo mal so gesehen...
Leider geht es immer noch nicht. Wenn ich im Browser ftp://surgator.myetrayz.net/Dateien/test.dat und dann sysadmin und mein Passwort, dann bekomme ich genau die Datei. Also am URL kann es nicht mehr liegen, der stimmt.
Ich verstehe das nicht, ist doch alles so wie es sein soll...
lg Tim
@ Shadow Wie soll denn bei FireFox ein Login Korrekt kommen, wenn du das Passwort garnicht weißt ? Klar das kein Download kommt
Jo, der läuft sicher.
Versuchsmal über den Explorer mit:
ftp://surgator.myetrayz.net
ftp://surgator.myetrayz.net/Dateien/test.dat
lg Tim
Hey, also ich möchte gerne die test.dat Datei von meinem Server herunterladen. Naklar kann ich das auch über das Webinterface, doch würde ich da gerne Neuigkeiten reinschreiben, und ein Programm schreiben, was jeder, der mit meinem Server zu tun hat (Freunde,...) einfach quasie eine Art Newsletter haben.
So, nun ist der erste Schritt diese Datei vom Server zu laden. Vorab, es ist ein FTP Server.
Also habe ich mich mit folgendem versucht:
[autoit]
InetGet("ftp://sysadmin:basswort@ftp.surgator.myetrayz.net/Dateien/test.dat", @DesktopDir & "\test.dat")
Doch leider bekomme ich keine Datei auf meinem Desktop...
was habe ich falsch gemacht, oder habe ich einen einfachen Denkfehler ?
lg Tim
Genau das ist eben das Problem. Ich müsste zwischen zwei Geräten immer auf Standartgerät umschalten.
Und das würde ich gerne Coden
lg Tim
Hey, also ich habe das Problem, das ich wenn ich mit meinem Headset Skype, oder co. Ich die Audioeinstellungen für emin USB Gerät auf Standart festlegen muss. Dann sind alle Einstellungen so wie sie sind. Wenn ich aber meine Boxen verwende, muss ich diese Standarteinstellung des USB Gerätes wieder auf meinen Realtech Audio device setzten.
Habe ich die Möglichkeit das Scriptmäsig zu machen ?
Ich will das nciht ständig per Hand machen. Oder sind das Regestrie einträge ?
lg Tim
DANKE DIR !
lg Tim
Hallo, und zwar habe ich Basic ein kleines Problem. Es geht um eine Art Zahlen schloss. Ich habe folgendes Script:
Program Input2
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Dim Vergleich as String[4]
Dim Zahler as Word
Dim Wert as String[4]
TRISA = $FF
TRISB = 0
PORTB = 00
Vergleich = ""
Zahler = 0
Wert = "abcd"
main:
[/autoit] [autoit][/autoit] [autoit]while true
IF PORTA.0 = 0 Then
PORTB.1 = 1
Zahler = Zahler + 1
Vergleich[Zahler] = "a"
Delay_ms(1000)
PORTB.1 = 0
End IF
IF PORTA.1 = 0 Then
PORTB.1 = 1
Zahler = Zahler + 1
Vergleich[Zahler] = "b"
Delay_ms(1000)
PORTB.1 = 0
End IF
IF PORTA.2 = 0 Then
PORTB.1 = 1
Zahler = Zahler + 1
Vergleich[Zahler] = "c"
Delay_ms(1000)
PORTB.1 = 0
End IF
IF PORTA.3 = 0 Then
PORTB.1 = 1
Zahler = Zahler + 1
Vergleich[Zahler] = "d"
Delay_ms(1000)
PORTB.1 = 0
End IF
IF Zahler = 4 Then
If (Vergleich[1]Vergleich[2]Vergleich[3]Vergleich[4]) = Wert Then
PORTB = $50
Zahler = 0
Else
PORTB = $10
Zahler = 0
End IF
End IF
wend
end.
[/autoit]
Und zwar soll es so sein, das man 4 Taster an den Ports A.0 A.1 A.2 A.3 hat, und die in einer bestimmten Reihenfolge drücken muss, damit was passiert. Der Zähler wird mit jedem Mal eins hochgedrückt, und zählt somit den String.
Darin soll dan der Buchstabe A-D eingetragen werden. Und sobald der Zähler auf 4 Steht, wird überprüft, ob die 4 Zeichen der Vorgabe entsprechen. Wenn ja, wird etwas ausgeführt. Wenn nein, dann auch. Darum geht es mir. Ich habe es mir Soweit gedacht, wie das Script oben Steht.
Wenn sich nun einer etwas mit BASIC auskennt, kann mir dieser eventuell helfen, wie ich es zu laufen bekomme ?
Zu Zeile 54 habe ich eben die Frage, ob das so richtig ist, denn ich möchte die einzelnen Zeichen des Strings hintereinander afureihen, um so eben ein 4 Zeichen langes wort zu haben. In AutoIT macht das mit dem dem &, aber was verwende ich in Basic.
Würde mich über hilfe freuen, auch wenn das nicht um AutoIt geht
lg Tim
DANKE EUCH ALLES !!
FINDE EURE LÖSUNGEN ALLE INDIVIDUELL GUT
lg Tim
Hallo, ich stehe vor der Frage, wie es am kürzesten und am einfachsten ist, ein Code schloss mit 4 Eingaben zu gestallten. Hier meine GUI:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Code = GUICreate("Code-Schloss", 633, 234, 192, 124)
$Taste1 = GUICtrlCreateButton("Taste 1", 100, 120, 73, 65, $WS_GROUP)
$Taste2 = GUICtrlCreateButton("Taste 2", 220, 120, 73, 65, $WS_GROUP)
$Taste3 = GUICtrlCreateButton("Taste 3", 340, 120, 73, 65, $WS_GROUP)
$Taste4 = GUICtrlCreateButton("Taste 4", 460, 120, 73, 65, $WS_GROUP)
$Antwort1 = GUICtrlCreateLabel("Ungelöst", 221, 32, 190, 58)
GUICtrlSetFont(-1, 24, 800, 0, "Year supply of fairy cakes")
GUISetState(@SW_SHOW)
While 1
[/autoit] [autoit][/autoit] [autoit]Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Es geht darum, dass man die 4 Tasten in einer bestimmten Reihenfolge drücken muss, das dan eben gelöst darsteht. Also zum beispiel 1-4-2-3. Sollte man aber 1-4-3-2 drücken, soll es sich wider bei der falschen 3,reseten. Also sobald eine Zahl falsch der Reihenfolge ist, soll man von vorne Anfangen. Damit möchte ich bezwecken, das mann ganz sicher die Richtige Reihenfolghe kennt
lg Tim
pS: Wie ist das am einfachsten zu lösen. (Ich meine damit am Script-übersichlichsten)
