|
A web page I'm trying to automate has come to my attention that it using frames. the source is and link to page is below:
url: http://www.konaeuropeadmin.com/[^]
My code so far...
Dim theElementCollection As HtmlElementCollection = KonaBrwsr.Document.GetElementsByTagName("input")
For Each curElement As HtmlElement In theElementCollection
Dim controlName As String = curElement.GetAttribute("name")
If controlName = "loginname" Then
curElement.SetAttribute("Value", "username")
End If
If controlName = "loginpassword" Then
curElement.SetAttribute("Value", "password")
End If
If controlName = "savepassword" Then
curElement.SetAttribute("Value", "True")
End If
Next
Dim theElementCollection2 As HtmlElementCollection = KonaBrwsr.Document.GetElementsByTagName("input")
For Each curElement2 As HtmlElement In theElementCollection2
Dim controlName2 As String = curElement2.GetAttribute("name").ToString
If controlName2 = "login" Then
curElement2.InvokeMember("Click")
End If
Next
I know this works as I've used the same procedure for all the webpages I'm trying to automate... 15 in total; downloading files automatically.
The problem with this site is that it uses frames, and although I know my code work for a simple HTML form, I have no idea how to repeat this procedure for a framed website.
Someone please help, I've been on this for a while now and simply not working for me.
Thank you all in advance.
|
|
|
|
|
Inside the page (in your link) you will find the following code.......
<html>
<head>
<title>Kona Europe</title>
<frameset rows="92,*">
<frame name="enterpart" scrolling="no" noresize>
<frameset cols="310,*">
<frame name="treeframe" src="http://www.konaeuropeadmin.com/getcountry.htm">
<frame name="basefrm" src="http://www.konaeuropeadmin.com/website/rightframe.htm">
</frameset>
<noframes>
<body>
<p>This page uses frames, but your browser doesn't support them.</p>
</body>
</noframes>
</frameset>
</html>
in THAT page (the page in your link - or even ANY other page you wish)
first assess if the FRAME or IFRAME tag is present and if it is then load the SRC file that the individual FRAME SRC points to and then run your code for EACH frame and treat each frame as a separate html document.
If the fields your looking for are there then your code will do what its supposed to and if not then your code shouldnt do anything and you simply continue to the next frame.
If theres NO frames then your code will operate as normal....
See the pseudo code below
'1 Get the ORIGINAL document
'2 look for the FRAME tag (if no frame tags jump to step 10)
'3 in the frame tag look for the SRC attribute/element
'4 load the document using the SRC as the file to load pointer
'5 == YOUR CODE HERE ==
'6 we are done with this document
'7 we are done with this frame
'8 move to the next frame (and repeat till no more frames)
'9 All done - jump to step 12
'10 == YOUR CODE HERE ==
'11 All done - jump to step 12
'12 Finished
|
|
|
|
|
I currently have an array populated with string values and am trying to compare the values in the array to other string values, but I am getting an error. The error message is “Conversion from string "SDrug" to type 'Boolean' is not valid”. Here is the code I have written.
“If IndustrySectorContentArray(IndustrySectorCounter) = "SFinancials" Or "SDrug" Then “.
If I just compare the content in the array to "SFinancials" then I don’t have an issue, but when I add the “Or” command I am getting the error.
Can someone point me in the right direction to get the desired result?
Thanks.
George
|
|
|
|
|
you need to include the whole statement in each side of the comparison like this:
If IndustrySectorContentArray(IndustrySectorCounter) = "SFinancials" Or IndustrySectorContentArray(IndustrySectorCounter) = "SDrug" Then
End If
Hope this helps
When I was a coder, we worked on algorithms. Today, we memorize APIs for countless libraries — those libraries have the algorithms - Eric Allman
|
|
|
|
|
That Solved it. Thanks a lot for your help.
George
|
|
|
|
|
Glad to help
When I was a coder, we worked on algorithms. Today, we memorize APIs for countless libraries — those libraries have the algorithms - Eric Allman
|
|
|
|
|
Hi,
I am trying to generate a report from a data table with an unknown number of columns at design time. The application allows the user to choose what column to show, and I don't know how to bind a table with an unknown schema. Can someone please give me some points and avice about how to do this?
thanks
kevin
Mickabooh Systems LLC
|
|
|
|
|
You can't.
If the schema isn't known at design-time, the designer can't do anything with it. You're only going ot be able to do that at run-time.
The bigger question should be why that table has an unknown number of columns. Is this really necessary or can the data be represented differently to eliminate this condition.
Do these column have to appear in the report? Is there is a subset of columns that is known? Can these be broken out into a seperate table?
Tons of questions only you can answer...
|
|
|
|
|
Put all the columns in the report and control the visibility/width of the columns based on the users choice! It's still a really ugly requirement!
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
I'm using Stored Procedure,3 tier and VB.net. 
Now, i click the gridview and then want to show the data in textboxes and pictureBox to update the informations.  ![Java | [Coffee]](https://www.codeproject.com/script/Forums/Images/coffee.gif)
The problem is that , how can i retrieve photo to picture box???    
Here is my code 
Private Sub gdCompany_CellClick(ByVal sender As System.Object, ByVal e As Telerik.WinControls.UI.GridViewCellEventArgs) Handles gdCompany.CellClick
btnSave.Text = "ျပင္ရန္"
txtCompanyName.Text = gdCompany.CurrentRow.Cells(1).Value.ToString()
txtDescription.Text = gdCompany.CurrentRow.Cells(2).Value.ToString()
txtPhoneNo.Text = gdCompany.CurrentRow.Cells(3).Value.ToString()
txtFaxNo.Text = gdCompany.CurrentRow.Cells(4).Value.ToString()
txtEmail.Text = gdCompany.CurrentRow.Cells(5).Value.ToString()
txtWebsite.Text = gdCompany.CurrentRow.Cells(6).Value.ToString()
ddlBankName.SelectedValue = Convert.ToInt32(gdCompany.CurrentRow.Cells(7).Value.ToString())
ddlBankBranch.SelectedValue = Convert.ToInt32(gdCompany.CurrentRow.Cells(8).Value.ToString())
txtBankAccountNo.Text = gdCompany.CurrentRow.Cells(9).Value.ToString()
txtAddress.Text = gdCompany.CurrentRow.Cells(10).Value.ToString()
txtCompanyName.Focus()
End Sub
|
|
|
|
|
I'd recommend creating a "new application" to try implement this technique; that way you won't be bothered with code that has little to do with this particular problem.
You already have the bytes; you can put those in a memorystream[^] and load your image from that stream[^].
Bastard Programmer from Hell 
if you can't read my code, try converting it here[^]
|
|
|
|
|
hy
This function converts byte array to image:
Public Shared Function ByteArrayToImage(ByVal ByteArr() As Byte) As Object
Dim ImageStream As System.IO.MemoryStream
Try
If ByteArr.GetUpperBound(0) > 0 Then
ImageStream = New System.IO.MemoryStream(ByteArr)
Return Image.FromStream(ImageStream)
Else
Return Nothing
End If
Catch ex As Exception
Return Nothing
End Try
End Function
and this convert back:
Public Shared Function ImageToByteArray(ByVal NewImage As Image) As Object
Dim ImageStream As System.IO.MemoryStream
Dim ByteArr() As Byte
Try
ReDim ByteArr(0)
If NewImage IsNot Nothing Then
ImageStream = New System.IO.MemoryStream
NewImage.Save(ImageStream, Imaging.ImageFormat.Jpeg)
ReDim ByteArr(CInt(ImageStream.Length - 1))
ImageStream.Position = 0
ImageStream.Read(ByteArr, 0, CInt(ImageStream.Length))
End If
Return ByteArr
Catch ex As Exception
Return Nothing
End Try
End Function
+You need DBNull check when the column allow nulls.
|
|
|
|
|
'In DA_Company'
Function Company_Save(ByVal M_Model_DA As Model.M_Company) As String
Try
connection_enable()
cmd = New SqlCommand()
cmd.CommandText = "SP_HR_Company_Insert"
cmd.Connection = con
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.Add("@Company_Logo", SqlDbType.Image).Value = M_Model_DA.Company_Logo
err_message = cmd.ExecuteNonQuery()
Catch ex As Exception
err_message = ex.ToString()
End Try
Return err_message
End Function
'In BL_Company'
Function Company_Save(ByVal M_Company_BL As Model.M_Company) As String
Try
DA_Company = New DataAccess.DA_Company()
error_message = DA_Company.Company_Save(M_Company_BL)
Catch ex As Exception
error_message = ex.ToString()
End Try
Return error_message
End Function
'In M_Company'
Public Property Company_Logo() As Byte
Get
Return Me.CompanyLogo
End Get
Set(ByVal value As Byte)
Me.CompanyLogo = value
End Set
End Property
'In Frm_Company'
Private Sub Company_Save()
Try
BL_Company = New BusinessLogic.BL_Company()
M_Comapny = New Model.M_Company()
M_Comapny.Company_Logo = Convert.ToByte(browseCompanyLogo.Value)
error_message = BL_Company.Company_Save(M_Comapny)
If error_message > 0 Then
MessageBox.Show("Complete Save")
Company_GridView_FillData()
End If
Catch ex As Exception
MessageBox.Show(ex.Message.ToString())
End Try
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
Company_Save()
End Sub
But It Shows Input Stream was not in a correct format . Why ? please !
|
|
|
|
|
heinhtataung wrote: Why ?
'cause an exception occured. Can you point out the line *where* it occurs?
I'd guess it happens on this line;
M_Comapny.Company_Logo = Convert.ToByte(browseCompanyLogo.Value)
Bastard Programmer from Hell 
if you can't read my code, try converting it here[^]
|
|
|
|
|
Hi I've recently started programming and for a project i need to learn how to create my own AI program and i need to understand how it is done I need to know everything from opening VB  i can do basic thing in VB but i have no idea were to even start with this can someone help please from the very start or at least help a little  Thankyou anyone who helps
|
|
|
|
|
I would start at MSDN Development for beginners[^]
Lobster Thermidor aux crevettes with a Mornay sauce, served in a Provençale manner with shallots and aubergines, garnished with truffle pate, brandy and a fried egg on top and Spam - Monty Python Spam Sketch
|
|
|
|
|
ill try this thankyou
|
|
|
|
|
Casey Edison wrote: how to create my own AI program
Even the Japanese struggled with that.
One of these days I'm going to think of a really clever signature.
|
|
|
|
|
I don't want to make a very complex one just one that can make replys and activate event from speech, not to complex ofcourse i know there is AI programs you can download like this like helpful AL like that basically.
|
|
|
|
|
OK, so what exactly are you asking for here?
One of these days I'm going to think of a really clever signature.
|
|
|
|
|
I want to be able to make a basic program that i can run. I want it to be able to use speech recognition but i dont mind using text, with some sort of speech from the AI. like siri basically.....
i understand this might sound like facepalm. I know Siri was created by proffesionals over years under the CALO project. I obviously dont want it as complex as Siri.
i uderstand for actually siri the framework is python and java i dont mind changeing programming languages aslong as i can create this myself, the language doesnt matter.
|
|
|
|
|
All these things are possible, but it would be quite a challenge for someone who is still learning programming. The first thing you need to do is study your language of choice and get comfortable with building simple programs.
One of these days I'm going to think of a really clever signature.
|
|
|
|
|
i can do basic things i understand variables can make a simple replica of notepad, and number calculator but a basic one and just basic programs really im also tryna learn how to make a media player at the moment, but its just getting off the ground with this is hard.
|
|
|
|
|
Casey Edison wrote: just getting off the ground with this is hard.
No one said it would be easy; programming requires considerable thought and effort. Don't assume that you can turn out a complex application after just a few days. The only way to produce great, or even good, work is practice, practice, practice.
One of these days I'm going to think of a really clever signature.
|
|
|
|
|
i know this but nothing wrong with asking for help then i can practice
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
