CODEZ EN ASSEMBLEUR DANS VB

Signaler
Messages postés
63
Date d'inscription
samedi 22 décembre 2001
Statut
Membre
Dernière intervention
22 décembre 2003
-
Messages postés
185
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
10 janvier 2008
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/4691-codez-en-assembleur-dans-vb

Messages postés
185
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
10 janvier 2008

Mais euh.... qu'est-ce que la fonction QBasic Call Absolute ?
Messages postés
161
Date d'inscription
mardi 19 juin 2001
Statut
Membre
Dernière intervention
10 avril 2007
1
Excellente source en tout cas :)
Messages postés
161
Date d'inscription
mardi 19 juin 2001
Statut
Membre
Dernière intervention
10 avril 2007
1
Ton truc c'est juste une dll en C bigane ... un post inutile amené à disparaître :>
Messages postés
46
Date d'inscription
lundi 4 février 2002
Statut
Membre
Dernière intervention
12 février 2004

Salut,
VB6 Sp5, Windows2000 Pro SP2, Administrateur :
pas moyen de lancer la Dll, même déplacée dans Winntsystem32 ou dans le répertoire local.
Tu devais faire une dll en C, si tu as un problème de diffusion, utilise lcc32, il est libre. Voici une ancienne dll en vc6 pour vb6 que je me suis fait il y a quelques temps :

VBASM.DEF:
;-----------------------------------------
; Fichier de definition de la DLL
;-----------------------------------------
LIBRARY "VbAsm" ; nom de la bibliotheque
DESCRIPTION 'VbAsm Windows Dynamic Link Library'
EXPORTS
InvertLong ; Inversion d'un entier long
InvertInteger ; Inversion des octets d'un integer

// VbASM.cpp : Defines the entry point for the DLL application.
//
#include "stdafx.h"

BOOL APIENTRY DllMain( HANDLE hModule,
DWORD ul_reason_for_call,
LPVOID lpReserved)
{
return TRUE;
}

// -------------------------------------------------------------------------
// Inverse les octs d'un long
// -------------------------------------------------------------------------
void WINAPI InvertLong( long *ptdw )
{
register char tmp;

tmp = ((char*) ptdw)[3];
((char*) ptdw)[3] = ((char*) ptdw)[0];
((char*) ptdw)[0] = tmp;
tmp = ((char*) ptdw)[2];
((char*) ptdw)[2] = ((char*) ptdw)[1];
((char*) ptdw)[1] = tmp;
}

// -------------------------------------------------------------------------
// Inverse les octs d'un word
// NB: Celui ci est transmis sous forme d'un long.
// -------------------------------------------------------------------------
void WINAPI InvertInteger( WORD *ptw )
{
register char tmp;
tmp = ((char*) ptw)[0];
((char*) ptw)[0] = ((char*) ptw)[1];
((char*) ptw)[1] = tmp;
}

C'est un exemple, depuis j'ai abandonné cette dll inutile et mal programmée.
Tu peux la modifier pour y inclure ton code en asm.
A+
bigane.
Afficher les 8 commentaires