MINI VB (AJOUTER DES FONCTIONS "MACROS" A VOTRE APPLI VIA LE VBSCRIPT)

Signaler
Messages postés
340
Date d'inscription
jeudi 25 juillet 2002
Statut
Membre
Dernière intervention
25 août 2007
-
Messages postés
5
Date d'inscription
lundi 27 octobre 2008
Statut
Membre
Dernière intervention
13 mars 2009
-
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/19624-mini-vb-ajouter-des-fonctions-macros-a-votre-appli-via-le-vbscript

Messages postés
5
Date d'inscription
lundi 27 octobre 2008
Statut
Membre
Dernière intervention
13 mars 2009

bonjour,
j'ai un petit problème d'appel des fonctions de vb6 en vbscript
le code de vbscript est:
dim login,pass,immo
login=request.Querystring("login")
pass=request.Querystring("password")
immo=request.Querystring("imonumber")
Dim ObjDHFInterface
Dim objDHFInterfaceUM
dim conn
conn="driver={SQL Server}; server=.;database=medsis"
dim result

Set ObjDHFInterface = objInterface.createDHFInterfaceObj()
Set objDHFInterfaceUM=objInterface.createDHFInterfaceUMObj()

Set result = ObjDHFInterface.ProcessDHFauth(login,pass,conn)

if(result<=0)then
Response.redirect("../mou/invalider.asp")
else
Dim IDOfShip

Set ObjDHFInterface = objInterface.createDHFInterfaceObj()
Set objDHFInterfaceUM=objInterface.createDHFInterfaceUMObj()
Set IDOfShip = ObjDHFInterface.ProcessIDOfShip(immo,conn)
session("valider")="yes"
Response.Redirect("../mou/medmou_report.asp?IDOfShip="&IDOfShip&"")
end if


l'execution de ce code:
Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'ProcessDHFauth'

/mou/authantifier.asp, line 25
remarque: le fichier .dll de mon proj vb6 j'ai l'ajouter en fichier .cmd

pouvez vous me dire l'erreur de ce code?

merci d'avance
Messages postés
340
Date d'inscription
jeudi 25 juillet 2002
Statut
Membre
Dernière intervention
25 août 2007

pour appeller une fonction du programme il faut coder cette fonction dans une classe et exposer la classe a vbscript c tout
Messages postés
2107
Date d'inscription
mercredi 21 août 2002
Statut
Contributeur
Dernière intervention
19 février 2021
2
Excellente source !

Est-il possible d'appeler une fonction du programme VB depuis le script. J'ai essayé mais appa rement ca ne fonctionne pas.

9/10
Messages postés
150
Date d'inscription
samedi 8 avril 2006
Statut
Membre
Dernière intervention
1 mai 2012
2
Salut,

Ce prog ne prend pas en compte les If ?

@+

Antho2005
Afficher les 12 commentaires