Questions VBScriptRésolu

Question

Trois Question :

1) Salut a vous S.V.P. AIDEZ MOI???????????????

    Salut, Est-il possible de mettre une API en VBSCRIPT 'SetCursorPos' ou autre

       S.V.P. si vous etes capable me decrire
la maniere si elle existe ou bien me donner un lien, Je debute en VB



2)  Acceder a une Base de donn&#233;es MySQL en VBSCRIPT, cela est
possible mais je ne comprend pas comment faire pouvez-vous m'aider
aussi sur se point. S.V.P.



3) Merci Beaucoup de vos R&#233;ponse en avnce je les attend avec impatience!!!!!!!!!!!



A la prochaine et Encore MERCI A VOUS!!!!!

SR_007

rvblog · Accepted Answer

Salut à tous, à cette question, il me semble qu'on peut répondre clairement : non! Si 9517 JMO ruse autant, ce n'est pas juste pour la figure de style, c'est du rationnel. =430956 SR_007, regardes là : au cas où ça ne marche pas, là : http://www.jalix.org/ressources/internet/asp/_vbscript/html/vbs230.htm et cherche la ligne où se trouve declare (en colonne gauche) à+ rvblogn ^{Je veux ton bien... et je l'aurais... mais jamais avant la page 4}

asecher · Answer

Je n'ai pas d'exemples sous la main, mais voici un site qui, pour moi, est une r&#233;f&#233;rence : http://jc.bellamy.free.fr/fr/jcb.html

Sur son site, tu trouve de plus des liens vers les pages de r&#233;f&#233;rences de vbs chez Microsoft.

Cordialement,

Alain 31

ScSami · Answer

Wai, sauf que l&#224; c'est n'importe quoi !!!
Je m'explique :
Si tu veux faire un site Internet interactif ouvert au grand public, oublie tout de suite l'id&#233;e ridicule d'utiliser le VBS et encore plus celle de faire appel aux APIs ! Pourquoi ? D&#233;j&#224;, tout simplement, parce que le Web DOIT &#234;tre accessible A TOUS (et ce n'est pas qui le dit... C'est le W3C !). Or, pour info, Internet Explorer n'est pas le seul navigateur et je dirais m&#234;me, perso, que c'est une grosse daube qui pue &#224; 100 m&#232;tres &#224; la ronde ! Ensuite, parce que Windows (et donc ses APIs qui le constitue) n'est pas non plus le seul syst&#232;me et idem (mais pour 100 Km cet fois!).
Autrement dit, d&#233;j&#224;, utiliser des scripts en mati&#232;re de web-design &#231;a craint, mais si en plus tu n'utilises pas le JavaScript, c'est m&#234;me pas la peine (ou du moins, pour nuancer mon br&#251;lot, si tu ne pr&#233;vois pas d'alternatives &#224; l'utilisateur finale [qui peut &#234;tre n'importe qui : un mal-voyant, un handicap&#233; moteur, ...]).

Enjoy 

<hr size="2" width="100%">
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e". )

SR_007 · Answer

ScSami

Salut, je sais qu'on ne peut pas avoir d'API sur internet, qu'il existe
plusieurs systeme d'exploitation et je n'utilise IE. en fait ses sur
windows que je veux mon script ses juste pour avoir des script efficace
sur mon PC donc personnel.

Merci asecher!!!! Je vais regarder.





SR_007

OneHacker · Answer

Bien s&#251;r que csi qu'on peut avoir d'API sur internet.

Redman

SR_007 · Answer

One Hacker je ne comprend pas se ne serai pas securitaire d'avoir des api sur internet

de plus se ne serait pas compatibles avec tous les OS


SR_007

OneHacker · Answer

Ben pratiquement tout les "grands" sites ont des apis par exemple quand sur IE tu fais Favoris->Liens->Hotmail tu vois que c'est une API qui renvoie &#224; la bonne adresses, et les API Web n'ont pas &#224; &#234;tre compatible par l'ordinateur mais par leur serveur donc dans tout les cas ca marche pour un visiteur.

