[Sample] Easy Loot with GUID in backdrop mode - Interact func

[Rival-Fr]

Here are small Sample for loot easily.

Is on vb.net

REQUIS >> Go in the menu of wow, Key Bindings > Targetings Function > and press key K in interacte with target.

Public Class Lib_Func_Wow

    Public Shared Sub Interact(ByVal Object_Base_Adress As UInt64, ByVal Handle_Windows_WoW As IntPtr)
        SelectTarget(Object_Base_Adress) 'Write Guid in TargetGuid Player
        pressKey(Keys.K, Handle_Windows_WoW) ' Press key K
        Wait(1000) ' Wait 1 sec
        SelectTarget(0) ' Clean Target
    End Sub


    Public Shared Sub SelectTarget(ByVal TargetBase As Long)
        Dim Guid As UInt64 = ReadUInt64(TargetBase + Adresse.ObjectOffsets.Guid)
        WriteUInt64(Adresse.TargetGUID, Guid) 'Write Guid in TargetGuid Player
    End Sub


    <DllImport("kernel32", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
Private Shared Function GetTickCount() As Integer
    End Function

    Public Shared Sub Wait(ByVal Milsec As Integer)
        Dim num As Integer
        num = (GetTickCount() + Milsec)
        Do While (GetTickCount() < num)
            Application.DoEvents()
        Loop
    End Sub

    <DllImport("user32", EntryPoint:="PostMessageA", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
       Private Shared Function PostMessage(ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Boolean
    End Function


    Public Shared Sub pressKey(ByVal Key As Keys, ByVal WindowHwnd As IntPtr)
        PostMessage(WindowHwnd, &H100, CInt(Key), IntPtr.Zero)
        PostMessage(WindowHwnd, &H101, CInt(Key), IntPtr.Zero)
    End Sub

End Class

use:

Interact(Object_Base_Adress, Handle_Windows_WoW)

Example of use: > [Only registered and activated users can see links. ]

> [Only registered and activated users can see links. ]

Sorry for my bad english

[voron23]

wow thank you, will test this!)))) very very nice, +rep

[Cursed]

What a tutorial... I followed all the steps.

[Rival-Fr]

Sorry, tuto is short because i speak badly english

[Nesox]

Viva la revolution!

[voron23]

if you plan loot mob after kill, you may send Key("LastTargetKey") and Key("Interact-w-Target key") ^_^

[Rival-Fr]

Yes, but for loot bobber, herb's or mineral my sample work

[voron23]

Originally Posted by Rival-Fr

Yes, but for loot bobber, herb's or mineral my sample is working

and if you are looting or skinning another mobObject
i dont like the fact, that unit target dont fully set with one write GUID

[Rival-Fr]

Thank you voron

[pandyer]

Interact(Object_Base_Adress, Handle_Windows_WoW)?
You can provide function prototype?

[Cypher]

Originally Posted by pandyer

Interact(Object_Base_Adress, Handle_Windows_WoW)?
You can provide function prototype?

Please noone help this dipshit, he posted the same shit in a comment on a totally unrelated post on my blog.

He obviously has no interest in learning he just wants copypasta.

[Rival-Fr]

This code is very simple, if you did not know find a base adress, you not use this sample.

[lanman92]

You could also use InteractByGUID to do the same thing 0x6F1FC0 Have fun. Gotta love taking advantage of the game ALREADY HAVING THE CODE YOU NEED!

[pandyer]

i call this 0x6F1FC0
then Occasional abnormal procedures

I want to learn under
Help me to see where the wrong
This is my source:

var pid = process.Id;
var asm = new AsmClass();

//mov ecx,dword ptr fs:[2c]
asm.Mov_ecx_from_dword_ptr_fs_num(0x2c);
//mov eax,dword ptr [135d9fc]
asm.Mov_EAX_DWORD_Ptr(0x135d9fc);
//mov edx,dword ptr[ecx+eax*4]
asm.addnum("8B1481");
//mov dword ptr [edx+10], var
asm.addnum("C74210" +
asm.IntTohex(dd, 8));
asm.Push68((int)(monUid >> 32));
asm.Push68((int)monUid);
asm.Mov_EAX(0x006f1fc0);
asm.Call_EAX();
asm.Add_ESP(0x08);
asm.addnum("33C0");
asm.Ret();
asm.RunAsm(pid);

I find it for meself,However, I use it when the occasional error procedure
.sorry,my English very poor, Expression is not clear

[pandyer]

I restore the fs:[2c] Register
Because in the use of call time used