tout le monde.
Je vais essayé de vous expliquer mon probléme pas à pas, tout d'abord, je doit crée une aplication qui récupère des données sur un serveur exchange en vb.net(grâce au méthoe web dav) et qui me retourne un fichier xml,
Mon premier problème est que je code sur visual basic 2008 Express, mais j'ai une erreur de compilation le programme me dit que <<Un projet avec un type de sortie de bibliothèque de classes ne peut pas être démarré directement.
Pour déboguer ce projet, ajoutez à cette solution un projet exécutable qui fait référence au projet de bibliothèque.....>>, j'ai essayé de crée un autre projet et d'applé mon projet avec mon script mais cela ne marche pas, est ce que qu'elle qu'un serait comment faire pour que mon code compile sous visual basic 2008 express..
voici mon code
Merci d'avance
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58 Imports System.Xml Imports System.Net Public Class Snchronisation Public Class ParametresExchange Public ServeurExchange As String = "......................./exchange" Public UserExchange As String = "....................." Public MotDePasseExchange As String = "......................" Public DomaineExchange As String = "ensam" Public Dossier As String = "Calendrier" Public URLServeurExchange As String = "http://" & ServeurExchange & "/" & UserExchange & "/" & Dossier & "/" End Class Public Function MethodeSearch(ByVal Requete As String) As XmlDataDocument Dim Connexion As New ParametresExchange ' Variables Dim Request As System.Net.HttpWebRequest Dim Response As System.Net.HttpWebResponse Dim Autorisation As System.Net.CredentialCache Dim bytes() As Byte Dim RequestStream As System.IO.Stream Dim ResponseStream As System.IO.Stream Dim ResponseXmlDoc As New XmlDataDocument ' Autorisation d'accès Autorisation = New System.Net.CredentialCache Autorisation.Add(New System.Uri(Connexion.URLServeurExchange), "NTLM", New System.Net.NetworkCredential(Connexion.UserExchange, Connexion.MotDePasseExchange, Connexion.DomaineExchange)) Request = CType(System.Net.WebRequest.Create(Connexion.URLServeurExchange), System.Net.HttpWebRequest) Request.Credentials = Autorisation 'Header Request.ContentType = "text/xml" Request.Method = "SEARCH" bytes = System.Text.Encoding.UTF8.GetBytes(Requete) Request.ContentLength = bytes.Length RequestStream = Request.GetRequestStream() RequestStream.Write(bytes, 0, bytes.Length) RequestStream.Close() Request.Headers.Add("Translate", "F") 'Envoi du SEARCH Response = CType(Request.GetResponse(), System.Net.HttpWebResponse) 'Réponse ResponseStream = Response.GetResponseStream() ResponseXmlDoc.Load(ResponseStream) 'Fin de connexion ResponseStream.Close() Response.Close() Return ResponseXmlDoc ' renvoie un fichier de type XML End Function
Partager