Noen som kunne laget et lite skript til meg

xanonymx · 23. desember 2006

Hei

Lurer på om noen kunne laget et lite skript til meg (eller lært meg hvordan man gjør, men har ikke noe spesiell erfaring med programering).

Skriptet skal være til Samurize for å vise "Visste du at..." linjen som er nederst på www.startsiden.no og kunne vise den på desktopen. Slikt som tv skriptet funker.

Takk

Edit: Jeg plasserte dette innlegget sikker på feil plassering, så det er bare til å flytte det hvis du får lyst.

Endret 23. desember 2006 av xanonymx

xanonymx · 25. desember 2006

Er det ingen som kan hjelpe meg? Noe du lurer så bare spør.

27. desember 2006

Hei

Lurer på om noen kunne laget et lite skript til meg (eller lært meg hvordan man gjør, men har ikke noe spesiell erfaring med programering).

Skriptet skal være til Samurize for å vise "Visste du at..." linjen som er nederst på www.startsiden.no og kunne vise den på desktopen. Slikt som tv skriptet funker.

Takk

Edit: Jeg plasserte dette innlegget sikker på feil plassering, så det er bare til å flytte det hvis du får lyst.

7564228[/snapback]

ehh,og hvor har du tenkt til å taste inn scripten?? da må du nok omprogrammere Windows'en, Mac'en, Linux'en eller hva du bruker

Patience · 27. desember 2006

Han sa jo at han skulle bruke det i samurize :-)

xanonymx · 28. desember 2006

Men er det noen som kan hjelpe meg. Jeg tror ikke det er så mye arbeid med å lage et slikt script. Men jeg kan det jo ikke så jeg er ikke sikker.

Jeg skulle nå ønske at jeg kunne programert det selv. Så hvis noen vet om en side som er om å lære å programmere så hadde det hvert fint å fått vite om den. Men jeg er nødt til å ha det på norsk i så fall. Jeg orker ikke å lese så mye på engelsk.

Dead_Rabbit · 29. desember 2006

Men er det noen som kan hjelpe meg. Jeg tror ikke det er så mye arbeid med å lage et slikt script. Men jeg kan det jo ikke så jeg er ikke sikker.
Jeg skulle nå ønske at jeg kunne programert det selv. Så hvis noen vet om en side som er om å lære å programmere så hadde det hvert fint å fått vite om den. Men jeg er nødt til å ha det på norsk i så fall. Jeg orker ikke å lese så mye på engelsk.

7596035[/snapback]

Ånei, men da er du nok lost.

xanonymx · 29. desember 2006

Det var akkurat det. Det er derfor at jeg spør om noen kan lage det for meg. Grunnen til at jeg ikke tror det blir så stort er fordi er at tv skriptet ikke er så stort, hvis du tenker på at det viser for flere kanaler og til forskjellige tider.

Tv skriptet (endel av dette er jo bare forklaring, så selve programmerings delen er ikke så stor, noe som du sikkert klarer å se selv):

Klikk for å se/fjerne innholdet nedenfor

' NorskTV With Links Support (by Mythril)
'

' Based on UKTV v3.0 With Link Support (by Fiendish1)

'

' Updates:

' 1.1: - Fixed a bug where the programs weren't always placed in the right channel

' - Updated the channel list

' 1.0: - No real change, but since it seems that it shouldn't be any problems with the

' script now, I'm releasing it as a final version!

' 0.81: - Channels that are not chosen, will be ignored!

' 0.8: - Changed the GetURL string, now the schedule should be correct after midnight.

' - Changed the script so it's a little easier to change the order of channels.

' - Removed the note about link support in Samurize, because it's not useful to

' read several lines anyway after I added the program progress.

' 0.43: Changed the program info links, they should work now.

' 0.41: sol.no changed its layout, so I've updated the script to work with the new layout

' 0.4: Added progress bars for the currently running show.

'

' This script creates a textfile (NorskTV.txt) that can be read in via TextFile Meters. The

' textfile (NorskTV.txt) is normally created in the Samurize folder.

'

' Usage Instructions:

'

' 1. Copy "norsktv.vbs" into your Samurize Scripts folder.

' 2. If you wish, you may change the options under CONFIG SECTION

' Specifically, if you want to change the channels that are shown, follow the instructions

' in the config section!

' 2. Add an active script to your Samurize Config and select "norsktv.vbs"

' Select the RefreshData function, set it to run when you want (e.g. every 10 mins)

