[OpenSource] Unsere Source 4 4Story - Teamwork

Page 1 of 6

08/10/2010 20:08 Mattthias#1

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: [Only registered and activated users can see links. Click Here To Register...]

2.Release: [Only registered and activated users can see links. Click Here To Register...]

3.Release: [Only registered and activated users can see links. Click Here To Register...]

4.Release: [Only registered and activated users can see links. Click Here To Register...]

5.Release: [Only registered and activated users can see links. Click Here To Register...]

6.Release: [Only registered and activated users can see links. Click Here To Register...]

08/10/2010 20:14 .-Frerer#2

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:
[Only registered and activated users can see links. Click Here To Register...]
[Only registered and activated users can see links. Click Here To Register...]

Wenn ihr wissen wollt,wie man z.B. einen Hack programmiert k�nnt ihr auch Open Sources auch anderen Sektionen benutzen. Zum Beispiel:
[Only registered and activated users can see links. Click Here To Register...]

08/10/2010 20:24 Elite-Coder#3

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

08/10/2010 20:27 Mattthias#4

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> (') 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): [Only registered and activated users can see links. Click Here To Register...]
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 ! [Only registered and activated users can see links. Click Here To Register...]

08/10/2010 20:34 Elite-Coder#5

Quote:

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> (') 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): [Only registered and activated users can see links. Click Here To Register...]
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?

08/10/2010 20:36 Mattthias#6

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

08/10/2010 20:38 v0lle#7

2. Release :

Spoiler

Code:

#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 .

08/10/2010 20:39 Mattthias#8

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 :)

08/10/2010 20:41 Elite-Coder#9

Quote:

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

08/10/2010 20:43 KDeluxe#10

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.

08/10/2010 20:44 Mattthias#11

#Skype name jetzt in Beitrag 1

elite.mattthias :D

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

08/10/2010 20:46 Elite-Coder#12

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^^

08/10/2010 20:48 Mattthias#13

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

08/10/2010 20:54 �Liight.#14

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 :D

08/10/2010 21:11 Mattthias#15

#Updated

Ab jetzt Release Liste in Post #1 :)

Page 1 of 6

Last »