Blue Sky
Onaylı Üye
CSH İÇİN:
MsgBox("wolftü CSH AKTİF", MsgBoxStyle.Information)
Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In p.Modules
If moz.FileName.IndexOf("csh") <> -1 Then
Label1000.Text = moz.BaseAddress.ToString
End If
Next
Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In p.Modules
If moz.FileName.IndexOf("csh") <> -1 Then
Label1000.Text = moz.BaseAddress.ToString
End If
Next
LABEL1000.TEXT YAZAN LABELİ CSH ÇEKMEK İSTEDİNİZ LABEL GİRİN
BİN İÇİN:
MsgBox("wolftü BİN AKTİF!", MsgBoxStyle.Information)
Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In p.Modules
If moz.FileName.IndexOf("bin") <> -1 Then
Label1002.Text = moz.BaseAddress.ToString
End If
Next
Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In p.Modules
If moz.FileName.IndexOf("bin") <> -1 Then
Label1002.Text = moz.BaseAddress.ToString
End If
Next
Label1002.TEXT Kısmına BİN Çekmek İstediniz Label Girin
OBJ İÇİN:
MsgBox("wolftü OBJ MODÜL AKTİF!", MsgBoxStyle.Information)
Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In p.Modules
If moz.FileName.IndexOf("obj") <> -1 Then
Label1001.Text = moz.BaseAddress.ToString
End If
Next
Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In p.Modules
If moz.FileName.IndexOf("obj") <> -1 Then
Label1001.Text = moz.BaseAddress.ToString
End If
Next
LABEL1001.TEXT KISMINA OBJ ÇEKMEK İSTEDİNİZ LABEL GİRİN