Schreibe f�r euch einfache Programme zum �ben

Page 2 of 2

01/08/2012 14:11 MoepMeep#16

Oder man nutzt einfach eine Sprache die Threads unterst�tzt :p

01/08/2012 15:42 lolkop#17

Quote:

Originally Posted by MoepMeep

Oder man nutzt einfach eine Sprache die Threads unterst�tzt :p

f�r jede nachricht (von denen nahezu unendlich viele m�glich sein sollen) einen neuen thread er�ffnen w�re auch nicht wirklich sch�n. davon abgesehen sind die leute so wenigstens dazu gezwungen die grundlagen �ber zustandsautomaten zu erlernen.

windows macht im hintergrund mit den threads ja auch nichts anderes, als das was hier von uns manuell erledigt wid :P

01/09/2012 11:50 omer36#18

Hab auch ma aus langeweile den Spammer versucht zu machen, meintest du inetwa so?

Spoiler

PHP Code:


			
#include <GuiListView.au3>

#include <GUIConstantsEx.au3>

#include <ListViewConstants.au3>

#region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Spammer", 244, 216, 192, 124)

$ListView1 = GUICtrlCreateListView("", 8, 8, 145, 201)

_GUICtrlListView_AddColumn($ListView1, "Text", 90)

_GUICtrlListView_AddColumn($ListView1, "Timer")

$Button1 = GUICtrlCreateButton("Add", 160, 16, 75, 25)

$Button2 = GUICtrlCreateButton("Delete", 160, 56, 75, 25)

$Label1 = GUICtrlCreateLabel("Text", 32, 24, 36, 17)

GUICtrlSetState(-1, $GUI_HIDE)

$Input1 = GUICtrlCreateInput("", 64, 24, 121, 21)

GUICtrlSetState(-1, $GUI_HIDE)

$Label2 = GUICtrlCreateLabel("Timer", 32, 64, 36, 17)

GUICtrlSetState(-1, $GUI_HIDE)

$Input2 = GUICtrlCreateInput("", 64, 64, 121, 21)

GUICtrlSetState(-1, $GUI_HIDE)

$Button3 = GUICtrlCreateButton("OK", 24, 104, 75, 25)

GUICtrlSetState(-1, $GUI_HIDE)

$Button4 = GUICtrlCreateButton("Cancel", 124, 104, 75, 25)

GUICtrlSetState(-1, $GUI_HIDE)

$checkbox = GUICtrlCreateCheckbox("Start", 160, 185)

GUISetState(@SW_SHOW)

#endregion ### END Koda GUI section ###



Dim $zaeList = 0, $text[1], $timerinput[1], $timer[1]



While 1

    $nMsg = GUIGetMsg()

    Switch $nMsg

        Case -3

            Exit

        Case $Button1

            _change()



        Case $Button2

            For $i = 0 To $zaeList

                If _GUICtrlListView_GetItemFocused($ListView1, $i) = True Then

                    _GUICtrlListView_DeleteItem(GUICtrlGetHandle($ListView1), $i)

                    $zaeList -= 1

                    _ArrayDelete($text, $i)

                    _ArrayDelete($timerinput, $i)

                    _ArrayDelete($timer, $i)

                EndIf

            Next



        Case $Button3

            If StringRegExp(GUICtrlRead($Input2), "\d") And GUICtrlRead($Input1) <> "" Then

                _GUICtrlListView_AddItem($ListView1, GUICtrlRead($Input1))

                $text[$zaeList] = _GUICtrlListView_GetItemText($ListView1, $zaeList)

                _GUICtrlListView_AddSubItem($ListView1, $zaeList, GUICtrlRead($Input2), 1)

                $timerinput[$zaeList] = _GUICtrlListView_GetItemText($ListView1, $zaeList, 1)

                $zaeList += 1

                ReDim $text[$zaeList + 1]

                ReDim $timerinput[$zaeList + 1]

                ReDim $timer[$zaeList + 1]

            Else

                MsgBox("Error", "Fehler", "Fehlerhafte Eingabe!")

            EndIf



            _change()

            GUICtrlSetState($ListView1, $GUI_SHOW)



        Case $Button4

            _change()

            GUICtrlSetState($ListView1, $GUI_SHOW)



    EndSwitch



    If BitAND(GUICtrlRead($checkbox),1) Then

        For $I=0 To $zaeList

            If TimerDiff($timer[$I]) >= $timerinput[$I]*1000 And Not WinActive($Form1) Then

            Send($text[$I])

            $timer[$I]=TimerInit()

            EndIf

        Next

    EndIf



