Prøver lige igen..hmm...hente værdi fra tv2.finans til vb6

Her er en kode som virker til dit formål, men som ikke er perfekt.. For første gang har jeg faktisk ikke sat kommentare undervejs (shame on me), men jeg kan fortælle dig at jeg gik ind på din henviste hjemmeside og tjekke i kildekoden. Her fandt jeg ud af (efter at have tygget mig igennem noget javascript) at alle data'ene er lagret på siden finans.tv2.dk/aktier/aktiedata.php. Ved at hente denne side ned fik jeg dermed adgang til kursen og skulle nu bare søge efter "Novozymes" og fange den rigtige kursværdi. IP'en fandt jeg ved at ping'e finans.tv2.dk. Ellers burde koden være lige til at bruge. Du skal bare indsætte en Winsock der hedder "wckConnect", og en knap der hedder "cmdRecieveData".

Private StockData As String

Private Sub cmdRecieveData_Click()
    If wckConnect.State <> 7 Then
        wckConnect.Protocol = sckTCPProtocol
        wckConnect.Connect "193.88.89.10", 80
    Else
        Call RequestData
    End If
End Sub

Private Sub wckConnect_Connect()
    Call RequestData
End Sub

Public Sub RequestData()
    If wckConnect.State = 7 Then
        StockData = ""
        wckConnect.SendData "GET /aktier/aktiedata.php HTTP/1.1" & vbCrLf & _
                            "HOST: finans.tv2.dk" & vbCrLf & _
                            "CONNECTION: Close" & vbCrLf & vbCrLf
    Else
        Call cmdRecieveData_Click
    End If
End Sub

Private Sub wckConnect_DataArrival(ByVal bytesTotal As Long)
    Dim Data As String
    wckConnect.GetData Data
    
    Dim Timeout As Integer
    Timeout = Second(Now) + 5 Mod 60
    While Len(Data) <> bytesTotal And Timeout <> Second(Now)
        DoEvents
    Wend
    
    If Timeout = Second(Now) Then
        If MsgBox("Serveren svarer ikke, vil du prøve igen?", vbYesNo) = vbYes Then
            Call RequestData
        Else
            wckConnect.Close
        End If
    Else
        Call RecieveData(Data)
    End If
End Sub

Public Sub RecieveData(Data As String)
    StockData = StockData & Data
    
    Dim Start As Long
    Start = InStr(1, StockData, "Novozymes")
    
    Dim Novozymes() As String
    If Start <> 0 Then
        Novozymes = Split(Mid$(StockData, Start, InStr(Start, StockData, Chr$(34)) - Start), "|")
        Debug.Print Novozymes(1)
    Else
        If MsgBox("Fejl i datapakke, vil du prøve igen?", vbYesNo) = vbYes Then
            Call RequestData
        Else
            wckConnect.Close
        End If
    End If
End Sub

Nåhh ja, glemte jeg lige at tilføje. Værdien kommer til at ligge i variablen Novozymes(1). Den kan dog kun ses i funktionen RecieveData, men hvis du vil bruge den andre stedet kan du vælge at definere variablen samme sted som StockData.

// Your brain is your weapon, do not waste it!!

[Redigeret d. 28/09-05 20:42:27 af HAP]

her er et script jeg har været med til at udvikle lavet til programmet samurize
http://www.samurize.com/modules/mydownloads/visit.php?cid=10&lid=1372
det henter tv-rpogrammet fra tv.tv2.dk
det er godt nok lavet i VBscript men måden man henter værdier i html-koden burde være det samme

her er et script jeg har været med til at udvikle lavet til programmet samurize
http://www.samurize.com/modules/mydownloads/visit.php?cid=10&lid=1372
det henter tv-rpogrammet fra tv.tv2.dk
det er godt nok lavet i VBscript men måden man henter værdier i html-koden burde være det samme

..

Mange tak C for programmet

Jeg mangler dog stadigvæk svaret på mit spørgsmål..nemlig hvordan koden i vb6 ser ud når jeg skal hente lige nøjagtig den angivne værdi..
Det drejer sig måske kun om en enkelt programmeringslinje, men jeg er på bar bund..desværre stadigvæk

