AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 11 10:50:45
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

17 commentaire(s) de christian_grandjean sur des sources sur tout CodeS-SourceS

Le : 18/06/2009 17:28:39
Source : CONTRÔLER OUTLOOK 2003 - ENVOYER UN MAIL DEPUIS VB.NET 2005
Heuhh ce code ne fonctionne que avec VB.NET pas avec VB6, j'ai pas testé sous VB6.

Le : 18/06/2009 14:43:11
Source : CONTRÔLER OUTLOOK 2003 - ENVOYER UN MAIL DEPUIS VB.NET 2005
Je viens de faire exactement copier coller du contenu + ajouter la référence "Microsoft.Office.Interop.Outlook 12.0.0.0" et ça fonctionne au poil avec mon Studio.NET 2008.
Je ne sais plus quoi te dire pour t'aider, désolé.

Le : 18/06/2009 13:43:35
Source : CONTRÔLER OUTLOOK 2003 - ENVOYER UN MAIL DEPUIS VB.NET 2005
Bonjour
Avez-vous bien ajouté la référence dans les références COM
==> Microsoft Office 11 Object Library
Propriété de l'application ==> Références ==> Ajouter

Le : 17/06/2009 08:54:36
Source : CONTRÔLER OUTLOOK 2003 - ENVOYER UN MAIL DEPUIS VB.NET 2005
Bonjour
As-tu essayé d'installer la partie programmation dans le setup de ton Office ? Je sais plus ou c'est mais relance le setup il me semble que c'est dans les composants additionnels.

@CEREAL
http://www.simple-tech.info

Le : 11/01/2009 10:54:34
Source : UN ZOLI P'TIT SONDAGE
il manque le sondage.webform1, il faudrait mettre à jour le fichier zip SVP.

Le : 24/07/2008 09:29:30
Source : RC4 ENCRYPT/DECRYPT FONCTION
Bonjour à tous, j'ai corrigé le code en mettant des types aux variables mais toujours pas de commentaires pas eu le temps de complèter.

'
' http://www.vbfrance.com/code.aspx?ID=41581
'
Module RC4EncryptDecrypt
    Public Function RC4Encrypt(ByVal text As String, ByVal encryptkey As String) As String
        Dim sbox(256) As Integer
        Dim key(256) As Integer
        Dim temp As Integer
        Dim a As Long
        Dim i As Integer
        Dim j As Integer
        Dim k As Integer
        Dim cipherby As Integer
        Dim cipher As String = String.Empty

        i = 0
        j = 0

        RC4Initialize(encryptkey, key, sbox)

        For a = 1 To Len(text)
            i = (i + 1) Mod 256
            j = (j + sbox(i)) Mod 256
            temp = sbox(i)
            sbox(i) = sbox(j)
            sbox(j) = temp
            k = sbox((sbox(i) + sbox(j)) Mod 256)
            cipherby = (Asc(Mid$(text, a, 1))) Xor k
            If Len(Hex(cipherby)) = 1 Then
                cipher = cipher & "0" & Hex(cipherby)
            Else
                cipher = cipher & Hex(cipherby)
            End If
        Next
        Return cipher
    End Function

    Public Function RC4Decrypt(ByVal text, ByVal encryptkey) As String
        Dim sbox(256) As Integer
        Dim key(256) As Integer
        Dim Text2 As String = String.Empty
        Dim temp As Integer
        Dim a As Long
        Dim i As Integer
        Dim j As Integer
        Dim k As Integer
        Dim cipherby As Integer
        Dim cipher As String = String.Empty

        For w = 1 To Len(text) Step 2
            Text2 = Text2 & Chr(Dec(Mid$(text, w, 2)))
        Next

        i = 0
        j = 0
        RC4Initialize(encryptkey, key, sbox)
        For a = 1 To Len(Text2)
            i = (i + 1) Mod 256
            j = (j + sbox(i)) Mod 256
            temp = sbox(i)
            sbox(i) = sbox(j)
            sbox(j) = temp
            k = sbox((sbox(i) + sbox(j)) Mod 256)
            cipherby = Asc(Mid$(Text2, a, 1)) Xor k
            cipher = cipher & Chr(cipherby)
        Next

        Return cipher
    End Function

    Public Sub RC4Initialize(ByVal strPwd, ByRef key, ByRef sbox)
        Dim tempSwap As Integer
        Dim a As Integer
        Dim b As Integer
        Dim intlength As Integer
        intlength = Len(strPwd)

        For a = 0 To 255
            key(a) = Asc(Mid$(strPwd, a Mod intlength + 1, 1))
            sbox(a) = a
        Next
        b = 0
        For a = 0 To 255
            b = (b + sbox(a) + key(a)) Mod 256
            tempSwap = sbox(a)
            sbox(a) = sbox(b)
            sbox(b) = tempSwap
        Next

    End Sub

    Public Function Dec(ByVal number) As String
        Dim base As String
        Dim iLen As Integer
        Dim iReturn As Long
        Dim iTemp As String

        base = "0123456789ABCDEF"
        iLen = Len(number)

        For i = 0 To iLen - 1
            iTemp = Mid$(number, iLen - i, 1)
            iReturn = iReturn + (16 ^ i) * (InStr(1, base, iTemp) - 1)
        Next

        Return iReturn
    End Function
End Module

Le : 11/03/2008 15:44:30
Source : APPLICATION AUTO UPDATE IN VB.NET
Réponse Commentaire de Elxior le 08/07/2007 03:57:18
Désolé je n'avais pas vu ta question, je commente le commentaire en Anglais car c'est pour moi beaucoup plus portable pour le publier et l'utiliser au boulot, en fait la plupart des documentations et de codes sont en Anglais donc je doc en Anglais.

Le : 11/03/2008 15:40:24
Source : APPLICATION AUTO UPDATE IN VB.NET
PS : Pour répondre précisément à ta question car je m'emporte, tu peux updater ce que tu veux et en mode recursif ou non...

Le : 11/03/2008 15:33:22
Source : APPLICATION AUTO UPDATE IN VB.NET
Oui c'est possible c'est exactement ce que je fais avec le "LOTRO Cartographe", le seul problème que tu pourrait rencontrer c'est l'update de l'application d'update. La solution étant de renommer le fichier sur le serveur genre AutoUpdate.ex_, que tu télécharge via AutoUpdate et renommage du fichier de AutoUpdate.ex_ vers .exe lors du lancement de ton application principale.

Si vous voulez un exemple allez sur mon site http://www.simple-tech.info et dans la rubrique Le Seigneur des Anneaux puis téléchargez le LOTRO cartographe.

Salutatations

Le : 09/01/2008 19:17:46
Source : COMMENT GRISER OU DÉSACTIVER LE BOUTON FERMER (X) EN HAUT À GAUCHE DES FENÊTRES
Comment je fais pour ajouter ça dans Codx ? C'est volontiers que je le fait.

PS : Le code que vous avez mis en lien ne fonctionne pas, c'est pour cette raison que j'ai proposé celui-ci.


1 2


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Appels d'offres

Comparez les prix Nouvelle version


Microsoft Visual Studio Pro 2008 (Windows 32 bits)
Entre 660€ et 749€


Visiter le guide achat

Photothèque Nouveau !

Photo pretty girlsPhoto friends
Photo femme, plage, bien être, soleil, vacances, été, détente, reposPhoto adolescente

Visiter la photothèque


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,250 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.