Início
1- Adicione uma CheckBox
Codigo Da CheckBox:
If CheckBox1.Checked = True Then
Dim prs As Process() = Process.GetProcessesByName("PointBlank")
If prs.Length > 0 Then
On Error Resume Next
For Each po As Process In prs
Dim pi As ProcessModuleCollection = po.Modules
For Each pmod As ProcessModule In pi
If pmod.ModuleName = ("i3GfxDx.dll") Then
WritePointerInteger("PointBlank", pmod.BaseAddress, &H4F1D2F8, 8, &H0, &H3C0, &H5C)
Else
End If
Next
Next
Codigo Da CheckBox:
If CheckBox1.Checked = True Then
Dim prs As Process() = Process.GetProcessesByName("PointBlank")
If prs.Length > 0 Then
On Error Resume Next
For Each po As Process In prs
Dim pi As ProcessModuleCollection = po.Modules
For Each pmod As ProcessModule In pi
If pmod.ModuleName = ("i3GfxDx.dll") Then
WritePointerInteger("PointBlank", pmod.BaseAddress, &H4F1D2F8, 8, &H0, &H3C0, &H5C)
Else
End If
Next
Next
![[VB] Base address Vote_lcap](https://2img.net/i/fa/prosilver_grey/vote_lcap.png){kind=small}
![[VB] Base address Voting_bar](https://2img.net/i/fa/prosilver_grey/voting_bar.png){kind=small}
![[VB] Base address Vote_rcap](https://2img.net/i/fa/prosilver_grey/vote_rcap.png){kind=small}