ASPNET and Webbrowser control

[Daniel Frede]

Hello,
I Created a AxSHDocVw.AxWeb Browser in a class and want to Post Values
to a WebPage. When I use this class in a Windows application,
everything is fine, but in an ASPX page it hangs after the .submit
(see code)

Even if i try to start the class in a new thread it terminates at the
..submit

Any ideas?

-----------------
Imports mshtml

Public Class cEbay

'Inherits System.Windows. Forms.Form

Private m_iStatus As Integer
Private m_sUserID As String
Private m_sPassword As String
Private m_sReturnString As String
Private m_bTransactionF inished As Boolean
Private m_bPassString As String
Private m_bTimerFinishe d As Boolean

Const sURL_SignIn As String =
"http://cgi.ebay.de/aw-cgi/eBayISAPI.dll?S ignIn"
Const sURL_UserData As String =
"http://cgi4.ebay.de/aw-cgi/eBayISAPI.dll?C hangeRegistrati onShow&UsingSSL =0&countryid=0& pass=[pass]&userid=[userid]"
Const sURL_LogOut =
"http://signin.ebay.de/aw-cgi/eBayISAPI.dll?S ignIn&ssPageNam e=h:h:sout:DE"
Const sURL_MyEbay =
"http://cgi1.ebay.de/aw-cgi/eBayISAPI.dll?M fcISAPICommand= MyeBayItemsBidd ingOn&userid=[userid]&pass=[pass]&dayssince=2 0"

Private iTimeoutSec As Integer = 15
Private components As System.Componen tModel.IContain er
Friend WithEvents WebBrowser1 As AxSHDocVw.AxWeb Browser

Public Sub New()
MyBase.New()
m_iStatus = 0
'WebBrowser1.Sh ow()

Me.components = New System.Componen tModel.Containe r
Me.WebBrowser1 = New AxSHDocVw.AxWeb Browser
Me.WebBrowser1. Enabled = True
Dim resources As System.Resource s.ResourceManag er = New
System.Resource s.ResourceManag er(GetType(cEba y))
Me.WebBrowser1. OcxState =
CType(resources .GetObject("AxW ebBrowser1.OcxS tate"),
System.Windows. Forms.AxHost.St ate)
Dim frm As New System.Windows. Forms.Form
frm.Controls.Ad d(Me.WebBrowser 1)
CType(Me.WebBro wser1,
System.Componen tModel.ISupport Initialize).End Init()

WebBrowser1.Nav igate("about:bl ank")

End Sub

#Region "Properties "

'TimeOutSec
Public Property TimeOutSec() As Integer
Get
TimeOutSec = iTimeoutSec
End Get
Set(ByVal Value As Integer)
iTimeoutSec = Value
End Set
End Property

'UserID
Public Property EBAY_UserID() As String
Get
EBAY_UserID = m_sUserID
End Get
Set(ByVal Value As String)
m_sUserID = Value
End Set
End Property

'Password
Public Property EBAY_Password() As String
Get
EBAY_Password = m_sPassword
End Get
Set(ByVal Value As String)
m_sPassword = Value
End Set
End Property
'Address
Public Property EBAY_Address() As String
Get
EBAY_Address = m_sAddress
End Get
Set(ByVal Value As String)
m_sAddress = Value
End Set
End Property
#End Region
Private Sub WebBrowser1_Doc umentComplete(B yVal sender As Object,
ByVal e As AxSHDocVw.DWebB rowserEvents2_D ocumentComplete Event) Handles
WebBrowser1.Doc umentComplete

'Print WebBrowser1.Doc ument.body.inne rhtml
Try
Select Case m_iStatus
'-------------------------------------------------------------GetEbayAddress
'-------------------------------------------------------------GetEbayAddress
'-------------------------------------------------------------GetEbayAddress
Case 10
WebBrowser1.Nav igate(sURL_Sign In)
Case 11

WebBrowser1.Nav igate(sURL_User Data)
Case 12
'Login
WebBrowser1.Doc ument.Forms("Si gnInForm").User ID.value
= m_sUserID
WebBrowser1.Doc ument.Forms("Si gnInForm").pass .value
= m_sPassword
WebBrowser1.Doc ument.Forms("Si gnInForm").subm it()
<<<------Here
it freezes, but not in a Window Application! What can I do??? Any
Suggestions?

'For Each frm As mshtml.HTMLForm ElementClass In
WebBrowser1.Doc ument.Forms
' If frm.Name = "SignInForm " Then

