- Yasaklandı
-
- #1
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("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
Şimdi 1 Tane Timer Ekle Ve Timere Tıklayıp Enablesini True Yap
On Error Resume Next
Label1= CSH
Label2= Bin
Label3= OBJ
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("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
Şimdi 1 Tane Timer Ekle Ve Timere Tıklayıp Enablesini True Yap
On Error Resume Next
Label1= CSH
Label2= Bin
Label3= OBJ