begin process at 2012 02 13 15:23:46
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

VBScript

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

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


 Information sur la source

Note :
8 / 10 - par 3 personnes
8,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :VBScript Niveau :Débutant Date de création :19/01/2004 Date de mise à jour :23/01/2004 23:19:42 Vu / téléchargé :5 577 / 810

Auteur : shadowmoy

Ecrire un message privé
Commentaire sur cette source (12)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
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 ...



 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec une capture VB6/DX7 : EDITEUR DE MODELS 3D (MESH) AVEC SUPPORT DE PLUGIN...
Source avec Zip Source avec une capture DX8 - MILKSHAPE MS3D ASCII ANIMATED MODEL VIEWER BETA 2
Source avec Zip Source avec une capture DEX3D MOTEUR 3D 100% VB AVEC SUPPORT 3DS GOURAUD SHADING ET...
Source avec Zip Source avec une capture DREAMPAPER :: VIDEO EN FOND D'ECRAN V2 (VIDEO WALLPAPER) COM...
Source avec Zip LECTEUR DE FICHIER MILKESHAPE 3D BETA 2 (*.MS3D)

 Sources de la même categorie

Source avec Zip Source avec une capture RECHERCHE & SAUVEGARDE DES FICHIERS PAR LEURS EXTENSIONS par hackoo
Source avec Zip Source avec une capture [VBS] SPLASH SCREEN EN VBSCRIPT par hackoo
Source avec Zip Source avec une capture [VBS] GOOGLE EASTER EGGS par hackoo
Source avec Zip Source avec une capture FILE2COMPARE: COMPARAISON DE DEUX FICHIERS LIGNE PAR LIGNE par hackoo
Source avec Zip Source avec une capture [VBS] COMMENT CRÉER UN DOSSIER ET LE PROTÉGER PAR MOT DE PAS... par hackoo

Commentaires et avis

Commentaire de shadowmoy le 19/01/2004 00:23:30

ah oui ca permet donc d'utiliser des interfaces graphiques (form, textbox etc..) comme vb alors que le vbscript ne le peut pas ...

Commentaire de Afyn le 19/01/2004 18:03:51

Je trouve l'idée sympa, l'utilité et la finalité reste à démonter.
A+
Afyn - Navedac.

Commentaire de shadowmoy le 19/01/2004 19:51:58

je vais essayer de vous pondre un petit sample un peu plus parlant ...

Commentaire de shadowmoy le 20/01/2004 02:27:42

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 ...

Commentaire de shadowmoy le 20/01/2004 23:06:59

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....

Commentaire de harryjc le 06/02/2004 15:06:38

va voir le site de vbaccelerator.com pour le subclassing !!

Commentaire de shadowmoy le 08/02/2004 19:27:35

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 ...

Commentaire de aKheNathOn le 10/03/2004 12:12:17

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

Commentaire de antho2005 le 27/05/2006 22:52:17

Salut,

Ce prog ne prend pas en compte les If ?

@+

Antho2005

Commentaire de PaTaTe le 27/06/2006 07:43:48

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

Commentaire de shadowmoy le 29/03/2007 17:52:50

pour appeller une fonction du programme il faut coder cette fonction dans une classe et exposer la classe a vbscript c tout

Commentaire de attarbya87 le 13/03/2009 10:38:53

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

 Ajouter un commentaire




Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 2,122 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales