Beiträge von Oscar

Es funktioniert aber auch mit den normalen AutoIt-Funktionen, indem man die Datei im Binary-Mode liest und schreibt:

_NotExecute(True, @ScriptDir & '\test.exe') ; Beispielaufruf: Exe nicht ausführbar
MsgBox(0, 'Test', 'Datei ist jetzt nicht ausführbar!')

_NotExecute(False, @ScriptDir & '\test.exe') ; Beispielaufruf: Exe wieder ausführbar
MsgBox(0, 'Test', 'Datei ist jetzt wieder ausführbar!')

Func _NotExecute($bExe, $sFilename)
Local $sHeader, $hFile, $sFile
$hFile = FileOpen($sFilename, 16)
$sFile = FileRead($hFile)
FileClose($hFile)
If $bExe Then
$sHeader = '0x0000'
Else
$sHeader = '0x4D5A'
EndIf
$sFile = $sHeader & StringMid($sFile, 7)
$hFile = FileOpen($sFilename, 2 + 16)
FileWrite($hFile, $sFile)
FileClose($hFile)
EndFunc ;==>_NotExecute

Dabei wird allerdings die gesamte Exedatei in den Speicher geladen.

Allgemeingültige Tutorials gibt es eigentlich nicht, weil die Hard-/Software-Konfiguration mit entscheidet.

Grundlagen:
DynDNS ist ein Service, der Deine IP-Adresse (nicht die lokale, sondern die, die Dir vom Provider zugewiesen wird) auf einen Domainnamen abbildet.

1. Schritt
Wenn Du Dich bei DynDNS anmeldest, bekommst Du einen (Sub-)Domainnamen (z.B.: commander21.dyndns.org) zugewiesen. Jetzt muss Dein Router oder (falls nicht vorhanden oder der das nicht unterstützt) ein Programm auf Deinem PC Deine IP (vom Provider zugewiesene) an DynDNS übermitteln, damit deren Server die Zuordnung Domainname -> IP vornehmen können.

2. Schritt
Wenn Du einen Router besitzt, muss dort eine Port-Weiterleitung eingerichtet werden. Wenn Du zum Beispiel auf Deinem PC ein FTP-Serverprogramm laufen lassen willst, musst Du Port 21 auf Deinen PC weiterleiten lassen. Ein HTTP-Server braucht eine Weiterleitung auf Port 80. Willst Du ein AutoIt-Programm als Ziel benutzen, musst Du den Port eintragen, den Du dort benutzt. Ohne diese Weiterleitung würde der Router ankommende Pakete einfach verwerfen. Es würde kein Connect stattfinden. Diese Weiterleitung geschieht dann an die lokale IP Deines PCs. Als Weiterleitungs-IP musst Du dort also die lokale IP-Adresse Deines PCs eintragen.

Hast Du keinen Router, hängt Deine Netzwerkkarte also direkt an einem DSL-Modem, so hast Du (hoffentlich) eine Firewall laufen. In dem Fall musst Du dort den Port freigeben.

3. Schritt
Wenn alles soweit konfiguriert ist, kann man von außen auf Deinen Rechner (bzw. auf das Server-Programm) zugreifen. Dazu benötigt man dann nicht Deine IP-Adresse, sondern den Domainnamen. Zum Beispiel könnte man (wenn Du ein HTTP-Server-Programm auf Deinem PC laufen hast) den Domainnamen direkt im Browser eingeben und hätte dann Zugriff auf die freigegebenen Ordner/Dateien.

Das sind soweit die Grundlagen. Um das Ganze wirklich lauffähig zu kriegen, ist die verwendete Hard- und Software entscheidend.
Wenn Du das damit nicht selbst schaffst, müsstest Du mehr Informationen über Deine Geräte bzw. verwendete Software liefern.

Eigentlich müsste das Beispiel von rew funktionieren. Die ID ist ja angegeben.
Ich könnte mir evtl. vorstellen, dass es mit der Erkennung des Textes zu tun hat.
Vielleicht mal so versuchen:

ControlClick("Speichern unter", "", 1)

Schau Dir das Beispiel aus der Hilfe an und ändere einfach die Werte für Left, Top, Right und Bottom entsprechend.

GtaSpider, die Idee ist auch nicht schlecht. Hab gerade mal 1.000.000 Ziehungen gemacht:
Zeile 83 geändert:

Until $bBreak Or $iCount = 1000000

Zeilen 84...88 auskommentieren.
Ergebnis:
3334 x 3 Richtige
189 x 4 Richtige
5 x 5 Richtige
0 x 6 Richtige

Schade, wenn die Gewinne konstant wären, könnte man noch den Gesamtgewinn ausrechnen.

Andere Möglichkeit:
Die ersten beiden Bytes der Dateien (Subprogramme) auf "00" "00" ändern, dann lassen sie sich nicht mehr starten.
Dein Hauptprogramm ändert vor dem Aufruf die beiden Bytes wieder auf den Ursprungswert "4d" "5a" und ruft das Subprogramm dann auf. Nach dem Beenden wieder auf "00" "00" setzen.

