Hallo Greek.
Leider kommt folgende Meldung:
C:\test\test.au3(65,31) : WARNING: $x: possibly used before declaration.
$S_Files2Attach[$x]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\test\test.au3(65,31) : ERROR: $x: undeclared global variable.
$S_Files2Attach[$x]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\test\test.au3 - 1 error(s), 1 warning(s)
FRAGE: Wofür soll das Script sein. Für welches Programm bzw. wo soll er das ausführend was Du vor hast?
Also so wie "tobi_girst" es gemacht hat würde ich es auch machen.
Da muß nichts erst in eine Datei geschrieben werden bzw. dann ja auch dort ausgelesen werden, sondeern es wird von der Systemuhr die Zeit genommen.
Das einzige was ich noch davor machen würden, wäre die Systemzeit mit einem Zeitserver abgleichen, weil sonst kann der anwender die Zeit ja immer zurück stellen und das ist nicht gut.
Wie man einen Zeitserver abfragt ist im Forum bereits besprochen.
Zitat peethebee :
Ofiizielle, gute Zeitserver gibt es von der Physikalisch-Technischen Bundesanstalt - http://www.ptb.de/
Zitatende
Hallo Bernd.
Da hast Du wohl oder übel Recht und wer RECHT hat, ....
Nein, SPASS bei Seite, schaut besser aus. Nun gehe ich mal auf die Suche nach Webspace mit PHP.
DANKE NOCHMALS und ein schönes Pfingswochenende, so ihr es denn schon habt.
Ich habe mal eine Frage.
Beid er aktuellen Version von AutoIt gibt es ja folgendes nicht mehr:
$url = $page & "?" & _HTTPEncodeString($vars)
$socket = _HTTPConnect($host)
$get = _HTTPGet($host, $url, $socket)
Was muß nun verwendet werden?
Wie kommst Du darauf, was
"010001110110111101101111011001110110110001100101001000000110100001101001011011000110011001110100001000000101111001011110"
bedeutet?
Ja, das funktioniert super.
Habe noch für das "Stick Main" eine Erweiterung und ich habe statt "Sonstiges" den Menüpunkt in "Anderes" umgenannt, damit die Änderung im "Stick Main" funktioniert. So kann man z. B. nun durch betätigen der des Buchstabens "K" auf der Tastatur (ohne Mausbetätigung) in den Bereich "Kategorie" wechseln. Man muß zwar noch in Zeile 147 aus "Sonstiges" auch "Anderes" machen, aber das ist ja das kleinste Problem.
##################### Stick Main ##################################
$StickMain = GUICreate($Username&"s USB Stick!", 625, 443, 323, 241)
$Label1 = GUICtrlCreateLabel("&Kategorie", 168, 32, 298, 94)
GUICtrlSetFont(-1, 48, 800, 0, "Comic Sans MS")
$DVD = GUICtrlCreateButton("&DVD etc.", 32, 152, 177, 73, 0)
GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS")
$Festplatte = GUICtrlCreateButton("&Festplatte", 224, 152, 177, 73, 0)
GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS")
$Internet = GUICtrlCreateButton("&Internet", 424, 152, 177, 73, 0)
GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS")
$Sicherheit = GUICtrlCreateButton("&Sicherheit", 24, 288, 177, 73, 0)
GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS")
$Sonstiges = GUICtrlCreateButton("&Anderes", 224, 288, 177, 73, 0)
GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS")
$Images = GUICtrlCreateButton("&Images", 424, 288, 177, 73, 0)
GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS")
GUISetState(@SW_SHOW)
Super gemacht. Eventuell nutze ich es demnächst. Hoffe Du hast nichts gegen die Veränderung. Wenn doch, dann ändere ich es wieder.
Hallo PokerFace.
Das Programm läuft nun bzw. startet.
Ich habe einen Ordner mit dem Namen "Internet" auf dem Stick erstellt und dort eine Exe-Datei rein kopiert um zu testen, aber bei der Auswahl erscheint keine Datei immer ist es leer.
Was mache ich falsch ?
Bei mir kommt die Fehlermeldung: "Bitte stecken sie den Stick ein! Er wurde nicht erkannt!"
Stick ist drinne und von Windows erkannt und das Laufwerk auf dem Arbeitsplatz sichtbar.
Wieso bekomme ich folgede Fehlermeldungen?
E:\LoginAs.au3(15,68) : WARNING: $ES_PASSWORD: possibly used before declaration.
$In_Kennwort = GUICtrlCreateInput("", 115, 40, 169, 21,$ES_PASSWORD)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
E:\LoginAs.au3(16,74) : WARNING: $CBS_DROPDOWNLIST: possibly used before declaration.
$In_Domain = GUICtrlCreateCombo("", 115, 70, 169, BitOR($CBS_DROPDOWNLIST,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
E:\LoginAs.au3(16,91) : WARNING: $CBS_AUTOHSCROLL: possibly used before declaration.
$In_Domain = GUICtrlCreateCombo("", 115, 70, 169, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
E:\LoginAs.au3(19,80) : WARNING: $BS_DEFPUSHBUTTON: possibly used before declaration.
$Button_Login = GUICtrlCreateButton("Login", 330, 55, 57, 35, $BS_DEFPUSHBUTTON)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
E:\LoginAs.au3(59,59) : ERROR: syntax error
RunAsSet($In_Benutzer1, $In_Domain1 , $In_Kennwort1,)
Also die ersten drei Level sind doch schon mal cool zu spielen.
Weiter soooooo. 
Ja, oder Du mast es so:
#include<GUIConstantsEx.au3>
Dim $minmax
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]$1_GUI = GuiCreate("Min - Max 3 bis 5", 485, 68,-1, -1)
$Label_1 = GuiCtrlCreateLabel("Min - Max 3 bis 5", 10, 14, 130, 20)
$Button_1 = GuiCtrlCreateButton("Mich kannst Du nur drücken, wenn im Feld 3 oder 4 oder 5 Zeichen sind.", 10, 40, 465, 20)
GUICtrlSetState($Button_1, $GUI_DISABLE)
$Input_1 = GuiCtrlCreateInput("", 100, 10, 375, 20)
GUISetState(@SW_SHOW, $1_GUI)
[/autoit] [autoit][/autoit] [autoit]While 1
$msg = GuiGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg =$Button_1
Exit
EndSelect
; Prüfungsstart: prüft ob die Länge des Input_1 mehr als 2 und weniger als 6 beträgt.
$1minimax = StringLen(GUICtrlRead($Input_1))
If $minmax <> $1minimax Then
If $1minimax >2 And $1minimax < 6 Then
GUICtrlSetState($Button_1, $GUI_ENABLE)
Else
GUICtrlSetState($Button_1, $GUI_DIsABLE)
EndIf
$minmax = $1minimax
EndIf
; Prüfungsende
WEnd
Exit
Hallo BugFix.
Coole Idee.
Wenn Ich dann die "gedoggten" GUI's bewege, dann rattelt meine Festplatte odr was es immer ist im Gehäuse. Aber nur im Tower, nicht im Laptop.
Am besten, zum besseren Verständnis poste mal bitte die beiden Scripte hinterienander.
Danke
Also mir stellt sich als erstes die Frage ob es eine USB-Mouse mit Kugel ist oder nicht?
Ist es eine mit Kugel, dann würde ich dei Kugel mal entfernen und dann in der Mouse
mal alles reinigen. Das kann nämlich das Problem schon lösen, wenn es sich um eine
solche Mouse handelt.
Also der Balken selber heißt: "Progressbar".
Hallo Dietmar.
Erst einmal "Herzlich Willkommen" im Forum.
Also die Frage stellt sich mir, ob Du es denn bis dato bereits schon einmal gemacht hast. Wenn "ja", sollte es auch in AutoIt zu machen sein.
Wäre dann wichtig zu wissen, wie Du es bis dato machst. Welche Schritte führst Du durch? Bitte so erklären, das jeder es nach-voll-zie-hen kann, der auch nciht die Software kennt. Aber hier wird jeder auf den Rechten Weg der ... gebracht.
Einfach genial.
Haben das frühen nicht die Jungs in den Spielhallen gespielt oder auf dem Atari / C64 oder so?
Bernd das schaut gut aus. Habe jetzt 79 Buchstaben / Zeichen eingefügt und un macht er auch größere Texte.
Mal schauen wo er denn auf hört.
Danke und ich melde mich.
Es muß noch einen weiteren Fehler geben, denn nur der Zeilenumbruch war nicht der Grund.
Habe jetzt mal folgendes gemacht und die oben beiden stehenden Beiträge von @bern670 und Bitboy mit aufgenommen.
#include<Array.au3>
#include<String.au3>
$test = FileRead("eingang.txt"); "1A2B3C4D5E6"
If StringRight($test,2) = @CRLF OR StringRight($test,2) = @CR OR StringRight($test,2) = @LF Then $test = StringTrimRight($test, 2)
$1_len = StringLen($test)
;MsgBox(0, "Stringlänge:", $1_len) ; diese Zeile nur zum testen
$pass = FileRead("passwort.txt"); "94736"
If StringRight($pass,2) = @CRLF OR StringRight($pass,2) = @CR OR StringRight($pass,2) = @LF Then $pass = StringTrimRight($pass, 2)
$2_len = StringLen($pass)
;MsgBox(0, "Stringlänge Passwort:", $2_len) ; diese Zeile nur zum testen
$zwischensumme = Ceiling($1_len / $2_len)
;~ MsgBox(0, "Stringlänge Zwischenlänge:", $zwischensumme) ; diese Zeile nur zum testen
$anwenderpass = _StringRepeat($pass,$zwischensumme)
;~ MsgBox(0, "Stringlänge Anwendung:", $anwenderpass) ; diese Zeile nur zum testen
For $i = 1 to $1_len Step +1
$v_s = StringMid($test, $i, 1)
;~ MsgBox(0, "aus Test:", $v_s) ; diese Zeile nur zum testen
$v_w = StringMid($anwenderpass, $i, 1) ; diese Zeile nur zum testen
;MsgBox(0, "aus Passwort:", $v_w)
; Array: senkrecht / waagerecht
; alle 37 Zeichen werden in 37 Zeilen dargestellt, wobei das erste Zeichen immer an das Ende rutscht.
Local $avArray[38][38]
Local $avTemp[38] = [" ","0","1","2","3","4","5","6","7","8","9","A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","."]
For $x = 0 To 37
$y = 37-$x
For $z = 0 To 37
$y += 1
If $y>37 Then $y=0
$avArray[$x][$y] = $avTemp[$z]
Next
Next
; senkrecht
$s_Index = _ArraySearch($avArray, $v_s, 0, 0, 0, 1)
;~ ConsoleWrite("$w_Index: " & $s_Index & @CRLF) ; diese Zeile nur zum testen
; waagerecht
$w_Index = _ArraySearch($avArray, $v_w, 0, 0, 0, 1)
;~ ConsoleWrite("$w_Index: " & $w_Index & @CRLF) ; diese Zeile nur zum testen
;MsgBox(0,"Array-Zahlen","Array-Zahlen: " & $s_Index & " - " & $w_Index & @CRLF & "Mathe Zahlen: " & $s_Index +1 & " - " & $w_Index +1) ; diese Zeile nur zum testen
;MsgBox(0,"Schnittmenge", $avArray[($s_Index)][($w_Index)]) ; diese Zeile nur zum testen
FileOpen("codiert.txt",1)
sleep(50)
FileWrite("codiert.txt", $avArray[($s_Index)][($w_Index)])
sleep(50)
FileClose("codiert.txt")
sleep(50)
Next
Exit
Das ist nun die Fehlermeldung:
gug.au3 (55) : ==> Array variable subscript badly formatted.:
FileWrite("codiert.txt", $avArray[($s_Index)][($w_Index)])
FileWrite("codiert.txt", $avArray[^ ERROR
