Bonjour à tous,

Je fait face à un problème que je n'arrive pas à résoudre. J'ai une page source qui contient deux frames, comme suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
<html><head><title>Ma Page Source</title></head>
<frameset rows="50%,50%">
<frame src="/folder1/pagesource.pl/form" name="form">
<frame src="/folder1/pagesource.pl/results" name="results">
</frameset>
La frame form contient le formulaire suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
<form method="post" action="/folder1/pagesource.pl/results" enctype="application/x-www-form-urlencoded" target="results">
Select Value: <select name="ddl" tabindex="1">
<option value="Value1">Value1</option>
<option value="Value2">Value2</option>
<option value="Value3">Value3</option>
</select><br>Select Command: <select name="cmd" tabindex="2">
<option value="cmd1">cmd1</option>
<option value="cmd2">cmd2</option>
<option value="cmd3">cmd3</option>
</select><p>Paste value into textarea and press <input type="submit" name=".submit" value="Submit"><br><textarea name="input" tabindex="4" rows="5" cols="80"></textarea><div></div></form>
et la frame results contient :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
<pre>Result of your request :
</pre><pre>errlines:
empty
</pre>
J'arrive à executer mon form comme ceci :

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
 
        Dim uriString As String = "https://monsitweb/folder1/pagesource.pl/admin"
        ' Create a new WebClient instance. 
        Dim myWebClient As New MyClient()
        Dim MyRequest As String = "Value for textarea"
        ' Create a new NameValueCollection instance to hold some custom parameters to be posted to the URL. 
        Dim myNameValueCollection As New NameValueCollection()
        ' Add necessary parameter/value pairs to te name/value container.
        myNameValueCollection.Add("ddl", "Value2")
        myNameValueCollection.Add("input", MyRequest)
        myNameValueCollection.Add("cmd", "cmd2")
 
        Dim responseArray As Byte() = myWebClient.UploadValues(uriString, myNameValueCollection)
 
        ' Decode and display the response.
        Console.WriteLine(ControlChars.Cr + "Response received was :" + ControlChars.Cr + "{0}", Encoding.ASCII.GetString(responseArray))
Ce script envoie bien le formulaire avec les bonnes valeurs associées, mais ne me retour rien car la page admin ou j'envoie mon formulaire ne contient pas la frame result.
Si j'execute mon script avec l'adresse "https://monsitweb/folder1/pagesource.pl", le formulaire ne s'execute pas.

Y-a-t-il un moyen de résoudre ce probleme ?

Merci d'avance de votre aide.

DeWaRs