her er et script jeg har været med til at udvikle lavet til programmet samurize
http://www.samurize.com/modules/mydownloads/visit.php?cid=10&lid=1372
det henter tv-rpogrammet fra tv.tv2.dk
det er godt nok lavet i VBscript men måden man henter værdier i html-koden burde være det samme

..

Mange tak C for programmet

Jeg mangler dog stadigvæk svaret på mit spørgsmål..nemlig hvordan koden i vb6 ser ud når jeg skal hente lige nøjagtig den angivne værdi..
Det drejer sig måske kun om en enkelt programmeringslinje, men jeg er på bar bund..desværre stadigvæk

C program ?
Det er godt nok et VB script
- SpeC|DK - #SpeC.DK @ Q-NET

C program ?
Det er godt nok et VB script
- SpeC|DK - #SpeC.DK @ Q-NET

Jo, men hans navn starter med C....tak for programmet..C :-)

Her er en kode som virker til dit formål, men som ikke er perfekt.. For første gang har jeg faktisk ikke sat kommentare undervejs (shame on me), men jeg kan fortælle dig at jeg gik ind på din henviste hjemmeside og tjekke i kildekoden. Her fandt jeg ud af (efter at have tygget mig igennem noget javascript) at alle data'ene er lagret på siden finans.tv2.dk/aktier/aktiedata.php. Ved at hente denne side ned fik jeg dermed adgang til kursen og skulle nu bare søge efter "Novozymes" og fange den rigtige kursværdi. IP'en fandt jeg ved at ping'e finans.tv2.dk. Ellers burde koden være lige til at bruge. Du skal bare indsætte en Winsock der hedder "wckConnect", og en knap der hedder "cmdRecieveData".

Kode 

Private StockData As String

Private Sub cmdRecieveData_Click()
    If wckConnect.State <> 7 Then
        wckConnect.Protocol = sckTCPProtocol
        wckConnect.Connect "193.88.89.10", 80
    Else
        Call RequestData
    End If
End Sub

Private Sub wckConnect_Connect()
    Call RequestData
End Sub

Public Sub RequestData()
    If wckConnect.State = 7 Then
        StockData = ""
        wckConnect.SendData "GET /aktier/aktiedata.php HTTP/1.1" & vbCrLf & _
                            "HOST: finans.tv2.dk" & vbCrLf & _
                            "CONNECTION: Close" & vbCrLf & vbCrLf
    Else
        Call cmdRecieveData_Click
    End If
End Sub

Private Sub wckConnect_DataArrival(ByVal bytesTotal As Long)
    Dim Data As String
    wckConnect.GetData Data
    
    Dim Timeout As Integer
    Timeout = Second(Now) + 5 Mod 60
    While Len(Data) <> bytesTotal And Timeout <> Second(Now)
        DoEvents
    Wend
    
    If Timeout = Second(Now) Then
        If MsgBox("Serveren svarer ikke, vil du prøve igen?", vbYesNo) = vbYes Then
            Call RequestData
        Else
            wckConnect.Close
        End If
    Else
        Call RecieveData(Data)
    End If
End Sub

Public Sub RecieveData(Data As String)
    StockData = StockData & Data
    
    Dim Start As Long
    Start = InStr(1, StockData, "Novozymes")
    
    Dim Novozymes() As String
    If Start <> 0 Then
        Novozymes = Split(Mid$(StockData, Start, InStr(Start, StockData, Chr$(34)) - Start), "|")
        Debug.Print Novozymes(1)
    Else
        If MsgBox("Fejl i datapakke, vil du prøve igen?", vbYesNo) = vbYes Then
            Call RequestData
        Else
            wckConnect.Close
        End If
    End If
End Sub

Nåhh ja, glemte jeg lige at tilføje. Værdien kommer til at ligge i variablen Novozymes(1). Den kan dog kun ses i funktionen RecieveData, men hvis du vil bruge den andre stedet kan du vælge at definere variablen samme sted som StockData.


Dette er bare godt....det var lige det jeg skulle bruge.
Jeg havde ellers bikset noget sammen som hentede siden til en richbox2 og derefter søget efter informationen.
Dette virker mere "rigtigt" så jeg vil forsøge at decode det :-)..og selvfølgelig bruge det! :.)