[OpenSource] Unsere Source 4 4Story - Teamwork

[Mattthias]

Hallo 4Story Hacker

in diesem Thread seid ihr herzlich wilkommen.

Hier gilt: Open Source, gemeinsames Arbeiten, gechillte und ruhige Atmosphäre, helfen bei Sources uvm. zum Thema "4Story Hack(s/ing)".

Tricks könnt ihr hier auch posten, ob [EG], [Offi] oder [AutoIt] ist egal

Bitte nicht untereinander messen !

Ich bitte euch sinnvolle und geistreiche Beiträge zu posten.

Hier könnt ihr Anfragen auf UDF's für AutoIt (diverser Weise C ++ / # (ich bin nicht dafür zuständig)) reinschreiben, und mal sehen, ich denke ihr bekommt sie auch.

Ich bitte den Zuständigen Mod diesen Thread nicht zu schließen, er gehört auch nicht in die Coders Section, denn wenn hier eine Source 4 4 Story reinkommt, hat das 50 % / 50 % mit AutoIt(diverser Weise andere Sprachen) zu tun.

MfG Matthias

Noch ein Schlusswort:
Meine "Hater" sind herzlichst wilkommen .
Ich freue mich auf gute Zusammenarbeit .

Sobald die ersten Releases da sind wird eine Liste erstellt

Was könnte in meinem Release von einem Script gesagt sein ?
Wichtig ist, das ihr sagt, für welche Programmier Sprache es ist.
Ausserdem ist es gut, wenn man schreibt wofür es ist.
Übersichtlich, und längerer Code / ein Beschreibung in einem Spoiler ist auch ganz Ok.

Wer mich in Skype hinzufügen will: elite.mattthias

Zum verstehen noch einmal: das ist nicht mein, sondern unser Thread

Bei Releases bitte eine PN damit ich euch in die Liste aufnehmen kann
Release Liste

 Spoiler

Releases: 6

1.Release:

2.Release:

3.Release:

4.Release:

5.Release:

6.Release:

[.-Frerer]

Ich werde Dark mal anschreiben,dass er den Thread evtl. pinnnt.

Wie gesagt,bitte wirklich nur Releases,Tipps Tricks und weitere Hilfestellungen,die anderen Membern vielleicht helfen könnten. Auch Kommentare wie "Thanks mann" oder so sind unerwünscht.

Threads in der 4Story Sektion,die diesem Thread ähnlich sind:



Wenn ihr wissen wollt,wie man z.B. einen Hack programmiert könnt ihr auch Open Sources auch anderen Sektionen benutzen. Zum Beispiel:

[Elite-Coder]

Hey Leute mein 4Story EG Hack lässt sich nicht nochmal compilen.
Ich habs schon mal compilert und mein Bruder hats gelöscht und jetzt lässt sich das Script nicht mehr compilen.

Immer > ERROR RunAUT3.exe ! < Bitte hat jemand Tipps.

Oder soll ich ihn gleich mit Source reinstellen damit dann jeder die Source hat .

Denn es heißt :Open Source Thread

[Mattthias]

Release Nr 1:

Meine 2 UDF's [AutoIt]

1. Thankschecker
2. Teleport Liste


1.

 Spoiler

PHP Code:

#include <IE.au3>
#include <String.au3>
Func _ThanksCheck_EPVP4Story($Site, $Name)
    Local $IECreate = _IECreate($Site, "", 0)
    Local $ThanksSource = _IEDocReadHTML($IECreate)
    Local $WinTitle = _StringBetween($ThanksSource, '<META content="', '" property="og:title">')
    Local $LogInName = _StringBetween($ThanksSource, "rel=nofollow>", "</A>.")
    Local $ThanksName = _StringBetween($ThanksSource, $Name & '.html" rel=nofollow>', '</A>&nbsp;(')
    If IsArray($LogInName) And IsArray($ThanksName) Then
        If $LogInName[0] = $Name Then
            If $ThanksName[1] = $Name Then
                Return True
            Else
                Return False
            EndIf
        Else
            Return False
        EndIf
    Else
        Return False
    EndIf
    WinClose($WinTitle & " - Windows Internet Explorer")
EndFunc   ;==>_ThanksCheck_EPVP4Story 


2.

 Spoiler

PHP Code:

;4Story Teleport Liste UDF
#include <ListViewConstants.au3>
#include <GUIListView.au3>
Global $ListViewTeleport

Func _TeleportList_StartUp($X, $Y, $Width = 250, $Height = 150)
    $ListViewTeleport = GUICtrlCreateListView("X|Y|Z", $X, $Y, $Width, $Height)
    GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, Round($Width / 3 - 1))
    GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, Round($Width / 3 - 1))
    GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, Round($Width / 3 - 1))
EndFunc   ;==>_TeleportList_StartUp

