Hente data fra en anden side

vi skal lige finde noget unikt i det område, så vi kan finde et sted at starte.
Hvis vi tager ordet 'hpGasGaugeBlock' bliver det brugt tidligere på siden?

hvis ordet er unikt, så test lige denne stump kode, jeg har tilrettet:

<%
  On Error Resume Next
  Set whttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
  whttp.Open "GET","https://10.10.113.22/hp/device/this.LCDispatcher"
  whttp.Send

  If whttp.Status <> 200 Then
    Response.Write "Der opstod en fejl :<hr>" & vbCrLf
    Response.Write "<P>fejlkode " & whttp.Status & "<Br>" & whttp.StatusText & "<hr>"
  Else
    helesiden = whttp.ResponseText
    start=instr(1,helesiden,"hpGasGaugeBlock")
    if start>0 then
      ' find seneste <td før dette punkt / InstrRev ( string_being_searched, string2 [, start [ , compare] ] )
      start2 = instrrev(left(helesiden,start), "<td")
      slut=instr(start2,helesiden,"/td") +4
      msg=mid(helesiden,start2,slut-start2)
      ' så har vi fat i start og slut
' hvis du vil se siden, så brug denne linje
      response.write msg
' hvis du vil se koden, så brug denne linje
'      response.write Server.HTMLEncode(msg)
    else
      msg="Der er ændret på sitet - koden skal rettes (søgte på hpGasGaugeBlock)"
    end if
  End If
  On Error Goto 0
%>

Det fremkommer en gang før

"al-align:top;}div.hpGasGaugeBlock {background-color:"

Din test melder fejl, uden beskrivelse :(

det var den der 'en gang før', der lige skal tages højde for
du kan evt fjerne kommentar ved
'      response.write Server.HTMLEncode(msg)
for at se, hvad den finder af kode - det kan være, at der skal justeres et par tegn til/fra...

<%
  On Error Resume Next
  Set whttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
  whttp.Open "GET","https://10.10.113.22/hp/device/this.LCDispatcher"
  whttp.Send

  If whttp.Status <> 200 Then
    Response.Write "Der opstod en fejl :<hr>" & vbCrLf
    Response.Write "<P>fejlkode " & whttp.Status & "<Br>" & whttp.StatusText & "<hr>"
  Else
    helesiden = whttp.ResponseText
    start=instr(1,helesiden,"hpGasGaugeBlock")
    start=instr(start+1,helesiden,"hpGasGaugeBlock")
    if start>0 then
      ' find seneste <td før dette punkt
      start2 = instrrev(left(helesiden,start), "<td")
      slut=instr(start2,helesiden,"/td") +4
      msg=mid(helesiden,start2,slut-start2)
      ' så har vi fat i start og slut
' hvis du vil se siden, så brug denne linje
      response.write msg
' hvis du vil se koden, så brug denne linje
'      response.write Server.HTMLEncode(msg)
    else
      msg="Der er ændret på sitet - koden skal rettes (søgte på hpGasGaugeBlock)"
    end if
  End If
  On Error Goto 0
%>

får stadig samme "tomme" fejl, men måske det problem ligger på vores webserver... må lige få tjekket op på det...

tjek også lige, om I kan WinHttpRequest.5.1 - eller om det er for gammelt.

Er der en "nem" måde at tjekke det på ?

fjern de to linjer med
On Error
og test - så vil den skulle dø med fejl.

Du kunne også overveje en helt anden indgang. Den ville jeg selv synes var "sjovere" :o)

De fleste printere kan snakke SNMP.
Fandt lige denne:

black:1.3.6.1.4.1.11.2.3.9.4.2.1.4.1.10.1.1.37.1.0
cyan:1.3.6.1.4.1.11.2.3.9.4.2.1.4.1.10.1.1.37.2.0
magenta:1.3.6.1.4.1.11.2.3.9.4.2.1.4.1.10.1.1.37.3.0
yellow:1.3.6.1.4.1.11.2.3.9.4.2.1.4.1.10.1.1.37.4.0

Måske det var en måde ?

Kan ikke få hul igennem med Whttp :( den timer ud

SNMP lyder også som en (enkel?) måde at holde styr på hele nettet - modsat det gamle, jeg havde lidt kode på.

Ja, måske jeg skal "den vej" men tak for dit forsøg, skal nok huske dig når jeg lukker point ud :) så husk at smide et svar..!!

ligemeget mht point til mig - det var bare en stump gammel kode.

Ved ikke om claes57 er ironisk eller ej.
Men snmp kan bestemt være alt andet end enkelt.
Jeg har forsøgt at holde styr på print-forbrug i en kommune via SNMP. Og der er jo næsten INGEN standarder for det "lort".
Kan da godt være man har 20 maskiner der alle er fra f.eks. producent1, men det betyder jo ikke de skal have samme snmp-kommandoer. Så det kan sagtens være en jungle og finde de korrekte data frem.
Men hvis du har adgang til en linux boks, så kan du bruge snmp-walk.
Et trick jeg "glemte" er man kan angive version på snmp-protokol, nogle gange fik jeg bedre svar på en lavere protokol, end 2 eller 3 mener jeg.

jakobdo - jeg skrev (enkel?) - jeg har ikke forsøgt at hente data siden jeg lave asp-kode (som det ses af eksempel) for 10-12 år siden. Hvad der er sket siden da i det område, har jeg ikke styr på.

Og jeg har "aldrig" kodet en linje asp, så ved ikke hvor svært/nemt det er at kode snmp kodning i asp. :)

Det skal nok blive en succes det her projekt.

lukker