VB.Net CROSSFIRE Hack!

[SoGawd.?]

Well, i've been trying to make a vb.net crossfire hack for a while, and i'm wondering if there is any more experienced coders.
winapi apparently isn't available for the uses i want so i have to work around that (i don't know how, help?)

ok, heres my code:

    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
  Private As ode :
    Private Function runner(ByVal UnnamedParameter1 As System.IntPtr) As Integer
        Sleep(9800)
        Try
            Dim dllfile As UInteger = CUInt(GetModuleHandleA("Cshell.dll"))
            If dllfile = False Then
                Throw 1
            End If
        Catch [error] As Integer
            Select Case [error]
                Case 1
                    CreateThread(Nothing, Nothing, CType(runner, LPTHREAD_START_ROUTINE), Nothing, Nothing, Nothing)
                    Return False
                Case Else
                    'Unkown error!
                    Return False
            End Select
        End Try
        My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Beep)
        CreateThread(Nothing, Nothing, CType(something'what do i do here?', LPTHREAD_START_ROUTINE), Nothing, Nothing, Nothing)
        Return True
    End Function

thats my dll main, i haven't really done any more as it's practically pointless to try everything else without a main.
and yes, this is brimirs base.

[derh.acker]

The only available type of dlls in VB is Class Library and there is nothing similar to a DllMain

[giniyat101]

dreaming...

[Raow]

Hahaha i tried to make one a while back, thats my source but i think it's a bit more tidier.

[Code[VB]]

dreaming...

its possible :P (but not with dllmain)




edit: // i coded something.. some weeks ago, its not finished but here, maybe you get an inspiration^^

Private Function iWriteFloat(ByVal address As Integer, ByVal value As Single)
Dim CFClient As Process() = Process.GetProcessesByName("crossfire")
Dim p As Process() = Process.GetProcessesByName("crossfire")

If CFClient.Length = 0 Then
    End
End If
    Dim CFHandle As IntPtr = p(0).Handle

    WriteFloatMemory(CFHandle, address, value, 4, Nothing)
    CloseHandle(CFHandle)
    Return Nothing
End Function

Private DllString As Long
Private fPointer As Integer

Public Function edFloat(ByVal address As String, ByVal value As Long)
    If IsProcessOpen("crossfire") Then
        DllString = readdll("CShell.dll")
        fPointer = "&H" & Hex(DllString + address)
        iWriteFloat(fPointer, value)
    End If
Return Nothing
End Function

[giniyat101]

its possible :P (but not with dllmain)




edit: // i coded something.. some weeks ago, its not finished but here, maybe you get an inspiration^^

Private Function iWriteFloat(ByVal address As Integer, ByVal value As Single)
Dim CFClient As Process() = Process.GetProcessesByName("crossfire")
Dim p As Process() = Process.GetProcessesByName("crossfire")

If CFClient.Length = 0 Then
    End
End If
    Dim CFHandle As IntPtr = p(0).Handle

    WriteFloatMemory(CFHandle, address, value, 4, Nothing)
    CloseHandle(CFHandle)
    Return Nothing
End Function

Private DllString As Long
Private fPointer As Integer

Public Function edFloat(ByVal address As String, ByVal value As Long)
    If IsProcessOpen("crossfire") Then
        DllString = readdll("CShell.dll")
        fPointer = "&H" & Hex(DllString + address)
        iWriteFloat(fPointer, value)
    End If
Return Nothing
End Function

no, xtrap will probably detect using of writeprocessmemory

[Code[VB]]

no, if you just nop the part of xtrap that detectes the writeprocessmemory or use xtrap bypass :P

[Raow]

no, if you just nop the part of xtrap that detectes the writeprocessmemory or use xtrap bypass :P

xtrap bypass = non existsent atm. there might be one for eu or ph but not yet for na.
and xtrap has detected writeprocessmemory since beta.

[Code[VB]]

xtrap bypass = non existsent atm. there might be one for eu or ph but not yet for na.
and xtrap has detected writeprocessmemory since beta.

who said that xtrap bypass don´t exist atm ?? :P ( @derh.acker was sagst du dazu^^ xD)

[derh.acker]

Bypassing XTrap without Hack tool has been detected is much easier than I thought it was.
I'll upload a screenshot

[Raow]

Wait, you guys got an X-trap bypass?

[bandi12]

Wait, you guys got an X-trap bypass?

yes they have but they won't give it to you or make it public bk all stuff's they make is "top secret" they only like to make another usser's feel like "idiots" bk they have and another usser's not ... so give up beging them

[derh.acker]

yes they have but they won't give it to you or make it public bk all stuff's they make is "top secret" they only like to make another usser's feel like "idiots" bk they have and another usser's not ... so give up beging them

Correct

[bandi12]

Correct

sadly but i know and i dummo what is funny in this .... that everybody is trying to be Batman/SuperMan ?

[Raow]

Lol. i never begged. i made an xtrap bypass. my mistake was making it public.