C'est diff&#233;rent que sur l'ordinateur (local).

Redman

ScSami · Answer

Non mais ne m&#233;langeons pas ch&#232;vre et chou !!! On sait bien qu'il y a des API sur les serveurs mais je pense qu'en l'occurence la question &#233;tait d'utiliser les API du client via VBScript !

Mais dit moi, as-tu fait, tout simplement, un test ???
Normalement, je pense que le VBS doit pouvoir utiliser des API de la m&#234;me mani&#232;re qu'en VB6 non !?

Enjoy 

<hr size="2" width="100%">
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e". )

OneHacker · Answer

Je ne sais pas.

Redman

rvblog · Answer

Salut 430956 SR_007, salut =182298 asecher, salut 395557 OneHacker, et salut =46796 ScSami 46796 ScSami, j'interviens juste pour te dire, que c'est bien, quand on est jeune, de s'affirmer, et d'avoir un avis sur tout. Mais quand on ne sait pas de quoi on parle, on peut parler plus précautionneusement. Si tu ne sais "Mais dit moi, as-tu fait, tout simplement, un test ??? Normalement, je pense que le VBS doit pouvoir utiliser des API de la même manière qu'en VB6 non !?", de quoi parles-tu exactement? de ton sentiment ? et bien, on est ravi! de tes propres tests ? et bien, on est déçu! à ta 1ère réponse, =430956 SR_007 n'avait même pas parlé de navigateur ! à ta 2ème intervention, tu n'as même pas lu sa réponse! enfin, dès le début, 430956 SR_007 a dit qu'il était débutant en VB. C'est pas comme ça qu'on accueille un débutant (je le pense, en tout cas)! En plus, il débute en VB, pas en JavaScript (on est bien sur VBFrance, non? je demande parce que je n'ai pas testé :) )! Rassures-toi =430956 SR_007, tout le monde n'est pas comme ça sur ce site! 182298 asecher et =395557 OneHacker en sont la preuve! Et même moi, sur ce coup là, je ne donne pas l'exemple! enfin bon, sans rancune pour moi ScSami, et toi? à + rvblogn^{Je veux ton bien... et je l'aurais... mais jamais avant la page 4}

cs_JMO · Answer

Bonsoir,

'Exemple d'utilisation d'API en VBS.

'----------------------------------------------------------
Set sh = WScript.CreateObject("WScript.Shell") 
on error resume next
sh.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel\Security\accessVBOM",1,"REG_DWORD"
on error goto 0

Set exl = WScript.CreateObject("excel.Application") 
exl.Visible = false
set fichxl=exl.workbooks.add

Set mdle = fichxl.VBProject.VBComponents.Add(1)

num=0
num=num+1:mdle.CodeModule.InsertLines num, "Declare Function GetDC Lib ""user32"" (ByVal hwnd As Long) As Long"
num=num+1:mdle.CodeModule.InsertLines num, "Declare Function TextOut Lib ""gdi32"" Alias ""TextOutA"" ( _ "
num=num+1:mdle.CodeModule.InsertLines num, "     ByVal hdc As Long, _ "
num=num+1:mdle.CodeModule.InsertLines num, "ByVal x As Long, _ "
num=num+1:mdle.CodeModule.InsertLines num, "ByVal y As Long, _ "
num=num+1:mdle.CodeModule.InsertLines num, "ByVal lpString As String, _ "
num=num+1:mdle.CodeModule.InsertLines num, "ByVal nCount As Long) As Long"
num=num+1:mdle.CodeModule.InsertLines num, "Declare Function SetTextColor Lib ""gdi32"" ( _ "
num=num+1:mdle.CodeModule.InsertLines num, "ByVal hdc As Long, _ "
num=num+1:mdle.CodeModule.InsertLines num, "ByVal crColor As Long) As Long" 
num=num+1:mdle.CodeModule.InsertLines num, "Declare Function SetBkMode Lib ""gdi32"" ( _ "
num=num+1:mdle.CodeModule.InsertLines num, "ByVal hdc As Long, _ "
num=num+1:mdle.CodeModule.InsertLines num, "ByVal nBkMode As Long) As Long" 
num=num+1:mdle.CodeModule.InsertLines num, "Declare Function SetRect Lib ""user32"" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long"
num=num+1:mdle.CodeModule.InsertLines num, "Declare Function DrawText Lib ""user32"" Alias ""DrawTextA"" (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long"
num=num+1:mdle.CodeModule.InsertLines num, "Private Type RECT"
num=num+1:mdle.CodeModule.InsertLines num, "    Left As Long"
num=num+1:mdle.CodeModule.InsertLines num, "    Top As Long"
num=num+1:mdle.CodeModule.InsertLines num, "    Right As Long"
num=num+1:mdle.CodeModule.InsertLines num, "    Bottom As Long"
num=num+1:mdle.CodeModule.InsertLines num, "End Type"

num=num+1:mdle.CodeModule.InsertLines num, "Sub ecriture_en_rouge_sur_fond_transparent()" 
num=num+1:mdle.CodeModule.InsertLines num, "Dim rct As RECT"
num=num+1:mdle.CodeModule.InsertLines num, "fen = GetDC(0)" 
num=num+1:mdle.CodeModule.InsertLines num, "SetRect rct, 250, 250, 500, 500"
num=num+1:mdle.CodeModule.InsertLines num, "Call SetBkMode(fen, 1) "
num=num+1:mdle.CodeModule.InsertLines num, "Call SetTextColor(fen, vbRed)" 
num=num+1:mdle.CodeModule.InsertLines num, "txt = ""Avec les fonctions API, on peut écrire n'importe où sur l'écran. On peut utiliser les API en VBScript en les lançant sous VBA Excel""" 
num=num+1:mdle.CodeModule.InsertLines num, "Call DrawText(fen, txt, Len(txt), rct, &H10)"
num=num+1:mdle.CodeModule.InsertLines num, "End Sub" 

exl.Run "ecriture_en_rouge_sur_fond_transparent"
fichxl.close(false)
exl.quit

Set fichxl=nothing
set mdle=nothing
set exl=nothing
set sh=Nothing
'----------------------------------------------------------
'Question: SetCursorPos sert-il pour créer un raccourci.
'Si oui, j'ai des exemples en VBS.

'jean-marc

ScSami · Answer

Mon cher RVBLog,
Je ne comprends pas le proc&#232;s que tu me fais l&#224; !!!
Je ne vois pas en quoi j'ai "mal re&#231;u" ce d&#233;butant, faut m'expliquer (encore que) !!!

De plus, si tu n'as pas trouv&#233; mon intervention pertinente, je remarque que la tienne ne l'ai pas plus (sans rancune, &#233;videmment) !

Quant &#224; l'age, je passe sur cette conception, &#224; mon sens, bas&#233;e sur un apriorisme malsain - sans vouloir t'offenser (c'est juste mon point de vue !).

Concernant ma question, ce n'est pas &#224; moi de faire le test mais bien &#224; lui. Et aussi &#224; lui de nous livrer ses conclusions : communaut&#233; oblige ! Mais je l'ai pos&#233;e car &#224; mon sens il n'y a pas grande diff&#233;rence en la mati&#232;re (entre VBS, VBA et VB) d'o&#249; ma supputation (ou ma subodoration si tu pr&#233;f&#232;res!).

Pour finir, toujours sans rancune, je trouve mal venu tes remarques &#224; mon propos d&#233;j&#224; par ton anciennet&#233; dans la communaut&#233; face &#224; la mienne... Enfin, je veux pas pol&#233;miquer : on est ici pour aider du mieux que l'on peut (n'est-ce pas).

Bref, bon coding &#224; tous et surtout... sans rancune   (le prends pas mal hein)

Enjoy 

<hr size="2" width="100%">
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e". )

asecher · Answer

JMO est un petit vicieux 

Utiliser excel &#224; partir de VBS pour appeler une API, c'est pas mal....
Mais, au fait, une API doit &#234;tre un objet comme un autre qui doit "publier" ses propri&#233;t&#233;s et fonctions.

Set MonAPI = WScript.CreateObject("c:\....\USER32.EXE")

Non  

Alain 31

cs_JMO · Answer

Bonsoir,

Non, Alain,
La question était :
Est-il possible de mettre une API en VBSCRIPT ???

Sur me même principe, pour dessiner des bulles:

Set sh = WScript.CreateObject("WScript.Shell") 
on error resume next
sh.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel\Security\accessVBOM",1,"REG_DWORD"
on error goto 0

Set exl = WScript.CreateObject("excel.Application") 
exl.Visible = false
set fichxl=exl.workbooks.add

Set mdle = fichxl.VBProject.VBComponents.Add(1)
mdle.CodeModule.InsertLines 1, "Declare Function GetWindowDC Lib ""user32"" (ByVal hwnd As Long) As Long"
mdle.CodeModule.InsertLines 2, "Declare Function Ellipse Lib ""gdi32"" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long"
mdle.CodeModule.InsertLines 3, "Declare Sub Sleep Lib ""kernel32"" (ByVal dwMilliseconds As Long)"
mdle.CodeModule.InsertLines 4, "Sub bulles()"
mdle.CodeModule.InsertLines 5, "For num = 1 To 1000"
mdle.CodeModule.InsertLines 6, "xx = 1000 * Rnd()"
mdle.CodeModule.InsertLines 7, "yy = xx * Rnd()"
mdle.CodeModule.InsertLines 8, "diam = 100 * Rnd"
mdle.CodeModule.InsertLines 9, "Ellipse GetWindowDC(0), xx, yy, xx + diam, yy + diam"
mdle.CodeModule.InsertLines 10, "Sleep 20"
mdle.CodeModule.InsertLines 11, "Next"
mdle.CodeModule.InsertLines 12, "End Sub"
exl.Run "bulles"
fichxl.close(false)
exl.quit

Set fichxl=nothing
set mdle=nothing
set exl=nothing
set sh=nothing

C'est une réponse language VBS.

asecher · Answer

R&#233;ponse &#224; Jean-Marc,

Bon, je suis un petit peu bourin, mais "Mettre une API en VBScript", pour moi, &#231;a veux plut&#244;t dire instancier (comme tu le fais dans le module VBA que tu cr&#233;e dans Excel par le Declare Function... dans Excel, donc instanci&#233; dans Excel et non pas dans VBS) dans VBS (je sais, j'ai tendance &#224; mettre un peu trop de choses dans mes parenth&#232;ses) (et &#224; mettre plein de parenth&#232;ses).
Bref, je vois plut&#244;t la question comme :
Peut-on faire "Declare Function ...." dans un script VBS ?

J'ai pas de r&#233;ponse mais &#231;a me titille....

Cordialement,

Alain 31

SR_007 · Answer

Merci asecher c'est exactement un '''Declare fonction''' que je veux savoir si sa marche et SetCursorPos sert a mettre le cursior a tel place en pixel sur l'ecran
et non a faire un raccourci et je ne veux pas utiliser MS Excel je veux le mettre direct dans mon code comme dans un module VBA, VB6, etc... ou une form sa depend

SR_007

SR_007 · Answer

Merci beaucoup rvblog de m'avoir repondu et merci aux autres de m'avoir eclairer sur le sujet

SR_007

Questions VBScript

17 réponses

Discussions similaires