Beiträge von Kev

Problem mit _StringBetween

Kev

4. August 2010 um 16:12
suchste evntl...

[autoit]

StringinStr
Stringtrimleft
Stringtrimright
[/autoit]
?
AVI

Kev

4. August 2010 um 16:04
[autoit][/autoit][autoit][/autoit][autoit]
#RequireAdmin
#include <GUIAvi.au3>
#include <WindowsConstants.au3>
[/autoit][autoit][/autoit][autoit]
$main = GUICreate("",@DesktopWidth,@DesktopHeight,0,0,$WS_POPUP,$WS_EX_TOPMOST)
[/autoit][autoit][/autoit][autoit]
GuiCtrlCreateAvi(@ScriptDir & "\intro.avi",-1,0,@DesktopWidth,@DesktopHeight, $ACS_AUTOPLAY)
[/autoit][autoit][/autoit][autoit]
GUISetState (@SW_SHOW)
While 1
Switch GUIGetMsg ($main)
Case -3
Exit
EndSwitch
WEnd
[/autoit]
Bildfehler mit Kodaform

Kev

2. August 2010 um 11:20
Plx add Script
2 Probleme

Kev

30. Juli 2010 um 14:45
Ich versteh die Fragestellung nach dem 3ten mal lesen immernoch nicht.
//edit
okay jetzt vill.
Warum arbeitest du nicht mit Tabs.?
Unbreakable Algorythm

Kev

29. Juli 2010 um 16:54
Für Schrubber - Version bei Mausbewegung generiere neue Ziffern :pinch:

Spoiler anzeigen

