Beiträge von BugFix

Mit viel Rückwärtsdenken bekommt man auch längere Einzeilenskripte hin.
Hier mal ein Bsp. (hab ich glaub ich mal im EN-Forum entdeckt):

If FileWrite(@TempDir & "\temp.script.au3", _
'While (WinExists("Beenden") '& _
'And WinSetTitle(WinGetTitle("Beenden",""),"","Beenden " & StringRight(WinGetTitle("Beenden",""),3)-10) '& _
'And (WinSetTrans(WinGetTitle("Beenden",""),"",StringRight(WinGetTitle("Beenden",""),3)) '& _
'And Sleep(25)) '& _
'And (StringRight(WinGetTitle("Beenden",""),3)>0 Or WinSetTitle(WinGetTitle("Beenden",""),"","exit") Or MsgBox(0,"",WinGetTitle("")))) '& _
'Or (((WinExists("Ein-Zeiler") Or WinExists("exit")) Or (GUICreate("Ein-Zeiler",200,100) '& _
'And GUISetState() And GUICtrlCreateCheckbox("Klick mich",10,10))) And Not WinExists("exit") '& _
'And ((BitAnd(GUICtrlRead(-1),1)=1 And (MsgBox(0,"Info","Du hast die Checkbox geklickt")) And GUICtrlSetState(-1,4)) Or 1) '& _
'And ( GUIGetMsg()<>-3 Or WinSetTitle("Ein-Zeiler","","Beenden 255")))' & @CRLF & _
'WEnd') _
And Run(@AutoItExe & ' /AutoIt3ExecuteScript "' & @TempDir & '\temp.script.au3"') _
And Sleep(1000) _
And FileDelete(@TempDir & "\temp.script.au3") Then Exit

Zitat von Alina

SciTe ist ja eigentlich in Englisch, was ich gut finde.

Ist nur in Englisch, wenn du die deutsche Sprachdatei nicht installierst.

Zitat von Alina

<< F1 >> anklickt wird die englische Hilfe genutzt und nicht die Übersetze deutsche Version. Kann man das einstellen und wenn ja wo.

Ich denke, wenn du die "Autoit3.chm" im AutoIt-Installationsordner (..\Programme\AutoIt3) mit der deutschen Version ersetzt, sollte das gelöst sein.

Hi,
weiter so.

Bei Quersummen gibt es ja einige. Ich habe mal in einer Funktion die 'normale', die iterierte und die alternierende Quersumme als Möglichkeit. Kannst du ja bei Bedarf mit einbauen.

ConsoleWrite('Quersumme: ' & _Quersumme(1428) & @CRLF)
ConsoleWrite('Iterierte Quersumme : ' & _Quersumme(1428,0,1) & @CRLF)
ConsoleWrite('Alternierende Quersumme: ' & _Quersumme(1428,1) & @CRLF)

Func _Quersumme($number, $aqs=0, $iteriert=0)
While StringLen($number) > 1
Local $split = StringSplit($number, '', 2)
$number = 0
If $aqs Then ; alternierende QS
Local $mul = -1
For $i = UBound($split) -1 To 1 Step -1
$split[$i-1] = $split[$i] + ($mul * $split[$i-1])
$mul *= -1
Next
Return $split[0]
Else ; normale u. iterierte QS
For $i = 0 To UBound($split) -1
$number += $split[$i]
Next
If Not $iteriert Then ExitLoop ; normale QS
EndIf
WEnd
Return $number
EndFunc

Habe ich vor einiger Zeit auch mal gemacht, allerdings nicht auf Ostern begrenzt - sondern als Feiertagsrechner, da die meisten Feiertage auf der Basis von Ostern ermittelt werden. Wochentag- Feiertagsermittlung

Zitat von Oscar

So bräuchtest Du keine Datei. Ist allerdings recht mühsam das alles einzutragen.

Da der Text ja bereits als Datei vorliegt, brauchst du nur einmalig das $array erstellen, wie von Oscar beschrieben.
Und hiermit ist es dann auch keine Schreibarbeit mehr, daraus das dauerhafte Array für das Skript zu erstellen.
Ausführen und dann die Consolenausgabe in dein Skript einfügen.

