|
VbRob wrote:
I'm writing a lotto program in vb.net 2005 and thought it might be a good idea to pull information off of the offical lotto home page(s) showing the last drawn numbers and display them on my form.
Are you sure this is legal? Some sites don't want people taking their information and others don't care.
Jeremy Falcon
|
|
|
|
|
I sure it is fine.
In any case what am I going to do with old already drawn lotto numbers that get changed on a weekly basis ?
Do you know how I could do this?
-- modified at 14:40 Friday 3rd March, 2006
|
|
|
|
|
VbRob wrote: I sure it is fine.
Yeah? And the owners of the site are sure you should check with them first. It's better than getting sued off the face of the earth.
In any case, you can use the HttpWebRequest class to get the page. Then you just need to use a RegEx expression to find the text that your looking for.
HttpWebRequest[^]
RegEx.Match()[^]
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
-- modified at 19:38 Friday 3rd March, 2006
|
|
|
|
|
Many Thanks
Thanks for advise
|
|
|
|
|
ok - I have managed to get the html down by doing the following.
Could someone please point me in the direction on how I now strip out and display certain lines.
TextBox1.Text = GetHTTPResponse("http://www.webpage.com")
Public Function GetHTTPResponse(ByVal strURL As String) As String
Dim httpReq As System.Net.HttpWebRequest
Dim httpResp As System.Net.HttpWebResponse
Dim getBody As String
Dim bodyStream As System.IO.Stream
Dim bytes As Int32
Dim RecvBytes(Byte.MaxValue) As Byte
httpReq = CType(System.Net.WebRequest.Create(strURL), System.Net.HttpWebRequest)
httpResp = CType(httpReq.GetResponse(), System.Net.HttpWebResponse)
bodyStream = httpResp.GetResponseStream()
Do While True
bytes = bodyStream.Read(RecvBytes, 0, RecvBytes.Length)
If bytes <= 0 Then Exit Do
getBody += System.Text.Encoding.UTF8.GetString _
(RecvBytes, 0, bytes)
Loop
Return getBody
End Function
|
|
|
|
|
Ok I have found the heading in the html that I would like to strip out and place in a text box.
Can someone please advise how I do this and include the next 6 lines or so (i.e the numbers).
Or would it be better to get the gifs? and put them into a picture box?
|
|
|
|
|
It's simple string manipulation at this point. You could either get the number of the ball from the alt tag, or just get the path to the files representing the ball numbers.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Thanks for Responding Again Dave
As I have never done this before have you got some code that I could follow or point me to some examples.
Thanks
|
|
|
|
|
Guys
I'm still having a problem with this can anyone help?
Thanks
|
|
|
|
|
Im trying to automat Acrobat Reader. I want to print pdf-files.
I added a reference to AcroPDFLib and typed the following:
Dim a As AcroPDFLib.AcroPDFClass
a = CreateObject("AcroPDF.PDF.1")
a.LoadFile("atmel_instruction_set.pdf")
Now, the object creates itself ok (i think) at least when i check the windows task manager the AcroRd32.exe is running.
But when the last line executes i get "Object reference not set to an instance of an object"
What am i doing wrong?
Thanks in advance
|
|
|
|
|
Knoen wrote: What am i doing wrong?
You need to assign it using the Set keyword. Try this instead...
Dim a As AcroPDFLib.AcroPDFClass
Set a = CreateObject("AcroPDF.PDF.1")
a.LoadFile("atmel_instruction_set.pdf")
Jeremy Falcon
|
|
|
|
|
Hi, still does not work. If i use the set keyword it just goes away when i change the row with the marker.
Jeremy Falcon wrote: You need to assign it using the Set keyword. Try this instead...
Dim a As AcroPDFLib.AcroPDFClassSet a = CreateObject("AcroPDF.PDF.1")a.LoadFile("atmel_instruction_set.pdf")
|
|
|
|
|
Knoen wrote: Hi, still does not work.
Then double check the name of your object used in CreateObject. Is that control installed on the system?
Jeremy Falcon
|
|
|
|
|
Hi,
Think there is two panels on the form that one panel is top of the other. the bottom panel's backcolor is red and the top panel is transparent.why top panel's intersecting area doesn't seem red. top panel wholy takes the form's backcolor. but i want too see at the intersecting area what bottom panel contains. i tried all the ways but couldn't success.
Any suggestions? Please show me a way. Thanks!
mat
|
|
|
|
|
please help me
i need how to read CSV file in to vb.net and insert the csv datas in to oracle database using vb.net coding to upload the data content from csv to oracle database
it is possible means
send reply some coding to for connection string for csv in oledb connection string
|
|
|
|
|
You may not have to read the CSV at all. MySQL, and SQL Server (so I hope Oracle does too) can perform a restore operation from a CSV file in the SQL statement. It's simply a matter of connecting to the db and executing it.
Jeremy Falcon
|
|
|
|
|
Hello,
I wrote a .Net class library. The library contains a com class and windows form with three textboxes and a button. When I use this form in VB6, the events of the textboxes don't work e.g. pressing TAB in one box has no effect, entering text is okay. What's wrong? PLEASE help me.
Greets
Patrick
|
|
|
|
|
Did you creat event handlers to wrap the .NET ones in your COM object using With Events ?
Jeremy Falcon
|
|
|
|
|
Yes I did. Here is the code of the .Net-Form and of the ComClass.
.Net-Form:
<br />
Public Class ImportMain<br />
Inherits System.Windows.Forms.Form<br />
<br />
#Region " Vom Windows Form Designer generierter Code "<br />
<br />
Public Sub New()<br />
MyBase.New()<br />
<br />
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.<br />
InitializeComponent()<br />
<br />
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen<br />
<br />
End Sub<br />
<br />
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.<br />
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)<br />
If disposing Then<br />
If Not (components Is Nothing) Then<br />
components.Dispose()<br />
End If<br />
End If<br />
MyBase.Dispose(disposing)<br />
End Sub<br />
<br />
' Für Windows Form-Designer erforderlich<br />
Private components As System.ComponentModel.IContainer<br />
<br />
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich<br />
'Sie kann mit dem Windows Form-Designer modifiziert werden.<br />
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.<br />
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox<br />
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox<br />
Friend WithEvents TextBox3 As System.Windows.Forms.TextBox<br />
Friend WithEvents Button1 As System.Windows.Forms.Button<br />
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()<br />
Me.TextBox1 = New System.Windows.Forms.TextBox<br />
Me.TextBox2 = New System.Windows.Forms.TextBox<br />
Me.TextBox3 = New System.Windows.Forms.TextBox<br />
Me.Button1 = New System.Windows.Forms.Button<br />
Me.SuspendLayout()<br />
'<br />
'TextBox1<br />
'<br />
Me.TextBox1.Location = New System.Drawing.Point(15, 10)<br />
Me.TextBox1.Name = "TextBox1"<br />
Me.TextBox1.TabIndex = 0<br />
Me.TextBox1.Text = ""<br />
'<br />
'TextBox2<br />
'<br />
Me.TextBox2.Location = New System.Drawing.Point(15, 35)<br />
Me.TextBox2.Name = "TextBox2"<br />
Me.TextBox2.TabIndex = 1<br />
Me.TextBox2.Text = ""<br />
'<br />
'TextBox3<br />
'<br />
Me.TextBox3.Location = New System.Drawing.Point(15, 60)<br />
Me.TextBox3.Name = "TextBox3"<br />
Me.TextBox3.TabIndex = 2<br />
Me.TextBox3.Text = ""<br />
'<br />
'Button1<br />
'<br />
Me.Button1.Location = New System.Drawing.Point(125, 10)<br />
Me.Button1.Name = "Button1"<br />
Me.Button1.TabIndex = 3<br />
Me.Button1.Text = "Button1"<br />
'<br />
'ImportMain<br />
'<br />
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)<br />
Me.ClientSize = New System.Drawing.Size(212, 93)<br />
Me.Controls.Add(Me.Button1)<br />
Me.Controls.Add(Me.TextBox3)<br />
Me.Controls.Add(Me.TextBox2)<br />
Me.Controls.Add(Me.TextBox1)<br />
Me.Name = "ImportMain"<br />
Me.Text = "ImportMain"<br />
Me.ResumeLayout(False)<br />
<br />
End Sub<br />
<br />
#End Region<br />
<br />
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
Dim i, j As Double<br />
i = CDbl(TextBox1.Text)<br />
j = CDbl(TextBox2.Text)<br />
TextBox3.Text = CStr(i + j)<br />
End Sub<br />
<br />
End Class<br />
And the ComClass:
<br />
<ComClass(ComClass1.ClassId, ComClass1.InterfaceId, ComClass1.EventsId)> _<br />
Public Class ComClass1<br />
<br />
#Region "COM GUIDs"<br />
' Diese GUIDs stellen die COM-Identität für diese Klasse <br />
' und ihre COM-Schnittstellen bereit. Wenn Sie sie ändern, können <br />
' vorhandene Clients nicht mehr auf die Klasse zugreifen.<br />
Public Const ClassId As String = "368652A3-F7FB-428B-8EFF-F37374EC1E8F"<br />
Public Const InterfaceId As String = "F7831566-FD11-4F79-B58D-A64C0FEC657C"<br />
Public Const EventsId As String = "8F1418A0-9C89-4D7F-AF2B-4B77A5B87890"<br />
#End Region<br />
<br />
' Eine erstellbare COM-Klasse muss eine Public Sub New() <br />
' ohne Parameter haben. Andernfalls wird die Klasse möglicherweise nicht <br />
' in der COM-Registrierung registriert und kann nicht über <br />
' ein CreateObject erstellt werden.<br />
Public Sub New()<br />
MyBase.New()<br />
End Sub<br />
<br />
Public Sub showImportForm()<br />
Dim importForm As New ImportMain<br />
importForm.Show()<br />
importForm.Activate()<br />
End Sub<br />
<br />
End Class<br />
Greets
Patrick
|
|
|
|
|
Hi,
has nobody an idea? Eventually anybody has an example for using a .Net-Control in VB6!? By now thanks for your efforts.
Greets
Patrick
|
|
|
|
|
hi,
Can anyone tell me how to set breakpoints to a ActiveX project...
Actually i want to see how it works when i am calling from another Vb Application.
plz help me.
bye
Paritosh
|
|
|
|
|
You set them just like any other breakpoint in your code.
You have to then attach the Debugger to the process that's loading and calling your .DLL.
Please don't post the same question over and over again...
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
hi
I want to set a breakpoint to the dll-class
and want to debug it...when another application calls that dll.
plz help me
Paritosh
|
|
|
|
|
Do u have source code of the dll class?
<< >>
|
|
|
|
|