' 3. Add a Text File Meter and point it to the NorskTV.txt file (normally in your Samurize Folder)

' Choose which lines you want to read in. The format of the Textfile is as follows:

' Line 1 - TV3

' Line 2 - Running program

' Line 3 - Progress of running program (0-100%)

' Line 4&5 - Next two programs

' The following lines follow the same patterns. Check the config section to change the order of

' programs if you wish.

'

' NOTE: This script will take some time to run, because it downloads a large page from the internet.

' Be patient!

'

' ** CONFIG SECTION **

'

' 0 = Links off

' 1 = Links to webpage

LinkMode = 1

' The text below will be shown when no programs are available

NoProgsText = "Ingen programmer før imorgen"

' The variable below defines which programs should be first and what order they should be stored

' in NorskTV!

MyChannels = Array( "TV3", "TVN2", "TV2", "NRK1", "NRK2", "ZTV", "DISCOVERY" )

' The channel names you can use are (in alphabetical order):

' 3SAT

' ANIMAL

' BBC-PRIME, BBC-WORLD

' CARTOON, CNBC, CNBCNATGEO, CPLFILM2, CANAL+, CPLFILM1, CNN, CLUB

' CPLCMORE, CPLSPORT

' DISNEY, DISCOVERY, D_SCI-TREK, DSF, D_CIVILISATION, D_TRAVEL, DW

' DR1, DR2

' EXTREME, EUROSPORT

' HALLMARK

' JETIX

' KANAL5

' MTV

' NRK1, NRK2, NICKELODEON, NATGEO

' PRO7

' RTL, RTL2, REALITY

' SVT1, SVT2, STAR, SHOWTIME, SAT1, SKYNEWS, SKYNATGEO

' TV2, TV2X, TVN2, TV4, TV3, TV3_DK, TV3_SE, TV3PLDAN

' TCMCARTOON, TOON DISNEY, TV2_DK, TRAVEL, TV6, TV8, TV5FRANCE

' TV1000, TV1000A, TV1000C, TV1000F, TV1000N, TCM, THE VOICE

' VH1, VIASATHIST, VIASATEXPL, VIASATSPORT, VIASPO2, VIASPO3

' ZTV, ZTV_SE

'

' The names have to be written exactly as specified here, or the script may not recognize it!

' Hopefully it's easy to see which name is which channel... If not it's probably best to just

' test them and see if they show the program you're expecting.

'

' If you can't find the channel you want, try going to:

' http://www.sol.no/underholdning/tv/guiden/...es=*&Channels=*

' Find the channel you want, and open up it's logo. The filename of the logo will be the

' channel name used in this script. (But uppercased and without the filetype. Example:

' If the filename is tv3.gif, then the name used in the script will just be TV3.

' If there is no logo, but a name inside brackets, then the name will be that name. Ex:

' For [Toon Disney] the name will be TOON DISNEY.

'

' If you change the order, you'll also have to change the config to reflect the new order.

' Make sure you run the script once in the config editor to create the new NorskTV.txt, so

' you'll see the channels you want when you change the TextFile meters to show your program.

' If you don't know VBScript:

' Make sure that all the channels are inside ""s, and that they have a , after each of them,

' except for the last channel! If not you'll get a script error when you run this script.

' ** CODE SECTION **

' You shouldn't need to change anything below here!

' The function for fetching the schedule. Sorry that this isn't commented very well...

Function RefreshData

Dim Channels, Chan

' Make sure we get the correct schedule.

TheDate = Month(Date) & "%2F" & Day(Date) & "%2F" & Year(Date)

If Hour(Time) < 5 Then

PreDate = DateAdd( "D", -1, Date )

TheDate = Month(PreDate) & "%2F" & Day(PreDate) & "%2F" & Year(PreDate)

End If

GetURL = "http://www.sol.no/underholdning/tv/guiden/index.cgi?StartTime=now&EndTime=2900&Categories=*&Channels=*&Date=" & TheDate & "&refreshing=" & Time

Set Channels = CreateObject("Scripting.Dictionary")

For Each Chan in MyChannels

Channels.Add Chan, CreateObject("Scripting.Dictionary")

Next

Dim Http

Set Http = CreateObject("Microsoft.XMLhttp")

Http.Open "GET",GetURL,False

Http.Send

HtmlResult = BinToText(Http.ResponseBody, 35000)

Set Http = Nothing