WEnd



Func _change()



    Dim $objekte[9] = [$Button1, $Button2, $Button3, $Button4, $Input1, $Input2, $Label1, $Label2, $checkbox]



    For $i = 0 To 8

        If GUICtrlGetState($objekte[$i]) = 80 Then

            GUICtrlSetState($objekte[$i], $GUI_HIDE)

            GUICtrlSetState($ListView1, $GUI_HIDE)

        Else

            GUICtrlSetState($objekte[$i], $GUI_SHOW)

        EndIf

    Next



EndFunc

Mit Mehrdimensionale Arrays w�rde es vllt bischen k�rzer geworden, aber habs ma so gemacht :D

Was ich nicht machen konnte war: unter $Button3 bei der StringRegExp - Funktion, wie man nur zahlen und einen punkt erlaubt..
Habs mit "\d" gemacht, was auch Teils klappt... :D

01/09/2012 12:59 lolkop#19

ich war mir sicher das es leute gibt, welche das ganze realisieren k�nnen^^

finde es nicht besonders hilfreich hier nun ein fertiges script f�r den threadersteller einzubauen. geht hier schlie�lig um den lerneffekt =)

zu deinem script kann ich nur sagen, das es wohl einfacher geworden w�re, wenn du auf die listview includes verzichtet h�ttest :P

01/10/2012 00:59 butter123#20

also ich find den "ah effekt" in ordnung, wenn man es vorher selber probiert hat.

hab mich jetzt mal selber dran probiert, steh nur grad auf dem schlauch, der sagt immer bei ";auf fehler pr�fen" dass es keine fehler gitb, auch wenn da nondigits drin sind...
naja ist ja auch schon sp�t^^

Spoiler

PHP Code:


			
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>

