Uzman Üye
Arkaşlar kodlama bana aittir pointerler alıntıdır
label oluştur adını cfx yap
timere yapıştır
'-----------------------------
'cfx çekme kodu
Try
Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In p.Modules
If moz.FileName.IndexOf("cfx") <> -1 Then
cfx.Text = moz.BaseAddress.ToString
End If
Next
Catch
End Try
'---------------------------------------------
'değişkenler isterseniz labelde kullanabilirsiniz
Dim Xvalue,Yvalue,Zvalue As String
'konumu kaydet
If GetAsyncKeyState(Keys.F1) Then
Xvalue=ReadPointerInteger("wolftü.bin", cfx.Text + &H3C92C, &HCC).ToString
Yvalue=ReadPointerInteger("wolftü.bin", cfx.Text + &H3C92C, &HC4).ToString
Zvalue=ReadPointerInteger("wolftü.bin", cfx.Text + &H3C92C, &HC8).ToString
end If
'Işınlan
If GetAsyncKeyState(Keys.F2) Then
WritePointerInteger("wolftü.bin", cfx.Text + &H3C92C,Xvalue, &HCC)
WritePointerInteger("wolftü.bin", cfx.Text + &H3C92C, Yvalue, &HC4)
WritePointerInteger("wolftü.bin", cfx.Text + &H3C92C, Zvalue, &HC8)
End If
sorun yaşayanlar ö.m atabilir.
+1 rep vermeyi unutmayın.o kadar paylaştım
label oluştur adını cfx yap
timere yapıştır
'-----------------------------
'cfx çekme kodu
Try
Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In p.Modules
If moz.FileName.IndexOf("cfx") <> -1 Then
cfx.Text = moz.BaseAddress.ToString
End If
Next
Catch
End Try
'---------------------------------------------
'değişkenler isterseniz labelde kullanabilirsiniz
Dim Xvalue,Yvalue,Zvalue As String
'konumu kaydet
If GetAsyncKeyState(Keys.F1) Then
Xvalue=ReadPointerInteger("wolftü.bin", cfx.Text + &H3C92C, &HCC).ToString
Yvalue=ReadPointerInteger("wolftü.bin", cfx.Text + &H3C92C, &HC4).ToString
Zvalue=ReadPointerInteger("wolftü.bin", cfx.Text + &H3C92C, &HC8).ToString
end If
'Işınlan
If GetAsyncKeyState(Keys.F2) Then
WritePointerInteger("wolftü.bin", cfx.Text + &H3C92C,Xvalue, &HCC)
WritePointerInteger("wolftü.bin", cfx.Text + &H3C92C, Yvalue, &HC4)
WritePointerInteger("wolftü.bin", cfx.Text + &H3C92C, Zvalue, &HC8)
End If
sorun yaşayanlar ö.m atabilir.
+1 rep vermeyi unutmayın.o kadar paylaştım