Discussion :

[comtention]

Bonsoir,

J'ai une page php qui s'affiche dans mon application via un contrôle browser. J'aimerais que le code php que contient cette page ne s'exécute qu'après avoir été bien sur que c'est le le browser de mon application qui la charge et pas un autre browser(comme IE ou Firefox).

Pourrie-vous me donné quelque idées pour réealiser ça? Je ne sais pas trop si la vérification doit venir de VB, de PHP ou des deux.

Merci d'avance pour vos réponses.

Ps: J'ai essayé avec un script php de connaître le nom du browser, mais que ça soit IE ou mon browser c'est la même réponse, donc impossible de distinguer. C'était couru d'avance mais bon...

[SfJ5Rpw8]

peu être en envoyant un paramètre lors de l'ouverture de ton php..

[DarkVader]

Comme j'imagine que la page appelée l'est depuis le browser, tu lui envoies en paramètre via un POST à chaque requête

[DarkVader]

Mouarf, t'es Lucky Luke. Il est vrai que ma réponse était plus longue à rédiger

[comtention]

J'envoyais un paramètre oui, avec GET, mais cette méthode me semble peu sur. En bidouillant un peu je suis sur qu'il a moyen de retrouver l'url de la page avec l'information GET dans le lien donc je suis pas chaud pour utiliser ça. Mais j'avoue qu'une variable POST serait idéal car totalement invisible dans le lien. Le problème c'est que je ne vois pas du tout comment transmettre une variable POST a ma page PHP a partir de VB. Aurais-tu une idée?

[DarkVader]

Simple : en jetant un œil à la syntaxe de Navigate.

ex

Code :

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

1
2
3
4
5
6
7
8
9
10
    Dim url As String, sPost As String, bPost as Byte(), sHeader As String
 
 
    url = "http://www.developpez.com/"
    sHeader = "Content-Type: application/x-www-form-urlencoded" & vbCrLf
    sPost = "Container=MyWebBrowser"
 
    ReDim bPost(Len(sPost))
    bPost = StrConv(sPost vbFromUnicode)      
    Me.WebBrowser1.Navigate url, 0, "", bPost, sHeader

et coté php

Code :

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

1
2
	if(isset($_POST["Container"])){
		if($_POST["Container"]="MyWebBrowser){//etc.

[comtention]

Arf ça semble ne pas marcher aussi bien

Code :

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

1
2
3
4
5
6
7
 
Dim url As String, sPost As String, sHeader As String
url = "http://localhost/tests/test2.php" 'URL local sur wamp, mais j'ai essayé sur un serveur distant aussi
sHeader = "Content-Type: application/x-www-form-urlencoded" & vbCrLf
sPost = StrConv("code=20", vbFromUnicode)
 
Me.ie.navigate url, 0, "", sPost, sHeader

Code :

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

1
2
3
<?php
echo $_POST['code'];
?>

Je n'ai rien qui s'affiche.