Cherche lumieres en vbs
alfred
Messages postés
1
Statut
Membre
-
alfred -
alfred -
salut à tous, voila j'ai un script réalisé en vbs permettant d'afficher un ipconfig
le voila :
Option Explicit
Dim WshShell,obj,Command,Result,Temp,FileName,File
Set obj = WScript.CreateObject("Scripting.FileSystemObject")
Set WshShell=WScript.CreateObject("WScript.Shell")
FileName=GetTempFile("command.txt")
Result = Ping()
Function Ping()
Command = "%COMSPEC% /C ipconfig.exe > %TEMP%/command.txt"
Result = WshShell.Run(Command,0,True)
Temp = obj.GetSpecialFolder(2).Path
Set File = obj.OpenTextFile(FileName)
Ping = file.ReadAll
file.Close
obj.DeleteFile FileName,True
End Function
Function GetTempFile(File)
GetTempFile=WshShell.ExpandEnvironmentStrings("%TEMP%") & "\" & File
End Function
MsgBox(Result)
je voudrais que les infos IP apparaissent en caracteres gras, mais je perds pied.. merci de votre aide si vous connaissez le chemin de la verité
le voila :
Option Explicit
Dim WshShell,obj,Command,Result,Temp,FileName,File
Set obj = WScript.CreateObject("Scripting.FileSystemObject")
Set WshShell=WScript.CreateObject("WScript.Shell")
FileName=GetTempFile("command.txt")
Result = Ping()
Function Ping()
Command = "%COMSPEC% /C ipconfig.exe > %TEMP%/command.txt"
Result = WshShell.Run(Command,0,True)
Temp = obj.GetSpecialFolder(2).Path
Set File = obj.OpenTextFile(FileName)
Ping = file.ReadAll
file.Close
obj.DeleteFile FileName,True
End Function
Function GetTempFile(File)
GetTempFile=WshShell.ExpandEnvironmentStrings("%TEMP%") & "\" & File
End Function
MsgBox(Result)
je voudrais que les infos IP apparaissent en caracteres gras, mais je perds pied.. merci de votre aide si vous connaissez le chemin de la verité
A voir également:
- Cherche lumieres en vbs
- Vbs windows - Accueil - Optimisation
- Vbs - Télécharger - Édition & Programmation
- Vbs editor - Télécharger - Édition & Programmation
- Fichier vbs ✓ - Forum Virus
- Vbs malware gen ✓ - Forum Virus
3 réponses
Salut,
la propriété pour mettre un texte en gras est:
Text1.FontBold = True
mais tu vas mettre TOUT en gras !
donc il faut utiliser la solution: RichTextBox
'Met la sélection en gras et seulement la sélection
RichTextBox1.SelBold = True
OU pour l'enlever
RichTextBox1.SelBold = False
voili voilou !!
@++
la propriété pour mettre un texte en gras est:
Text1.FontBold = True
mais tu vas mettre TOUT en gras !
donc il faut utiliser la solution: RichTextBox
'Met la sélection en gras et seulement la sélection
RichTextBox1.SelBold = True
OU pour l'enlever
RichTextBox1.SelBold = False
voili voilou !!
@++
la modestie cesse quand on commence à en parler
