Beiträge von devildevil3

Sagen wir halt nur die, die die gleiche Forensoftware haben.

Aber wie machen?

Habe zurzeit 2 Input Felder für Link, ggf Name des letztend Post, 3tes Feld durfte kein Problemsein wegen der zeit, aber wie dann prüfen obs was neues gibt?

Hallo, kann man sich einen Antwort Checker basteln, der nach Intervallen schaut ob auf ein Thema geantwortet wurde?
habe angefangen, taugt aber nicht, da es Universal Funktionieren sollte

Danke euch,

Greenhorn, nö findet nichts, er kennt nur BitAnd

Grüße

Wollte herade verschiedende Fälle ausschließen und habe mir gedacht ich mache es so

IF not StringInStr($QUELLTEXT,'BLUP') and if not StringInStr($QUELLTEXT,'BLUPPP 2') then
Msgbox(0,"","Hallo")
endif

leider spuckt er bei den "And" rum, die Hilfe kennt den Befehl auch nicht, bin jetzt etwas verwirrt

Eventuell jemand einen Tipp?

Grüße

Perfekt, Danke

oh man, ist ja echt aufwendig

aber wie baue ich es um, so das der ie geöffnet wird, es soll sich ja automatisch angemeldet werden, sprich username, Passwort, Bildcode=> soll runtergeladen werden, und gelesen werden(lesen etc kein Problem) Deswegen muss da ie mit aufgehen

Praktisch das selbe was ich hatte, das Bild was geladen wird ist ja anders wie das was in ie angezeigt wird (Wird bei jeden Aufruf ein neues generiert)

$oIE=_IECreate("http://www.easybux.de/login.php?r=")

$Bildcode=InetGet("http://www.easybux.de/image.php", @ScriptDir&"\Bildcode.jpg" ,0,0)
sleep(2000)
run("Readcode.bat")
sleep(5000)
$readcode=ClipGet()
MsgBox(0,"",$readcode)


;----------------------------------------------------------------
$LOGIN = _IEFormGetCollection ($oIE, 0);Holt die Bereiche
sleep(1000)
$USERFELD = _IEFormElementGetObjByName($LOGIN, "username");Findet das Userfeld
$PassFELD = _IEFormElementGetObjByName($LOGIN, "password");Findet das Userfeld
$code = _IEFormElementGetObjByName($LOGIN, "code");Findet das Userfeld

_IEFormElementSetValue ($USERFELD, $zahl1);fügt Username ein
_IEFormElementSetValue ($PassFELD, $zahl2);fügt Passwort ein
_IEFormElementSetValue ($code, $readcode)

Hallo, möchte mich automatisch auf eine Seite einloggen, das Problem ist halt das es eine Sicherheitabfrage kommt, wo den Code eingeben muss der in einen Bild generiert wurde.

Das bild kann man sich zwar runterladen ist aber immer anderes wie das was schon auf der seite steht, ist ja auch logisch.

Wie schaffe ich es es das, das Bild was schon im IE zusehen ist runtergeladen wird?

Der Quelltext der dafür zuständig ist ist das

<input type='text' size='5' maxlength='5' name='code'><img src="image.php">

Adresse: http://www.easybux.de/login.php?r=

Habe leider auch nichts passendes hier in Forum gefunden.

Danke und Grüße

jo, bin drauf gekommen siehe meinen letzten Edit, war morgens noch nicht ganz fit

Hallo, wollte gerade eines meiner älteren Scripte etwas ändern

habe im späteren Ablauf ein
FileWriteLine($Ausgabe,"blup")

wobei $Ausgabe so erstellt wird

$AusgabeT=IniRead ( "Pfad.ini", "Pfad", "Ausgabe", "default" )
MsgBox(0,"",$AusgabeT)

$Ausgabe=$AusgabeT&"Results"&"\log.txt"
MsgBox(0,"",$Ausgabe)

