MINI VB (AJOUTER DES FONCTIONS "MACROS" A VOTRE APPLI VIA LE VBSCRIPT)
shadowmoy
Messages postés340Date d'inscriptionjeudi 25 juillet 2002StatutMembreDernière intervention25 août 2007
-
19 janv. 2004 à 00:23
attarbya87
Messages postés5Date d'inscriptionlundi 27 octobre 2008StatutMembreDernière intervention13 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.
attarbya87
Messages postés5Date d'inscriptionlundi 27 octobre 2008StatutMembreDernière intervention13 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és340Date d'inscriptionjeudi 25 juillet 2002StatutMembreDernière intervention25 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és2126Date d'inscriptionmercredi 21 août 2002StatutContributeurDernière intervention19 février 20212 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és150Date d'inscriptionsamedi 8 avril 2006StatutMembreDernière intervention 1 mai 20123 27 mai 2006 à 22:52
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és340Date d'inscriptionjeudi 25 juillet 2002StatutMembreDernière intervention25 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és11Date d'inscriptionvendredi 21 juin 2002StatutMembreDernière intervention14 octobre 2005 6 févr. 2004 à 15:06
va voir le site de vbaccelerator.com pour le subclassing !!
shadowmoy
Messages postés340Date d'inscriptionjeudi 25 juillet 2002StatutMembreDernière intervention25 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és340Date d'inscriptionjeudi 25 juillet 2002StatutMembreDernière intervention25 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és340Date d'inscriptionjeudi 25 juillet 2002StatutMembreDernière intervention25 août 2007 19 janv. 2004 à 19:51
je vais essayer de vous pondre un petit sample un peu plus parlant ...
Afyn
Messages postés608Date d'inscriptionsamedi 3 août 2002StatutMembreDernière intervention22 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és340Date d'inscriptionjeudi 25 juillet 2002StatutMembreDernière intervention25 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 ...
13 mars 2009 à 10:38
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
29 mars 2007 à 17:52
27 juin 2006 à 07:43
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
27 mai 2006 à 22:52
Ce prog ne prend pas en compte les If ?
@+
Antho2005
10 mars 2004 à 12:12
COmme quoi ta source est trés utile ;)...
Bonne continuation, akh
8 févr. 2004 à 19:27
6 févr. 2004 à 15:06
20 janv. 2004 à 23:06
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....
20 janv. 2004 à 02:27
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 ...
19 janv. 2004 à 19:51
19 janv. 2004 à 18:03
A+
Afyn - Navedac.
19 janv. 2004 à 00:23