-
Hi
I have this webpage and i want to send the value cool:
Code:
<html>
<head>
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title></title>
</head>
<body>
<form action="b.html" method="Get" name="Form1"
onsubmit="Verificar();">
<input type="text" size="20" name="T1"> <script
language="VBScript"><!--
Sub Verificar()
document.form1.T1.Value="Cool"
end sub
--></script><input type="submit" name="B1"
value="Submeter">
</form>
</body>
</html>
And now i have this code on other webpage(b.html), i want to get the cool value on b.html :
Code:
<html>
<head>
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title></title>
</head>
<body>
<form method="Get" name="Form1">
<p><input type="text" size="20" name="T1"> <script
language="VBScript"><!--
function get_ext_var()
dim str, strAR
str = window.location
strAR = split(str, "?", -1 ,1 )
if ubound(strAR) = 0 then
get_ext_var = ""
else
str = strAR(1)
document.form1.write str
end if
end function
--></script> </p>
</form>
</body>
</html>
But i don´t get anithing what do i have to do, please respond soon.
numibesi
-
Code:
WebBrowser1.Navigate "http://www.yoursite.com/b.html"
'Get the "cool" word
Text1.Text = WebBrowser1.Document.Forms(0).T1.Value
'Send the cool word.
WebBrowser1.Navigate "http://www.yoursite.com/a.html"
WebBrowser1.Document.Forms(0).T1.Value = Text1.Text
I haven't tested it but it should work.
Gl,
D!m
-
I´m using html
I´m sorry but i´m writhing a web page in HTML, i´m not making an VB app, so that´s why i need help, because i just don´t understand a bit of HTML.
numibesi