ProgramDato = RemoveHTMLArtifacts( GetHTMLValue2("<tr bgcolor=""#999900""><td> </td><td colspan=""4""><b style=""font-size:12px; color:#ffffff;"">", "</b></td></tr>", htmlresult, 1) )

For Count = 1 To 1000

RawText = GetHTMLValue2("<td bgcolor=""#999900""> </td><td><font face=""verdana,arial,helvetica"" size=""1""><b>", "</td></tr>", htmlresult, count)

If RawText = "N/A" Then Exit For

FixedText = RemoveHTMLArtifacts(RawText) & vbNewLine

InfoArray = Split(FixedText, "¤")

ChannelName = UCase( GetHTMLValue2("http://tvguide.sol.no/img/logos/", ".", RawText, 1) )

If ChannelName = "N/A" Then

ChannelName = UCase(GetHTMLValue2("[", "]", RawText, 1))

End If

ProgTime = InfoArray(0)

ProgEndtime = InfoArray(3)

ProgTitle = InfoArray(12) & InfoArray(13)

ProgTitle = Trim( Replace(ProgTitle, "~", "'") )

If LinkMode > 0 Then

RawLink = GetHTMLValue2("<a href=""", """", RawText, 1 )

If RawLink <> "N/A" Then

ProgTitle = ProgTitle & "%l" & RawLink

End If

End If

If Channels.Exists( ChannelName ) Then

If Channels( ChannelName ).Count < 4 Then

Channels( ChannelName ).Add Channels( ChannelName).Count, ProgTime & "-" & ProgEndTime & " - " & ProgTitle

If Channels( ChannelName ).Count = 1 Then

ProgLength = TimeDifference(ProgTime, ProgEndtime)

ProgRun = TimeDifference( ProgTime, Time )

If ProgLength > 0 Then

ProgPercent = CInt( ProgRun * 100 / ProgLength )

Else

ProgPercent = 0

End If

Channels( ChannelName ).Add Channels( ChannelName).Count, ProgPercent

End If

End If

End If

Next

Set fs=CreateObject("Scripting.FileSystemObject")

Set f=fs.CreateTextFile("NorskTV.txt",true)

Keys = Channels.Keys

Items = Channels.Items

For Num = 0 To Channels.Count - 1

f.Write Keys( Num ) & vbNewLine

If Items( Num ).Exists(0) Then

f.Write Items( Num )(0) & vbNewLine

Else

f.Write NoProgsText & vbNewLine

End If

f.Write Items( Num )(1) & vbNewLine

f.Write Items( Num )(2) & vbNewLine

f.Write Items( Num )(3) & vbNewLine

Next

Set fs=Nothing

Set f=Nothing

RefreshData = ProgramDato & " " & Time

End Function

Private Function TimeDifference( StartTime, EndTime )

Dim StartMinutes, EndMinutes

StartMinutes = Hour(StartTime)*60 + Minute( StartTime )

EndMinutes = Hour(EndTime)*60 + Minute( EndTime )

If StartMinutes > EndMinutes Then

EndMinutes = EndMinutes + 24*60

End If

TimeDifference = EndMinutes - StartMinutes

End Function

Private Function GetHTMLValue2(LeftBound, RightBound, htmlresult, count)

HtmlStart = InStr(HtmlResult, LeftBound) + Len(LeftBound)

HtmlEnd = InStr(HtmlStart, HtmlResult, RightBound)

For counter = 2 To count

HtmlStart = InStr(HtmlEnd + Len(RightBound), HtmlResult, LeftBound) + Len(LeftBound)

HtmlEnd = InStr(HtmlStart, HtmlResult, RightBound)

Next

If HtmlStart > Len(LeftBound) AND HtmlEnd > 0 Then

GetHTMLValue2 = Replace(Mid(HtmlResult, HtmlStart, HtmlEnd - HtmlStart ), " ", " ")

Else

GetHTMLValue2 = "N/A"

End If

End Function

Private 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

Private function RemoveHTMLArtifacts(ByRef asHTML)

Dim loRegExp' Regular Expression Object

' Create built In Regular Expression object

Set loRegExp = New RegExp

' Set the pattern To look For HTML tags

loRegExp.Pattern = "<[^>]*alt=""([^""]*)""[^>]*>"

' Return the original String stripped of HTML

RemoveHTMLArtifacts = loRegExp.Replace(asHTML, "$1")

loRegExp.Pattern = "<[^>]*>"

loRegExp.Global = True

RemoveHTMLArtifacts = loRegExp.Replace(RemoveHTMLArtifacts, "¤")

loRegExp.Pattern = "\æ"

RemoveHTMLArtifacts = loRegExp.Replace(RemoveHTMLArtifacts, "æ")

loRegExp.Pattern = "\ø"

RemoveHTMLArtifacts = loRegExp.Replace(RemoveHTMLArtifacts, "ø")

loRegExp.Pattern = "\å"

RemoveHTMLArtifacts = loRegExp.Replace(RemoveHTMLArtifacts, "å")

loRegExp.Pattern = "\Æ"

RemoveHTMLArtifacts = loRegExp.Replace(RemoveHTMLArtifacts, "Æ")

loRegExp.Pattern = "\Ø"

RemoveHTMLArtifacts = loRegExp.Replace(RemoveHTMLArtifacts, "Ø")

loRegExp.Pattern = "\Å"

RemoveHTMLArtifacts = loRegExp.Replace(RemoveHTMLArtifacts, "Å")

' Release object from memory

Set loRegExp = Nothing

End function

LNaitsirhC · 30. desember 2006

Ingen vits i å finne opp kruttet på nytt, hva?

Last ned Generic HTTP Scanner her (direktelink).

Så er det sannsyneligvis noe ala dette du kan forandre til i toppen av scriptet:

SITE_URL	= "http://www.startsiden.no/"
PAGE_CHECK  = "<title>ABC Startsiden - Topp</title>"
FIRST_CHECK	= "<div class="row">"
END_CHECK	= "</div>"
FIRST_CHECK2	= "<strong>Visste du at...</strong> <i>"
END_CHECK2	= "</i></p>"
REMOVE_END_CHECK= "no"
USERNAME	= ""
PASSWORD	= ""
HTTP_METHOD	= "Get"
BULLET_ON_NEW_LINES = "- "
SEPERATOR	= vbCrLf & vbCrLf
REMOVE_NEWLINES	= "No"

Endret 30. desember 2006 av LarsChh

xanonymx · 30. desember 2006

Jeg tok og redigerte dette, men det funket ikke skikkelig. Hvis jeg dobbelklikke på selve script filen så får jeg opp dette:

Jeg prøvde også å legge det inni samurize, men da fikk jeg opp dette på desktopen:

Noe jeg har gjort galt?

LNaitsirhC · 30. desember 2006

Hmm, var kanskje jeg som sa litt feil når jeg sa i toppen, men det jeg mente var vel å bytte ut det som står her:

Hvis det ikke var det du gjorde da.. :hmm:

Endret 30. desember 2006 av LarsChh

xanonymx · 30. desember 2006

Det var det jeg gjorde, men jeg brukte notisblokk/notepad til redigeringen. Eller må jeg bruke et annet program til det?

LNaitsirhC · 30. desember 2006

- Gjør scriptfilen tilbake sånn som den var orginal, om du ikke har gjort det.

I samurize Config Editor:

- Høyreklikk -> Add Active Script

- På "select script" til høyre velger du GenericHttpScanner.vbs

- På "select function to run" til høyre velger du GetInfo

- Da får du opp en popup, og i den første skriver du da: http://www.startsiden.no/

- I den andre: <title>ABC Startsiden - Topp</title>

- I den tredje: <div class="row">

- I den fjerde: </div>

- I den femte: <strong>Visste du at...</strong> <i>

- I den sjette: </i></p>

- I den syvende: no

- I den åttende skriver du ingenting

- I den niende skriver du ingenting

- I den tiende: Get

- I den ellevte skriver du ingenting

- I den tolvte skriver du ingenting

- I den trettende: no

Dette gjorde jeg nettopp selv, og det fungerte utmerket. Så hvis det fortsatt blir noe feil, vet jeg ikke hva det er..

Endret 30. desember 2006 av LarsChh

xanonymx · 30. desember 2006

Tusen takk for hjelpen, fikk det til nå.

Logg inn

Noen som kunne laget et lite skript til meg

Anbefalte innlegg

xanonymx

Videoannonse

xanonymx

Gjest Slettet-aNZFa3

Patience

xanonymx

Dead_Rabbit

xanonymx

LNaitsirhC

xanonymx

LNaitsirhC

xanonymx

LNaitsirhC

xanonymx

Opprett en konto eller logg inn for å kommentere

Opprett konto

Logg inn

Hvem er aktive 0 medlemmer