vb.net . bin seçme yapımı yardım

[#LeadSoldiers]

Arkadaşlar vb.netde wolftü bin seçip xincode dolarken auto injectlemesini istiyorum yardım edermisiniz.

 

[microengine]

'Sayfanın Başına Import Kısmına
Imports System.Linq
Imports System.Diagnostics

'Fonksiyon
Public Function IsProcessRunning(ByVal procName As String) As String
Return Process.GetProcessesByName(procName).Any(Function(x As Process) x.ProcessName = procName)
End Function


'Gereken kod parçası fonksiyon içerisine
If (IsProcessRunning("Wolfteem.bin")) Then 'Wolfteem çalışıyorsa not: ismini düzeltirsin
Dim procWolfteem As Process = Process.GetProcessesByName("Wolfteem.bin")(0) 'Wolfteem i seçti
MessageBox.Show(procWolfteem.ProcessName, "Process Etkin")
End If

 

[GOKTAN6671]

'Sayfanın Başına Import Kısmına
Imports System.Linq
Imports System.Diagnostics

'Fonksiyon
Public Function IsProcessRunning(ByVal procName As String) As String
Return Process.GetProcessesByName(procName).Any(Function(x As Process) x.ProcessName = procName)
End Function


'Gereken kod parçası fonksiyon içerisine
If (IsProcessRunning("Wolfteem.bin")) Then 'Wolfteem çalışıyorsa not: ismini düzeltirsin
Dim procWolfteem As Process = Process.GetProcessesByName("Wolfteem.bin")(0) 'Wolfteem i seçti
MessageBox.Show(procWolfteem.ProcessName, "Process Etkin")
End If

Kardeşim anlamadim bi proje yaparmisin pls

 

[Adras]

aga ben sana hazır kod atayım bak bi tane timer ekle ,

on error resume next
Dim o As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In o.Modules
If moz.FileName.IndexOf("csh") <> -1 Then
Label1.Text = moz.BaseAddress.ToString
End If
Next
Dim c As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In c.Modules
If moz.FileName.IndexOf("bin") <> -1 Then
Label2.Text = moz.BaseAddress.ToString
End If
Next
Dim s As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In s.Modules
If moz.FileName.IndexOf("obj") <> -1 Then
Label3.Text = moz.BaseAddress.ToString
End If
Next

aga csh bin obj oto çekiyo al kullan hayrını gör

ama timerin enabledini true yap yoksa olmaz ve labellere dikkat et

senin dediğini yanlış anlamış olabilirim

 

[#LeadSoldiers]

aga ben sana hazır kod atayım bak bi tane timer ekle ,

on error resume next
Dim o As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In o.Modules
If moz.FileName.IndexOf("csh") <> -1 Then
Label1.Text = moz.BaseAddress.ToString
End If
Next
Dim c As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In c.Modules
If moz.FileName.IndexOf("bin") <> -1 Then
Label2.Text = moz.BaseAddress.ToString
End If
Next
Dim s As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In s.Modules
If moz.FileName.IndexOf("obj") <> -1 Then
Label3.Text = moz.BaseAddress.ToString
End If
Next

aga csh bin obj oto çekiyo al kullan hayrını gör

ama timerin enabledini true yap yoksa olmaz ve labellere dikkat et

senin dediğini yanlış anlamış olabilirim

canın sağolsun yanlış anlamışsın ama emek var

 

[microengine]

Kardeşim anlamadim bi proje yaparmisin pls

kodlar yeterince açık da biz seni anlamadık heralde, sorununu daha detaylı açıklar mısın?
sana wolf'u seçmeyi verdim, sen tam olarak ne istiyorsun

 

[#LeadSoldiers]

kodlar yeterince açık da biz seni anlamadık heralde, sorununu daha detaylı açıklar mısın?
sana wolf'u seçmeyi verdim, sen tam olarak ne istiyorsun

Bak Şimdi Dostum Butona Basıp wolftü açıp daha sonra xincode dolarken form 2 ye geçmesini istiyorum.

 

[Jacquelyn]

Bak Şimdi Dostum Butona Basıp wolftü açıp daha sonra xincode dolarken form 2 ye geçmesini istiyorum.

Buyur Kardeşim

Dim p As Process()
p = Process.GetProcessesByName("Wolftü.bin") 'set wolftü process ' Oyunun İsmini Düzeltmeyi Unutma.
If p.Count = 1 Then ' if wolftü process detected
Me.Hide()
Form4.Show()
End If

 

[TheAstory]

Buyur Kardeşim

Dim p As Process()
p = Process.GetProcessesByName("Wolftü.bin") 'set wolftü process ' Oyunun İsmini Düzeltmeyi Unutma.
If p.Count = 1 Then ' if wolftü process detected
Me.Hide()
Form4.Show()
End If

Ama Sanki Bu Kod Olmuyo Bende Olmuyodu Ama Bakalım

 

[Jacquelyn]

Ama Sanki Bu Kod Olmuyo Bende Olmuyodu Ama Bakalım

Kullanmasını bilmiyorsan Olmaz Bende Neden Sorunsuz Çalışıyor ?

 

[Erhan Hack]

Ama Sanki Bu Kod Olmuyo Bende Olmuyodu Ama Bakalım

Wolftü Kısmını Unutmuşsunuzdur

 

[jRivals]

Eyvallah koldarı aldım deniyorum...