Func _TeleportList_AddPoint($X, $Y, $Z)
    GUICtrlCreateListViewItem($X & "|" & $Y & "|" & $Z, $ListViewTeleport)
EndFunc   ;==>_TeleportList_AddPoint

Func _TeleportList_ReadSelected()
    Local $Item = _GUICtrlListView_GetSelectedIndices($ListViewTeleport, True)
    If UBound($Item) - 1 = 0 Then
        SetError(-1)
    Else
        Local $XYZ = _GUICtrlListView_GetItemTextArray($ListViewTeleport, $Item[1])
        Return $XYZ
    EndIf
EndFunc   ;==>_TeleportList_ReadSelected 


DL Link für Au3 mit Beispiel (in RAR):
Bitte scannt es mit VT, danke.

@Elite-Coder, geh in das Verzeichnis: C:\Programme\AutoIt3\Aut2Exe und starte die Aut2Exe.exe, oder gibts da den error ?
Ebenso bist du nicht verpflichtet, es ist dir überlassen.
Es gibt nen Online 32 Bit Kompiler !

[Elite-Coder]

Originally Posted by Mattthias

Release Nr 1:

Meine 2 UDF's [AutoIt]

1. Thankschecker
2. Teleport Liste


1.

 Spoiler

PHP Code:

#include <IE.au3>
#include <String.au3>
Func _ThanksCheck_EPVP4Story($Site, $Name)
    Local $IECreate = _IECreate($Site, "", 0)
    Local $ThanksSource = _IEDocReadHTML($IECreate)
    Local $WinTitle = _StringBetween($ThanksSource, '<META content="', '" property="og:title">')
    Local $LogInName = _StringBetween($ThanksSource, "rel=nofollow>", "</A>.")
    Local $ThanksName = _StringBetween($ThanksSource, $Name & '.html" rel=nofollow>', '</A>&nbsp;(')
    If $LogInName[0] = $Name Then
        If $ThanksName[1] = $Name Then
            Return True
        Else
            Return False
        EndIf
    Else
        Return False
    EndIf
    WinClose($WinTitle&" - Windows Internet Explorer")
EndFunc   ;==>_ThanksCheck_EPVP4Story 


2.

 Spoiler

PHP Code:

;4Story Teleport Liste UDF
#include <ListViewConstants.au3>
#include <GUIListView.au3>
Global $ListViewTeleport

Func _TeleportList_StartUp($X, $Y, $Width = 250, $Height = 150)
    $ListViewTeleport = GUICtrlCreateListView("X|Y|Z", $X, $Y, $Width, $Height)
    GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, Round($Width / 3 - 1))
    GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, Round($Width / 3 - 1))
    GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, Round($Width / 3 - 1))
EndFunc   ;==>_TeleportList_StartUp

Func _TeleportList_AddPoint($X, $Y, $Z)
    GUICtrlCreateListViewItem($X & "|" & $Y & "|" & $Z, $ListViewTeleport)
EndFunc   ;==>_TeleportList_AddPoint

Func _TeleportList_ReadSelected()
    Local $Item = _GUICtrlListView_GetSelectedIndices($ListViewTeleport, True)
    If UBound($Item) - 1 = 0 Then
        SetError(-1)
    Else
        Local $XYZ = _GUICtrlListView_GetItemTextArray($ListViewTeleport, $Item[1])
        Return $XYZ
    EndIf
EndFunc   ;==>_TeleportList_ReadSelected 


DL Link für Au3 mit Beispiel (in RAR):
Bitte scannt es mit VT, danke.

@Elite-Coder, geh in das Verzeichnis: C:\Programme\AutoIt3\Aut2Exe und starte die Aut2Exe.exe, oder gibts da den error ?

Jop da kommt der ERROR ! und auch beim script> rechtsklick > compile und compile with options.

Soll ich einfach so die Source hier reinschreiben... Und frage bekommt man da auch thanks wenn man was reinstellt?

[Mattthias]

Schickste mir die Source ?
Dann mach ichs dir...
Oder du machst OpenSource, wie du willst

[v0lle]

2. Release :

 Spoiler

#include <WindowsConstants.au3>
#include <WinAPI.au3>

Global $aButton[5]

$gui = GUICreate("Test Windows regions", 150, 150, @DesktopWidth-170, -1, $WS_POPUP, $WS_EX_TOPMOST)
$aButton[0] = GUICtrlCreateButton("Button 1", 0, 0, 150)
$aButton[1] = GUICtrlCreateButton("Button 2", 0, 30, 150)
$aButton[2] = GUICtrlCreateButton("Button 3", 0, 60, 150)
$aButton[3] = GUICtrlCreateButton("Button 4", 0, 90, 150)
$aButton[4] = GUICtrlCreateButton("Exit", 0, 120, 150)
GUISetState(@SW_SHOW)

