Beiträge von L3viathan

Für sowas gibts doch AutoItSetTitle und so weiter...

@sl4yer: Deine Skriptsprache sieht aus wie AutoIt2

Komisch, ich dachte, das würde so funzen, ich hatte dich schon verstanden...

Ich würd das etwa so machen:
Erste Datei ausführen, Anweisungen folgen:

#include <String.au3>
clipput(_StringEncrypt(1,Inputbox("Benutzername",""),"fds7ad"))
Msgbox(64,"Userhash","Jetzt in der zweiten Datei crypt1 markieren, und dann Strg+V drücken")
clipput(_StringEncrypt(1,Inputbox("Passwort",""),"fds7ad"))
Msgbox(64,"Userhash","Jetzt in der zweiten Datei crypt2 markieren, und dann Strg+V drücken")

Jeweils nach Anweisung in dieser Datei ersetzen:

#include <String.au3>
If _StringEncrypt(1,Inputbox("Benutzername",""),"fds7ad") <> "crypt1" OR _StringEncrypt(1,Inputbox("Passwort",""),"fds7ad") <> "crypt2" Then Exit
;Rest des Scriptes

Das musst du noch als .EXE compilieren, damit niemand den Quelltext ändern kann.
Dann sollte es recht sicher sein.

Dann gehts so:

$variable=22
$sHTML=_InetGetSource("bhasdudhashdf")
$array=StringSplit($sHTML,@CRLF)
For $i=1 to Ubound($array)-1
If $array[$i]=$variable Then Msgbox(0,"Gefunden in Ziele",$i)
Next

sag mal, obs geht.
/edit: Ja, klar, das habe ich vorasugesetzt. Ich habs angepasst

_InetGetSource gibt einen String zurück, kein FileHandle
Nimm einfach InetGet:

#include <INet.au3>
$file="test.txt"
INetGet("www.XXXXX.XX.funpic.de/TESTSCAN50.txt",$file)

$variable = 22
$line =1

for $i = 1 to 50
$zeile = FileReadLine($file, $i)
if $zeile = $variable Then
msgbox(0,"","Gefunden in Zeile: "& $line)
EndIf
$line +=1
Next

Aber nicht AdlibEnable("Funktion",10), sondern AdlibEnable("Funktion",600000)

Achso, mein Fehler, du musst als erste Zeile noch ergänzen:

#include <Misc.au3>

Es gibt auf jeden Fall etwas, das hat mir Alina mal geschickt, aber leider nicht erklärt, wie sie das gemacht hat
Aber wenn du dich sehr antrengst, kannst du bei einer Skriptsprache spätestens wenn das Programm läuft, den Quelltext auslesen...
Da hilft nur noch Obfuscator...

Ich behaupte mal, der Style sagt nur, das Scrollbars nur angezeigt werden sollen, falls nötig.

Zitat von Oscar

Warum sollte er es nicht schaffen?

Schach selbst umzusetzen ist sicher möglich, aber einen halbwegs intelligenten Bot zu schreiben ist das Problem..

Das AutoScrollen müsste schon gehen, der Style ist ja richtig.
Zum Hinzufügen:

_addlog("Bla")
_addlog("Das ist auch toll...")
Func _addlog($sString)
GUICtrlSetdata($Edit1,GUICtrlRead($Edit) & @CRLF & $sString)
EndFunc

Eins wirst du ganz sicher nicht schaffen: Schach.
Unternehmen wie FritzSchach beschäftigen hunderte Programmierer und Matheprofs, Schach ist einfach zu komplex, um von einem einzelnen (Schüler) entwickelt zu werden.

Falls dus doch schaffst:

Ja, klar.:

#include <Misc.au3>
HotkeySet("^t","_toggle")
$toggle=false
$pressed=False
While True
Sleep(1)
Wend
Func _toggle()
If $toggle Then AdlibDisable()
If not $toggle Then AdLibEnable("_maybe",100)
$toggle = not $toggle
EndFunc
Func _maybe()
If $pressed Then
If not _isPressed("02") Then
$pressed = False
Send("{SHIFT UP}")
EndIf
Else
If _isPressed("02") Then
$pressed = True
Send("{SHIFT DOWN}")
EndIf
EndIf
EndFunc

Sag mal, obs geht...

Das war nicht das Problem.
Danke für die Hilfe, aber er hat ja einfach einen Fehler produziert...
Nach einem Neustart gings ? :wacko:
Naja, Windows halt...

Warum gibt das einen Fehler:

dim $string='<td class="forum_cen" width="50"><img src="images/newtopic.gif" border="0"></td>"'

???

Ja, am leichtesten ist es mit einer Digitaluhr:
Du erstellst ein Label, bsplw.:

$uhr=GUICtrlCreateLabel("--.--.--")

Dann erstellst du die aktualisieren-Funktion, z.B.:

Func _clockrefresh()
GUICtrlSetData($uhr,@HOUR & ":" & @MIN & ":" & @SEC)
EndFunc

Und schließlich lässt du es jede Viertelsekunde aktualisieren:

AdLibEnable("_clockRefresh")

Wenns noch besser sein soll, musst du mit StringFormat noch die führende Null ergänzen, falls nötig, aber das schaffst du selber.

Ja, du hast Recht.
Bei einigen Programmen, wie Beispielsweise WinRar, bedeutet WinRAR nicht das Programm, sondern den Dateityp.
D.h.: HKCR\WinRAR
Dort gibt es einen Unterschlüssel shell\open, dessen Standartwert schließlich den vollen Pfad plus Parameterplatz (%1) angibt.

Also Switch ist schonmal deutlich schneller als If.

Wenn da kein Pfad drinsteht, ist der Pfad in der Path-Variable vorhanden.
Also am besten in @WinDir und in @windir & "\system32" gucken...
Anzeigen lässt du die Path-systemvariable, also alle Ordner, wo das Programm stecken könnte über

Run(@ComSpec & "/c path & pause")