OnlineSig & Samurize
 

hi@all,
ich würde mir gerne die emule stats (up, down, server..das würde erstmal reichen :-) ) bei samurize anzeigen lassen.
ich hab zwar schon ein plugin gefunden, jedoch kann man komischerweise bei dem teil die werte nur in zahlen ausgeben lassen, nicht als graphen. und das nervt mich etwas...
falls jmd. eine lösung parat hat, bitte hier schreiben!
big thx!

hier ist das script, vllt kann ja jmd. was verbessern:

Das sollte funktionieren!

OnlineSig = "<yourpath>\onlinesig.dat"


Function Upload()

Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.OpenTextFile(OnlineSig, 1)
s = MonFic.Readline
s1 = len(s)
s = MonFic.Readline
s = right(s,len(s)-InStr(s,"|"))
s = left(s,InStr(s,"|")-1)
if (s1 = 1) or TimeDiff(OnlineSig) > 5 then
Upload = 0
else
s = replace(s,".",",")
Upload = trim(s)
end if

end Function

Function Download()

Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.OpenTextFile(OnlineSig, 1)
s = MonFic.Readline
s1 = len(s)
s = MonFic.Readline
s = left(s,InStr(s,"|")-1)
if (s1 = 1) or TimeDiff(OnlineSig) > 5 then
Download = 0
else
s = replace(s,".",",")
Download = trim(s)
end if
end Function

Function Queue()

Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.OpenTextFile(OnlineSig, 1)
s = MonFic.Readline
s1 = len(s)
s = MonFic.Readline
s = right(s,len(s)-InStr(s,"|"))
s = right(s,len(s)-InStr(s,"|"))
if (s1 = 1) or TimeDiff(OnlineSig) > 5 then
Queue = 0
else
s = replace(s,".",",")
Queue = trim(s)
end if
end Function

Function EmuleOn()

Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.OpenTextFile(OnlineSig, 1)
s = MonFic.Readline
s1 = len(s)
if (s1 = 1) or TimeDiff(OnlineSig) > 5 then
EmuleOn = "Off"
else
EmuleOn = "On"
end if

end Function

Function Serveur()
Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.OpenTextFile(OnlineSig, 1)
s = MonFic.Readline
s1 = len(s)

if (s1 = 1) or TimeDiff(OnlineSig) > 5 then
Serveur = "N/A"
else
S = right(s,len(s)-InStr(s,"|"))
s = left(s,InStr(s,"|")-1)
Serveur = s

end if

end Function


Function TimeDiff(file)
dim fs,f,diff
set fs=CreateObject("Scripting.FileSystemObject")
if fs.fileexists(file) then
set f=fs.GetFile(file)
diff = datediff( "n", f.DateLastModified, now())
else
diff = 0
end if
set f=nothing
set fs=nothing
TimeDiff = diff
End Function

@micha1963:
danke, aber das problem lag an dem punkt am ende der 3 zeilen. der musste durch ein komma ersetzt werden.
wie gesagt, trotzde thx für die mühe :) vbmenu_register("postmenu_94928", true);

könnt ihr mir einen link zu dem plugin für samurize senden um die onlinesig.dat einzubetten???
BITTE

@srt10coupe
einfach den Text von
OnlineSig =
bis
End Function
mit einem Texteditor kopieren und als OnlineSig.vbs speichern
editieren (<yourpath> = pfad zur onlinesig.dat im Muli) fertig.

danke micha1963 hat geklappt