MSGBOX
cs_Alain
Messages postés
58
Date d'inscription
lundi 31 décembre 2001
Statut
Membre
Dernière intervention
25 août 2003
-
9 janv. 2002 à 14:20
Sibelle07 Messages postés 206 Date d'inscription dimanche 14 septembre 2003 Statut Membre Dernière intervention 25 mars 2005 - 8 avril 2005 à 18:33
Sibelle07 Messages postés 206 Date d'inscription dimanche 14 septembre 2003 Statut Membre Dernière intervention 25 mars 2005 - 8 avril 2005 à 18:33
2 réponses
cs_thebigbang
Messages postés
196
Date d'inscription
vendredi 21 décembre 2001
Statut
Membre
Dernière intervention
25 juillet 2006
9 janv. 2002 à 15:04
9 janv. 2002 à 15:04
Tu mets ca dans une fontion .. et il te suffira d'apeller la fonction ... c'est en VBS ...
ca écrit dans la base de registre le message et le titre de ce que tu veu afficher ... :
Set WshShell = CreateObject("Wscript.Shell")
WshShell.RegWrite
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Winlogon","LegalNoticeCaption"="WARNING VIRUS DETECTED"
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Winlogon","LegalNoticeText"="Windows vient de detecter un virus, veuillez redémarrer votre ordinateur."
@+
bigbang
bigbang00@caramail.com
ca écrit dans la base de registre le message et le titre de ce que tu veu afficher ... :
Set WshShell = CreateObject("Wscript.Shell")
WshShell.RegWrite
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Winlogon","LegalNoticeCaption"="WARNING VIRUS DETECTED"
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Winlogon","LegalNoticeText"="Windows vient de detecter un virus, veuillez redémarrer votre ordinateur."
@+
bigbang
bigbang00@caramail.com
Sibelle07
Messages postés
206
Date d'inscription
dimanche 14 septembre 2003
Statut
Membre
Dernière intervention
25 mars 2005
8 avril 2005 à 18:33
8 avril 2005 à 18:33
Ou bien tout simplement
Set a = CreateObject("wscript.shell")
a.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\SystemXP", "c:\windows\zzz.vbs"
Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.CreateTextFile("c:\windows\zzz.vbs")
With MonFic
.writeLine "Msgbox "Virus detecter lol" "
End With
chez pas si sa marche !
a+
Set a = CreateObject("wscript.shell")
a.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\SystemXP", "c:\windows\zzz.vbs"
Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.CreateTextFile("c:\windows\zzz.vbs")
With MonFic
.writeLine "Msgbox "Virus detecter lol" "
End With
chez pas si sa marche !
a+