Dim $a[2],    $b[2],    $timer[2],  $text[2],  $time[2]
$stop = 0
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Spambot", 459, 300, 190, 126)
GUISetFont(4, 400, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Spambot", 16, 8, 79, 28)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("by butter123", 104, 16, 63, 17)
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$a[1] = GUICtrlCreateInput("Text to spam", 56, 70, 137, 21)
$b[1] = GUICtrlCreateInput("every x seconds", 241, 70, 137, 21)
$Go = GUICtrlCreateButton("Go!", 232, 8, 139, 25)
$Label3 = GUICtrlCreateLabel("Stop with Esc.", 376, 16, 72, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

HotKeySet("{ESC}","pause")

While 1
    $nMsg = GUIGetMsg()

        If $nMsg = $GUI_EVENT_CLOSE Then
            Exit
        EndIf

        If $nMsg = $Go Then                            ;Gobutton
            GUICtrlSetData($Go,"3")
            Sleep(1000)
            GUICtrlSetData($Go,"2")
            Sleep(1000)
            GUICtrlSetData($Go,"1")
            Sleep(1000)
            GUICtrlSetData($Go,"Running")
            spam()

        EndIf

        If GUICtrlRead($a[UBound($a)-1]) <> "Text to spam" and UBound($a) < 7  Then                ;mehr felder hinzuf�gen
            _ArrayAdd($a,GUICtrlCreateInput("Text to spam", 56, 30 + UBound($a)*40, 137, 21))
            _ArrayAdd($b,GUICtrlCreateInput("every x seconds", 241, 30 + (UBound($a)-1)*40, 137, 21))
            _ArrayAdd($timer,0)
            _ArrayAdd($text,0)
            _ArrayAdd($time,0)
        EndIf

WEnd



Func spam()

            $stop = 0

            For $i = 1 to UBound($a)-1 step 1                                ;textfelder einlesen
                $text[$i] = GUICtrlRead($a[$i])
                $time[$i] = GUICtrlRead($b[$i])
            Next


            If GUICtrlRead($text[UBound($a)-1]) = "Text to spam" and UBound($a) > 2  Then       ;neues element l�schen, wenn cnith ver�ndert
                _ArrayDelete($time,UBound($a)-1)
                _ArrayDelete($text,UBound($a)-1)
            EndIf


            For $i = 1 to UBound($timer)-1 Step 1                                ;auf fehler pr�fen
                If StringIsDigit(GUICtrlRead($time[$i]))  = 0   Then
                    MsgBox(0,"Error!","Fehler beim lesen der Zeit!")
                    $stop = 1
                EndIf
            Next


            For $i = 1 to UBound($a)-1 step 1                                ;timer starten
                $timer[$i] = TimerInit()
            Next


            While 1
                If $stop = 1 Then
                    GUICtrlSetData($Go,"Go!")
                    ExitLoop
                EndIf

                For $i = 1 to UBound($text)-1 step 1                            ;spammen
                    If TimerDiff($timer[$i]) > $time[$i]*1000 Then
                        $timer[$i] = TimerInit()
                        Send($text[$i])
                    EndIf

                Next
            WEnd

EndFunc


Func pause()

    $stop = 1
EndFunc

lg butter

01/13/2012 20:08 fisch85#21

kannst du auch vorhandene vorlagen erkl�ren so das es nen normaler mensch versteht

wenne mir sagst wie ich nen spoiler hier hinstelle stell ich dir auch das script das ist jedoch relativ lang und ich denke das das thema captchas auch sehr viele intressiert

01/13/2012 20:48 butter123#22

[spoiler!][php!] code [/php!][/spoiler!]

! entfernen

und wegen captchas, ich glaube da wird ein anf�nger garnichts machen k�nnen. selbst die profis verzweifeln ja daran. ich wei� grad nciht, wie der aktuelle stand ist, aber die guten k�nnen nur mit ner ser geringen quote gel�st werden.

edit: aber wenn hier jetzt jeder sein skript reinstellt, verfehlt das glaub ich den sinn des threads ;) wenn du hilfe braucsht mach lieber nen eigenen auf :)

01/13/2012 22:20 MoepMeep#23

Quote:

Originally Posted by butter123

[spoiler!][php!] code [/php!][/spoiler!]

! entfernen

und wegen captchas, ich glaube da wird ein anf�nger garnichts machen k�nnen. selbst die profis verzweifeln ja daran. ich wei� grad nciht, wie der aktuelle stand ist, aber die guten k�nnen nur mit ner ser geringen quote gel�st werden.

edit: aber wenn hier jetzt jeder sein skript reinstellt, verfehlt das glaub ich den sinn des threads ;) wenn du hilfe braucsht mach lieber nen eigenen auf :)

CaptchaTrader und co liegen bei ca 90%. Aber dort werden die Captchas von Hand gel�st.

01/13/2012 23:02 fisch85#24

also die quote is nich verkert grade deathbycaptcha sau schnell und zuverl�ssige quote ich h�tt sowas gern in nen script eingetragen zum "bonusboxen sammeln" jedoch m�ssen die ja irgendwie geuppt werden das die gel�st werden k�nen die ham ja alles autoit vorlagen html java ect die gel�ufigen bots haben die ja integriert aber ich glaube nicht das die mir sagen wie das geht xD

.NET (C#, Visual Basic)
AutoIt3
iMacros
C (client and libs' source code)
Java
Perl 5+
PHP v5+
Python v2.5+ and v3.0+
Command-line tool for Windows, Linux (i386 and x86-64) (see usage note below)
Plugin for MyAdTools bots

01/13/2012 23:15 MoepMeep#25

Einfach �ber die Api das Captcha hochladen. Musst halt schauen wie du in deiner Sprache etwas runterladen kannst ;)

Page 2 of 2