$strDeklaration = "Global $array[37] = [ _" & @CRLF
For $i = 0 To UBound($array) -1
$strDeklaration &= "'" & $array[$i] & "', _" & @CRLF
Next
$strDeklaration = StringTrimRight($strDeklaration, 4) & "]"
ConsoleWrite($strDeklaration & @CRLF)

$str = _
"Das ist ne gute Idee =D" & @CRLF & _ ;23 +2
"Dann hat sie viel zu rechnen ;)" & @CRLF & _ ;31 +2
"Dann stellt sich die Frage, kann AutoIt die Buchstabelposition 'lesen'. Und z.B in einer Inputbox ausgeben?" & @CRLF & _ ;108 +2
@CRLF & _ ; 2
"Wer noch Vorschläge hat, einfach schreiben. =)" & @CRLF & _ ;46 +2
@CRLF & _ ; 2
"Mfg" & @CRLF & _ ;3 +2
"Benne" ;5

ConsoleWrite(StringMid($str, 17, 1) & StringMid($str, 49, 2) & StringMid($str, 4, 1) & StringMid($str, 42, 1) & _
StringMid($str, 5, 1) & StringMid($str, 10, 1) & StringMid($str, 162, 2) & StringMid($str, 8, 1) & _
StringMid($str, 23, 1) & StringMid($str, 36, 1) & StringMid($str, 49, 2) & @CRLF)

Eine Möglichkeit:
- du hinterlegst einen beliebigen Text (z.B. einen Artikel aus Wikipedia)
- dort suchst du dir die für deinen Text notwendigen Buchstaben zusammen (deren Position, also wievieltes Zeichen)
- das Rätsel kannst du dann z.B. mit mathematischen Aufgaben erstellen, deren Lösung jeweils eine Buchstabenposition ist
Ist alles richtig gelöst erscheint der gesuchte Text - sonst halt Müll

Zitat von Jam00

er meint wirt in der Nägsten

[BitOr(OT, IRONIE)]
Aber, aber Jam00: Ich bin entrüstet. - Der Jäger der Schreibfehler gleich mit zwei soo dicken Schnitzern.
wirt statt wird
Nägsten statt nächsten

Du hast doch nicht etwa schon am Osterpunsch genuckelt ??
[/BitOr(OT, IRONIE)]

Sosehr ich euer Engagement in dieser Richtung schätze, möchte ich keinen blinden Aktionismus entstehen lassen.
Wir hatten (schon viel zu oft) über das leidige Thema diskutiert und uns die entsprechenden Werkzeuge geschaffen (Ver/Warnungen).
Wir sollten erst mal konsequent diese Mittel einsetzen, ohne immer aufs Neue unseren Unmut dazu in Diskussionen zum Ausdruck zu bringen.
Meine Bitte, wie ihr uns Mods/Admins unterstützen könnt: Meldet Posts, die euch verdächtig erscheinen - denn wir können nicht immer alles lesen.
So besteht die Chance, dass mit kurzer Reaktionszeit entsprechende Themen geschlossen werden (u. ggf. weitere Maßnahmen eingeleitet werden). Das könnte ein guter Schritt in die Richtung sein, den "Botsumpf" endlich trocken zu legen.

INI ist auch nur 'ne Textdatei, aber sie hat eine klare Struktur:
[Sektion]
Schlüssel=Wert

Und somit kann man gezielt Werte lesen/schreiben, ohne jedesmal die ganze Textdatei zu bearbeiten.

Ich sag mal, mit einem breiten Grinsen im Gesicht: auf den Monitor schauen.
Nee, ernsthaft. Ich verstehe nicht recht den Sinn. Willst du eine Meldung ausgeben: Achtung die MsgBox ist da? - Dann setze vor den Code der MsgBox einfach ein Beep().

Ich hab mal meinen ColorPicker etwas umgebaut:

#include <WindowsConstants.au3>
#include <Misc.au3>
HotKeySet('!e', 'ende')

Local $pos
$Cursor = GUICreate('', 48, 48, -1, -1, $WS_POPUP, $WS_EX_TOPMOST)
WinSetTrans($Cursor, '', 100)
GUISetCursor(3, 1, $Cursor)
GUISetState()

While 1
While _IsPressed('70')
$pos = MouseGetPos()
WinMove($Cursor, '', $pos[0]-24, $pos[1]-24)
Sleep(10)
WEnd
Sleep(10)
WEnd

Func ende()
Exit
EndFunc

