ASTUCES-INFOS PRATIQUES WINDOWS

premierement : y en a qui diront que c'est du script kiddies ou des trucs pour lamerz,mais moi quand jai
commencé le vb et je voyais des trucs comme ca , c'était vraiment wow ^^,donc c'est fait pour les noobs .
je fais ce petit tutorial visual basic qui couvrera quelques fonctions
interessantes pour faire un trojan ou un faux virus , j'expliquerais aussi
dans ce tutorial comment utiliser les shell et à quoi ca sert , vu que
c'est l'une de mes commandes adorées, aussi vous saurez comment utilisez
les apis anime

... bonne lecture .

1-inverser les bouttons de la souris avec une fonction API :
--------qu'est ce qu'un API--------

Les API - Application Programming Interface - sont des fonctions qui
vous ouvrent l'accès aux nombreuses fonctions de Windows afin de
le controler parfaitement.il existe plusieurs sortes d'apis en voila une grande
liste : http://docvb.free.fr/api.php

-------comment utiliser un API------
pour utiliser un api c'est assez simple , vous declarer l'api
et vous le rappellez dans votre form quand vous en avez besoin .exemple
pour la position du curseur :

Private Declare Function GetCursorPos Lib "user32" _
(lpPoint As PointAPI) As Long ' declaration de l'api anime

simple non?

Private Type PointAPI
x As Long
y As Long
End Type

Private Sub Form_Load()
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
Dim Tampon As PointAPI
GetCursorPos Tampon
Form1.Caption = "Mouse Position : " & Tampon.x & "-" & Tampon.y
End Sub
---------------l'api pour inverser les bouttons---------

bon alors vous créé un module anime

: cliquez sur le projet>>add>>module
et vous mettez le code suivant dans le module :
Declare Function SwapMouseButton& Lib "user32" (ByVal bSwap As Long)
dans votre form mettez deux commandbutton dans le premier vous mettez :
SwapMouseButton True
et adns le deuxieme :
SwapMouseButton false

,et voila si vous cliquez sur le premier boutton les bouttons sont inverses,par contre si vous
clickez sur le deuxieme boutton bah il redevienne normaux anime

) cool non? surtt pr les noobs.
les autres api s'utilisent de la meme facon anime

vous pourrez en faire beacoup de chose .
--------
----------affoler la souris------------

la on va affoler la souris elle va bouger dans tout les sens ( lol j'arrete pas avec ces smylies)
donc voila assez simple le code est utile anime

mettez un timer sur la form :
'd'abord les apis
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Declare Function SetCursorPos& Lib "user32" (ByVal x As Long, ByVal y As Long)
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long ' ca cest les positions du curseur X anime

y As Long ' ca cest les positions du curseur Y anime

End Type
Option Explicit
Dim a As Integer
Dim b As Integer

Private Sub Timer1_Timer()
Randomize Timer
a = Int((Rnd * 1024) + 1)
b = Int((Rnd * 768) + 1)
SetCursorPos a, b
End Sub

aussi simple que le premmier non?
---

----------------les shell,et comment blocker le clavier ou la souris ----------

bon ben les shell c'est simple et c'est cool. Cela vous suffit pas? ok.
explications: le shell ca sert à chercher un programme sur ton pc et l'executer ,avec ca vous pourrez
comprendre qu'on peut meme arriver a modifier la base de registre (niak niak niak anime

) .
bon alors voila la structure du shell :
shell "le path du prog"
donc pour blocker le clavier on fait ca :
Shell "rundll32 keyboard,disable"
et pour la souris : mouse :
Shell "rundll32 mouse,disable"
simple non?
bon ok un autre exemple ,pour faire la redirection vers un site , bah on va aller sur internet explorer et
l'ouvrir simple aussi non?
voila voilou les fainéant vous faites rien tout seul anime

:

Shell ("C:\program files\internet explorer\iexplore www.wariorz.com"), 1
voila ci fini les programmeurs anime

alors? cetait comment? j'attend vos commentaires et vos questions anime

))