OnlineSig & Samurize

[k3nny]

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:

' Online Sig V0.4 by Alderaic
'ICQ #173174191
'alderaic@samurize.com http://alderaic.samurize.com
'This is not free to redistribute, please ask before doing so
'



OnlineSig = "D:\Programme\emule\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 = "Offline"
	else 
	EmuleOn = "Online"
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]

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

[k3nny]

@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);

[srt10coupe]

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

[micha1963]

@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.

[srt10coupe]

danke micha1963 hat geklappt