' frm.elements.Us erID.Value = m_sUserID
' frm.elements.pa ss.Value = m_sPassword
' frm.elements.ke epMeSignInOptio n.Value = 1
' frm.setActive()
' frm.Submit()

' End If
'Next

Case 13

End Select

m_iStatus += 1
Catch ex As Exception
End Try

End Sub

Function GetEbayAddress( ) As String
Try
m_iStatus = 10
m_sAddress = ""
m_bBidFailed = True
m_bTransactionF inished = False
m_sAddress = ""
WebBrowser1.Nav igate(sURL_LogO ut)

Dim myTimer As System.Timers.T imer
myTimer = New System.Timers.T imer
myTimer.AutoRes et = True
myTimer.Interva l = iTimeoutSec * 1000
AddHandler myTimer.Elapsed , New
System.Timers.E lapsedEventHand ler(AddressOf ElapsedEventHan dler)
m_bTimerFinishe d = False
myTimer.Start()

Do
If m_bTimerFinishe d Or m_bTransactionF inished Then
Exit Do
System.Windows. Forms.Applicati on.DoEvents()
Loop

GetEbayAddress = m_sAddress

Catch ex As Exception
End Try
End Function

Sub ElapsedEventHan dler(ByVal sender As Object, ByVal e As
System.Timers.E lapsedEventArgs )
m_bTimerFinishe d = True
End Sub
'----------------- The Starter
Public Function GetAddress(ByVa l sPassword As String, ByVal
sUserID As String) As String
Dim sResult As String

Dim oEbayThread As New Thread(AddressO f thread_GetEbayA ddress)
oEbayThread.IsB ackground = False
oEbayThread.Apa rtmentState = Threading.Apart mentState.STA
oEbayThread.Sta rt()
oEbayThread.Joi n()

GetEbayAddress = m_sEbayAddress
End Function

Private Sub thread_GetEbayA ddress()
Dim ebay As New cEbay
ebay.EBAY_Passw ord = "password"
ebay.EBAY_UserI D = "user"
m_sEbayAddress = ebay.GetEbayAdd ress()
End Sub

[Ken Cox [Microsoft MVP]]

Hi Daniel,

In ASP.NET, I think you'd be much better of with the Webclient class to do
this kind of thing:

Provides common methods for sending data to and receiving data from a
resource identified by a URI.

http://msdn.microsoft.com/library/de...ClassTopic.asp
HOWTO: Use WebClient Class To Make HTTP Requests

http://support.microsoft.com/default...b;en-us;328820

Ken
Microsoft MVP [ASP.NET]
"Daniel Frede" <fr***@ibis-thome.de> wrote in message
news:4d******** *************** ***@posting.goo gle.com...

Hello,
I Created a AxSHDocVw.AxWeb Browser in a class and want to Post Values
to a WebPage. When I use this class in a Windows application,
everything is fine, but in an ASPX page it hangs after the .submit
(see code)

Even if i try to start the class in a new thread it terminates at the
.submit

Any ideas?

-----------------
Imports mshtml

Public Class cEbay

'Inherits System.Windows. Forms.Form

Private m_iStatus As Integer
Private m_sUserID As String
Private m_sPassword As String
Private m_sReturnString As String
Private m_bTransactionF inished As Boolean
Private m_bPassString As String
Private m_bTimerFinishe d As Boolean

Const sURL_SignIn As String =
"http://cgi.ebay.de/aw-cgi/eBayISAPI.dll?S ignIn"
Const sURL_UserData As String =
"http://cgi4.ebay.de/aw-cgi/eBayISAPI.dll?C hangeRegistrati onShow&UsingSSL =0&countryid=0& pass=[pass]&userid=[userid]"
Const sURL_LogOut =
"http://signin.ebay.de/aw-cgi/eBayISAPI.dll?S ignIn&ssPageNam e=h:h:sout:DE"
Const sURL_MyEbay =
"http://cgi1.ebay.de/aw-cgi/eBayISAPI.dll?M fcISAPICommand= MyeBayItemsBidd ingOn&userid=[userid]&pass=[pass]&dayssince=2 0"

Private iTimeoutSec As Integer = 15
Private components As System.Componen tModel.IContain er
Friend WithEvents WebBrowser1 As AxSHDocVw.AxWeb Browser

Public Sub New()
MyBase.New()
m_iStatus = 0
'WebBrowser1.Sh ow()

