Telefontarife??

knuddel · Beitrag von **knuddel** » 10.10.2005, 18:14

hab mal kurz drüber geschaut, aber ansich in der vbs Datei das hier ändern

if AZ < 1 then AZ = 1
if AZ > 3 then AZ = 3

in

if AZ < 1 then AZ = 1
if AZ > x then AZ = x

für x kannste nun deine Maximale Anzahl nehmen.

z.B. für 8 währe das dann

if AZ < 1 then AZ = 1
if AZ > 8 then AZ = 8

Cheers

ps. hab noch was vergessen stückchen weiter unten hier die 3 noch durch deine X-Zahl austauschen

if AZ > 1 And x < 3 then hs = hs & vbCrLf

bei 8 währe das wieder

if AZ > 1 And x < 8 then hs = hs & vbCrLf

so fertig

Beitrag von **Tante Google** » 10.10.2005, 18:14

tallman0815 · Beitrag von **tallman0815** » 10.10.2005, 18:31

Hi,

ich hatte die Anzahl auf 3 begrenzt, weil ja eigendlich mehr keinen Sinn macht. Denn wer will schon den Anbieter wissen, der auf der 8.Stelle im günstig telefonieren steht. :crazy:
Aber wenns jemand braucht ....

talli

guessy · Beitrag von **guessy** » 12.10.2005, 16:59

Hallo auch,
hat billiger-telefonieren etwas geändert? Das script funtz plötzlich nicht mehr...

=====================================
[Error] Ungültiger Prozeduraufruf oder ungültiges Argument: 'left'
In telefon.vbs (GetTD2)
Line 84, column 4
=====================================

gruss
guessy

knuddel · Beitrag von **knuddel** » 12.10.2005, 17:16

jupp, sieht so aus. Läuft jetzt über Javascript

tallman0815 · Beitrag von **tallman0815** » 12.10.2005, 20:45

Hi,

jo die bauen gerade ihre Seite um, mal warten bis sie fertig sind. Werde mich mal nächste Woche darum kümmern.

talli

flambee1 · Beitrag von **flambee1** » 12.10.2005, 22:14

Denen muss wohl langweilig sein, so oft wie die ihre Seite umbauen

Danke schonmal im Voraus, talli

tallman0815 · Beitrag von **tallman0815** » 13.10.2005, 17:50

Hi,

ich denke eher die wollen solche Abfragen wie wir sie machen unterbinden

tallman0815 · Beitrag von **tallman0815** » 15.11.2005, 16:38

Hi,

es gibt eine neue Version von telefon.vbs ........

talli

flambee1 · Beitrag von **flambee1** » 15.11.2005, 16:58

*grabsch*

*bastel*

Gruss Flam

Edit: Coole Sache, wieder mal ein dickes

an Talli

guessy · Beitrag von **guessy** » 19.11.2005, 19:50

@tallman0815

...habe für mich noch die Slowakei in die Liste aufgenommen und die 0190 erlaubt.

VB müsste man können...

:danke:

Gruss
Matthias

tallman0815 · Beitrag von **tallman0815** » 20.11.2005, 10:08

Hallo,

na dann viel Spass damit ....

talli

guessy · Beitrag von **guessy** » 17.12.2005, 20:00

Hallo zusammen,

hat uns jetzt Tariftipp.de auch nicht mehr lieb???

Oder klappt das skript nur bei mir nicht???

Gruss
Guessy

flambee1 · Beitrag von **flambee1** » 17.12.2005, 20:11

Auf diese Frage warte ich schon länger

. Nein, es liegt nicht an dir. Ich denke, seit Talli das Script geschrieben hat, hat sich wieder mal was geändert und nun kann das Skript die Tarife nicht mehr von der Seite abgreifen. DA müsst mal wieder das Skript geändert werden, wenn Talli gewillt ist, das wieder einmal zu machen *g*. Das die Telefontarifseiten auch immer so zickig sein müssen.

Gruss Flam

lalabyte · Beitrag von **lalabyte** » 17.12.2005, 22:53

Ersetz die Function "ReturnHTML(sURL) mit folgenden code:

Code: Alles auswählen

Private Function ReturnHTML(sURL)
Dim objXMLHTTP, SamAgent

	SamAgent = "Samurize Client Script http://www.samurize.com"
	Set objXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP")

  objXMLHTTP.Open "get", sURL, False
  objXMLHTTP.setrequestheader "User-Agent", SamAgent
  objXMLHTTP.Send
	If err <> 0 then
  	ReturnHTML = "Website is not available"
	Else
  	ReturnHTML = objXMLHTTP.responseText
 	End If
	 Set objXMLHTTP = Nothing
End Function

flambee1 · Beitrag von **flambee1** » 18.12.2005, 04:32

Ich weiss nicht, wo ich den ErsatzCode einfügen muss. Ich sehe das ReturnHTML(sURL) nicht ... bin ich zu doof dazu?

Flam