$pos = WinGetPos($gui)
_GuiHole($gui, 0, 0, 150, 150)

While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $aButton[4]
            ExitLoop
        Case $aButton[0]
            MsgBox(0, '', 'Button1 geklickt')
        Case $aButton[1]
            MsgBox(0, '', 'Button2 geklickt')
        Case $aButton[2]
            MsgBox(0, '', 'Button3 geklickt')
        Case $aButton[3]
            MsgBox(0, '', 'Button4 geklickt')
    EndSwitch
WEnd

Func _GuiHole($h_win, $i_x, $i_y, $i_sizew, $i_sizeh)
    Local $outer_rgn, $inner_rgn, $combined_rgn
    $combined_rgn = _WinAPI_CreateRectRgn(0, 0, 0, 0)
    _WinAPI_DeleteObject($outer_rgn)
    _WinAPI_DeleteObject($inner_rgn)
    _AddCtrlRegion($combined_rgn, $aButton)
    _WinAPI_SetWindowRgn($h_win, $combined_rgn)
EndFunc   ;==>_GuiHole

Func _AddCtrlRegion($full_rgn, $ctrl_id)
    Local $ctrl_pos, $ctrl_rgn
    If IsArray($ctrl_id) Then
        For $i = 0 To UBound($ctrl_id) -1
            $ctrl_pos = ControlGetPos($gui, "", $ctrl_id[$i])
            $ctrl_rgn = _WinAPI_CreateRectRgn($ctrl_pos[0], $ctrl_pos[1], $ctrl_pos[0] + $ctrl_pos[2], $ctrl_pos[1] + $ctrl_pos[3])
            _WinAPI_CombineRgn($full_rgn, $full_rgn, $ctrl_rgn, $RGN_OR)
            _WinAPI_DeleteObject($ctrl_rgn)
        Next
    Else
        $ctrl_pos = ControlGetPos($gui, "", $ctrl_id)
        $ctrl_rgn = _WinAPI_CreateRectRgn($ctrl_pos[0], $ctrl_pos[1], $ctrl_pos[0] + $ctrl_pos[2], $ctrl_pos[1] + $ctrl_pos[3])
        _WinAPI_CombineRgn($full_rgn, $full_rgn, $ctrl_rgn, $RGN_OR)
        _WinAPI_DeleteObject($ctrl_rgn)
    EndIf
EndFunc   ;==>_AddCtrlRegion

Es kommt nicht von mir !
Es ist aus dem deutschen AutoIt Forum und kommt von BugFix ^^
Ich release es hier, weil es vielleicht einigen weiterhelfen könnte .

[Mattthias]

Danke KillerDeluxe, 32 Bit ?
Ich finde es gut, das du dich dran beteiligst, wegen dir habe ich darüber nachgedacht, wegen dem zusammenhalt oder so (das mit dem 32 Bit und Gott)

@Volle, sag bitte wo zu es gut ist

[Elite-Coder]

Originally Posted by Mattthias

Schickste mir die Source ?
Dann mach ichs dir...
Oder du machst OpenSource, wie du willst

Cool ok ich schick dir meine Source.
skype wie heißt du in Skype

[KDeluxe]

AutoIt kannst du ohne einen richtigen Bypass für 32 Bit vergessen, dementsprechend 64 Bit.

Mit Volles Beispiel kann man z. B. so ein Hack wie Trojan machen, auch wenn es nicht gut aussieht.

[Mattthias]

#Skype name jetzt in Beitrag 1

elite.mattthias

@Kd, das wusste ich auch, ich kannte sie vor Volle
Aber für Leute die sie nicht kennen ist das nützlich zu wissen wofür es gut ist
Bei Trojan liegt das daran das er beim Label nicht: GUICtrlSetBkColor($Label, $GUI_BKCOLOR_TRANSPARENT) gemacht hat

[Elite-Coder]

Kann jemand eigentlich auch ne andere sprache ausser autoit...

Ich kann Autoit , und weiß auch schon wie man pointer in c# und VisualBasic einsetzt fehlt nur noch wie man bei den sprachen das fenster findet^^

[Mattthias]

Elite-Coder wie meinste das ?
Bzw, in Skype habe ich ein paar Leute geblockt, sende mir am besten deinen Skype Namen per PN

[»Liight.]

Ja, mich z.B xD
Ich bin mir nicht ganz sicher, aber ich glaube ich weiss wie man einen Hack bei 32 Bit erstellt. Wenn mich vielleicht jemand im Skype adden kann der etwas mehr Erfahrung mit C++ hat.. (narcyzmc)

Sollte das vielleicht was werden wirds dann auch hier Public gestellt

[Mattthias]

#Updated

Ab jetzt Release Liste in Post #1