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

shadowmoy Messages postés 340 Date d'inscription jeudi 25 juillet 2002 Statut Membre Dernière intervention 25 août 2007 - 19 janv. 2004 à 00:23
attarbya87 Messages postés 5 Date d'inscription lundi 27 octobre 2008 Statut Membre Dernière intervention 13 mars 2009 - 13 mars 2009 à 10:38
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

attarbya87 Messages postés 5 Date d'inscription lundi 27 octobre 2008 Statut Membre Dernière intervention 13 mars 2009
13 mars 2009 à 10:38
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
shadowmoy Messages postés 340 Date d'inscription jeudi 25 juillet 2002 Statut Membre Dernière intervention 25 août 2007
29 mars 2007 à 17:52
pour appeller une fonction du programme il faut coder cette fonction dans une classe et exposer la classe a vbscript c tout
cs_PaTaTe Messages postés 2126 Date d'inscription mercredi 21 août 2002 Statut Contributeur Dernière intervention 19 février 2021 2
27 juin 2006 à 07:43
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
cs_antho2005 Messages postés 150 Date d'inscription samedi 8 avril 2006 Statut Membre Dernière intervention 1 mai 2012 3
27 mai 2006 à 22:52
Salut,

Ce prog ne prend pas en compte les If ?

@+

Antho2005
Utilisateur anonyme
10 mars 2004 à 12:12
Merci, ton soft m'a permis d'intégrer du vbscript dans mon server WAP :)...

COmme quoi ta source est trés utile ;)...

Bonne continuation, akh
shadowmoy Messages postés 340 Date d'inscription jeudi 25 juillet 2002 Statut Membre Dernière intervention 25 août 2007
8 févr. 2004 à 19:27
je sia sdeja le faire vai le subclassing le hic c'est que le subclassing utilise le hwnd d'un controle hors les controles 'windowless' comme les labels et autre shape n'ont pas de hwnd donc on peut pas les subclasser pour capter les events ou changer leurs propriétées donc 2 solutions : s'amuser a recoder tous les controles windowless existant en leurs ajoutant un hwnd sous forme de usercontrol soit utiliser la methode simple mais qui permet d'utiliser les controles windowless comme dans vb donc voila ...
harryjc Messages postés 11 Date d'inscription vendredi 21 juin 2002 Statut Membre Dernière intervention 14 octobre 2005
6 févr. 2004 à 15:06
va voir le site de vbaccelerator.com pour le subclassing !!
shadowmoy Messages postés 340 Date d'inscription jeudi 25 juillet 2002 Statut Membre Dernière intervention 25 août 2007
20 janv. 2004 à 23:06
nouvel update :) ca commence a devenir interessant héhé
dommage que l'on ne puisse pas recuperer le hwnd des controles windowless car on aurait pu simplifier enormement tous ca via du subclassing pour les events par example....
shadowmoy Messages postés 340 Date d'inscription jeudi 25 juillet 2002 Statut Membre Dernière intervention 25 août 2007
20 janv. 2004 à 02:27
voila j'ai mi a jour le zip
l'utilitée c'est que via le vbscript tu peux rendre ton appli scriptable comme dans access,word,excel etc ...

en gros tu peux faire des macros qui influent sur ton appli comme en vba :)

cf le zip tu comprendras vite que le code executé et celui dans les textbox et c'est du vbscript ^^

c'est un petit sample mais il vas evoluer ...
shadowmoy Messages postés 340 Date d'inscription jeudi 25 juillet 2002 Statut Membre Dernière intervention 25 août 2007
19 janv. 2004 à 19:51
je vais essayer de vous pondre un petit sample un peu plus parlant ...
Afyn Messages postés 608 Date d'inscription samedi 3 août 2002 Statut Membre Dernière intervention 22 décembre 2016
19 janv. 2004 à 18:03
Je trouve l'idée sympa, l'utilité et la finalité reste à démonter.
A+
Afyn - Navedac.
shadowmoy Messages postés 340 Date d'inscription jeudi 25 juillet 2002 Statut Membre Dernière intervention 25 août 2007
19 janv. 2004 à 00:23
ah oui ca permet donc d'utiliser des interfaces graphiques (form, textbox etc..) comme vb alors que le vbscript ne le peut pas ...
Rejoignez-nous