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
... 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
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
: 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
) cool non? surtt pr les noobs.
les autres api s'utilisent de la meme facon
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
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
y As Long ' ca cest les positions du curseur Y
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
) .
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
:
Shell ("C:\program files\internet explorer\iexplore www.wariorz.com"), 1
voila ci fini les programmeurs
alors? cetait comment? j'attend vos commentaires et vos questions
))