vb.net skin changer source

Function gethandlewep()
        Return ReadInt(LocalPlayer + m_hActiveWeapon, 4)
    End Function
    Function getweapent()
        Return gethandlewep() & &HFFF
    End Function

    Function GetCurWep()

        Return ReadInt(dll_client + EntityList + (getweapent() - 1) * &H10, 4)

    End Function

    Dim m_dwClientState As Integer = &H6062B4
    Dim m_iItemIDHigh As Integer = &H4BA8
    Dim m_iItemIDLow As Integer = &H4BAC
    Dim m_OriginalOwnerXuidLow As Integer = &H4D68
    Dim m_OriginalOwnerXuidHigh As Integer = &H4D6C
    Dim m_nFallbackPaintKit As Integer = &H4D70
    Dim m_nFallbackStatTrak As Integer = &H4D7C
    Dim m_nFallbackSeed As Integer = &H4D74
    Dim m_flFallbackWear As Integer = &H4D78

    Function skin_loop_()
        While (Not exit_the_party)
            Dim Cur_Wep As Integer = getCurWep()
            WriteInt(Cur_Wep + m_iItemIDHigh, 4, 0)
            WriteInt(Cur_Wep + m_iItemIDLow, 4, -1)
            WriteInt(Cur_Wep + m_OriginalOwnerXuidLow, 4, 0)
            WriteInt(Cur_Wep + m_OriginalOwnerXuidHigh, 4, 0)
            WriteInt(Cur_Wep + m_nFallbackPaintKit, 4, 302)
            ' WriteInt(Cur_Wep + m_nFallbackStatTrak, 4, 1337)
            'WriteInt(Cur_Wep + m_nFallbackSeed, 4, 13261)
            ' WriteInt(Cur_Wep + m_flFallbackWear, 4, 0.0F)
            If GetAsyncKeyState(Keys.RMenu) Then
                Dim EnginePointer As Integer = ReadInt(dll_engine + m_dwClientState, 4)
                WriteInt(EnginePointer + &H16C, 4, -1)
            End If

        End While
    End Function

take weaponid (weaponbase + offItemDefinitionIndex)
 
if weaponid == weapon_ak47 or whatever
{
write m_iItemIDHigh  to 0
write m_iItemIDLow  to 2048(orwhateverywant)
write m_OriginalOwnerXuidHigh to 0
write m_OriginalOwnerXuidLow to 0
write m_nFallbackPaintKit to 279(or what skin you want)
}
if(oldweapon != weaponid ) // so when you switch weapons
{
oldweapon  = weaponid
fullUpdate();