Me.components = New System.Componen tModel.Containe r
Me.WebBrowser1 = New AxSHDocVw.AxWeb Browser
Me.WebBrowser1. Enabled = True
Dim resources As System.Resource s.ResourceManag er = New
System.Resource s.ResourceManag er(GetType(cEba y))
Me.WebBrowser1. OcxState =
CType(resources .GetObject("AxW ebBrowser1.OcxS tate"),
System.Windows. Forms.AxHost.St ate)
Dim frm As New System.Windows. Forms.Form
frm.Controls.Ad d(Me.WebBrowser 1)
CType(Me.WebBro wser1,
System.Componen tModel.ISupport Initialize).End Init()

WebBrowser1.Nav igate("about:bl ank")

End Sub

#Region "Properties "

'TimeOutSec
Public Property TimeOutSec() As Integer
Get
TimeOutSec = iTimeoutSec
End Get
Set(ByVal Value As Integer)
iTimeoutSec = Value
End Set
End Property

'UserID
Public Property EBAY_UserID() As String
Get
EBAY_UserID = m_sUserID
End Get
Set(ByVal Value As String)
m_sUserID = Value
End Set
End Property

'Password
Public Property EBAY_Password() As String
Get
EBAY_Password = m_sPassword
End Get
Set(ByVal Value As String)
m_sPassword = Value
End Set
End Property
'Address
Public Property EBAY_Address() As String
Get
EBAY_Address = m_sAddress
End Get
Set(ByVal Value As String)
m_sAddress = Value
End Set
End Property
#End Region
Private Sub WebBrowser1_Doc umentComplete(B yVal sender As Object,
ByVal e As AxSHDocVw.DWebB rowserEvents2_D ocumentComplete Event) Handles
WebBrowser1.Doc umentComplete

'Print WebBrowser1.Doc ument.body.inne rhtml
Try
Select Case m_iStatus

'-------------------------------------------------------------GetEbayAddress

'-------------------------------------------------------------GetEbayAddress

'-------------------------------------------------------------GetEbayAddress
Case 10
WebBrowser1.Nav igate(sURL_Sign In)
Case 11

WebBrowser1.Nav igate(sURL_User Data)
Case 12
'Login
WebBrowser1.Doc ument.Forms("Si gnInForm").User ID.value
= m_sUserID
WebBrowser1.Doc ument.Forms("Si gnInForm").pass .value
= m_sPassword
WebBrowser1.Doc ument.Forms("Si gnInForm").subm it()
<<<------Here
it freezes, but not in a Window Application! What can I do??? Any
Suggestions?

'For Each frm As mshtml.HTMLForm ElementClass In
WebBrowser1.Doc ument.Forms
' If frm.Name = "SignInForm " Then

' frm.elements.Us erID.Value = m_sUserID
' frm.elements.pa ss.Value = m_sPassword
' frm.elements.ke epMeSignInOptio n.Value = 1
' frm.setActive()
' frm.Submit()

' End If
'Next

Case 13

End Select

m_iStatus += 1
Catch ex As Exception
End Try

End Sub

Function GetEbayAddress( ) As String
Try
m_iStatus = 10
m_sAddress = ""
m_bBidFailed = True
m_bTransactionF inished = False
m_sAddress = ""
WebBrowser1.Nav igate(sURL_LogO ut)

Dim myTimer As System.Timers.T imer
myTimer = New System.Timers.T imer
myTimer.AutoRes et = True
myTimer.Interva l = iTimeoutSec * 1000
AddHandler myTimer.Elapsed , New
System.Timers.E lapsedEventHand ler(AddressOf ElapsedEventHan dler)
m_bTimerFinishe d = False
myTimer.Start()

Do
If m_bTimerFinishe d Or m_bTransactionF inished Then
Exit Do
System.Windows. Forms.Applicati on.DoEvents()
Loop

GetEbayAddress = m_sAddress

Catch ex As Exception
End Try
End Function

Sub ElapsedEventHan dler(ByVal sender As Object, ByVal e As
System.Timers.E lapsedEventArgs )
m_bTimerFinishe d = True
End Sub
'----------------- The Starter
Public Function GetAddress(ByVa l sPassword As String, ByVal
sUserID As String) As String
Dim sResult As String

Dim oEbayThread As New Thread(AddressO f thread_GetEbayA ddress)
oEbayThread.IsB ackground = False
oEbayThread.Apa rtmentState = Threading.Apart mentState.STA
oEbayThread.Sta rt()
oEbayThread.Joi n()

GetEbayAddress = m_sEbayAddress
End Function

Private Sub thread_GetEbayA ddress()
Dim ebay As New cEbay
ebay.EBAY_Passw ord = "password"
ebay.EBAY_UserI D = "user"
m_sEbayAddress = ebay.GetEbayAdd ress()
End Sub