 |
Cheat Engine
The Official Site of Cheat Engine
|
| View previous topic :: View next topic |
| Author |
Message |
Hack-Addict
Master Cheater
 Reputation: 0
Joined: 20 Nov 2007
Posts: 287
|
 Posted: Fri Jan 25, 2008 12:21 pm Post subject: Vb injection... (help) |
 |
|
Hey guys, been away for awile...
... I have a question... Is there a way to inject a code into vb...
Example:
If Text1.text = "Inject me" Then
Inject code here
End sub
_________________
|
|
| Back to top |
|
 |
Reak
I post too much
 Reputation: 0
Joined: 15 May 2007
Posts: 3496
|
| Posted: Fri Jan 25, 2008 12:33 pm Post subject: |
|
|
| What "code" ?
|
|
| Back to top |
|
|
FerrisBuellerYourMyHero
Master Cheater
 Reputation: 0
Joined: 14 Feb 2007
Posts: 401
Location: Inside your <kernel>
|
| Posted: Fri Jan 25, 2008 3:29 pm Post subject: |
|
|
LOSE THE VB!!!!
BASIC is in the name! why do you think a BASIC language can do any kind of injection?
VB is nothing but
| Code: |
this = that
text1 = this
vb = gay
|
you can't inject anything! dont waiste your time with that awful crap
_________________
You know, life moves pretty fast. If you don't stop and look around once in a while, You could miss it!
 |
|
| Back to top |
|
|
HomerSexual
Grandmaster Cheater Supreme
 Reputation: 5
Joined: 03 Feb 2007
Posts: 1657
|
| Posted: Fri Jan 25, 2008 3:49 pm Post subject: |
|
|
vb can use the win32 api meaning it can inject into others.
Wiccan is gonna write about a half page flame at you now...
_________________
|
|
| Back to top |
|
|
dnsi0
I post too much
![]() Reputation: 0
Joined: 04 Jan 2007
Posts: 2674
|
| Posted: Fri Jan 25, 2008 3:56 pm Post subject: |
|
|
You mean DLL Injection?
My CE has one and there is an example on planet
|
|
| Back to top |
|
|
wouthr
Cheater
![]() Reputation: 0
Joined: 11 Jan 2008
Posts: 30
|
| Posted: Fri Jan 25, 2008 4:12 pm Post subject: youcan |
|
|
you can inject a code into into like MSN Messenger
dont listen to FerrisBuellerYourMyHero he dosnt know a shit
This shuld do just fine http://fileforums.com/showthread.php?t=56003
_________________
Whee, this is my sig  |
|
| Back to top |
|
|
hcavolsdsadgadsg
I'm a spammer
![]() Reputation: 26
Joined: 11 Jun 2007
Posts: 5801
|
| Posted: Fri Jan 25, 2008 5:11 pm Post subject: |
|
|
| dnsi0 wrote: | You mean DLL Injection?
My CE has one and there is an example on planet |
I am curious, how much of it did you actually write? 
|
|
| Back to top |
|
|
dnsi0
I post too much
![]() Reputation: 0
Joined: 04 Jan 2007
Posts: 2674
|
| Posted: Fri Jan 25, 2008 6:06 pm Post subject: |
|
|
| I wrote alot of it. I just looked over the code and did something with it. Yes the injection part I did not write.
|
|
| Back to top |
|
|
Hack-Addict
Master Cheater
Reputation: 0
Joined: 20 Nov 2007
Posts: 287
|
| Posted: Fri Jan 25, 2008 10:02 pm Post subject: |
|
|
| rEakW0n wrote: | | What "code" ? |
Like, if i had my own language that i wrote, and it had a injection process, it would look kinda like this, but in visual basic form...
| Code: | If Text1.text = "inject" then
Inject code to check1.check: ect ect |
Is there a way?
| Quote: | LOSE THE VB!!!!
BASIC is in the name! why do you think a BASIC language can do any kind of injection?
VB is nothing but
Code:
this = that
text1 = this
vb = gay
you can't inject anything! dont waiste your time with that awful crap
|
no one gives a crap about your opinion serlock, we all knw visual basic is the worst type of programming, but uhh, dude, it can still be fun to use... get a life... besides, im learning C++ right now...
_________________
|
|
| Back to top |
|
|
XxOsirisxX
Grandmaster Cheater Supreme
 Reputation: 0
Joined: 30 Oct 2006
Posts: 1597
|
| Posted: Fri Jan 25, 2008 11:11 pm Post subject: |
|
|
I had this code from long time, but i never seen to use it 
Anyhow, this code is NOT mine for 1st. And i will just translate it in some stuffs.
| Quote: | Private Const PAGE_READWRITE As Long = &H4
Private Const MEM_RELEASE As Long = &H8000
Private Const MEM_COMMIT As Long = &H1000
Private Const STANDARD_RIGHTS_REQUIRED As Long = &HF0000
Private Const SYNCHRONIZE As Long = &H100000
Private Const PROCESS_ALL_ACCESS As Long = (STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &HFFF)
Private Const INFINITE As Long = &HFFFFFF
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
Private Declare Function VirtualAllocEx Lib "kernel32" (ByVal hProcess As Long, ByVal lpAddress As Long, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function CreateRemoteThread Lib "kernel32" (ByVal hProcess As Long, lpThreadAttributes As Long, ByVal dwStackSize As Long, lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Public Function Inyecta(RutaDll As String, Pid As Long) As Integer
Dim proc As Long
Dim nload As Long
Dim rems As Long
Dim longi As Long
Dim RemThread As Long
Dim Tid As Long
On Error GoTo Error
proc = OpenProcess(PROCESS_ALL_ACCESS, False, Pid)
nload = GetProcAddress(GetModuleHandle("kernel32.dll"), "LoadLibraryA")
rems = VirtualAllocEx(proc, 0, Len(RutaDll), MEM_COMMIT, PAGE_READWRITE)
WriteProcessMemory proc, ByVal rems, ByVal RutaDll, Len(RutaDll), longi
CreateRemoteThread proc, ByVal 0, 0, ByVal nload, ByVal rems, 0, Tid
WaitForSingleObject rems, INFINITE
CloseHandle proc
CloseHandle rems
Inyecta = 0
Exit Function
Error:
Inyecta = 1
End Function
Form:
Code:
Code:
Private Sub Form_Load()
Dim ruta As Long
Dim resultado As Integer
ruta = Shell("notepad.exe")
resultado = Inyecta("C:\ladll.dll", ruta)
If resultado = 0 Then
MsgBox "Dll Inyected succeful!!!", , "Información"
Else
MsgBox "Error Iyectiong Dll", vbCritical, "Información"
End If
End
End Sub |
It's pretty understanble that inyecta = inject, and ruta = path, but in this case was use notepad directly.
resultado = result.
Anyhow, have'nt test, but supposly have to work. Wish this code could help you in anything, but learn from it 
_________________
|
|
| Back to top |
|
|
atom0s
Moderator
 Reputation: 205
Joined: 25 Jan 2006
Posts: 8587
Location: 127.0.0.1
|
|
| Back to top |
|
|
|
|
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
