lostyazilim
tr.link

Visual Basic Hazır Kodlar ile Uygulama Yapmak

3 Mesajlar 1.128 Okunma
acebozum
tr.link

mymurat1 mymurat1 Üyeliği Durdurulmuş Banlı Kullanıcı
  • Üyelik 18.02.2013
  • Yaş/Cinsiyet 30 / E
  • Meslek Hukuk Öğrencisi
  • Konum Mersin
  • Ad Soyad M** K**
  • Mesajlar 367
  • Beğeniler 78 / 24
  • Ticaret 0, (%0)
Merhaba elimde hazır kodlar var bunları nere yapıştıracagımı nerden anlıyorum acaba uzman arkadaşlar bi yardımcı olurmu ?

Kodlar Bunlar

bool DeltaEnable;
float MouseDeltaX = 0.0000f, MouseDeltaY = 0.0000f, MouseDeltaZ = 0.0000f;

_declspec (naked) void DeltaX()
{
if (DeltaEnable)
{
__asm
{
fld dword ptr[MouseDeltaX]
retn
}
}
else
__asm
{
fld dword ptr[ecx + 0x14]
retn
}
}

_declspec (naked) void DeltaY()
{
if (DeltaEnable)
{
__asm
{
fld dword ptr[MouseDeltaY]
retn
}
}
else
__asm
{
fld dword ptr[ecx + 0x18]
retn
}
}

int HookDelta = 0;
void InitDelta()
{
DWORD InputMouse = (DWORD)GetModuleHandleA("i3InputDx.dll");
int LocalX, LocalY, SetScreenCenterX, SetScreenCenterY, Priority, AimKey, BoneIndex = -1;
D3DXVECTOR3 OnWorld, OnScreen;
D3DVIEWPORT9 pViewer;
pDevice->GetViewport(&pViewer);

SetScreenCenterX = (pViewer.Width / 2.0f);
SetScreenCenterY = (pViewer.Height / 2.0f);

DWORD Player = *(DWORD*)g_pPlayer;
if((Player != 0x000000))
{
if(HookDelta == 0)
{
HookDelta = 1;
CreateDetour((DWORD)DeltaX,(DWORD)InputMouse + 0xA0AF0,Detour_Type_0xE9, 5); //A0AF0
CreateDetour((DWORD)DeltaY,(DWORD)InputMouse + 0xA0B00,Detour_Type_0xE9, 5);
}
Priority = GetNearestToCrosshair();
DeltaEnable = false;

if(Priority > -1)
{
if (cPlayer->GetBone2(Priority,7))
{
if (GetAsyncKeyState(VK_SHIFT))
DeltaEnable = true;
else
DeltaEnable = false;
if (WorldToDelta(OnWorld, OnScreen))
{
LocalX = OnScreen.x;
LocalY = OnScreen.y;
if (LocalX != SetScreenCenterX && LocalY != SetScreenCenterY)
{
MouseDeltaX = LocalX - SetScreenCenterX;
MouseDeltaY = LocalY - SetScreenCenterY;
}
else
{
MouseDeltaX = 0.00f;
MouseDeltaY = 0.00f;
}

}
}
}

}

}
 

 

wmaraci
reklam

jteklif jteklif WM Aracı Kullanıcı
  • Üyelik 28.01.2015
  • Yaş/Cinsiyet 44 / E
  • Meslek Yazılımcı
  • Konum Ankara
  • Ad Soyad C** B**
  • Mesajlar 9
  • Beğeniler 0 / 0
  • Ticaret 0, (%0)
Bu kodlar kesinlikle "Basic" diline ait değil. Basic' te süslü parantezler ile bloklama ve noktalı virgülle satır sonu olmuyor.
 

 

yasinabi044 yasinabi044 WM Aracı Kullanıcı
  • Üyelik 22.04.2015
  • Yaş/Cinsiyet 29 / E
  • Meslek öğrenci
  • Konum Adana
  • Ad Soyad Y** K**
  • Mesajlar 5
  • Beğeniler 0 / 0
  • Ticaret 0, (%0)
bu kodlar visual basic veya .net diline ait değil.
 

 

wmaraci
wmaraci
Konuyu toplam 1 kişi okuyor. (0 kullanıcı ve 1 misafir)
Site Ayarları
  • Tema Seçeneği
  • Site Sesleri
  • Bildirimler
  • Özel Mesaj Al