[eMule-Web]  

Zurück   [eMule-Web] > eMule > eMule Signatur

eMule Signatur Alle Fragen und Themen rund um die eMule-Signaturen

Antwort
 
LinkBack Themen-Optionen
Alt 22. August 2005, 15:52   #1
Newbie
 
Registriert seit: 04.07.2003
Beiträge: 7
Huh?: OnlineSig & Samurize Problem: 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:
Code:
' 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
k3nny ist offline   Mit Zitat antworten
Alt 5. September 2005, 06:48   #2
Newbie
 
Registriert seit: 24.03.2005
Beiträge: 15

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 ist offline   Mit Zitat antworten
Alt 5. September 2005, 12:34   #3
Newbie
 
Registriert seit: 04.07.2003
Beiträge: 7
Standard: OnlineSig & Samurize OnlineSig & Samurize Details

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

__________________
*** MfG, k3nny ***
k3nny ist offline   Mit Zitat antworten
Alt 21. March 2006, 17:41   #4
Junior Member
 
Benutzerbild von srt10coupe
 
Registriert seit: 03.03.2006
Beiträge: 62
Standard: OnlineSig & Samurize Lösung: OnlineSig & Samurize

könnt ihr mir einen link zu dem plugin für samurize senden um die onlinesig.dat einzubetten???
BITTE
srt10coupe ist offline   Mit Zitat antworten
Alt 21. March 2006, 22:50   #5
Newbie
 
Registriert seit: 24.03.2005
Beiträge: 15
Standard: OnlineSig & Samurize OnlineSig & Samurize [gelöst]

@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.
micha1963 ist offline   Mit Zitat antworten
Alt 22. March 2006, 18:08   #6
Junior Member
 
Benutzerbild von srt10coupe
 
Registriert seit: 03.03.2006
Beiträge: 62

danke micha1963 hat geklappt
srt10coupe ist offline   Mit Zitat antworten
Antwort

Lesezeichen

Themen-Optionen

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge hochzuladen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are an


Ähnliche Themen: OnlineSig & Samurize


  1. 1&1 Surf & Phone Set WLAN (7113) - emule 0.48a
    DSL Router - 19. August 2007 (9)
  2. Onlinesig v1.04c [08.07.2004]
    eMule Signatur - 1. January 2006 (6)
  3. onlinesig test. ;)
    eMule Signatur - 8. November 2005 (597)
  4. OnlineSig als Dienst starten
    eMule Signatur - 19. May 2005 (0)
  5. Problem OnlineSig
    eMule Signatur - 29. November 2004 (79)
  6. eMule Onlinesig Showroom
    eMule Signatur - 12. August 2004 (5)
  7. OnlineSig reagiert nicht
    eMule Signatur - 28. March 2004 (0)
  8. Probs mit OnlineSig !!!
    Mülltonne - 23. March 2004 (6)
  9. hilfe mit onlinesig
    eMule Signatur - 20. July 2003 (2)
  10. eMule (jeder Mod) & Freeze & XP
    eMule Allgemein - 22. May 2003 (19)
  11. Onlinesig stürzt ab!
    eMule Signatur - 28. January 2003 (3)
  12. Variablen in OnlineSig
    eMule Signatur - 8. January 2003 (8)


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:28 Uhr.


Powered by vBulletin® Version 3.8.3 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
PAGERANK