wenn ich Results manuell anlege wird die datei erstellt, wenn ich ihn nicht anlege passiert auch nichts

irgendwie finde ich den fehler net

EDIT bin ich selber draufgekommen

Dircreate

hätte ich ja eher checkeb können

müsste ich testen, nicht das es mitten in einer zeile splittet, wäre schlecht^^

EDIT Danke dir geht wunderbar

habe hier eine große log datei, darf sie leider nicht löschen

und diese komplett in autoit zu verarbeiten geht nunmal nicht(kommt ne Fehlermeldung)

Wie stelle ich es an das ich diese TXT nach meinetwegen 10000 Zeilen Splittet?

und ich damit wieder arbeiten kann

grüße

thx, solbald ich restartet habe bereichte ich obs geht^^

kann aber erst morgen neustarten

EDIT

Leider ist er nicht erschienen der pfad ist aber Richtig?

EDIT 2

so habs

so gehts bei mir

Windows Registry Editor Version 5.00


[HKEY_CLASSES_ROOT\AutoIt3ScriptBeta\Shell\Compile\Command]
@="\"C:\\Programme\\AutoIt3\\SciTE\\AutoIt3Wrapper\\AutoIt3Wrapper_Gui.exe\" /in \"%l\""

danke
grüße

Hi, bevor ich win neu eingerichtet habe hatte ich wenn ich rechtklickte auf ein au3 Script die Option

Compiler with Option oder so ähnlich, nach Klick ist die Oberfläche gekommen wo recucehacker dabei etc

wie bekomme ich die wieder her?

grüße

mhh verstehen die sehr gebrochendes Englisch

es ist für maximal 20 Leute, lass mir da lieber was anderes einfallen

Zitat

Original von .::Mignon::.
ich hab mir dazu gestern noch mal ne udf geschrieben!

[autoit]