Mir reicht es jetzt endgültig!
Ab sofort werde ich jeden Post, der irgendwie nach Bot od. sonstigem Verstoß gegen die Forenregeln riecht, sofort closen.
Kann sein, dass dabei auch Threads geschlossen werden, in denen keine unlauteren Absichten verfolgt werden.
Doch dann drückt euch einfach klar und deutlich aus, um nicht in die Bot-Ecke zu geraten.
Ich hoffe, ihr habt dafür Verständnis.

[Topic Closed]

Zitat von Sniekers

Ich möchte, dass auf meiner Seite die 100 Links angeklickt werden...

Du willst es nicht erläutern, dass ist mir Beweis genug, dass ich richtig liege mit meiner Vermutung.

[Topic Closed]

Zitat von moiskid

mit dem editor kann man sie ja öffnen und mit F3 findet man auch das was man sucht nur halt autoit net^^

Wenn du es im Text-Editor öffnen und im Klartext lesen kannst, stammen die Daten nicht aus einem BLOB-Feld.
Vielleicht erklärst du mal die Herkunft der Daten.

Du hast noch keine Zeile Code gepostet, woher sollen wir wissen, wo dann Fehler entstehen!
Wenn du Hilfe wünscht, musst du selbst die Grundlagen dafür schaffen.
Auch hier gilt die alte Regel: Wo nix rein kommt, kommt auch nix raus.

Edit: Hab grad gesehen, dass du die Datei angehängt hast, ist keine Textdatei. Also gib mal an, wo sie herstammt.

Würde mich sehr wundern, wenn das KEIN Bot wird.
Ich leg schon mal das Schloß an den Thread, wenn es sich bewahrheitet, schnappt das zu!

Zitat von Sniekers

Bin neu falls ihr noch angaben braucht kan ich sie euch geben.

Ja, wichtigste Angabe fehlt: Welchen Sinn soll das haben? Wozu willst du einen Link anklicken, wenn du auf der Seite nichts machst? - Das sieht mir sehr zwielichtig aus. Lies dir mal die Forenregeln durch, ob du das damit vereinbaren kannst.

@mazo09:
Ich habe den Eindruck, du wartest bis deine alte (Ver)Warnung abgelaufen ist, um dann mit dem gleichen kranken Verhaltensmuster dir wieder eine einzufangen.

Ich bitte hiermit alle User sich gründlich zu überlegen, ob sie solch ein Verhalten auch noch durch Support unterstützen wollen.
Von mir gibt es definitiv nix mehr! (User moved to BugFix.BlackList)

Zitat von moiskid

kann autoit .blob files nicht wie normale .txt files lesen...

Vielleicht sollte man erst mal klären, was DU unter .blob files verstehst?
BLOB ist normalerweise ein Datenfeldtyp (Binary Large OBject) und enthält beliebig große Binärdateien von multimedialen Daten (Video, Audio, Grafik, Animation). Große Textmengen werden auch darin abgelegt - aber Binär. Datenbanken verwenden deshalb Umkehrfunktionen (BlobToString, BlobToSubString) um Text/~elemente aus einem Blob zu extrahieren.

Das geht so:

#include <date.au3>
$t1 = "2009/01/01 13:15:00"
$t2 = _NowCalc()

$diff = _DateDiff('s', $t1, $t2)
Select
Case $diff < 60
$sDiff = StringFormat('%02u', $diff) & ' s'
Case $diff < 60*60
$sDiff = StringFormat('%02u', Floor($diff/60)) & ':' & _
StringFormat('%02u', Mod($diff,60)) & ' min'
Case $diff < 60*60*24
$sDiff = StringFormat('%02u', Floor($diff/3600)) & ':' & _
StringFormat('%02u', Floor(Mod($diff,3600)/60)) & ':' & _
StringFormat('%02u', Mod(Mod($diff,3600),60)) & ' h'
Case Else
$sDiff = Floor($diff/86400) & ' d / ' & _
StringFormat('%02u', Floor(Mod($diff,86400)/3600)) & ':' & _
StringFormat('%02u', Floor(Mod(Mod($diff,86400),3600)/60)) & ':' & _
StringFormat('%02u', Mod(Mod(Mod($diff,86400),3600),60)) & ' h'
EndSelect

MsgBox(0, 'Vergangene Zeit', $sDiff)