[autoit]
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=116990-matte-blue-and-white-square-icon-business-key7.ico
#AutoIt3Wrapper_outfile=Unbreakable Algorythm.exe
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Comment=thx to Schrubbi & Lev
#AutoIt3Wrapper_Res_Description=Unbreakable Algorythm
#AutoIt3Wrapper_Res_LegalCopyright=Open Source
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]
AutoIt Version: 3.3.2.0
Author: myName
[/autoit] [autoit][/autoit] [autoit]
Script Function:
Template AutoIt script.
[/autoit] [autoit][/autoit] [autoit]
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]
; Script Start - Add your code below here
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <Array.au3>
[/autoit] [autoit][/autoit] [autoit]
;AdlibRegister("start",2000)
adlibregister("gen_Pass",70000)
[/autoit] [autoit][/autoit] [autoit]
Opt("GUIOnEventMode", 1)
Dim $lbl[40], $achars[28]
[/autoit] [autoit][/autoit] [autoit]
global $random
Global $key = ""
Global $i , $read , $pass , $password
[/autoit] [autoit][/autoit] [autoit]
start()
$gui = GUICreate("Unbreakable Algorythm", 415, 280)
$lbl[0] = GUICtrlCreateLabel("", 20, 20, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[1] = GUICtrlCreateLabel("", 60, 20, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[2] = GUICtrlCreateLabel("", 100, 20, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[3] = GUICtrlCreateLabel("", 140, 20, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[4] = GUICtrlCreateLabel("", 180, 20, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[5] = GUICtrlCreateLabel("", 220, 20, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[6] = GUICtrlCreateLabel("", 260, 20, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[7] = GUICtrlCreateLabel("", 300, 20, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[8] = GUICtrlCreateLabel("", 340, 20, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[9] = GUICtrlCreateLabel("", 380, 20, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[10] = GUICtrlCreateLabel("", 20, 60, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[11] = GUICtrlCreateLabel("", 60, 60, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[12] = GUICtrlCreateLabel("", 100, 60, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[13] = GUICtrlCreateLabel("", 140, 60, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[14] = GUICtrlCreateLabel("", 180, 60, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[15] = GUICtrlCreateLabel("", 220, 60, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[16] = GUICtrlCreateLabel("", 260, 60, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[17] = GUICtrlCreateLabel("", 300, 60, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[18] = GUICtrlCreateLabel("", 340, 60, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[19] = GUICtrlCreateLabel("", 380, 60, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[20] = GUICtrlCreateLabel("", 20, 100, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[21] = GUICtrlCreateLabel("", 60, 100, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[22] = GUICtrlCreateLabel("", 100, 100, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[23] = GUICtrlCreateLabel("", 140, 100, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[24] = GUICtrlCreateLabel("", 180, 100, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[25] = GUICtrlCreateLabel("", 220, 100, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[26] = GUICtrlCreateLabel("", 260, 100, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[27] = GUICtrlCreateLabel("", 300, 100, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[28] = GUICtrlCreateLabel("", 340, 100, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$lbl[29] = GUICtrlCreateLabel("", 380, 100, 20, 20)
GUICtrlSetFont(-1, 12)
GUICtrlSetOnEvent(-1, "_add")
$inpt = Guictrlcreateinput("",7,210,400,25)
Guictrlsetstate(-1,$GUI_DISABLE)
$checkbtn= Guictrlcreatebutton("Enter",160,250,100,25)
Guictrlcreatelabel("Password will change every 15 Seconds",110,140,2000,25)
Guictrlsetstate(-1,$GUI_DISABLE)
$pass = Guictrlcreatelabel("",160,170,300,25)
Guictrlsetfont(-1,15,"","","Sylfaen")
gen_Pass()
GUISetState(@SW_SHOW) ; Zeigt das leere GUI-Fenster
[/autoit] [autoit][/autoit] [autoit]
Guictrlsetonevent($checkbtn,"check")
[/autoit] [autoit][/autoit] [autoit]
Func start()
For $i = 0 To $lbl[29]
$random=Random(48,83,1)
If $random>57 Then $random +=39
$read = Chr($random)
GUICtrlSetData($lbl[$i],$read)
Next
EndFunc ;==>start
[/autoit] [autoit][/autoit] [autoit]
func exits()
exit
Endfunc
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
While 1
$dll = dllopen("user32.dll")
if _ispressed("0D",$dll) Then
check()
EndIf
$mouse = MouseGetPos()
$mouseneu = MousegetPos()
if $mouse[0] <> $mouseneu[0] then
start()
Endif
if $mouse[1] <> $mouseneu[1] then
start()
Endif
WEnd
[/autoit] [autoit][/autoit] [autoit]
func _add()
GUICtrlSetData($inpt, GUICTRLREAD($inpt) & GUICTRLREAD($lbl[@GUI_CtrlId]-3))
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func gen_Pass()
$random=Random(48,83,1)
If $random>57 Then $random +=39
$read = Chr($random)
$random=Random(48,83,1)
If $random>57 Then $random +=39
$read2 = Chr($random)
$random=Random(48,83,1)
If $random>57 Then $random +=39
$read3 = Chr($random)
$random=Random(48,83,1)
If $random>57 Then $random +=39
$read4 = Chr($random)
$random=Random(48,83,1)
If $random>57 Then $random +=39
$read5 = Chr($random)
$random=Random(48,83,1)
If $random>57 Then $random +=39
$read6 = Chr($random)
$random=Random(48,83,1)
If $random>57 Then $random +=39
$read7 = Chr($random)
$random=Random(48,83,1)
If $random>57 Then $random +=39
$read8 = Chr($random)
$random=Random(48,83,1)
If $random>57 Then $random +=39
$password = $read & $read2 & $read3 & $read4 & $read5 & $read6 & $read7 & $read8
Guictrlsetdata($pass,$password)
Guictrlsetdata($inpt,"")
EndFunc ;==>start
[/autoit] [autoit][/autoit] [autoit]
func check()
if $password = Guictrlread($inpt) Then
Traytip("Unbreakable Algorythm","Password Check confirmed..continue..",2,1)
;start Program here
Else
Traytip("Unbreakable Algorythm","Password Check Error.." & @crlf & "resetting..",2,1)
sleep(2000)
Traytip("","",1)
Guictrlsetdata($inpt,"")
;or exit
EndIf
Endfunc
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]
Arbeiten mit PING

Kev

29. Juli 2010 um 15:20
das sollte ja kein problem darstellen
Unbreakable Algorythm

Kev

29. Juli 2010 um 14:14
ich werde das ding noch ausbauen wird etwas größer und mehr optionen via. config etc. ich überleg mir was
Unbreakable Algorythm

Kev

29. Juli 2010 um 13:48
die schnelligkeit kannste einstellen. bei den 2 adlibregister's gen_pass und start
das sind die 2 funktionen.
Unbreakable Algorythm

Kev

29. Juli 2010 um 13:09
Hallöle
Hab hier mal was gebastelt
Kleinen Algorythmus der für dumme User als eine Art Captcha oder Passwort Abfrage genutzt werden kann.
Source liegt bei.
Close geht nur über rechtsklick icon/exit script war etwas zu faul das zu fixxen
kleiner tipp: man muss auf die labels klicken
Gruß
Kev
//edit
ich glaub ich hab algo falsch geschrieben wayne
http://www.virustotal.com/de/analisis/91…441f-1280405365
Dateien

Algo.rar 328,84 kB – 307 Downloads
_FFReadHTML()

Kev

29. Juli 2010 um 08:23
[autoit]
$oFF = _FFStart("http://meinepage.com","default", 0,false)
$sHTML = _FFReadHTML()
Filewrite(@scriptdir & "\source.txt",$sHTML)
[/autoit][autoit][/autoit][autoit][/autoit]
probiers mal so.
das Zeug im Source kannst du so trennen.
[autoit]

#include <Array.au3>
#include <String.au3>
[/autoit][autoit][/autoit][autoit]
$st_btw = _Stringbetween($sHTML,"<head>","<meta http-equiv=") ;splittet den Teil zwischen "<head>" und "<meta http-equiv="
_arraydisplay($st_btw) ; zeigt die ergebnisse an.
[/autoit]
Problem mit _FFFormOptionSelect und _FFLinkClick

Kev

28. Juli 2010 um 16:54
http://wiki.github.com/bard/mozrepl/
hast du drauf oder?
sonst kannst du lange rumversuchen.
und die variablen ließt du alle aus nem editor? sprich sowas wie notepad oder was?
falls das ne gui ist. brauchste nämlich:
[autoit]

Guictrlread($Nationalitaet)
Guictrlread($name)
[/autoit]
ansonsten kriegste = "" raus
Tach zam :D

Kev

28. Juli 2010 um 16:48
tag
Arbeiten mit PING

Kev

28. Juli 2010 um 08:27
lass die clienten doch einfach alle 30 min ihre ip senden.
dann weißt du genau wer in den letzten 30 minuten online war.
dann sagste dem server, er soll die empfangenen ips speichern und in ner for schleife abarbeiten.
somit hättest du das problem nicht. du sendest nur an die, die sich wirklich gemeldet haben.
So far
Kev
screenshots von spielen (directx) ... gibts da waS ?

Kev

24. Juli 2010 um 18:57
[autoit]
#Include <ScreenCapture.au3>
[/autoit][autoit][/autoit][autoit]
Hotkeyset("{F12}","screen")
[/autoit][autoit][/autoit][autoit]
Func screen()
_ScreenCapture_Capture([$sFileName = "" [, $iLeft = 0 [, $iTop = 0 [, $iRight = -1 [, $iBottom = -1 [, $fCursor = True]]]]]])
Endfunc
[/autoit]
Cheat like San Andreas [Version 2.57]

Kev

21. Juli 2010 um 16:48
das einzige was mich stört is dieses "cheat aktiviert" jedes mal, da wirste ja kirre
Cheat like San Andreas [Version 2.57]

Kev

21. Juli 2010 um 16:15
richtig richtig nice
top
Crypt Key Generator - with DB Upload

Kev

20. Juli 2010 um 18:07
//update
Bsp. ist nun dabei für die Abfrage der Keys.
Wenn A, dann B

Kev

19. Juli 2010 um 15:07
sag ich doch
kein ding
Wenn A, dann B

Kev

19. Juli 2010 um 14:42
wie gesagt
[autoit]
hotkeyset("{F2}","starten")
[/autoit][autoit][/autoit][autoit]
func starten()
send("@mustermann.de")
endfunc
[/autoit][autoit][/autoit][autoit]
while 1
sleep(199)
Wend
[/autoit]
Wenn A, dann B

Kev

19. Juli 2010 um 14:22
[autoit]

hotkeyset("{F2}","starten")
[/autoit][autoit]

[/autoit][autoit]
func starten()
send("@mustermann.de")
endfunc
[/autoit][autoit]

[/autoit][autoit]
while 1
sleep(199)
Wend
[/autoit]

In deinem Webbrowser ist JavaScript deaktiviert. Um alle Funktionen dieser Website nutzen zu können, muss JavaScript aktiviert sein.