He Leute, nur kein Streß.
Candyland, sicher war dein Gedanke gut gemeint. Aber ehe hier jemand ein Skript zum Mausschubsen schreibt, fallen uns eher die Finger ab.
Sowas ist derart unsicher und daher eher eine Zeitbombe, da du nie sicher sein kannst, was dein Mausgeklicke wirklich anrichtet.
Jeder Mailanbieter sollte das auch erkennen und den HTML-Text parsen.
Vielleicht etwas OT - aber ich habe mir extra einen Mail-Client zugelegt, der HTML nicht anzeigen kann (Sylpheed), da ich den ganzen Formatierungskram in Mails nicht ausstehen kann.
Ein Mail-Body ist ein TEXT-Feld. Dabei soll es bleiben. Für alles andere gibt es Anhänge.
Hat das etwas mit diesen Arrays zu tun
Ja. Ergebnis ist ein Array, also anzeigen z.B. mit _ArrayDisplay
Mehr über Arrays kannst du aus meinem Array-Tut (s. Signatur) erfahren.
Direkt an SQL traue ich mich nicht ran. Falls mal was schief geht, zerschießt es mir die ganze Datenbank.
Das wäre auch sehr leichtsinnig, mache ich auch nie bei einem noch nie gelaufenen Programm. Ich habe in einer VM eine Kopie der Warenwirtschaft laufen und teste selbstverständlich neue Dinge dort, bevor es an das Original geht.
Ich arbeite nicht mit Lexware sondern GDI-WaWi. Bei mir habe ich eine SQL-Schnittstelle über die ich solche Operationen durchführe. Vor allem sparst du das ganze Vergleichen.
Ein AutoIt-Programm erstellen, das die SQL-Queries generiert. Je nach verwendetem SQL-Dialekt könnte ein Befehl zum Einfügen-wenn-nicht-existiert-sonst-Update so aussehen:
IF EXISTS (SELECT * FROM Table1 WHERE Column1=’SomeValue’)
UPDATE Table1 SET (…) WHERE Column1=’SomeValue’
ELSE
INSERT INTO Table1 VALUES (…)
Das ist zwar nicht die schnellste Variante, da SELECT und UPDATE jedesmal den Index scannen, aber bei der geringen Anzahl von Daten kein Problem (1.000 ist wenig, ich pflege um die 16.000 Datensätze mit ~30 Feldern ein - dauert keine 2 Minuten).
$fEnde = False
Do
If WinWaitNotActive("Testprogramm") And $st = 1 Then
While $x < $wiederholung
Send($textausgelesen)
Send("{ENTER}")
; hier sollte er rausspringen und die bedingungen erneut abfragen
$st = 0
ExitLoop
WEnd
EndIf
; noch eine Abbruchbedingung setzen, damit du die Schleife verlassen kannst
If ('irgendeine_Bedingung') Then $fEnde = True
Until $fEndeDas ist kein Problem wenn du uns verrätst um was für ein Programm es sich handelt.
[Blockierte Grafik: https://encrypted-tbn0.gstatic.com/images?q=tbn:ANd9GcRIVZLFQk8JBW6njiyk2FcKru_HG78zDNpF3aPHPv6Lik5V6-Z4XA]
GEFIXED - Fehler bei Cursorposition am Zeilenende
NEU - Erkennung mehrere Funktionen in einer Zeile ( z.B. If _UserFunc_A() = _UserFunc_B() Then MsgBox(0, '', 'Bla') )
Ich habe mal getestet, Datei erstellt mit 5 Mio Einträgen und 50 Zeichen je Zeile.
Erstellen dauert ~2 min, Einlesen in Array etwas mehr als 1 min. Ist doch ganz passabel.
$sFile = 'c:\temp\5mio.txt'
;~ _5_MioLineFile($sFile) ; Laufzeit 138 s
Func _5_MioLineFile($_sPath)
Local $sWrite = ''
For $i = 1 To 5000000
$sWrite &= StringFormat('%07i ==========================================%s', $i, @CRLF)
Next
FileWrite($_sPath, $sWrite)
EndFunc
$t = TimerInit()
$aRet = _5_MioLineToArray($sFile)
ConsoleWrite('Time: ' & TimerDiff($t) & @CRLF) ; ==> Time: 75888.0056925964 ms
Func _5_MioLineToArray($_sPath)
Local $aLines[10*1000000], $iIndex = 0 ; max. 10 Mio Einträge
Local $hFile = FileOpen($_sPath)
While True
$aLines[$iIndex] = FileReadLine($hFile)
If @error Then ExitLoop
$iIndex += 1
WEnd
FileClose($hFile)
ReDim $aLines[$iIndex]
Return $aLines
EndFuncFür Audio-Ausgabe gibt es Text-To-Speech. Hatte ich in meiner Zeitansage verwendet, im Thread ist auch die Installationsanweisung in einem Post verlinkt.
Kannst du ja mit verwenden.
Wie der Name sagt, werde ich hier mal die kleinen Schnipselchen, die so beim Programmieren anfallen, und für die ein eigener Thread etwas overdressed wäre, posten.
• Parametersplitting in Array
Kennt ihr sicher: Entweder als Funktions- oder Programmparameter wird eine Liste des Musters Schlüssel1=Wert1,Schlüssel2=Wert2,.. übergeben. Wenn dann aber als Schlüssel oder Wert der Listentrenner , oder der Zuweisungsoperator = auftauchen, muss escaped werden. Zum Escapen verwenden wir üblicherweise \.
Mit der folgenden Funktion werden die Schlüssel-Wert-Paare unter Berücksichtigung etwaiger Escapesequenzen in ein 2D-Array gesplittet. $a[0][0]=Anzahl Paare
Bsp.: Parameterstring escaped 'x1=y1,a=b,\,=;,\==%,\\=/' wird zu [[5],['x1','y1'],['a','b'],[',',';'],['=','%'],['\','/']]
Func _SplitParamEscaped($_sParam) ; Escape with '\'
Local $a[1][2] = [[0]], $pos = 1, $sChar, $sVal = ''
While $pos <= StringLen($_sParam)
$sChar = StringMid($_sParam, $pos, 1)
Switch $sChar
Case '\'
$pos += 1
$sVal &= StringMid($_sParam, $pos, 1)
Case '='
$a[0][0] += 1
ReDim $a[$a[0][0]+1][2]
$a[$a[0][0]][0] = $sVal
$sVal = ''
Case ','
$a[$a[0][0]][1] = $sVal
$sVal = ''
Case Else
$sVal &= $sChar
EndSwitch
$pos += 1
WEnd
$a[$a[0][0]][1] = $sVal
Return $a
EndFunc• Titel eines Fensters durch User-Mausklick abfragen
Erklärt sich selbst, der User kann aus dem Programm heraus auf ein Fenster klicken, der Titel dieses Fensters wird ausgelesen.
#include <WindowsConstants.au3>
#include <Misc.au3>
Func GetTitleByClick()
Local $hCursor = GUICreate('', 48, 48, -1, -1, $WS_POPUP, $WS_EX_TOPMOST)
WinSetTrans($hCursor, '', 10)
GUISetCursor(3, 1, $hCursor)
GUISetState(@SW_SHOW, $hCursor)
; get title bar position
Local $pos
Do
$pos = MouseGetPos()
WinMove($hCursor, '', $pos[0]-24, $pos[1]-24)
Sleep(10)
Until _IsPressed('01')
GUIDelete($hCursor)
; block mouse
_MouseTrap($pos[0], $pos[1], $pos[0]+1, $pos[0]+1)
; click position - activates the window
MouseClick('left', $pos[0], $pos[1])
; unblock mouse
_MouseTrap()
; get the title of the active window
Local $sTitle = WinGetTitle('[ACTIVE]')
Return $sTitle
EndFunc ;==>GetTitleByClickWürde ich so machen:
- Array für Index zum Aufruf mit 100 Einträgen: 70 x 0 und 30 x 1 (bunt durcheinander)
- Array für Aufruf ['wikipedia.de', 'google.de']
- mit Random(0,99,1) aus dem ersten Array einen Index (0 oder 1) ermitteln
- die Chancen eine Randomzahl 1-99 zu bekommen ist gleichverteilt, da 30% auf 1 (google) und 70% auf 0 (wikipedia) verweisen, sollte m.M. nach nun die Chance, wie gewünscht sein.
Die Exceldatei lasse ich auf invisible starten, da der Mitarbeiter nur meine Maske ausfüllen soll, ohne jedoch die eigentliche Excel-Datei (diese dient dann als Art Datenbank).
Es ist sicher toll, dass man mit AutoIt auf Excel zugreifen kann. Hier jedoch halte ich das für wenig sinnvoll.
Du hast eine Excel-Datei als Datenbank und verwendest eine Maske um dort Daten abzulegen.
Mein Tipp: Verwende dazu VBA. Du sperrst die Tabelle und läßt den User nur über die Maske interagieren.
All die Probleme mit Zugriff regelt dann Excel alleine.
Ich habe durch Bekannte/Verwandte schon Einiges aus dem Bereich "Fitness" in die Hand bekommen und dann mal mit professionellem Equipment aus der Medizin abgeglichen (wozu bin ich im Medizintechnikbereich tätig 
).
Fazit: Das Zeug ist eine nette Spielerei, die dem User Geld aus der Tasche zieht. Auf die gemessenen Werte sollte man sich nicht ernsthaft verlassen. Gerade die angeblich verbrauchten Kalorien sind eher der Zugriff auf ein Random-Table.
Eine völlig unnütze - da niemals aussagekräftige - Funktion ist der Schrittzähler. Abhängig von der Geschwindigkeit und dem Gelände auf dem ich laufe variiert die Schrittweite extrem (z.B. Tippelschritt mit < 0,5m bis schneller Laufschritt >1,8m). Was soll dir nach einem Intervalltraining jetzt die Angabe zu der Schrittzahl sagen....
Ich habe oft erlebt, dass die Zähler bei einem schnellen Schritt mehrfach anschlagen, bei langsamen Schritt aber gar nicht. Ohne jedes System und nicht verifizierbar.
Also lege keinen Wert auf den Fitness-Aspekt. Das Zeug ist Mumpitz und sollte keinen Einfluss auf deine Auswahl haben.
P.S.
Falls du mal wissen möchtest, wie aufwändig Messungen zum Energieverbrauch sind, google mal nach dem Stichwort: Kalorimetrie
alpines:
_IECreate mit default Parametern verwendet _IELoadWait! - Dein Do-Until ist also für die Katz, du läufst in den ClientDisconnected-Error.
Deshalb: $oIE = _IECreate("URL", 0, 1, 0)
Dann entferne doch alle relevanten Daten aus der Source. Wir brauchen die Struktur der Seite um die Web-Elemente und deren Anordnung feststellen zu können.
_IECreate ( [$sUrl = "about:blank" [, $iTryAttach = 0 [, $iVisible = 1 [, $iWait = 1 [, $iTakeFocus = 1]]]]] )
Im Funktionsaufruf sind alle möglichen Parameter aufgeführt. Sind Parameter mit einem Standardwert vorbelegt (In dieser Funktion sind alle Parameter vorbelegt), braucht man diese nicht angeben, wenn man sie mit dem Standardinhalt aufrufen will.
Hier möchtest du aber den 4.ten Parameter ändern, somit musst du alle Parameter davor (auch wenn sie unverändert bleiben) angeben. Dein Aufruf muss also lauten:
$oIE = _IECreate("URL", 0, 1, 0)
Aber ich vermute, dass das auch nichts ändern wird. Das $oIE wird vermutlich existieren - aber nicht sofort der durch das seiteninterne Skript nachzuladene Inhalt.
Versuche es einfach mal mit obigem Aufruf und setze ein Sleep() dahinter, für den Anfang 2000 ms oder 1000 ms. Einfach variieren.
--> IE.au3 T3.0-2 Error from function _IELoadWait, $_IESTATUS_ClientDisconnected (-2147417848, Browser has been deleted prior to operation.)
Das im vorigen Post von dir gezeigte Snippet enthält aber gar kein _IELoadWait - wie kommst du dann zu dem Fehler? - habs gerade gesehen: _IECreate verwendet intern _IENavigate und dieses wiederum bei gesetztem Flag $iWait die Funktion _IELoadWait.
In deinem Snippet musst du also das Flag für Wait in _IECreate auf 0 setzen, sonst hast du keinen Unterschied zu _IELOadWait!
_IELoadWait ist auch nicht immer tauglich, sagt dir auch die Hilfe dazu:
Browser scripting security restrictions may sometimes prevent _IELoadWait() from guaranteeing that a page is fully loaded and can occasionally result in untrapped errors.
In these cases you may need to avoid calling _IELoadWait() and attempt to employ other methods of insuring that the page load has completed.
These methods might include using a Sleep command, examining browser status bar text and other methods. When using functions that call _IELoadWait() for objects other than the InternetExplorer (browser) object, you may also be successful by calling _IELoadWait() for the browser yourself (e.g. _IELoadWait($oIE)).The most common causes of trouble are page redirects and cross-site scripting security restrictions associated with frames. Page re-writing techniques employed by some applications (e.g. Gmail) can also cause trouble here.
Verwendest du AutoIt3.exe in 32- oder 64-Bit Version?
Kompilierst du die Monitorauflösung.exe als 32- oder 64-Bit?
Um Kompatibilitätsprobleme zu vermeiden verwende ich ausschliesslich die 32-Bit AutoIt Version und kompiliere als 32-Bit Anwendung.
Wenn du an ein Ctrl senden willst, musst du auch das Ctrl angeben (ID oder Classname). Ein Leerstring ist definitiv falsch.
