1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74
| <HTML>
<HEAD>
<TITLE> Menu Principal </TITLE>
<HTA:APPLICATION
ID="Personalisation"
APPLICATIONNAME="Personalisation"
SCROLL="no"
SINGLEINSTANCE="yes"
WINDOWSTATE = "normal"
CAPTION="yes"
MAXIMIZEBUTTON="NO"
>
<!-- ----- dans le HEAD pour dimessionner et placer avant d'être visible ----- -->
<SCRIPT language="VBScript" type="text/vbscript">ResizeTo 288,334: MoveTo (Screen.Width-288)/2,(Screen.Height - 334) / 2</SCRIPT>
</HEAD>
<!-- ------------------------------------------------------------------------------------------------------------------------------ -->
<SCRIPT language="VBScript">
'----------------------------------------------------------------------------------------------------------------------
'Déclarations utilisables dans toute la partie VBScript
Dim DossierRacineDuProg
Dim C1, C2, C3, C4
'----------------------------------------------------------------------------------------------------------------------
Sub Window_Onload()
Dim ChemNomComplet
ChemNomComplet = Personalisation.CommandLine ' ChemNomComplet = Id du programme.CommandLine
DossierRacineDuProg = Left(ChemNomComplet, (InStrRev(ChemNomComplet, "\", -1, vbTextCompare)))
DossierRacineDuProg = Replace(DossierRacineDuProg,Chr(34),"")
Const ForReading = 1
Dim FichierINI
FichierINI = DossierRacineDuProg & "Config.ini"
Dim FSO, oFich, ContenuFichierIni
Set FSO = CreateObject("Scripting.FileSystemObject")
Set oFich = FSO.OpenTextFile(FichierINI, ForReading)
ContenuFichierIni = oFich.ReadAll
oFich.Close
Set FSO = Nothing
C1 = FindParams("Chem1", ContenuFichierIni)
C2 = FindParams("Serveur", ContenuFichierIni)
C3 = FindParams("Version", ContenuFichierIni)
C4 = FindParams("Install", ContenuFichierIni)
' pour la demo
MsgBox "Valeur de C1 ---> " & C1 & vbNewLine & "Valeur de C2 ---> " & C2 & vbNewLine & "Valeur de C3 ---> " & C3 & vbNewLine & "Valeur de C4 ---> " & C4
End Sub
'---------------------------------------------- Fonction de recherche : ---------------------------------------------------------
Function FindParams(BaliseRechercher, Dans)
Dim PosDeb, PosFin
PosDeb = InStr(1, Dans, BaliseRechercher, vbBinaryCompare)
If PosDeb <> 0 Then
PosDeb = PosDeb + Len(BaliseRechercher) + 1
PosFin = InStr(PosDeb, Dans, vbNewLine, vbTextCompare) - 2
If PosFin = 0 Then
PosFin = Len(Dans)
Else
PosFin = PosFin + 1
End If
FindParams = Mid(Dans, PosDeb, (PosFin - PosDeb) + 1)
End If
End Function
'---------------------------------------------- Sub DemoShell : ---------------------------------------------------------
Sub DemoShell()
MsgBox C1 & "Memory.vbs"
'Dim objShell
'Set objShell = CreateObject("Wscript.Shell")
'objShell.Run C1 & "Memory.vbs"
'Set WSH= nothing
End Sub
</SCRIPT>
<!-- ------------------------------------------------------------------------------------------------------------------------------ -->
<body style="font-family:MS Sans Serif, Arial, Verdana, serif; font-size=10px; font-weight:bold; background-color:#DDFFA8" >
<Input Type="button" Value="Verifier le Shell" id="BtEssais" onClick="DemoShell"
style="position:absolute; left:4px; top:0px; height:22px; width:130px;
font-family:MS Sans Serif, Arial, Verdana, serif; font-size=10px; Color:#000000 ">
</Body>
</HTML> |
Partager