Aide fonction & argument

Version imprimable

Bonjour
J'ai trouvé un code qui permet de voir si un site web est accessible ou pas
Le problème est que pour raccourcir le code je voudrais utilisé les arguments et donc ne pas mettre 2 fois la fonction

Voilà je ce que voudrais :

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
 
 If IcConnectionAvailable(Site1) = true) Then 
msgbox("Supper , ça marche ")
Else
MsgBox("Le site n'est pas accessible")
End if 
 
If connectionAvailable(Site2) = true Then
MsgBox("Super , ça marche")
Else
MsgBox(" Le site n'est pas accessible")
 
Public Function IsConnectionAvailable(ByVal Site1 As String, ByVal Site2 As String) As Boolean
        Site1 = "http://Site1.com"
        Site2 = "http://google.fr"
        Dim objUrl As New System.Uri(" ??? " )  ' Je ne vois pas quoi mettre 
        Dim objWebReq As System.Net.WebRequest
        objWebReq = System.Net.WebRequest.Create(objUrl)
        Dim objresp As System.Net.WebResponse
 
        Try
            objresp = objWebReq.GetResponse
            objresp.Close()
            objresp = Nothing
            Return True
 
        Catch ex As Exception
            objresp = Nothing
            objWebReq = Nothing
            Return False
        End Try
    End Function

Bonjour Skylle,

la classe "System.Uri" n'accepte pas dans sa signature 2 arguments de type url !!

Ça sert à rien de vouloir raccourcir la fonction, elle est très bien ainsi et n'a absolument pas besoin d'être optimisée !

Mais bon si tu souhaites vraiment cela alors, voilà une solution comme une autre :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
     Public Function IsConnectionAvailable() As SortedList(Of String, Boolean)
        Dim sites As String() = New String() {"http://www.imabox.fr", "http://www.google.fr"}
        Dim b As New SortedList(Of String, Boolean)
        For Each Sit In sites
            Dim objUrl As New System.Uri(Sit)  ' Je ne vois pas quoi mettre 
            Dim objWebReq As System.Net.WebRequest
            objWebReq = System.Net.WebRequest.Create(objUrl)
            Dim objresp As System.Net.WebResponse
 
            Try
                objresp = objWebReq.GetResponse
                objresp.Close()
                objresp = Nothing
                b.Add(Sit, True)
            Catch ex As Exception
                objresp = Nothing
                objWebReq = Nothing
                b.Add(Sit, False)
            End Try
        Next
        Return b
    End Function

Comment l'appeler :

Code:

1
2
3
4
 
  For Each b In IsConnectionAvailable()
            MsgBox(b.Key & " = " & b.Value)
        Next

Si tu as des questions concernant le contenu n'hésites pas . ;)

A+

Bonjour
j'ai pas compris pourquoi vous utilise de argumants dans la fonction alors que tu peux mettre 1 seul et tu appelles la fonction 2 fois

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim url as string = "http://Site1.com"
 If IsConnectionAvailable(url) = true) Then 
msgbox("Supper , ça marche ")
Else
MsgBox("Le site n'est pas accessible")
End if 
 
Url = "http://google.fr"
 
If IsconnectionAvailable(url) = true Then
MsgBox("Super , ça marche")
Else
MsgBox(" Le site n'est pas accessible")

et la fonction :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Function IsConnectionAvailable(ByVal Site As String) As Boolean
        Dim objUrl As New System.Uri(Site)  ' Je ne vois pas quoi mettre 
        Dim objWebReq As System.Net.WebRequest
        objWebReq = System.Net.WebRequest.Create(objUrl)
        Dim objresp As System.Net.WebResponse
 
        Try
            objresp = objWebReq.GetResponse
            objresp.Close()
            objresp = Nothing
            Return True
 
        Catch ex As Exception
            objresp = Nothing
            objWebReq = Nothing
            Return False
        End Try
    End Function

J'ai due mal comprendre :calim2::calim2:

Je croyais qu'il ne voulais pas appeler 2 fois la fonction dans le corps de son programme comme ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 If IcConnectionAvailable(Site1) = true) Then msgbox("Supper , ça marche ") Else MsgBox("Le site n'est pas accessible") End if If connectionAvailable(Site2) = true Then MsgBox("Super , ça marche") Else MsgBox(" Le site n'est pas accessible")
....c'est pourquoi j'ai dis plus haut que la fonction d'origine n'a pas besoin de modification ....pas tout compris ...

pas grave.

A+

Je doit simplement vérifier si les sites ou je dois me rendre son accessible ( pas ddos ou down )
Pour cela j'ai trouvé une fonction et comme argument je met chacun des sites
Code:

1 2 3 4 5 6 7 If isconnectionavailable(PremierSite) = True then MsgBox("Le premier site est accessible") End if If isconnectionavailable(Dsite) = True then MsgBox("Le deuxième site est accessible site est accessible") End if

06/11/2013, 20h22
Skylle

Quelqu'un aurait une réponse , en fait c'est juste pour éviter de répéter la fonction , je dois voir mes 2 sites sont accessibles

Je comprends pas ce que tu recherches exactement ????

Cette réponse ne te convenait pas :

http://www.developpez.net/forums/d13...t/#post7549202

Ou alors tu la modifie comme cela :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Public Function IsConnectionAvailable() As SortedList(Of String, String)
        Dim sites As String() = New String() {"http://www.imabox.fr", "http://www.google.fr"}
        Dim b As New SortedList(Of String, String)
        For Each Sit In sites
            Dim objUrl As New System.Uri(Sit)  ' Je ne vois pas quoi mettre 
            Dim objWebReq As System.Net.WebRequest
            objWebReq = System.Net.WebRequest.Create(objUrl)
            Dim objresp As System.Net.WebResponse
 
            Try
                objresp = objWebReq.GetResponse
                objresp.Close()
                objresp = Nothing
                b.Add(Sit,  "est accessible !")
            Catch ex As Exception
                objresp = Nothing
                objWebReq = Nothing
                b.Add(Sit, "n'est pas accessible !")
            End Try
        Next
        Return b
    End Function

Code:

1
2
3
4
5
6
7
8
 
Dim result$
 
        For Each b In IsConnectionAvailable()
            result &= vbnewline &  b.Key & " " & b.Value
        Next
 
Msgbox(result)

Et si ça ne te convient toujours pas, il va falloir être plus explicite !

A+

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 public sub TestSites() dim sites as new list(of string) sites.Add("http://google.fr") sites.Add("http://microsoft.com") for each s in sites if IsConnectionAvailable(s) then msgbox (s & " ok") else msgbox (s & " pas ok") end if next end sub Public Function IsConnectionAvailable(ByVal site As String) As Boolean Dim objWebReq = System.Net.WebRequest.Create(New System.Uri(site)) Try Dim objresp = objWebReq.GetResponse objresp.Close() Return True Catch ex As Exception Return False End Try End Function
pour info les trucs du genre objresp = Nothing sont inutiles, en sortie de sub/function toutes les variables déclarées dans la sub sont mises à nothing automatiquement

on peut aussi écrire des trucs du genre

Code:

msgbox( (from s in sites where IsConnectionAvailable(s) = false select s).count.tostring & " sites non dispos")

ou encore

Code:

if (from s in sites where IsConnectionAvailable(s) = false select s).firstordefaut isnot nothing then msgbox ("au moins un site pas connecté)