This is a cool little program if I knew how to make that then I would be able to make it so that you would never need to type anything it would just know right when to submit your code and everything and save it for you to, I wonder if the source code is vb or not, maybe I should try to get it from the maker..
i hate u bop.....u made me lose aroud 23 or 24 win codes with this shit...but its working now...u owe me 23(no lets round that to 25) codes and i want them NOW If I tell you I am good, You will probably think I am boasting. If I tell you I am bad, You will Know I am lying.
found some more info http://www.d3scene.com/forum....-7.html he posted at the top of page 5 also but that link looks to have some of the code used for it maybe
Thanx bond I will try to talk to him on there, and hopefully I will be able to make the most amazing save code /saver/loader ever
I'm still having trouble with it.. anybody know how to use that dll file to replicate what it's doing to a vb programs text area? I tried for a long time just now and had no luck..
I know I really really want to be able to replicate what that game capture program is doing, bond are you at all familiar with dll files? I have been trying to just use that dll file from his program to use it with a new program of mine, however all I have figured out how to do is get it to inject the dll into warcraft but then it seems to be doing nothing I'm not sure how to make it work like he has it.. here is the code I have made..
Code
Public Class GameCapture Private TargetProcessHandle As Integer Private pfnStartAddr As Integer Private pszLibFileRemote As String Private TargetBufferSize As Integer
Public Const PROCESS_VM_READ = &H10 Public Const TH32CS_SNAPPROCESS = &H2 Public Const MEM_COMMIT = 4096 Public Const PAGE_READWRITE = 4
Public Const PROCESS_CREATE_THREAD = (&H2) Public Const PROCESS_VM_OPERATION = (&H8) Public Const PROCESS_VM_WRITE = (&H20) Dim DLLFileName As String Public Declare Function ReadProcessMemory Lib "kernel32" ( _ ByVal hProcess As Integer, _ ByVal lpBaseAddress As Integer, _ ByVal lpBuffer As String, _ ByVal nSize As Integer, _ ByRef lpNumberOfBytesWritten As Integer) As Integer
Public Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" ( _ ByVal lpLibFileName As String) As Integer
Public Declare Function VirtualAllocEx Lib "kernel32" ( _ ByVal hProcess As Integer, _ ByVal lpAddress As Integer, _ ByVal dwSize As Integer, _ ByVal flAllocationType As Integer, _ ByVal flProtect As Integer) As Integer
Public Declare Function WriteProcessMemory Lib "kernel32" ( _ ByVal hProcess As Integer, _ ByVal lpBaseAddress As Integer, _ ByVal lpBuffer As String, _ ByVal nSize As Integer, _ ByRef lpNumberOfBytesWritten As Integer) As Integer
Public Declare Function GetProcAddress Lib "kernel32" ( _ ByVal hModule As Integer, ByVal lpProcName As String) As Integer
Private Declare Function GetModuleHandle Lib "Kernel32" Alias "GetModuleHandleA" ( _ ByVal lpModuleName As String) As Integer
Public Declare Function CreateRemoteThread Lib "kernel32" ( _ ByVal hProcess As Integer, _ ByVal lpThreadAttributes As Integer, _ ByVal dwStackSize As Integer, _ ByVal lpStartAddress As Integer, _ ByVal lpParameter As Integer, _ ByVal dwCreationFlags As Integer, _ ByRef lpThreadId As Integer) As Integer
Public Declare Function OpenProcess Lib "kernel32" ( _ ByVal dwDesiredAccess As Integer, _ ByVal bInheritHandle As Integer, _ ByVal dwProcessId As Integer) As Integer
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String) As Integer
Private Declare Function CloseHandle Lib "kernel32" Alias "CloseHandleA" ( _ ByVal hObject As Integer) As Integer
Dim ExeName As String = IO.Path.GetFileNameWithoutExtension(Application.ExecutablePath)
Private Sub Inject() On Error GoTo 1 ' If error occurs, app will close without any error messages Timer1.Stop() Dim TargetProcess As Process() = Process.GetProcessesByName("war3") TargetProcessHandle = OpenProcess(PROCESS_CREATE_THREAD Or PROCESS_VM_OPERATION Or PROCESS_VM_WRITE, False, TargetProcess(0).Id) pszLibFileRemote = "GameCaptureX.dll" pfnStartAddr = GetProcAddress(GetModuleHandle("Kernel32"), "LoadLibraryA") TargetBufferSize = 1 + Len(pszLibFileRemote) Dim Rtn As Integer Dim LoadLibParamAdr As Integer LoadLibParamAdr = VirtualAllocEx(TargetProcessHandle, 0, TargetBufferSize, MEM_COMMIT, PAGE_READWRITE) Rtn = WriteProcessMemory(TargetProcessHandle, LoadLibParamAdr, pszLibFileRemote, TargetBufferSize, 0) CreateRemoteThread(TargetProcessHandle, 0, 0, pfnStartAddr, LoadLibParamAdr, 0, 0) CloseHandle(TargetProcessHandle) 1: Me.Show() End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim FileName As String FileName = "GameCaptureX.dll" Dim DllFileName As String = FileName.Replace("\", "") Label1.Text = "Waiting for users input..." Timer1.Interval = 50 Timer1.Start() End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If IO.File.Exists("GameCaptureX.dll") Then Dim TargetProcess As Process() = Process.GetProcessesByName("war3") If TargetProcess.Length = 0 Then Me.Label1.Text = ("Waiting for " + "war3" + ".exe")
Else Timer1.Stop() Me.Label1.Text = "Successfully Injected!" Call Inject() End If Else
yeah we became members on that forum thing to try and get ahold of one of the 2 guys that has the code, i saw vex already posted on his wall so guess we just gotta wait and hope he gives the source code
hey Bond, a lil off topic, but first of all i got my registration to work (yayyyy). Second of all, a few of my codes were not working although i double and triplechecked eavh time that i saved it. any suggestion for computer illiterate people here?
