Deskmodder.de

Verfasst: **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

Verfasst: **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

Verfasst: **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

Verfasst: **12.10.2005, 17:16**

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

Verfasst: **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

Verfasst: **12.10.2005, 22:14**

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

Danke schonmal im Voraus, talli

Verfasst: **13.10.2005, 17:50**

Hi,

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

Verfasst: **15.11.2005, 16:38**

Hi,

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

talli

Verfasst: **15.11.2005, 16:58**

*grabsch*

*bastel*

Gruss Flam

Edit: Coole Sache, wieder mal ein dickes

an Talli

Verfasst: **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

Verfasst: **20.11.2005, 10:08**

Hallo,

na dann viel Spass damit ....

talli

Verfasst: **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

Verfasst: **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

Verfasst: **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

Verfasst: **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

Deskmodder.de

Telefontarife??