Samurize og SR script ??
Jeg sidder og leger med det lille og fikse program Smurize 0.63c........Jeg fandt så et script til Shareractor.....så den viser de nyeste release........men jeg kan ikke få det til at virke !!.........jeg forstår for det første ikke filen der er skrevet......den nævner noget med en .tmp fil......men den har jeg ikke(ved ikke om det er en man får med eller en man selv skal lave !!)
Og så starter mit problem ellers der fra.........
Mit samurize siger når jeg kører scriptet: "' - You may change user variables below."
Koden til filen er her, håber der er en venlig sjæl der vil foklarer mig det (Dem jeg har skrevet TRUE ved er de funktione rjeg vil have med ;o) ):
'------------------------------------------------------------------------
' ShareReactor.vbs (v2.3)
'------------------------------------------------------------------------
' - Run "RunMeInBackground" -function in order to get your data updated.
' Your antivirus-software may detect this as a malicious script, but
' that's just because this writes a small temporary (.tmp) file into
' your configs-folder.
'
' - Use "Add text file" -meter to view.
'
' - In TextFile Properties write down full path of your configs-dir and
' filename sharereactor.tmp into "Text File To Read From:" -datafield
' (tex. c:\program files\samurize alpha\configs\sharereactor.tmp)
'
' - You may change user variables below.
'
' Total amount of lines to view = 15 - Sami
'------------------------------------------------------------------------
Function RunMeInBackground
'------ User variables -------------
const SHOW_DATE = TRUE ' TRUE = include date , FALSE = do not include date
const SHOW_GATEGORY = TRUE ' TRUE = show file gategory , FALSE = no gategory included
const TOTAL = 15 ' 1-15 - amount of releases to find
' Filter-options:
const FILTER_DVDRIPS = TRUE ' TRUE - filter out DVD-Rips , FALSE - No filtering
const FILTER_SCREENERS = FALSE ' TRUE - filter out Screeners , FALSE - No filtering
const FILTER_ANIME = FALSE ' TRUE - filter out Anime , FALSE - No filtering
const FILTER_SERIES = FALSE ' TRUE - filter out Series , FALSE - No filtering
const FILTER_PCGAMES = TRUE ' TRUE - filter out PC Games , FALSE - No filtering
const FILTER_CONSOLES = FALSE ' TRUE - filter out Consoles , FALSE - No filtering
const FILTER_SOFTWARE = TRUE ' TRUE - filter out Software , FALSE - No filtering
const FILTER_BOOKS = FALSE ' TRUE - filter out Books , FALSE - No filtering
const FILTER_FUNSTUFF = FALSE ' TRUE - filter out Funstuff , FALSE - No filtering
const FILTER_ADULT = TRUE ' TRUE - filter out Adult , FALSE - No filtering
const FILTER_HENTAI = FALSE ' TRUE - filter out Hentai , FALSE - No filtering
const FILTER_PS2 = FALSE ' TRUE - filter out PS2 , FALSE - No filtering
const FILTER_XBOX = FALSE ' TRUE - filter out XBOX , FALSE - No filtering
'-----------------------------------
dim htmlResult,fs,f,outputti,rivi,katekoria
htmlResult = ReturnHTML("http://www.sharereactor.com")
outputti = NULL
relnext = instr(htmlResult, "<b>Latest Releases</b>")
if relnext > 0 then
for i = 1 to TOTAL
aloitus = instr( relnext, htmlResult, "<a href=""release.php?id=")
aloitus = instr( aloitus+24, htmlResult, ">")
lopetus = instr( aloitus, htmlResult, "</a>")
relnext = lopetus+4
if aloitus > 0 AND lopetus > aloitus Then
if SHOW_DATE = TRUE then
rivi = mid( htmlResult, aloitus+1, lopetus-aloitus-1 )
else
rivi = right(mid( htmlResult, aloitus+1, lopetus-aloitus-1 ), lopetus-aloitus-12)
end if
end if
aloitus = instr( lopetus+4, htmlResult, ">")
lopetus = instr( aloitus, htmlResult, "</a>")
if aloitus > 0 AND lopetus > aloitus Then
filt = 0
katekoria = mid( htmlResult, aloitus+1, lopetus-aloitus-1 )
if FILTER_DVDRIPS = TRUE and katekoria = "(DVD Rips)" then filt= 1 end if
if FILTER_SCREENERS = TRUE and katekoria = "(Screeners)" then filt= 1 end if
if FILTER_ANIME = TRUE and katekoria = "(Anime)" then filt= 1 end if
if FILTER_SERIES = TRUE and katekoria = "(Series)" then filt= 1 end if
if FILTER_PCGAMES = TRUE and katekoria = "(PC Games)" then filt= 1 end if
if FILTER_CONSOLES = TRUE and katekoria = "(Consoles)" then filt= 1 end if
if FILTER_SOFTWARE = TRUE and katekoria = "(Software)" then filt= 1 end if
if FILTER_BOOKS = TRUE and katekoria = "(Books)" then filt= 1 end if
if FILTER_FUNSTUFF = TRUE and katekoria = "(Funstuff)" then filt= 1 end if
if FILTER_ADULT = TRUE and katekoria = "(Adult)" then filt= 1 end if
if FILTER_HENTAI = TRUE and katekoria = "(Hentai)" then filt= 1 end if
if FILTER_PS2 = TRUE and katekoria = "(PS2)" then filt= 1 end if
if FILTER_XBOX = TRUE and katekoria = "(XBOX)" then filt= 1 end if
if filt = 0 then
if SHOW_GATEGORY = FALSE then
katekoria = NULL
end if
outputti = outputti & rivi & " " & katekoria & (Chr(13) & Chr(10))
end if
else
outputti = outputti & "-" & (Chr(13) & Chr(10))
end if
next
end if
rivi = NULL
htmlResult = NULL
set fs=CreateObject("Scripting.FileSystemObject")
set f=fs.CreateTextFile("sharereactor.tmp",true)
f.write(outputti)
f.close
set f=nothing
set fs=nothing
End Function
Function ReturnHTML(sURL)
Dim objXMLHTTP,HTML
Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", sURL, False
objXMLHTTP.Send
HTML = objXMLHTTP.responseBody
Set objRS = CreateObject("ADODB.Recordset")
objRS.Fields.Append "txt", 200, 45000, &H00000080
objRS.Open
objRS.AddNew
objRS.Fields("txt").AppendChunk HTML
ReturnHTML = objRS("txt").Value
objRS.Close
Set objRS = Nothing
Set objXMLHTTP = Nothing
End Function
