Apprendre le Hack Index du Forum
Apprendre le Hack

 
Apprendre le Hack Index du ForumFAQRechercherS’enregistrerConnexion

:: [Tuto]Obliger une personne à payer pour utiliser votre programme VB.net ::

 
Poster un nouveau sujet   Répondre au sujet    Apprendre le Hack Index du Forum -> A trié
Sujet précédent :: Sujet suivant  
Auteur Message
Inf3rnus
Administrateur

Hors ligne

Inscrit le: 22 Aoû 2011
Messages: 196

MessagePosté le: Dim 11 Déc - 10:44 (2011)    Sujet du message: [Tuto]Obliger une personne à payer pour utiliser votre programme VB.net Répondre en citant

Comment obliger un utilisateur à payer un starpass ou via paypal pour obtenir le droit d'utiliser votre programme.

C'est super simple vous créer une Form1, dedans vous mettez:

une textbox
trois boutons

Mettez start dans le bouton1 et dedans une condition, si le serial de la textbox ne correspond pas fermer le programme sinon lancer la Form2.

Ensuite un bouton2(facultatif) qui sera quitter.

Et le bouton 3 qui lancera Form3 qui contiendra une webbrowser qui dans les propriétés aura l'url de votre starpass ou paypal avec une redirection ou un envois de mail avec le serial une fois le payement reçu.





  1. Public Class Form1  
  2.     Private Const AW_BLEND = &H80000  
  3.     Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Int32, ByVal dwTime As Int32, ByVal dwFlags As Int32) As Boolean  
  4.     Dim winHide As Integer = &H10000  
  5.     Dim winBlend As Integer = &H80000  
  6.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
  7.         If TextBox1.Text = "le-super-serial-payant" Then  
  8.             Form2.Show()  
  9.             Me.Visible = False  
  10.             Form2.Visible = True  
  11.         Else  
  12.             MsgBox("Le sérial est incorrect")  
  13.             Close()  
  14.         End If  
  15.     End Sub  
  16.   
  17.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click  
  18.         AnimateWindow(Me.Handle.ToInt32, CInt(1500), winHide Or winBlend)  
  19.         Me.Close()  
  20.     End Sub  
  21.   
  22.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click  
  23.         Form3.Show()  
  24.     End Sub  
  25. End Class  




_________________


Pour que le client n'est qu'as le rentrer qu'une seule fois... Et qu'il s'enregistre sur son pc. Il faut l'écrire dans le registre un HWID   moins poussé..


Revenir en haut
Publicité






MessagePosté le: Dim 11 Déc - 10:44 (2011)    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet    Apprendre le Hack Index du Forum -> A trié Toutes les heures sont au format GMT + 2 Heures
Page 1 sur 1

 
Sauter vers:  




Index | creer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com