WinFuture-Forum.de: Problem mit Samurize Script - WinFuture-Forum.de

Zum Inhalt wechseln

Nachrichten zum Thema: Software
Seite 1 von 1

Problem mit Samurize Script "gerprogram"


#1 Mitglied ist offline   Monique 

  • Gruppe: Mitglieder
  • Beiträge: 7
  • Beigetreten: 04. Oktober 04
  • Reputation: 0

geschrieben 04. Oktober 2004 - 17:15

Hey Leute, da ich in Sachen Samurize ein ziemlicher Anfänger bin brauch ich eure hilfe.

Und zwar hab ich mir das Script "gerprogram" gezogen und in den Ordner Scripts verschoben, auch das Darstellen auf dem Desktop hat funktioniert,
aber es zeitg mir immer nur die Programme von gestern Nacht zwischen 0.15 und 1.15 an.

Ich hab auch das Script neu draufgemacht, aber hal nichts geholfen.

Ich hätte ja nur das aktuelle Program. (:

Kann mir jemand helfen!?

Gruß
0

Anzeige



#2 Mitglied ist offline   DiNozzo 

  • Gruppe: aktive Mitglieder
  • Beiträge: 4.412
  • Beigetreten: 13. Dezember 03
  • Reputation: 1
  • Geschlecht:Männlich

geschrieben 04. Oktober 2004 - 17:22

Also als erste deine Überschrift "Hallo" ist alles andere als Aussagekräftig!
Überleg dir beim nächsten mal was zum Thema passendes <_<

Nun zu deinen Problem:
Welches Script meinst du bzw. welche Programme werden dir angezeigt?

Ein Screenshot wäre von Vorteil ;(
0

#3 Mitglied ist offline   xylen 

  • Gruppe: aktive Mitglieder
  • Beiträge: 4.862
  • Beigetreten: 12. März 02
  • Reputation: 5
  • Geschlecht:Männlich
  • Wohnort:Berlin

geschrieben 04. Oktober 2004 - 17:26

Ich habe den Titel mal zur besseren Verständlichkeit editiert.
0

#4 Mitglied ist offline   Monique 

  • Gruppe: Mitglieder
  • Beiträge: 7
  • Beigetreten: 04. Oktober 04
  • Reputation: 0

geschrieben 04. Oktober 2004 - 17:39

Erstmal danke für die Änderung, aber da ich mich nicht so in Foren rumtreiben, felht mir da einfach die Erfahrung.

Wie soll ich das Script beschreiben, es heist "getProgram" und gibt es hier:

hier

Ich hoffe das es geht, denn auch sowas hab ich noch nie gemacht.

Auf alle Fälle zeitg mir das Program alle Sender Von ARD bis VIVA an.

Mit Start und Ende sowie der Film heist der grade läuft.

Ich hoffe dasmit könnt ihr was anfangen.
0

#5 Mitglied ist offline   Monique 

  • Gruppe: Mitglieder
  • Beiträge: 7
  • Beigetreten: 04. Oktober 04
  • Reputation: 0

geschrieben 04. Oktober 2004 - 17:40

Sorry für die Schreibfehler.
0

#6 Mitglied ist offline   DiNozzo 

  • Gruppe: aktive Mitglieder
  • Beiträge: 4.412
  • Beigetreten: 13. Dezember 03
  • Reputation: 1
  • Geschlecht:Männlich

geschrieben 04. Oktober 2004 - 17:53

Zitat (Monique: 04.10.2004, 18:39)

Erstmal danke für die Änderung, aber da ich mich nicht so in Foren rumtreiben, felht mir da einfach die Erfahrung.

Wie soll ich das Script beschreiben, es heist "getProgram" und gibt es hier:

hier

Ich hoffe das es geht, denn auch sowas hab ich noch nie gemacht.

Auf alle Fälle zeitg mir das Program alle Sender Von ARD bis VIVA an.

Mit Start und Ende sowie der Film heist der grade läuft.

Ich hoffe dasmit könnt ihr was anfangen.
<{POST_SNAPBACK}>


Also ich kann dem Link nicht folgen, da ich nicht registriert bin ;(
Naja, was am Script funzt jetzt eigentlich nicht? <_<

Zitat (Monique: 04.10.2004, 18:40)

Sorry für die Schreibfehler.
<{POST_SNAPBACK}>


Dazu gibts den Eingefügtes Bild, damit kannst du deine Beiträge bearbeiten :P
0

#7 Mitglied ist offline   Monique 

  • Gruppe: Mitglieder
  • Beiträge: 7
  • Beigetreten: 04. Oktober 04
  • Reputation: 0

geschrieben 04. Oktober 2004 - 19:12

Nun ja, dann versuchs ich mal zu erklären.

Ich hab das Script gestern draufgemacht, hat supt gefunkt. Hat mir von jedem TV Sender das laufende Program angezeigt.
Aber heute zeigt es mir immer noch das Program von gestern an!

Ich hoffe das ihr damit was anfangen könnt.

Das Script sieh ungefähr so aus:

channelopt = 0    ' Option to show channelname in the output
Genreopt = 1    ' Option to show Genre in the output
sinceopt = 1    ' Option to show since when the film is running in the output
endopt = 0    ' Option to show the time of end of the film in the output !experimental!
Genresign = "-"    ' Option what sign is shown if there's no genre (used only if genreoption is enabled)
noinfo="Zur Zeit keine Info!"	' Option what to show if there's no information available for a channel

ChannelTimeSeparator = " - "  ' Option what to separate station and time with (used only if both is enabled)
TimeProgramSeparator = "  "  ' Option what to separate time and program with (used only if time is enabled)
TimedurationSeparator= "  "  ' Option what to separate time and duration with (used only if time is enabled)
GenreSeparator= " ..... "  ' Option what to separate duration and genre with (used only if time is enabled)

Function TVProg2File
	dim html,fs,f
	html = BinToText(GetHTMLBin("http://www.tvmovie.de/tv-programm/jetzt.html?nocache=true"), 32000)
	set fs=CreateObject("Scripting.FileSystemObject")
	set f=fs.CreateTextFile("tvprog.tmp",true)
	f.write(html)
	f.close
	set f=nothing
	set fs=nothing
End Function

function getARD
getARD=getprogram("ARD")
end function

function getZDF
getZDF=getprogram("ZDF")
end function

function getRTL
getRTL=getprogram("RTL")
end function

function getSAT1
getSAT1=getprogram("SAT.1")
end function

function getPRO7
getPRO7=getprogram("PRO 7")
end function

function getRTL2
getRTL2=getprogram("RTL II")
end function

function getSuperRtl
getSuperRtl=getprogram("S RTL")
end function

function getKabel1
getkabel1=getprogram("KABEL")
end function

function get3SAT
get3SAT=getprogram("3SAT")
end function

function getVOX
getVOX=getprogram("VOX")
end function

function getWDR
getWDR=getprogram("WDR")
end function

function getNDR
getNDR=getprogram("NDR")
end function

function getORB
getORB=getprogram("ORB")
end function

function getB1
getB1=getprogram("B 1")
end function

function getMDR
getMDR=getprogram("MDR")
end function

function getHR
getHR=getprogram("HR")
end function

function getSWR
getSWR=getprogram("SWR")
end function

function getBR
getBR=getprogram("BR")
end function

function getKIKA
getKIKA=getprogram("KI.KA")
end function

function getARTE
getARTE=getprogram("ARTE")
end function

function get9Live
get9Live=getprogram("NEUN LIVE")
end function

function getDSF
getDSF=getprogram("DSF")
end function

function getEUROSPORT
getEUROSPORT=getprogram("EURO")
end function

function getNTV
getNTV=getprogram("NTV")
end function

function getN24
getN24=getprogram("N24")
end function

function getPhoenix
getPhoenix=getprogram("Phoenix")
end function

function getCNN
getCNN=getprogram("CNN")
end function

function getNBC
getNBC=getprogram("NBC")
end function

function getVIVA
getVIVA=getprogram("VIVA")
end function

function getVIVAPLUS
getVIVAPLUS=getprogram("VIVA PLUS")
end function

function getMTV
getMTV=getprogram("MTV")
end function

function getMTV2
getMTV2=getprogram("MTV2")
end function

function getONYX
getONYX=getprogram("ONYX")
end function

function getTele5
getTele5=getprogram("Tele 5")
end function

function getHH1
getHH1=getprogram("HH1")
end function

function getBerlin
getBerlin=getprogram("TV Berlin")
end function

function getMuenchen
getMuenchen=getprogram("TVM&uuml;nchen")
end function

function getnrw
getnrw=getprogram("tv.nrw")
end function

function getFAB
getFAB=getprogram("FAB")
end function

function getXXP
getXXP=getprogram("XXP")
end function

function getHomeShoppingEurope
getHomeShoppingEurope=getprogram("Home Shopping Europe")
end function

function getQVC
getQVC=getprogram("QVC")
end function

function getORF1
getORF1=getprogram("ORF 1")
end function

function getORF2
getORF2=getprogram("ORF 2")
end function

function getSF1
getSF1=getprogram("SF 1")
end function

function getSF2
getSF2=getprogram("SF 2")
end function

function getDK1
getDK1=getprogram("DK1")
end function

function getDK2
getDK2=getprogram("DK2")
end function

function getNL1
getNL1=getprogram("NL1")
end function

function getNL2
getNL2=getprogram("NL2")
end function

function getNL3
getNL3=getprogram("NL3")
end function

function getTV5
getprogram5=getprogram("TV5")
end function

function getBRAlpha
getBRAlpha=getprogram("BR Alpha")
end function

function getEinsFestival
getEinsFestival=getprogram("EinsFestival")
end function

function getEinsMuXx
getEinsMuXx=getprogram("EinsMuXx")
end function

function getEinsExtra
getEinsExtra=getprogram("EinsExtra")
end function

function getZDFdoku
getZDFdoku=getprogram("ZDFdoku")
end function

function getPREMIEREANALOG
getPREMIEREANALOG=getprogram("PREMIERE ANALOG")
end function

function getPREMIERESTART
getPREMIERESTART=getprogram("PREMIERE START")
end function

function getPREMIERE1
getPREMIERE1=getprogram("PREMIERE 1")
end function

function getPREMIERE2
getPREMIERE2=getprogram("PREMIERE 2")
end function

function getPREMIERE3
getPREMIERE3=getprogram("PREMIERE 3")
end function

function getPREMIERE4
getPREMIERE4=getprogram("PREMIERE 4")
end function

function getPREMIERE5
getPREMIERE5=getprogram("PREMIERE 5")
end function

function getPREMIERE6
getPREMIERE6=getprogram("PREMIERE 6")
end function

function getPREMIERE7
getPREMIERE7=getprogram("PREMIERE 7")
end function

function getPREMIERENOSTALGIE
getPREMIERENOSTALGIE=getprogram("PREMIERE NOSTALGIE")
end function

function getPREMIERESERIE
getPREMIERESERIE=getprogram("PREMIERE SERIE")
end function

function getKrimiCo
getKrimiCo=getprogram("Krimi &amp; Co.")
end function

function getDiscoveryChannel
getDiscoveryChannel=getprogram("Discovery Channel")
end function

function getKtoon
getKtoon=getprogram("K-toon")
end function

function getDisneyChannel
getDisneyChannel=getprogram("Disney Channel")
end function

function getJunior
getJunior=getprogram("Junior")
end function

function getFOXKIDS
getFOXKIDS=getprogram("FOX KIDS")
end function

function getPlanet
getPlanet=getprogram("Planet")
end function

function getStudioUniversal
getStudioUniversal=getprogram("Studio Universal")
end function

function get13THSTREET
get13THSTREET=getprogram("13TH STREET")
end function

function getClassica
getClassica=getprogram("Classica")
end function

function getGoldstarTV
getGoldstarTV=getprogram("Goldstar TV")
end function

function getBeateUhseTV
getBeateUhseTV=getprogram("Beate-Uhse-TV")
end function


function getPREMIERESPORT1
getPREMIERESPORT1=getprogram("PREMIERE SPORT 1")
end function

function getPREMIERESPORT2
getPREMIERESPORT2=getprogram("PREMIERE SPORT 2")
end function

Function getprogram(channel)


Dim html,fs,code,code2
code="nowrap"

set fs=CreateObject("Scripting.FileSystemObject")
if(fs.FileExists("tvprog.tmp")) then
  Dim f
  set f=fs.OpenTextFile("tvprog.tmp",1)
  html = f.readall
  f.close
  set f=nothing
	else
  html = BinToText(GetHTMLBin("http://www.tvmovie.de/tv-programm/jetzt.html?nocache=true"), 35000)
	end if
if instr(html, channel) = 0 then
  getprogram = noinfo
  Exit Function
	end if
html=right(html,len(html)-instr(html,channel)+300)
html=right(html,len(html)-instr(html,">"))
html=left(html,instr(html,"bis&nbsp;")+13)


'since=right(html,len(html)-instr(html,"&nbsp;")+6)
since=left(html,instr(html,"<")-7) 'left



endtime=right(html,len(html)-instr(html,"bis&nbsp;")-8)



genre=right(html,len(html)-instr(html,"color='#ee0000'")-15)

if (instr(genre,"<br></font>")=0) then
	genre=Genresign
else
	genre=left(genre,instr(genre,"</font></td>")-1)

end if


film= right(html,len(html)-instr(html,"linkblack")-13)
film= left(film,instr(film,"</b>")-1)





if (channelopt=1) then
	if (sinceopt=1) then
  getprogram=channel&ChannelTimeSeparator&since&TimeProgramSeparator&film
	else
  getprogram=channel&ChannelTimeSeparator&film
	end if
else
	if (sinceopt=1) then
  getprogram=since&ChannelTimeSeparator&endtime&TimeProgramSeparator&film
	else
  getprogram=film
	end if
end if

if (genreopt=1) then
	getprogram=getprogram&GenreSeparator&Genre
end if

if (endopt=1) then
	getprogram=getprogram&GenreSeparator&endtime
end if


getprogram = replace(getprogram, "&auml;", "ä")
getprogram = replace(getprogram, "&uuml;", "ü")
getprogram = replace(getprogram, "&ouml;", "ö")


getprogram = replace(getprogram, "&Auml;", "Ä")
getprogram = replace(getprogram, "&Uuml;", "Ü")
getprogram = replace(getprogram, "&Ouml;", "Ö")

getprogram = replace(getprogram, "&szlig;", "ß")

getprogram = replace(getprogram, "&quot;", """")
getprogram = replace(getprogram , "&euro;", "€")
getprogram = replace(getprogram , "&lt;", "<")
getprogram = replace(getprogram , "&gt;", ">")
getprogram = replace(getprogram , "'", "'")
getprogram = replace(getprogram , "&nbsp;", " ")

getprogram = Replace(getprogram, "&iexcl;", "¡")
getprogram = Replace(getprogram, "&cent;", "¢")
getprogram = Replace(getprogram, "&pound;", "£")
getprogram = Replace(getprogram, "&curren;", "¤")
getprogram = Replace(getprogram, "&yen;", "¥")
getprogram = Replace(getprogram, "&brvbar;", "¦")
getprogram = Replace(getprogram, "&sect;", "§")
getprogram = Replace(getprogram, "&uml;", "¨")
getprogram = Replace(getprogram, "&copy;", "©")
getprogram = Replace(getprogram, "&ordf;", "ª")
getprogram = Replace(getprogram, "&laquo;", "«")
getprogram = Replace(getprogram, "&not;", "¬")
getprogram = Replace(getprogram, "&shy;", "")
getprogram = Replace(getprogram, "&reg;", "®")
getprogram = Replace(getprogram, "&macr;", "¯")
getprogram = Replace(getprogram, "&deg;", "°")
getprogram = Replace(getprogram, "&plusmn;", "±")
getprogram = Replace(getprogram, "&sup2;", "²")
getprogram = Replace(getprogram, "&sup3;", "³")
getprogram = Replace(getprogram, "&acute;", "´")
getprogram = Replace(getprogram, "&micro;", "µ")
getprogram = Replace(getprogram, "&para;", "¶")
getprogram = Replace(getprogram, "&middot;", "·")
getprogram = Replace(getprogram, "&cedil;", "¸")
getprogram = Replace(getprogram, "&sup1;", "¹")
getprogram = Replace(getprogram, "&ordm;", "º")
getprogram = Replace(getprogram, "&raquo;", "»")
getprogram = Replace(getprogram, "&frac14;", "¼")
getprogram = Replace(getprogram, "&frac12;", "½")
getprogram = Replace(getprogram, "&frac34;", "¾")
getprogram = Replace(getprogram, "&iquest;", "¿")
getprogram = Replace(getprogram, "&Agrave;", "À")
getprogram = Replace(getprogram, "&Aacute;", "Á")
getprogram = Replace(getprogram, "&Acirc;", "Â")
getprogram = Replace(getprogram, "&Atilde;", "Ã")
getprogram = Replace(getprogram, "&Aring;", "Å")
getprogram = Replace(getprogram, "&AElig;", "Æ")
getprogram = Replace(getprogram, "&Ccedil;", "Ç")
getprogram = Replace(getprogram, "&Egrave;", "È")
getprogram = Replace(getprogram, "&Eacute;", "É")
getprogram = Replace(getprogram, "&Ecirc;", "Ê")
getprogram = Replace(getprogram, "&Euml;", "Ë")
getprogram = Replace(getprogram, "&Igrave;", "Ì")
getprogram = Replace(getprogram, "&Iacute;", "Í")
getprogram = Replace(getprogram, "&Icirc;", "Î")
getprogram = Replace(getprogram, "&Iuml;", "Ï")
getprogram = Replace(getprogram, "&ETH;", "Ð")
getprogram = Replace(getprogram, "&Ntilde;", "Ñ")
getprogram = Replace(getprogram, "&Ograve;", "Ò")
getprogram = Replace(getprogram, "&Oacute;", "Ó")
getprogram = Replace(getprogram, "&Ocirc;", "Ô")
getprogram = Replace(getprogram, "&Otilde;", "Õ")
getprogram = Replace(getprogram, "&Ouml;", "Ö")
getprogram = Replace(getprogram, "&times;", "×")
getprogram = Replace(getprogram, "&Oslash;", "Ø")
getprogram = Replace(getprogram, "&Ugrave;", "Ù")
getprogram = Replace(getprogram, "&Uacute;", "Ú")
getprogram = Replace(getprogram, "&Ucirc;", "Û")
getprogram = Replace(getprogram, "&Yacute;", "Ý")
getprogram = Replace(getprogram, "&THORN;", "Þ")
getprogram = Replace(getprogram, "&szlig;", "ß")
getprogram = Replace(getprogram, "&agrave;", "à")
getprogram = Replace(getprogram, "&aacute;", "á")
getprogram = Replace(getprogram, "&acirc;", "â")
getprogram = Replace(getprogram, "&atilde;", "ã")
getprogram = Replace(getprogram, "&aring;", "å")
getprogram = Replace(getprogram, "&aelig;", "æ")
getprogram = Replace(getprogram, "&ccedil;", "ç")
getprogram = Replace(getprogram, "&egrave;", "è")
getprogram = Replace(getprogram, "&eacute;", "é")
getprogram = Replace(getprogram, "&ecirc;", "ê")
getprogram = Replace(getprogram, "&euml;", "ë")
getprogram = Replace(getprogram, "&igrave;", "ì")
getprogram = Replace(getprogram, "&iacute;", "í")
getprogram = Replace(getprogram, "&icirc;", "î")
getprogram = Replace(getprogram, "&iuml;", "ï")
getprogram = Replace(getprogram, "&eth;", "ð")
getprogram = Replace(getprogram, "&ntilde;", "ñ")
getprogram = Replace(getprogram, "&ograve;", "ò")
getprogram = Replace(getprogram, "&oacute;", "ó")
getprogram = Replace(getprogram, "&ocirc;", "ô")
getprogram = Replace(getprogram, "&otilde;", "õ")
getprogram = Replace(getprogram, "&divide;", "÷")
getprogram = Replace(getprogram, "&oslash;", "ø")
getprogram = Replace(getprogram, "&ugrave;", "ù")
getprogram = Replace(getprogram, "&uacute;", "ú")
getprogram = Replace(getprogram, "&ucirc;", "û")
getprogram = Replace(getprogram, "&yacute;", "ý")
getprogram = Replace(getprogram, "&thorn;", "þ")
getprogram = Replace(getprogram, "&yuml;", "ÿ")
end function




Function GetHTMLBin(strURL)
        Dim objXMLHTTP, strReturn
        Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")

        objXMLHTTP.Open "GET", strURL, False
        objXMLHTTP.SEnd Cstr(Rnd())

        GetHTMLBin = objXMLHTTP.responseBody
        Set objXMLHTTP = Nothing
End Function

Function BinToText(varBinData, intDataSizeInBytes)    ' as String
        Const adFldLong = &H00000080
        Const adVarChar = 200
        Set objRS = CreateObject("ADODB.Recordset")

        objRS.Fields.AppEnd "txt", adVarChar, intDataSizeInBytes, adFldLong
        objRS.Open

        objRS.AddNew
        objRS.Fields("txt").AppEndChunk varBinData
        BinToText = objRS("txt").Value

        objRS.Close
        Set objRS = Nothing
End Function

0

#8 Mitglied ist offline   Monique 

  • Gruppe: Mitglieder
  • Beiträge: 7
  • Beigetreten: 04. Oktober 04
  • Reputation: 0

geschrieben 04. Oktober 2004 - 19:26

Nochmal ich,

kann es sein das der Online Abgleich durch F-Secure geblockt wird?
0

#9 Mitglied ist offline   DiNozzo 

  • Gruppe: aktive Mitglieder
  • Beiträge: 4.412
  • Beigetreten: 13. Dezember 03
  • Reputation: 1
  • Geschlecht:Männlich

geschrieben 04. Oktober 2004 - 19:27

Zitat (Monique: 04.10.2004, 20:26)

Nochmal ich,

kann es sein das der Online Abgleich durch F-Secure geblockt wird?
<{POST_SNAPBACK}>

Jap, könnte sein.
Versuch mal Samurize ins Internet zu lassen, also die blockierung von F-Secure aufzuheben <_<
0

#10 Mitglied ist offline   Monique 

  • Gruppe: Mitglieder
  • Beiträge: 7
  • Beigetreten: 04. Oktober 04
  • Reputation: 0

geschrieben 04. Oktober 2004 - 19:39

Ach so ein scheiß Script, geht immer noch nicht.

Kennst du ein anderes?
KAnnst du mir da was erklären, bzw. dabei helfen ein TV Script zum laufen zu bekommen?
0

#11 Mitglied ist offline   DiNozzo 

  • Gruppe: aktive Mitglieder
  • Beiträge: 4.412
  • Beigetreten: 13. Dezember 03
  • Reputation: 1
  • Geschlecht:Männlich

geschrieben 04. Oktober 2004 - 19:43

Zitat (Monique: 04.10.2004, 20:39)

Ach so ein scheiß Script, geht immer noch nicht.

Kennst du ein anderes?
KAnnst du mir da was erklären, bzw. dabei helfen ein TV Script zum laufen zu bekommen?
<{POST_SNAPBACK}>


Also da ich samurize selbst nicht nutze hab ich nicht die geringste Ahnung <_<
Hast du Samurize auch wirklich den Zugriff aufs Innanet gestattet?
0

#12 Mitglied ist offline   Monique 

  • Gruppe: Mitglieder
  • Beiträge: 7
  • Beigetreten: 04. Oktober 04
  • Reputation: 0

geschrieben 04. Oktober 2004 - 20:10

Ja sowohl Server aul auch Clint!
0

Thema verteilen:


Seite 1 von 1

1 Besucher lesen dieses Thema
Mitglieder: 0, Gäste: 1, unsichtbare Mitglieder: 0