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?
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
#include<Inet.au3>
#include<GUIConstantsEx.au3>
$Treffer=''
GUICreate ("Threadchecker", 900,120); Wagerechte; Höhe
GUISetBkColor(0xFFB200);FF6699);663399 )
GUISetFont(9, 300)
GUICtrlCreateLabel ("Hier den Link rein",10,30)
$Link = GUICtrlCreateEdit ('', 220,30,600,20,0)
$Name=GUICtrlCreateEdit ('', 220,60,600,20,0)
$start = GUICtrlCreateButton (" Starten", 200,90)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]While 1
$msg = GUIGetMsg()
If $msg <> 0 Then
$LinkR = GUICtrlRead($Link)
Select
case $msg = $start
FileWrite(@ScriptDir&'\Temp.txt',_INetGetSource($LinkR))
$Temp=FileOpen(@ScriptDir&'\Temp.txt',0)
While 1
$TempR=FileReadLine($Temp)
if @error=-1 Then
MsgBox(0,'Letzer Beitrag von ',$Treffer)
$Link=$LinkR&'#'&$Treffer
MsgBox(0,"",$Link)
ShellExecute($Link)
Exit
EndIf
if StringInStr($TempR,'<div class="messageBody" id="') then
$TempR=StringTrimLeft($TempR,36)
$TempR=StringTrimRight($TempR,2)
$Treffer=$TempR
EndIf
WEnd
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
EndSelect
EndIf
Wend
Wollte herade verschiedende Fälle ausschließen und habe mir gedacht ich mache es so
[autoit]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)
[autoit]$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
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
[autoit]$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
ZitatAlles anzeigenOriginal von .::Mignon::.
[autoit]
ich hab mir dazu gestern noch mal ne udf geschrieben!Func _OnePc($HWID) ; _OnePc("ID1,ID2,ID3,...")
[/autoit]
Local $IID = DriveGetSerial("C:\"),$HWIDS = StringSplit($HWID,",")
For $i = 0 To $HWIDS[0]
If $IID = $HWIDS[$i] Then Return 1
Next
Return 0
EndFunc ;==>_OnePcwas haltet ihr davon is das leicht zu umgehen oder fälschungssicher?
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
[autoit]#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 ----------------------------------------------------------------------------
[/autoit][autoit][/autoit][autoit]; 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
[/autoit][autoit][/autoit][autoit];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
ZitatAlles anzeigenOriginal von .::Mignon::.
[autoit]
wenn ich dich richtig verstanden habe brauchst du das hier:if _serial() = 1 then
[/autoit] [autoit][/autoit] [autoit]
_anweisungen()
elseif _serial() = 0 then
exit
endiffunc _serial()
[/autoit] [autoit][/autoit] [autoit]
$serial = drivegetserial("C:\")
if $serial = "123456789" then
return 1
else
return 0
endif
endfuncfunc _anweisungen()
[/autoit]
;hier dein script...
endfuncwenn du was anderes gemeint haben solltest dann tut es mir leid.
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
ZitatOriginal 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