Mini vb (ajouter des fonctions "macros" a votre appli via le vbscript)

Soyez le premier à donner votre avis sur cette source.

Vue 6 650 fois - Téléchargée 922 fois

Description

voila en gros ca montre les bases pour exposer une appli vb a vbscript et rendre son appli scriptable ....

dans le sample :

- 1 bouton command1 exposé
- la form principale
- une classe vb (je montrerais comment on peut via des plugins dll/activex, ajouter des fonctions a une appli compilée pour pousser un peu l'exposition des classe pour par exemple acceder a des api ou de simples classes vb

- une classe vbscript
- 2 modules vbscript
- une gestion sommaire des erreurs

imaginez un peu : on pourrait tres bien faire une ide pour un langage vbscript evolué utilisant des dll activex et un exe standart et rendre le vbscript "pseudo-compilé". (on a deja un debut de property window hehe )

quel interet ?
1- ca serait gratuit
2- ca permettrait a plus de coders de coder du vb
3- ca permettrait de faire evouler le vbscript vers vb (bien que ca ne seras jamais aussi rapide)
4- de faire des mini appli pour les besoins simples facilement et gratuitement
5- et de laisser votre imagination pour trouver d'autres utilitées ...

Ajout de fonctions, constantes a vbscript + la possibilitée de loader des controls dans le code un peut comme dans vb quand on fait VB.Controls.Add ...

Voir l'exemple de code avec la fonction AddObject(...) dans le script vbs

dites moi ce que vous en pensez ...

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

attarbya87
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
shadowmoy
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
cs_PaTaTe
Messages postés
1878
Date d'inscription
mercredi 21 août 2002
Statut
Contributeur
Dernière intervention
7 janvier 2019
-
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
153
Date d'inscription
samedi 8 avril 2006
Statut
Membre
Dernière intervention
1 mai 2012
1 -
Salut,

Ce prog ne prend pas en compte les If ?

@+

Antho2005
aKheNathOn
Messages postés
285
Date d'inscription
dimanche 22 juillet 2001
Statut
Modérateur
Dernière intervention
5 décembre 2013
-
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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.