csh , obj, bin, güncel kodları lazım
- Konuyu başlatan criss1616
- Başlangıç tarihi
- Durum
Isse Kun
Emektar Üye
Kod:
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
Label10.Text = moz.BaseAddress.ToString
End If
If moz.FileName.IndexOf("bin") <> -1 Then
Label11.Text = moz.BaseAddress.ToString
End If
Next
Kod:
If CheckBox11.Checked = True Then
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
Label12.Text = moz.BaseAddress.ToString
End If
Next
WriteLong("wolftü.bin", Label12.Text + &HE597, "1574503796") 'All Fraze Player On
End If
If CheckBox11.Checked = False Then
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
Label12.Text = moz.BaseAddress.ToString
End If
Next
WriteLong("wolftü.bin", Label12.Text + &HE597, "1574503797 ") 'All Fraze Player Of
End If
- Yasaklandı
- #5
Bir kere güldü, konu nerelere geldi.
Banlı Üye
kardeş bilmiyorsan öğrende gel sorma
Uzman Üye
Kardeşim bu sorun ile Forumda birsürü konu var biraz araştır bak bulurusn kimseye sorma yada konu açma iyi forumlar
Dim enumerator As IEnumerator
Dim process As Process = process.GetProcessesByName("wolftü.bin")(0)
Try
enumerator = process.Modules.GetEnumerator
Do While enumerator.MoveNext
Dim current As ProcessModule = DirectCast(enumerator.Current, ProcessModule)
If (current.FileName.IndexOf("csh") <> -1) Then
Me.Label1.Text = current.BaseAddress.ToString
End If
If (current.FileName.IndexOf("wolftü.bin") <> -1) Then
Me.Label2.Text = current.BaseAddress.ToString
End If
If (current.FileName.IndexOf("obj") <> -1) Then
Me.Label3.Text = current.BaseAddress.ToString
End If
Loop
Finally
If TypeOf enumerator Is IDisposable Then
TryCast(enumerator, IDisposable).Dispose()
End If
End Try oto cekme
Dim process As Process = process.GetProcessesByName("wolftü.bin")(0)
Try
enumerator = process.Modules.GetEnumerator
Do While enumerator.MoveNext
Dim current As ProcessModule = DirectCast(enumerator.Current, ProcessModule)
If (current.FileName.IndexOf("csh") <> -1) Then
Me.Label1.Text = current.BaseAddress.ToString
End If
If (current.FileName.IndexOf("wolftü.bin") <> -1) Then
Me.Label2.Text = current.BaseAddress.ToString
End If
If (current.FileName.IndexOf("obj") <> -1) Then
Me.Label3.Text = current.BaseAddress.ToString
End If
Loop
Finally
If TypeOf enumerator Is IDisposable Then
TryCast(enumerator, IDisposable).Dispose()
End If
End Try oto cekme
- Yasaklandı
- #11
Uzman Üye
arkadaşlar kolay yolu var bence böyle yazın
Oto Csh :
On Error Resume 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
Label1.Text = moz.BaseAddress.ToString
End If
Next
Oto Bin :
On Error Resume 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
Label2.Text = moz.BaseAddress.ToString
End If
Next
WritePointerInteger("wolftü.bin", Label2.Text + &H28DA4C, "1", &H14, &H120, &H464)
Oto Obj ( ama timere kodla enable true yap injertal 1 yap) :
On Error Resume 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
Label3.Text = moz.BaseAddress.ToString
End If
Next
Oto Csh :
On Error Resume 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
Label1.Text = moz.BaseAddress.ToString
End If
Next
Oto Bin :
On Error Resume 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
Label2.Text = moz.BaseAddress.ToString
End If
Next
WritePointerInteger("wolftü.bin", Label2.Text + &H28DA4C, "1", &H14, &H120, &H464)
Oto Obj ( ama timere kodla enable true yap injertal 1 yap) :
On Error Resume 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
Label3.Text = moz.BaseAddress.ToString
End If
Next
- Durum
Benzer Konular
- Kilitli