Nein, denn zum einen werden beim Lotto die bereits gezogenen Zahlen nicht wieder in den "Topf" gelegt und zum anderen ist die Reihenfolge der Zahlen egal.
Damit sind viele Kombinationen ausgeschlossen.
Genaueres findest Du hier: http://de.wikipedia.org/wiki/Kombinatorik runterscrollen bis "Kombination ohne Zurücklegen".

Die Frage ist, wie sicher muss das sein?

Eine einfache Möglichkeit wäre, dass Du in Deinen Subprogrammen auf einen Übergabeparamter testest. Wird es ohne Parameter aufgerufen, dann gleich wieder beenden.
Dein Hauptprogramm ruft die Subprogramme dann natürlich mit Übergabeparameter auf.
Ist, wie gesagt, nicht sonderlich sicher, aber wer das nicht weiß...

Standardmäßig ist das Edit auf 30.000 Zeichen begrenzt.
Ändern kannst Du das mit GUICtrlSetLimit.

Ganz so schlimm ist es dann nicht. Die Wahrscheinlichkeit auf einen 6er liegt bei 1 : 13.983.816

Mein Script ist jetzt bei 1730 sek. und >10 Millionen Ziehungen...

Edit: Hurra! 6 Richtige! Nach 2415 Sekunden und 14.270.759 Ziehungen (Ich weiß schon, warum ich kein Lotto spiele...).

Ja, das Script von gestern war sozusagen die Ausgangsbasis. Da hab ich dann alles drumherum gescriptet.

Ich versuche mich gerade mal an den 6 Richtigen. Das Script läuft jetzt bereits über 800 Sekunden (>4.8 Millionen Ziehungen) und immer noch keine 6 Richtigen. :wacko:

Der Glückstester von "nof@ker2" brachte mich auf die Idee auch mal so ein statistisches Lottoprogramm zu schreiben.

Man kann 6 Zahlen eingeben und auswählen bei welchem Gewinn (3, 4, 5 oder 6 Richtige) das Programm abbrechen soll (Achtung! 6 Richtige dauert u.U. sehr lange!). Mit der [ESC]-Taste kann man den Vorgang abbrechen.

Es werden am Schluß die Anzahl der Ziehungen, sowie die benötigte Zeit angezeigt. Während das Script läuft, wird ebenfalls die Anzahl der Ziehungen angezeigt. Um aber nicht die gesamte Rechenzeit für die Aktualisierung der Anzeige aufzubrauchen, wird nur alle 500 Ziehungen die Anzeige aktualisiert.

Beim programmieren wirst Du feststellen, dass es oftmals mehrere Lösungen für eine Aufgabe gibt.
Hier mal eine andere Lösung:

$sURL = 'www.google.de'
$sTime = @HOUR & ':' & StringFormat('%02s', @MIN + 1)
Do
Sleep(500)
ToolTip($sTime & ' ' & @HOUR & ':' & @MIN & ':' & @SEC, @DesktopWidth/2, 0)
Until $sTime = @HOUR & ':' & @MIN
ShellExecute($sURL)

Durch ShellExecute ist diese Lösung auch browserunabhängig.

Jam00: Oh oh... 100% CPU-Last! Da gehört noch ein Sleep in die Schleife.

Oh, wie peinlich. Ist ja sogar das Beispiel zu dem Befehl.

Wieder mal viel zu kompliziert gedacht.

Du willst also alle Leerzeichen vor und hinter dem Wort/Satz entfernen?
Das geht am besten mit StringRegExpReplace:

$string = ' dies ist ein Test '
$string = StringRegExpReplace($string, '\s*(.+\H)\s*', '$1')
MsgBox(0,0,'>'&$string&'<')

Hilfe lesen:

Zitat

StringReplace ( "string", "searchstring" or start, "replacestring" [, count [, casesense]] )

Beispiel:

$string = 'dies ist ein Fest'
$string = StringReplace($string, 14, 'T')
MsgBox(0,0,$string)

Das "gibt 0 zurück" bezieht sich auf den Return-Wert und nicht auf das @error-Makro.
@error erhält im Fehlerfall einen Wert größer als Null, deshalb muss Deine Abfrage so lauten:

$Fehler = DriveMapAdd("K:", "\\opteron\sata\David")
If @error > 0 Then
MsgBox(1, "Fehler", "Folgender Fehler:" & @error)
EndIf

oder in Kurzform:

$Fehler = DriveMapAdd("K:", "\\opteron\sata\David")
If @error Then
MsgBox(1, "Fehler", "Folgender Fehler:" & @error)
EndIf

alternativ ginge auch diese Abfrage:

$Fehler = DriveMapAdd("K:", "\\opteron\sata\David")
If Not $Fehler Then
MsgBox(1, "Fehler", "Folgender Fehler:" & @error)
EndIf

Limette hatte schon recht. Im OnEvent-Mode ist das einfacher:

Ich hatte damals ein Script erstellt (Random-Obfuscator). Dieses funktioniert aber nicht mehr mit der aktuellen AutoIt-Version bzw. dem Obfuscator.
Der jetzige Original-Obfuscator ist aber auch wesentlich besser geworden. Konnte bisher nicht rauskriegen, wie der beim verschleiern vorgeht.
Von daher nutze einfach den Original-Obfuscator. Eine 100%ige Sicherheit wird es sowieso nicht geben.