Func _OnePc($HWID) ; _OnePc("ID1,ID2,ID3,...")
Local $IID = DriveGetSerial("C:\"),$HWIDS = StringSplit($HWID,",")
For $i = 0 To $HWIDS[0]
If $IID = $HWIDS[$i] Then Return 1
Next
Return 0
EndFunc ;==>_OnePc

[/autoit]

was haltet ihr davon is das leicht zu umgehen oder fälschungssicher?

Alles anzeigen

das Problem ist eben, der user muss es dann auf laufwerk c haben.

ich benutze alle Laufwerke die der Benutzer zum zeitpunkt angeschlossen hat, und verschlüssle das dann, das keiner die txt bearbeiten kann.

Problem eben sehr viele serials

Verschlüsselung der serial verdanke ich dieschara

der rest steht in diesen thread auch da danke

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\..\..\..\..\..\..\icon.ico
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_UseAnsi=y
#AutoIt3Wrapper_Res_Description=Holt eine Hardwareid
#AutoIt3Wrapper_Res_Fileversion=1.0
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------

AutoIt Version: 3.2.9.10 (beta)
Author: myName

Script Function:
Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here
FileInstall("Rar.exe","")
$temp="Temp"
$var = DriveGetSerial( "a:\" )
hwid()
$var = DriveGetSerial( "b:\" )
hwid()
$var = DriveGetSerial( "c:\" )
hwid()
$var = DriveGetSerial( "d:\" )
hwid()
$var = DriveGetSerial( "e:\" )
hwid()
$var = DriveGetSerial( "f:\" )
hwid()
$var = DriveGetSerial( "g:\" )
hwid()
$var = DriveGetSerial( "h:\" )
hwid()
$var = DriveGetSerial( "i:\" )
hwid()
$var = DriveGetSerial( "j:\" )
hwid()
$var = DriveGetSerial( "k:\" )
hwid()
$var = DriveGetSerial( "l:\" )
hwid()
$var = DriveGetSerial( "m:\" )
hwid()
$var = DriveGetSerial( "n:\" )
hwid()
$var = DriveGetSerial( "o:\" )
hwid()
$var = DriveGetSerial( "p:\" )
hwid()
$var = DriveGetSerial( "q:\" )
hwid()
$var = DriveGetSerial( "r:\" )
hwid()
$var = DriveGetSerial( "s:\" )
hwid()
$var = DriveGetSerial( "t:\" )
hwid()
$var = DriveGetSerial( "u:\" )
hwid()
$var = DriveGetSerial( "v:\" )
hwid()
$var = DriveGetSerial( "w:\" )
hwid()
$var = DriveGetSerial( "x:\" )
hwid()
$var = DriveGetSerial( "y:\" )
hwid()
$var = DriveGetSerial( "z:\" )
hwid()
$temp2=FileOpen($temp,0)
While 1
$kl=FileReadLine($temp2)
if @error=-1 Then
FileClose($temp)
FileClose($temp2)
FileDelete($temp)
FileWriteLine("a.bat",'rar.exe a Archivdate.rar Hardwareid.txt -pdasistdaspasswort'
Run("a.bat",@ScriptDir,@SW_HIDE)
sleep(1000)
FileClose("Hardwareid.txt")
FileDelete("Hardwareid.txt")
FileClose("a.bat")
FileDelete("a.bat")
FileDelete("Rar.exe")
Exit
EndIf
if not StringInStr($kl,"SF12-ERES") Then
FileWriteLine("Hardwareid.txt",$kl&@CRLF)
EndIf
WEnd

func hwid()
$var2 = @OSLang
$var = $var & $var2

$var = StringReplace($var, "0", "E")
$var = StringReplace($var, "1", "J")
$var = StringReplace($var, "2", "W")
$var = StringReplace($var, "3", "Z")
$var = StringReplace($var, "4", "R")
$var = StringReplace($var, "5", "C")
$var = StringReplace($var, "6", "V")
$var = StringReplace($var, "7", "S")
$var = StringReplace($var, "8", "H")
$var = StringReplace($var, "9", "A")

$var = "SF12-" & $var

;MsgBox(4096, "Hardware ID", $var)
FileWriteLine($temp,$var&@CRLF)
EndFunc

aber die überprüfung ist eben dann schwer

Xenobiologist hat mir den tipp gegeben mit diesen

http://www.autoitscript.com/forum/index.php?showtopic=31020&hl=xprotect

aber nunja, habe kein plan wie ich das bewerkstellligen muss, es ist zwar klar wo ich mein script dort einfügen muss aber der rest, da bringts mir auch nix wenn ich ein wenig herumspiele

ja, wie aber sonst machen? es soll ja nicht weitergegeben werden, wie stell ichs sonst an?

grüße

jop ich versuchs mal

Irgendwie nen fehler drinnen, er verlang ein next, ich such mal den fehler

Zitat

Original von .::Mignon::.
wenn ich dich richtig verstanden habe brauchst du das hier:

[autoit]

if _serial() = 1 then
_anweisungen()
elseif _serial() = 0 then
exit
endif

[/autoit] [autoit][/autoit] [autoit]

func _serial()
$serial = drivegetserial("C:\")
if $serial = "123456789" then
return 1
else
return 0
endif
endfunc

[/autoit] [autoit][/autoit] [autoit]

func _anweisungen()
;hier dein script...
endfunc

[/autoit]

wenn du was anderes gemeint haben solltest dann tut es mir leid.

Alles anzeigen

ja so ind der art, nir der teil if $serial ="123456789" then

dort müssen mehr hin, da es auf verschiedenen Rechnern laufen soll, also mehr serials überprüfen wenn nen eine richtige bei ist startet es

Zitat

Original von Xenobiologist
Hi,

was fehlt die denn an meinen Funktionen?

So long,

Mega

nun ob was fehlt weiß ich nicht, aber wie du weißt kenne ich mich zu meinen bedauern nicht mit englisch aus

serial abfrage habe ich, jetzt möchte ich intern die serials abfragen und vergleichen