Hallo,
[autoit]mousemove() in Verwendung ohne den Parameter für speed mit anzugeben.
[/autoit]...dann gib doch einfach den Speed-Parameter an! Hat danach dein Script auch dieses seltsame Verhalten?
ciao
Andy
Hallo,
[autoit]mousemove() in Verwendung ohne den Parameter für speed mit anzugeben.
[/autoit]...dann gib doch einfach den Speed-Parameter an! Hat danach dein Script auch dieses seltsame Verhalten?
ciao
Andy
Zitathört sich ja strange an.
Ist es aber nicht, in der aktuellen c´t haben die diese Variante getestet und sowohl von der Geschwindigkeit als auch vom Handling nur positives zu berichten gehabt. Im Prinzip läuft ein komplettes Betriebssystem aus "einer Datei". Gabs vor 40 Jahren schon...nix neues^^
Hi,
die Suche nach Telnet spuckt u.a. folgendes aus...
[ offen ] An Text der Telnet Ausgabe kommen?
[ offen ] man sagt, man könne telnet nicht scripten, dass möchte ich beweisen, dass es geht.
https://autoit.de/index.php?page…25349#post25349
http://www.autoitscript.com/forum/index.php?showtopic=96224&view=findpost&p=691790&s=38f28667629e3c3ee4bd400bbc9b16af
[ offen ] Switch programmieren
du musst nur irgendwo per random farben auswählen
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
#include <GDIPlus.au3>
Global Const $width = 400
Global Const $height = 400
Global $graphics, $backbuffer, $bitmap, $Pen, $i = 10, $bool = 0
Global $title = "GDI+ Beispiel"
Opt("GUIOnEventMode", 1)
$hwnd = GUICreate($title, $width, $height, -1, -1, $WS_POPUP)
GUISetOnEvent($GUI_EVENT_CLOSE, "close")
GUISetState()
_GDIPlus_Startup()
$graphics = _GDIPlus_GraphicsCreateFromHWND($hwnd) ;erstelle GDI+ Objekt von der GUI (Grafik)
$bitmap = _GDIPlus_BitmapCreateFromGraphics($width, $height, $graphics) ;erstelle Bitmap von der Grafik
$backbuffer = _GDIPlus_ImageGetGraphicsContext($bitmap) ;erstelle Grafik Kontext von der Bitmap (dient für die Doppeltbufferung der Grafik, damit die Bewegungen flüssiger aussehen
$Pen = _GDIPlus_PenCreate(0, 3) ;erstelle Stift mit der Stärke 4 Pixels
$color1 = 0xFF000000 + Random(3000, 65000, 1)
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $color1 = ' & $color1 & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
$color2 = 0xFF000000 + Random(3000, 65000, 1)
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $color2 = ' & $color2 & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
$color3 = 0xFF000000 + Random(3000, 65000, 1)
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $color3 = ' & $color3 & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
$col = 0xFFFFFF
Do
_GDIPlus_GraphicsClear($backbuffer) ;lösche Buffer
_GDIPlus_PenSetColor($Pen, $color1) ;setze Stiftfarbe ;# weis +++++++++++++++++++++++++
_GDIPlus_GraphicsDrawLine($backbuffer, 10, 10, $i, 10, $Pen) ;ziehe 1. Linie
_GDIPlus_GraphicsDrawLine($backbuffer, 10, 390, 10, 400 - $i, $Pen) ;ziehe 2. Linie
_GDIPlus_GraphicsDrawLine($backbuffer, 390, 10, 390, $i, $Pen);Ziehe 3. Linie
_GDIPlus_PenSetColor($Pen, $color2) ;setze Stiftfarbe für den 2. Strich ;# rot +++++++++++++++++++
_GDIPlus_GraphicsDrawLine($backbuffer, $i, 10, 10, 400 - $i, $Pen)
_GDIPlus_GraphicsDrawLine($backbuffer, 10, 400 - $i, 400 - $i, 390, $Pen)
_GDIPlus_GraphicsDrawLine($backbuffer, 390, $i, 400 - $i, 390, $Pen)
_GDIPlus_GraphicsDrawLine($backbuffer, $i, 10, 390, $i, $Pen)
_GDIPlus_PenSetColor($Pen, $color3)
;_GDIPlus_GraphicsDrawLine($backbuffer,10,,$Pen)
_GDIPlus_GraphicsDrawLine($backbuffer, 400 - $i, 390, 390, 390, $Pen) ;Ziehe Dritte Linie
_GDIPlus_GraphicsDrawImageRect($graphics, $bitmap, 0, 0, $width, $height) ;das Zeichnen hat im Buffer stattgefunden. Damit das Ganze sichtbar wird, kopiere den Buffer (Bitmap) in den sichtbaren Bereich
If Not $bool And $i < 390 Then
$i += 5
Else
$bool = 1
EndIf
If $bool And $i > 10 Then
$i -= 5
Else
$bool = 0
$color1 = 0xFF000000 + Random(1000, $col, 1)
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $color1 = ' & $color1 & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
$color2 = 0xFF000000 + Random(1000, $col, 1)
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $color2 = ' & $color2 & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
$color3 = 0xFF000000 + Random(1000, $col, 1)
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $color3 = ' & $color3 & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
EndIf
Sleep(30)
Until False
Func close()
_GDIPlus_PenDispose($Pen)
_GDIPlus_GraphicsDispose($backbuffer)
_GDIPlus_BitmapDispose($bitmap)
_GDIPlus_GraphicsDispose($graphics)
_GDIPlus_Shutdown()
WinClose($hwnd)
Exit
EndFunc ;==>close
ZitatHabe grade nochmal den Rechner meiner Freundin durchforstet und da fand sich eine (wenn auch etwas ältere) Ausgabe des SourceCodes.
Eigentlich schade, denn dann ist der gesamte Lerneffekt davon:
ZitatMir läuft's kalt den Rücken runter, wenn ich daran denke, dass ich alles neu schreiben muss *heul*
weg....
Wer 1500 Zeilen Code schreibt und Datensicherung (ist innerhalb von Scite einstellbar) so dermassen vernachlässigt, der MUSS es auf die harte Tour lernen...
Und NEIN, das ist jetzt weder ironisch noch sarkastisch gemeint.
@ojo
ich frage auch idR das <>0 ab... De Maddin würde sagen:"Sischääärr is Sischääärr!"
ZitatIch habe ja auch die scripts von den anderen aus probiert nur bei mir gingen manche nicht
Kann sein daß mein Browser nicht richtig funktioniert und nur die Hälfte aller Postings hier im Thread anzeigt, aber so wie ich das hier sehe habe nur ich Scripte gepostet, und wenn die nicht funktionieren, dann sollte man mir das mitteilen^^
Da diese Scripte aber alle funktionieren werde ich mich jetzt hier ausklinken.
Zitatch habe ja auch nicht so viel anung von Autoit das kann sein das ich auch die Lösungswege falsch zusammen gebaut habe.
Man stellt deshalb eine Frage weil man etwas nicht versteht. Wenn man die Antwort auch nicht versteht, dann muss man so lange weiterfragen, bis man es begriffen hat. Das ist nicht schlimm, sondern zeigt, daß man sich mit dem Problem konstruktiv auseinander setzen möchte! Wenn aber der Eindruck entsteht, daß du nicht auf die Antworten eingehst, dann musst du dich nicht wundern, wenn du irgendwann keine Antworten mehr bekommst....
Hilfe hilft.....
Habe nur mal das in der Hilfe als Beispiel verwendete Script um deine 3 Zeilen erweitert, funktioniert einwandfrei. Du solltest dir generell angewöhnen, erst selbst nach DEINEN Fehlern zu suchen, bevor du das Funktionieren von AutoIt-Befehlen in Frage stellst. Wenn du nicht weisst wie man in einem Script nach Fehlern sucht, empfehle ich dir die Lektüre hier.
$search = FileFindFirstFile("*.*")
[/autoit][autoit][/autoit][autoit]; Prüfen, ob die Suche erfolgreich war
If $search = -1 Then
MsgBox(0, "Fehler", "Es wurden keine Dateien/Verzeichnisse gefunden, die zu dem Suchmuster passen")
Exit
EndIf
While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $name = ' & $file & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
If StringInStr($file, "tag") Then
MsgBox(4096, "Datei:", $file)
;FileCopy(@ScriptDir & "\" & $name, @scriptdir & "\Alles mit Tag\" & $name, ![]()
EndIf
WEnd
[/autoit][autoit][/autoit][autoit]; Handle für Suche schliessen
FileClose($search)
Hi,
[autoit]DriveSetLabel
[/autoit]ist ggf nicht das was du suchst?
Den Laufweksbuchstaben zu ändern, sagen wir mal C:\ in K:\ würde ggf einigen Programmen den Boden unter den Füssen wegziehen. Wozu brauchst du einen geänderten Laufwerksbuchstaben?
Vielleicht hilft dir der DOS-Befehl "SUBST" weiter, um einem Pfad einen Laufwerksbuchstaben zuzuweisen.
Andy
ZitatIch habe meins mall überarbeitet, da kam gleich schon der nächste fehler
wenn du hier Threads erstellst die definitiv "HILFE" im Titel haben und dann nicht mal die Scripte anschaust bzw ausprobierst, welche FUNKTIONIEREN ( ! ) dann besteht wohl auch kein weiterer Grund hier Antworten zu geben....
ZitatDie Checkboxen kammen nur in einen Tab und die anderen Tabs waren leer
Hättest du dir das Script von mir im Post von 9:42 Uhr mal angeschaut, dann hättest du gesehen, was ich geändert habe, damit genau DAS nicht passiert..
nur zur kurzen Erklärung, der Ausdruck ($i>10) liefert für alle $i>10 EINS und ansonsten NULL
für 2 Spalten a 15 Rechner
[autoit]guicreate("")
dim $pc[31] ;anzahl Rechner+1
For $i = 1 To 30 ;2 spalten
$pc[$i] = GUICtrlCreateCheckbox($i, 10 + (($i > 15) * 40), 30 + ($i - (($i > 15) * 15)) * 20)
Next
guisetstate()
sleep(3000)
für 3 Spalten a 10 Rechner
[autoit]guicreate("")
dim $pc[31] ;anzahl Rechner+1
For $i = 1 To 30
$pc[$i] = GUICtrlCreateCheckbox($i, 10 + ((($i > 10)+($i>20)) * 40), 30 + ($i - (($i > (($i>20)+1)*10) * (($i>20)+1)*10)) * 20)
Next
guisetstate()
sleep(3000)
nicht vergessen DIM $pc[31] usw anpassen, ggf eine Variable $anzahl_pcs= erstellen
Habs jetzt mal so wie ich denke dass es geplant war^^
#include <GUIConstantsEx.au3>
#include <file.au3>
#include <array.au3>
Global $aArray
Global $text
Global $htab
Global $htabtext [10]
Global $hchks1[10][30]
Global $hchks2[10][30]
Global $pc[100]
GUISetBkColor(0x00E0FFFF)
GUISetFont(9, 300)
GUICreate("Test", 450, 415)
Global $hbtnWakeUp = GUICtrlCreateButton("Aufwecken",350, 390, 100)
$htab = GUICtrlCreateTab(10, 10, 435, 380)
GUISetState(@SW_SHOW)
$ordner = _FileListToArray(@ScriptDir, "testdatei*.txt", 1)
_arraydisplay($ordner)
For $text = 1 To $ordner[0]
$FileToRead = @ScriptDir & $ordner & "\" & $ordner[$text]
$htabtext[$text] = GUICtrlCreateTabItem($ordner[$text])
If _FileReadToArray($FileToRead,$aArray) Then
$pc[$text]=$aarray[0]
MsgBox(262144,'Debug line ~' & @ScriptLineNumber,'Selection:' & @lf & '$pc' & @lf & @lf & 'Return:' & @lf & $pc) ;### Debug MSGBOX
; MsgBox(0,"filetoread",$FileToRead)
For $zeile1 = 1 To $aArray[0]
$ausgabe = StringSplit($aArray[$zeile1], ";")
; _arraydisplay($aarray)
$i = 50
$j = 30+$zeile1 *25
$hchks1[$text][$zeile1] = GUICtrlCreateCheckbox("" & $ausgabe[1], $i,$j )
; MsgBox(64,"",$ausgabe[1])
$hchks2[$text][$zeile1] = $ausgabe[2]
; MsgBox(0,"", $hchks2[$text][$zeile1])
Next
EndIf
Next
GUICtrlCreateTabItem("")
[/autoit] [autoit][/autoit] [autoit]GUISetState()
[/autoit] [autoit][/autoit] [autoit]While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
case $msg = $hbtnWakeUp
for $raum = 1 to $ordner[0]
For $pc_nummer = 1 to $pc[$raum]
if BITAND(GUICtrlRead($hchks1[$raum][$pc_nummer]),$GUI_CHECKED) = $GUI_CHECKED Then
msgbox( 64,"",$hchks2[$raum][$pc_nummer])
EndIf
Next
Next
EndSelect
WEnd
Testdatei1:
Zitat1;Eins
2;Zwei
3;Drei
4;vier
5;fünf
Testdatei2:
ZitatMo;Montag
Di;Dienstag
Mi;Mittwoch
Falls der Ablauf wirklich so sein sollte, dann würde ich allerdings anhand der maximalen Anzahl der Rechner in den einzelnen Räumen die GUI aufbauen.
Hi,
nachdem ich ca 10 Syntaxfehler berichtigt hatte, stehe ich nun vor einer Reihe Logikprobleme.
WAS soll das Script eigentlich genau machen?
Wieso stellst du nicht das komplette Script, sondern nur einen Ausschnitt ein?
Die Variable $pc in Zeile 37 z.B. wurde weder irgendwo definiert noch vorher benutzt....
Andy
ZitatDie Funktion zeigt bei mir nämlich genau die WLAN-Übertragungsraten an
Yo, hab kein Wlan, aber anhand der hier geposteten Werte und meiner Tests wird die Geschwindigkeit des Netzwerkadapters ausgegeben, bei Funkey ca 50Mbit, bei mir 100 und 10 Mbit (auf und von div Rechnern gegenseitig) und Ojo sollte wohl an einer Gigabitleitung hängen^^
Zitataber ich nuch nur die Wahlprozedur
aha...und wenn du unter diesem Begriff nichts findest, dann hats wahrscheinlich auch keine gegeben...scheinbar scheint die Aufgabe für Leute lösbar, die sich unter einer "Prozedur" etwas vorstellen können^^
Zitatnichts anderes
hier klink ich mich jetzt auch aus ![]()
Die Tante gefüttert mit
Zitatbundestagswahl 1976
und in den ersten 5 Links finden sich reihenweise Informationen bzw weitere interessante Links....
ZitatLeider finde ich garnichts.
Wärest du in der Schule, gehört dir ne 6 nur schon allein Aufgrund dieser Aussage! ![]()
Zitatdas was er dazwichen ausgelesen hat in eine txt datei eintragen.
da ich davon ausgehe daß progandys regex auch das selbe Ergebnis hat wie mein Script (*kicher*) und unverschämterweise wir BEIDE die letzte Zeile
[autoit]_FileWriteFromArray("namen.txt",$zeile)
[/autoit]vergessen hatten, hole ich das hiemit nach....
/EDIT/ immer zweiter...... ![]()
Hi.....
[autoit]#include <Array.au3>
$text=fileread("test.txt") ;datei einlesen
$zeile=stringsplit($text,"</a><br>",3) ;$text in array splitten
;_arraydisplay($zeile)
for $i=0 to ubound($zeile)-1
$zeile[$i]=stringright($zeile[$i],stringlen($zeile[$i])-stringinstr($zeile[$i],">",0,-1)) ;am ende steht der Name vor dem >
Next
_arraydisplay($zeile)
so?
Zitatkennst du kein Tower Defence
mit Tower defenSe kommts hin^^
Aber ich spiele lieber in WC3 die TD-Funmaps...werden mittlerweile einige hundert verschiedene sein ![]()
Hallo,
ZitatDas stelle ich mir bisher so vor, dass ich in einer Switch...Case...EndSwitch-Bedingung
bei jedem Case ein Feld fülle und mit 'If WinExists...' auf evtl. Meldung(en) warte.
Das wären über 60 Case; wäre also entsprechend langsam.
Ich kann mir kaum vorstellen, daß im Erfolgsfall (richtige Eingabe im Feld) ein "Das hast du gut gemacht!"-Fenster aufpoppt...
Somit müsstest du nur den eventuellen Fehlerfall abfragen. In diesem Fall würde ich den gesamten "fehlerhaften Datensatz" (Array mit den Exceldaten) in einer "Fehlertabelle" abspeichern. Im Lohnabrechnungsprogramm diesen Datensatz natürlich NICHT speichern sondern einen Neuen anlegen (und mit dem nächsten Excel-Datensatz ausfüllen).
Zum Schluß die Fehlertabelle in die Lohnabrechnung eintragen lassen und dann die Fehler checken. So kann das Script (je nach Datenaufkommen) einige Stunden vor sich hin werkeln, und im Anschluß werden die fehlerhaften Daten (müssen sowieso berichtigt werden) eingepflegt.
ciao
Andy