Sorry Eo to announce this : Dragon Eclipse

[Zzbrandon]

:girl:

[Growlith1223]

the speed is only client side, the only way you can change the running and all, is if you actually modify EVERY SINGLE copy from everyone.

U can always make it so the client checks if Cheat engine is open and if so, it closes the game down

[Zzbrandon]

:girl:

[Growlith1223]

just make the game check if the process is open

[Zzbrandon]

:girl:

[JohnPony]

Somewhere in your game loop add:

```

If WindowIsOpen("Cheat Engine 6.2") Then

' Handling Code Here

End If

```

I would recommend checking on a timed basis.

At the top of modDatabase add:

```

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

```

And at the bottom of modDatabase add:

```

Public Function WindowIsOpen(pstrWindow As String) As Boolean

WindowIsOpen = (FindWindow(vbNullString, pstrWindow) <> 0)

End Function

```

[Justn]

How would u prevent the multi client thing? The same way?

[JohnPony]

> How would u prevent the multi client thing? The same way?

I don't think that would work the same way, as the client would kill itself as it would detect itself.

I would just add a check server side to only accept one connection per IP.

[damian666]

>! ```
>! Option Explicit
>! Private Declare Function OpenProcess Lib "kernel32" ( _
>! ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
>!
>! Private Declare Function CloseHandle Lib "kernel32" ( _
>! ByVal hObject As Long) As Long
>! Private Declare Function EnumProcesses Lib "PSAPI.DLL" ( _
>! lpidProcess As Long, ByVal cb As Long, cbNeeded As Long) As Long
>! Private Declare Function EnumProcessModules Lib "PSAPI.DLL" ( _
>! ByVal hProcess As Long, lphModule As Long, ByVal cb As Long, lpcbNeeded As Long) As Long
>! Private Declare Function GetModuleBaseName Lib "PSAPI.DLL" Alias "GetModuleBaseNameA" ( _
>! ByVal hProcess As Long, ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
>! Private Const PROCESS_VM_READ = &H10
>! Private Const PROCESS_QUERY_INFORMATION = &H400
>! Dim reg As Object, Pid As Variant, GUID As Variant
>! Dim LENGUID As Long, LENPID As Long, TempS As String
>! Dim x As Long, SPID As String, SGUID As String, HWID As String
>! Const regPID = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductId"
>! Const regGUID = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Cryptography\MachineGuid"
>! Public Function IsProcessRunning(ByVal sProcess As String) As Boolean
>! On Error Resume Next
>!
>! Const MAX_PATH As Long = 260
>! Dim lProcesses() As Long, lModules() As Long, N As Long, lRet As Long, hProcess As Long
>! Dim sName As String
>!
>! sProcess = UCase$(sProcess)
>!
>! ReDim lProcesses(1023) As Long
>! If EnumProcesses(lProcesses(0), 1024 * 4, lRet) Then
>! For N = 0 To (lRet \ 4) - 1
>! hProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, 0, lProcesses(N))
>! If hProcess Then
>! ReDim lModules(1023)
>! If EnumProcessModules(hProcess, lModules(0), 1024 * 4, lRet) Then
>! sName = String$(MAX_PATH, vbNullChar)
>! GetModuleBaseName hProcess, lModules(0), sName, MAX_PATH
>! sName = Left$(sName, InStr(sName, vbNullChar) - 1)
>! If Len(sName) = Len(sProcess) Then
>! If sProcess = UCase$(sName) Then IsProcessRunning = True: Exit Function
>! End If
>! End If
>! End If
>! CloseHandle hProcess
>! Next N
>! End If
>! End Function
>! Public Function CreateID() As String
>! Dim ID As String
>! Dim I As Integer
>! On Error Resume Next
>! Set reg = CreateObject("wscript.shell")
>! Pid = Replace(reg.regread(regPID), "-", "")
>! GUID = Replace(reg.regread(regGUID), "-", "")
>! LENPID = Len(Pid)
>! LENGUID = Len(GUID)
>!
>! For x = 1 To LENPID
>! TempS = Hex$((Asc(Mid$(Pid, x, 1)) Xor 23) Xor 14)
>! SPID = SPID & TempS
>! Next x
>! SPID = StrReverse(SPID)
>! For x = 1 To LENGUID
>! TempS = Hex$((Asc(Mid$(GUID, x, 1)) Xor 23) Xor 14)
>! SGUID = SGUID & TempS
>! Next x
>! SGUID = StrReverse(SGUID)
>! HWID = StrReverse(SGUID & SPID)
>! CreateID = HWID
>! For I = 1 To 5
>! ID = ID & CStr(Mid$(CreateID, Int(Len(CreateID) / 12) * I, 4)) & "-"
>! Next
>! ID = Mid$(ID, 1, Len(ID) - 1)
>! CreateID = UCase$(ID)
>!
>! End Function
>! ```

that is my anti hack thingy i used when i had a game running.

[Justn]

Cool what does it all do? I couldn't really tell from the code D:

[damian666]

basicly checks for the internal name of the running process, and if its what you passed to it, it returns true.

which lets you handle it with code of your own, i used to send a packet to the server, so a cheater got auto banned on sight 

[blkcrow]

you can prevent the speed hack by adding some checks server side

[Zzbrandon]

:girl:

[JohnPony]

> Im just looking for lol A command that is very short that kill the process that I name in it and then it appear a form saying nice try or something  if the process was running in the background I tried to use this but it didnt work
>
> Shell "tskill appnamehere.exe"
>
> I mean why add timers just kill the game if they open anything that you put in the code So they dont even have a chance of cheating to begin with.

You need the code in the loop so that the program can actually check for a open process…

I mean, it can't just magically know to run the procedure without guidance.

[Zzbrandon]

:girl:

[damian666]

that code will work, but only if the window is not renamed etc, thats why i posted one that uses internal process name…

[Zzbrandon]

Ok so where is Game loop now to add that code lol also instead of hiding the FormMain is their a way to end it?

[damian666]

modgamelogic, gameloop

' Shutdown the game

Call GameDestroy

[Zzbrandon]

:girl:

[Growlith1223]

guys…the speed hack doesn't even work..it's only client side...

[Zzbrandon]

:girl:

[TheLordOfTheManor]

> Yes it does with 6.2 it does. Try this dude Open up 2 clients make 2 new accounts login on one account on one and on another then use cheat engine 6.2 on one client enable speed hack raise bar and boom your character is movin fast on both clients. Btw I made a Hackshield thanks to damien666.

Post a tutorial maybe for others to see?  Just an idea.