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 :
La frame form contient le formulaire 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>
et la frame results contient :
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>
J'arrive à executer mon form comme ceci :
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>
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.
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))
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
Partager