Problème de compilation sur VB2008 Express
:salut: 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
Code:
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 |
Merci d'avance