Telefontarife??

tallman0815 · Beitrag von **tallman0815** » 18.12.2005, 11:08

@flambee1: die Function ist im Script im letzten Drittel ...

@lalabyte: kannst Du ma in 2 Worten erklären was es bei Deiner Function anders macht, bitte ...

talli

PS: geändertes Script hier

Beitrag von **Tante Google** » 18.12.2005, 11:08

lalabyte · Beitrag von **lalabyte** » 18.12.2005, 13:28

@tallman0815
Wichtig ist die Zeile 'objXMLHTTP.setrequestheader "User-Agent", SamAgent'. Die Gegenseite erwartet irgendeine Form eines HTTP-Headers. Also geben wir ihr einen.

tallman0815 · Beitrag von **tallman0815** » 18.12.2005, 14:52

na darauf wäre ich nicht gekommen, wer hat Dir denn sowas verraten

talli

guessy · Beitrag von **guessy** » 18.12.2005, 20:08

:danke:

guessy · Beitrag von **guessy** » 05.01.2006, 19:32

...oh man,
die haben schon wieder was geändert :meckern:
Gruss
Guessy

tallman0815 · Beitrag von **tallman0815** » 08.01.2006, 12:17

Hi,

ka wieso die uns schon wieder ausgesperrt haben. Wenn man die Seite über den Browser anschaut, kommt sie, aber über Samu kommt nur :

Code: Alles auswählen

D HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<HTML><HEAD><TITLE>The page cannot be displayed</TITLE>
<META HTTP-EQUIV="Content-Type" Content="text/html; charset=Windows-1252">
<STYLE type="text/css">
  BODY { font: 8pt/12pt verdana }
  H1 { font: 13pt/15pt verdana }
  H2 { font: 8pt/12pt verdana }
  A:link { color: red }
  A:visited { color: maroon }
</STYLE>
</HEAD><BODY><TABLE width=500 border=0 cellspacing=10><TR><TD>

<h1>The page cannot be displayed</h1>
You have attempted to execute a CGI, ISAPI, or other executable program from a directory that does not allow programs to be executed.
<hr>
<p>Please try the following:</p>
<ul>
<li>Contact the Web site administrator if you believe this directory should allow execute access.</li>
</ul>
<h2>HTTP Error 403.1 - Forbidden: Execute access is denied.<br>Internet Information Services (IIS)</h2>
<hr>
<p>Technical Information (for support personnel)</p>
<ul>
<li>Go to <a href="http://go.microsoft.com/fwlink/?linkid=8180">Microsoft Product Support Services</a> and perform a title search for the words <b>HTTP - PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<HTML><HEAD><TITLE>The page cannot be displayed

talli

lalabyte · Beitrag von **lalabyte** » 08.01.2006, 17:13

1. in der Funktion ReturnHTML(sURL) die Zeile
Set objXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP")
durch
Set objXMLHTTP = CreateObject("Msxml2.XMLHTTP.5.0")
ersetzen.

2. Die Funktion GetPreis anpassen, denn es sind neue Suchstrings zu setzen.

Code: Alles auswählen

Private Function GetPreis(OF)
  Dim htmlBuffer, hs, ha, he, PL, VL
  PL = "<td class=" + Chr(34) + "firstChild" + Chr(34) + " style=" + Chr(34) + "text-align:center" + Chr(34) + "><span>"
  VL = "<td style=" + Chr(34) + "text-align:center" + Chr(34) +"><span>"
  htmlBuffer = ReturnHTML("http://www.tariftip.de/call-bycall-rechner/ergebnis/index.html?zid=" & OF & "&x0190=on&tarifart=1a&taktung=60&isdnanalog=" & AI & "&format=tabelle&Submit.x=12&Submit.y=13%22")
  result=NULL
  hs = ""
  If AZ < 1 then AZ = 1
  If AZ > 4 then AZ = 4
  For x= 1 to AZ
    ha = instr(htmlBuffer, PL) + Len(PL)
    he = InStr(ha, htmlBuffer, "</span></td>")
    Preis = replace(Mid(htmlBuffer, ha, he-ha), "&nbsp;", " ")
    
    ha = instr(he, htmlBuffer, VL) + Len(VL)
    he = InStr(ha, htmlBuffer, "</span></td>")
    VW = Mid(htmlBuffer, ha, he-ha)
    
    ha = InStr(he, htmlBuffer, "</tr>") + Len("</tr>")
    htmlBuffer = Mid(htmlBuffer, ha, Len(htmlBuffer) -he)
    hs = hs & VW & Trenn & Preis
    If x+1<AZ+1 then hs = hs & vbCrLf
  Next
  GetPreis = hs
End Function

!Cyclops! · Beitrag von **!Cyclops!** » 08.01.2006, 17:21

Super, es klappt wieder

besten dank....!!!!!!!!!!!!

tallman0815 · Beitrag von **tallman0815** » 08.01.2006, 18:07

Hi, bei mir kommt immer die Fehlermeldung:

[Error] ActiveX-Komponenten kann kein Objekt erstellen: 'Msxml2.XMLHTTP.5.0'
In telefon.vbs (GetTD2)
Line 116, column3

talli

lalabyte · Beitrag von **lalabyte** » 08.01.2006, 18:14

Dann besitzt du nicht die neuste Version von msxml. downloaden (ist imma gut) oder stattdessen
Set objXMLHTTP = CreateObject("Msxml2.XMLHTTP")

tallman0815 · Beitrag von **tallman0815** » 08.01.2006, 19:31

Danke, damit geht es.

Habe in dem Script den es hier zu downloaden gibt, die letztere Version genommen. Sind ja vieleicht noch andere nicht auf dem neusten stand ......

talli