[EXCLU!] Tuto | Réaliser un Skype Quote Generator!

Albert Einstein

Albert Einstein

E = MC²
Premium
Inscription
2 Août 2013
Messages
1 936
Réactions
751
Points
10 316
RGCoins
25
Avant tout, je tient à préciser que le code est à utilisation privée. En gros, n'allez pas publier un logiciel "Skype Quote Maker" en publique, merci.

Etape 1: Les éléments.
Il vous suffit de mettre, comme vous le souhaitez:
  • 4 Texteboxs: username, username_complete, quoteText, TimeText.
  • 1 Bouton: Pour copier dans le presse papier la quote.
Etape2: Le code.

De un, copiez ceci à l'interieur du code:
Code:
Public Sub New()
Me.InitializeComponent()
Me.TimeText.Text = DateTime.Now.ToString(Me.TimeText.FormatProvider)
End Sub
Ensuite, Importez ceci (Au dessus de Form1):
Code:
Imports System
Imports System.ComponentModel
Imports System.Drawing
Imports System.Globalization
Imports System.IO
Imports System.Text
Imports System.Windows.Forms
Ensuite,
Code:
Private Shared Epoch As DateTime = New DateTime(1500, 1, 1, 0, 0, 0, 0, DateTimeKind.Utc)
Tout va bien, maintenant, dans votre bouton de copier dans le presse papier, on va déclarer les quelques variables.
Code:
Dim dateTime As DateTime = dateTime.Parse(Me.TimeText.Text, Me.TimeText.Culture, DateTimeStyles.AssumeLocal)
Dim timeSpan As TimeSpan = dateTime.ToUniversalTime() - Form1.Epoch
Dim dataObject As DataObject = New DataObject()
Dim data As String = String.Format("[{0:hh:mm:ss}] {1}: {2}", dateTime, Me.Username_Complete.Text, Me.QuoteText.Text)

dataTime: Le format de date de Skype, que l'on 'assemble'.
dataObject: Un object. Ca va être la quote, mais on va associer des 'datas', pour que Skype le prenne sous forme de quote et non de script.
data: Le format affichage de la quote: "[12:14:45] XR@nderGame: Salut!", par exemple.
s: Le script de la quote.

Désormais, on va associer des datas, pour que Skype comprennent l'affichage de la quote (
Vous devez être inscrit pour voir les liens ! Inscrivez-vous ou connectez-vous ici.
).
Code:
dataObject.SetData("System.String", data)
dataObject.SetData("UnicodeText", data)
dataObject.SetData("Text", data)
dataObject.SetData("SkypeMessageFragment", New MemoryStream(Encoding.UTF8.GetBytes(s)))
dataObject.SetData("Locale", New MemoryStream(BitConverter.GetBytes(CultureInfo.CurrentCulture.LCID)))
dataObject.SetData("OEMText", data)
Et maintenant, on va copier ça dans le presse-papier:
Code:
Clipboard.SetDataObject(dataObject, True)

Vla, j'espere que ça vous aura plu, et bye!
 
Sa sert a quoi exactement ?
 
Mais c'est quoi !??
 
C'est en aucun cas une exclu, t'as juste copier le titre d'un thread sur HF puis t'as pris le code de la source :rofl:
 
Retour
Haut