Hahaha 
i tried to make one a while back, thats my source but i think it's a bit more tidier.
i tried to make one a while back, thats my source but i think it's a bit more tidier. 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
i tried to make one a while back, thats my source but i think it's a bit more tidier.
Originally Posted by giniyat101
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
Originally Posted by Code[VB]
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
or use xtrap bypass :P Originally Posted by Code[VB]
or use xtrap bypass :P Originally Posted by raow25
Originally Posted by raow25
Originally Posted by bandi12
Originally Posted by derh.acker