[VB] Injetar dll sem OpenFiledialog

[Sherex 0]

Galera eu to querendo injetar uma dll de um local especifico c:\windows\temp\exemple.dll

sem utilizar openfiledialog aki ta o exemplo normal com open eu queria saber como colocar sem o open'-'

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[AceStryker 32]

Se não quer usar o OpenFileDialog então é só jogar a string direto, não entendi o problema...

[Sherex 0]

alguem da uma LUZ aqui estou querendo pegar a dll sem opendialog pegar direto se me entendem e injeta-lo

[AceStryker 32]

Só trocar todos os OpenFileDialog1.FileName por o local da sua dll

[Sherex 0]

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(TextBox1.Text)

TargetProcessHandle = OpenProcess(PROCESS_CREATE_THREAD Or PROCESS_VM_OPERATION Or PROCESS_VM_WRITE, False, TargetProcess(0).Id)

pszLibFileRemote = "C:\Windows\Temp\sxs.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)

Me.Show()

End Sub

olha ai mudei mas não está funcionando a injeção mudei essa linha ai vermelha

[SMOLL25 179]

Você apenas mudou o openfile da Function

Precisa mudar o do timer tbm

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[Sherex 0]

Tá aqui minha source mas ela não está injetando perfeitamente '-'

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[ℛiqu∊ 16]

Faça a modificação no button4:

 

Dim FileName As String = "C:\minhadll.dll"

FileName = FileName.Substring(FileName.LastIndexOf("\"))

Dim DllFileName As String = FileName.Replace("\", "")

Me.Dlls.Items.Add(DllFileName)

[Sherex 0]

:P sempre o rique q me salva . vlw

vo colocar numa timer pra injetar automatico --

[Blue.Fenix 5]

Dúvida resolvida.

Caso ainda haja algum questionamento me contate por Perfil que eu reabro o tópico.

 

Tópico Fechado