Discussion :

[bailamos]

salut tous le monde,
comment est ce que il est possible d'ouvrir une page web sans utiliser webbrowser.




merci d'avence

[zazaraignée]

En lançant le navigateur par défaut de l'utilisateur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
        (ByVal hwnd As Long, _
         ByVal lpOperation As String, _
         ByVal lpFile As String, _
         ByVal lpParameters As String, _
         ByVal lpDirectory As String, _
         ByVal nShowCmd As Long) As Long
 
Private Sub Command1_Click()
    ShellExecute Me.hwnd, "open", "http://www.developpez.com/", "", App.Path, 1
End Sub

[bailamos]

merci.



dans le programe ouvrire une page web 100fois ou 200fois sans deranger l'utilisateur

c'est pour voir commbien de connecter sur le logiciel

[zazaraignée]

merci.



dans le programe ouvrire une page web 100fois ou 200fois sans deranger l'utilisateur

c'est pour voir commbien de connecter sur le logiciel

Heu... tu peux expliquer plus clairement.

[bailamos]

dans une page web il ya le nombre de connecter comment recuperer ce nombre et l'actualiser chaque seconde.

nombre=http://site.com/conect.txt

se conecter a ce fichier chaque seconde pour verifier ce nombre sans utiliser webbrowser.





merci

[zazaraignée]

après cogitation, je crois que tu devras voir du côté des connexions distantes... et je n'ai jamais fait, alors désolée de ne pouvoir te donner plus de précisions.

[ProgElecT]

La grande majorité de ce que je sais sur ce sujet, je l’ai appris grâce à DVP.

Moi, avec le peu de connaissances que j'ai, je ferai comme cela.
(j'ai vérifié le code qui suit, sa fonctionne)

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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
Option Explicit
'nécéssite d'activer la référence Microsoft HTML Objects Library
'nécéssite d'activer la référence Microsoft Internet Controls
Dim IE As InternetExplorer
Dim Doc As HTMLDocument
Dim PosDeb, PosFin As Long
Dim LeTexte As String
Dim TextRech As String
Dim EncourRecup As Boolean
 
Private Sub Form_Load()
EncourRecup = False
Timer1.Interval = 1000
'Timer1.Enabled = True 'a DEREMER
RecupInfs
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
IE.Quit
If Err.Number <> 0 Then Err.Clear
End Sub
 
Private Sub Timer1_Timer()
If EncourRecup = False Then RecupInfs
End Sub
 
Public Sub RecupInfs()
Dim Msg$
EncourRecup = True
Msg$ = "http://www.developpez.net/forums/online.php" 'l'adresse complette
Set IE = New InternetExplorer
IE.navigate Msg$
'pour debug
'IE.Visible = True
Do While IE.readyState <> READYSTATE_COMPLETE
 DoEvents
Loop
Set Doc = IE.document
LeTexte = Doc.body.innerHTML
'pour debug, a mettre dans un notepad et faire rechercher les mots attendus
'Clipboard.Clear: DoEvents: Clipboard.SetText LeTexte
DoEvents: Doc.Close: Set Doc = Nothing
 
'dans LeTexte, il faut retrouver: 143 membre(s)
'<TD class=tcat colSpan=3>
'<DIV class=smallfont><SPAN style="FLOAT: right"><A href="online.php?pp=40">
'<STRONG>Recharger cette page'
'</STRONG></A> </SPAN><STRONG>143 membre(s) et 0 invité(s)</STRONG><BR>
'Le record de connectés est de 2924, 26/03/2007 à 15h47. </DIV></TD></TR>
'<TR>
PosDeb = 1
TextRech = "</STRONG></A> </SPAN><STRONG>"
PosDeb = InStr(PosDeb, LeTexte, TextRech)
If PosDeb = 0 Then
 MsgBox "Texte source non conforme", vbInformation
 EncourRecup = False
 Exit Sub
End If
PosDeb = PosDeb + Len(TextRech)
PosFin = PosDeb
TextRech = " membre(s) et"
PosFin = InStr(PosFin, LeTexte, TextRech)
If PosFin = 0 Then
 MsgBox "Texte source non conforme", vbInformation
 EncourRecup = False
 Exit Sub
End If
Msg$ = Mid$(LeTexte, PosDeb, PosFin - PosDeb)
Me.Caption = "Nbr. connecté: " & Msg$
EncourRecup = False
End Sub

Par contre beaucoup de sites interdisent des appels aussi rapprochés, toutes les secondes me parai guère faisable de la façon proposée.

[bailamos]

merci ProgElecT