passing values from visual basic to vb script or javascript

[karthik_c]

Hi,

Anyone know how to pass a value textbox value from a VB6 activex control to vbscript.



thanks in advance,
karthik

[tf-centurion]

HI karthik_c,

The only way i know of would be via cookies.

Heres some code below i found on the web a while back about setting cookies in vb6.


Start with a new project and a single form. Add two Command buttons to the form: cmdMakeCookie and cmdGetCookie. Drop in this code and then try it out.


Private Declare Function InternetSetCookie Lib "wininet.dll" _
Alias "InternetSetCookieA" _
(ByVal lpszUrlName As String, _
ByVal lpszCookieName As String, _
ByVal lpszCookieData As String) As Boolean

Private Declare Function InternetGetCookie Lib "wininet.dll" _
Alias "InternetGetCookieA" _
(ByVal lpszUrlName As String, _
ByVal lpszCookieName As String, _
ByVal lpszCookieData As String, _
lpdwSize As Long) As Boolean

Private Sub cmdMakeCookie_Click()
Dim blnReturn As Boolean

blnReturn = InternetSetCookie("http://abstractvb.com/MyCookie.htm", _
"MyCookiesName", "Put Cookie Information Here")

If Not blnReturn Then MsgBox "Make Cookie Operation Failed!", vbCritical
End Sub

Private Sub cmdGetCookie_Click()
Dim strCookieText As String * 256
Dim blnReturn As Boolean

blnReturn = InternetGetCookie("http://abstractvb.com/MyCookie.htm", _
"MyCookiesName", strCookieText, 255)
If Not blnReturn Then
MsgBox "Get Cookie Operation Failed", vbCritical
Else
MsgBox strCookieText, vbInformation
End If
End Sub

Hope this helps