1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Divers
  5. Fo virus bug

Fo virus bug

Soyez le premier à donner votre avis sur cette source.

Vue 4 103 fois - Téléchargée 529 fois

Télécharger le projet
Commenter

Description

Voila c pti virus bidon mai ki peut aprendre les Commande
pour fair bouger la souris ... ouvrir le lecteur....

mettez ce code dans une form
puis 2 timer (timer1 & timer2)

Source / Exemple : 


Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Private Type POINTAPI
        x As Long
        y As Long
End Type

Dim fin As Integer  
Dim i As Integer
Dim ret As Long
Dim pos As POINTAPI
Dim posx(0 To 5000) As Integer
Dim posy(0 To 5000) As Integer
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub Timer1_Timer()
posx(i) = Int(Rnd * 1024) 'Bouge la souris
posy(i) = Int(Rnd * 768) 
pos_souris = SetCursorPos(posx(i), posy(i))
i = i + 1

End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode > 0 Then MsgBox "Erreur", vbCritical, "Fatal" If Shift > 0 Then MsgBox "Erreur", vbCritical, "Fatal"
End Sub'envoi se mess si on appui sur une touche du clavier
Function OUVRELECT() ouvre le lect
Dim RETVAL As Long
Dim RString As String
RString = Space$(128)
RETVAL = mciSendString("set CDAudio door open", RString, 128, 0)
End Function

Private Sub Timer2_Timer()
OUVRELECT
End Sub

Conclusion :


C pitetre bidon mai sa peu servir
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
vampire69 Messages postés 2 Date d'inscription mercredi 14 février 2007 Statut Membre Dernière intervention 22 août 2010
22 août 2010 à 12:11
bonjour je n arrive pas a le faire fonctionné.Je suis debutant en programmation.comment faire s il vous plait?j ai VB 2008
VIRUS444 Messages postés 6 Date d'inscription lundi 12 janvier 2004 Statut Membre Dernière intervention 6 février 2005
28 avril 2004 à 21:27
je suis nouveau en vb et je trouve t'as source interesente merci
continue comme ça...
cs_CROQUELUNE Messages postés 7 Date d'inscription dimanche 7 mars 2004 Statut Membre Dernière intervention 21 mai 2004
13 mars 2004 à 11:13
Pas mal ...
cs_NiFF Messages postés 92 Date d'inscription dimanche 2 juin 2002 Statut Membre Dernière intervention 24 juin 2004
23 févr. 2003 à 12:28
si ca a l'air de marcher à vue d'oeuil mais si on est pas en 1024*768 ca marche pas comme prévu. Utilise l'objet screen pour la résolution.
cs_NanoF Messages postés 1 Date d'inscription samedi 11 janvier 2003 Statut Membre Dernière intervention 23 février 2003
23 févr. 2003 à 01:41
En effet si tu le pren comme un virus il sert a rien et je l'ai pas mi pour ca.
Je voi po pourkoi il ferai po se ke g di si se n'est ke kan on appui sur
le clavier il y a un mess d'erreur


Maintenant je suis desolé mai J'appren :-)
Afficher les 6 commentaires
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.