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 3 960 fois - Téléchargée 522 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

Signaler
Messages postés
2
Date d'inscription
mercredi 14 février 2007
Statut
Membre
Dernière intervention
22 août 2010
bonjour je n arrive pas a le faire fonctionné.Je suis debutant en programmation.comment faire s il vous plait?j ai VB 2008
Signaler
Messages postés
6
Date d'inscription
lundi 12 janvier 2004
Statut
Membre
Dernière intervention
6 février 2005
je suis nouveau en vb et je trouve t'as source interesente merci
continue comme ça...
Signaler
Messages postés
7
Date d'inscription
dimanche 7 mars 2004
Statut
Membre
Dernière intervention
21 mai 2004
Pas mal ...
Signaler
Messages postés
92
Date d'inscription
dimanche 2 juin 2002
Statut
Membre
Dernière intervention
24 juin 2004
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.
Signaler
Messages postés
1
Date d'inscription
samedi 11 janvier 2003
Statut
Membre
Dernière intervention
23 février 2003
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.