The Tip Watcher

[Ibrahim]

it did this tool to help me keep an eye on my torrent ,drive spaces, free ram, downloads,firefox and internet explorer downloaders and movie time (works with wmplayer classic and Vlc player)and the position of the tip is customized by a file named position.txt as you'll see and my internet gateway

hope it's useful it includes two icons just keep it in the same directory... hope u like it and feel free to improve it, u may need to modify some strings as it's customized for my computer

Note: the time displayed in the title is internet time and it's not my own i copied it from some script in here thanks to the guy.

Tooro.au3

right.ico

offline.ico

Edited September 25, 2007 by Ibrahim

[BillLuvsU]

Very cool! I congradulate you on an impressive job!

:salute:

[Ibrahim]

Use this script to minimize it

opt("wintitlematchmode",4)
WinSetState("classname=tooltips_class32","",@SW_MINIMIZE)

[AlmarM]

Nice

But is it normal that there is

Free RAM: xxx MB

then 5 seconds later

Free RAM: xxx +1 (example 524 to 525) MB

[Ibrahim]

and why shouldn't that be NORMAL?

[Bert]

I think he is confused on how system resources are bing used. Nice job!

[Ibrahim]

thanks volly it's my first posts round here hope i can contribute moore

[BrettF]

thanks volly it's my first posts round here hope i can contribute moore

*looks at post count* First posts?? Oh well... Close enough... Good job. It looks pretty good

[Ibrahim]

i used the pop3 mail script to send this status to my mail everytime my ip changed by DynDns client

[Ibrahim]

check out this preview on LifeHacker.com

http://brothersstores.tk/

or

http://lifehacker.com/photogallery/System-...nd-Tell/2732788

[slipperylobster]

Nice. Just before I saw your script..I googled for some info on clearing memory. Then I just made a shortcut to point to this file:

%windir%\system32\rundll32.exe advapi32.dll,ProcessIdleTasks

This also clears the memory.

[Ibrahim]

if that's true "You Rock !"

[Ibrahim]

man try this better(will close some services so check the code first)

expandcollapse popup

ProgressOn("Service Lighter. . .By Ibrahim Ghorabah", "Stopping Service Processses . . .", "0 percent",-1,-1)
$mem = MemGetStats()
FileWriteLine(@WindowsDir&"\membef.txt",$mem[2])
$membefore=FileReadLine(@WindowsDir&"\membef.txt",1)
;_____________________________________________________________
Run("sc stop ProtectedStorage","",@SW_HIDE)
ProcessWaitClose("sc.exe")
$ServName="Protected Storage"
ProgressSet( 2.9*1, "Stopping : "&$ServName)
;_____________________________________________________________
Run("sc stop Browser","",@SW_HIDE)
ProcessWaitClose("sc.exe")
$ServName="Browser"
ProgressSet( 2.9*2, "Stopping : "&$ServName)
;_____________________________________________________________
Run("sc stop CryptSvc","",@SW_HIDE)
ProcessWaitClose("sc.exe")
$ServName="Cryptography"
ProgressSet( 2.9*3, "Stopping : "&$ServName)
;_____________________________________________________________
Run("sc stop DcomLaunch","",@SW_HIDE)
ProcessWaitClose("sc.exe")
$ServName="Dcom Launch"
ProgressSet( 2.9*4, "Stopping : "&$ServName)
;_____________________________________________________________
Run("sc stop dmserver","",@SW_HIDE)
ProcessWaitClose("sc.exe")
$ServName="Protected DM server"
ProgressSet( 2.9*5, "Stopping : "&$ServName)
;_____________________________________________________________
Run("sc stop ERSvc","",@SW_HIDE)
ProcessWaitClose("sc.exe")
$ServName="Error Reporting"
ProgressSet( 2.9*6, "Stopping : "&$ServName)
;_____________________________________________________________
Run("sc stop Eventlog","",@SW_HIDE)
ProcessWaitClose("sc.exe")
$ServName="Events Loging"
ProgressSet( 2.9*7, "Stopping : "&$ServName)
;_____________________________________________________________
Run("sc stop EventSystem","",@SW_HIDE)
ProcessWaitClose("sc.exe")
$ServName="Event System"
ProgressSet( 2.9*8, "Stopping : "&$ServName)
;_____________________________________________________________
Run("sc stop FastUserSwitchingCompatibility","",@SW_HIDE)
ProcessWaitClose("sc.exe")
$ServName="Fast User Switching"
ProgressSet( 2.9*9, "Stopping : "&$ServName)
;_____________________________________________________________
Run("sc stop lanmanserver","",@SW_HIDE)
ProcessWaitClose("sc.exe")
$ServName="LAN Manager Server"
ProgressSet( 2.9*10, "Stopping : "&$ServName)
;_____________________________________________________________
Run("sc stop lanmanworkstation","",@SW_HIDE)
ProcessWaitClose("sc.exe")
$ServName="LAN Manager Workstation"
ProgressSet( 2.9*11, "Stopping : "&$ServName)
;_____________________________________________________________
Run("sc stop PlugPlay","",@SW_HIDE)
ProcessWaitClose("sc.exe")
$ServName="Plug And Play"
ProgressSet( 2.9*12, "Stopping : "&$ServName)
;_____________________________________________________________
Run("sc stop RasMan","",@SW_HIDE)
ProcessWaitClose("sc.exe")
$ServName="Remote Access Manager"
ProgressSet( 2.9*13, "Stopping : "&$ServName)
;_____________________________________________________________
Run("sc stop SamSs","",@SW_HIDE)
ProcessWaitClose("sc.exe")
$ServName="Securtity Account Manager"
ProgressSet( 2.9*14, "Stopping : "&$ServName)
;_____________________________________________________________
Run("sc stop seclogon","",@SW_HIDE)
ProcessWaitClose("sc.exe")
$ServName="Seconder Logon"
ProgressSet( 2.9*15, "Stopping : "&$ServName)
;_____________________________________________________________
Run("sc stop SENS","",@SW_HIDE)
ProcessWaitClose("sc.exe")
$ServName="System Event Notification"
ProgressSet( 2.9*16, "Stopping : "&$ServName)
;_____________________________________________________________
Run("sc stop SSDPSRV","",@SW_HIDE)
ProcessWaitClose("sc.exe")
$ServName="SSDP Discovery Service"
ProgressSet( 2.9*17, "Stopping : "&$ServName)
;_____________________________________________________________
Run("sc stop stisvc","",@SW_HIDE)
ProcessWaitClose("sc.exe")
$ServName="Protected Storage"
ProgressSet( 2.9*18, "Stopping : "&$ServName)
;_____________________________________________________________
Run("sc stop TapiSrv","",@SW_HIDE)
;Run("sc stop Themes","",@SW_HIDE)
$ServName="Telephony API"
ProgressSet( 2.9*19, "Stopping : "&$ServName)
;_____________________________________________________________
Run("sc stop TermService","",@SW_HIDE)
ProcessWaitClose("sc.exe")
$ServName="Terminal Routing"
ProgressSet( 2.9*20, "Stopping : "&$ServName)
;_____________________________________________________________
Run("sc stop helpsvc","",@SW_HIDE)
ProcessWaitClose("sc.exe")
$ServName="Help And Support"
ProgressSet( 2.9*21, "Stopping : "&$ServName)
;_____________________________________________________________
Run("sc stop msftpsvc","",@SW_HIDE)
ProcessWaitClose("sc.exe")
$ServName="FTP Connection Client"
ProgressSet( 2.9*22, "Stopping : "&$ServName)
;_____________________________________________________________
Run("sc stop IISADMIN","",@SW_HIDE)
ProcessWaitClose("sc.exe")
$ServName="Internet Information Administration"
ProgressSet( 2.9*23, "Stopping : "&$ServName)
;_______________________________________________________________________________________
Run("sc stop BITS","",@SW_HIDE)
ProcessWaitClose("sc.exe")
$ServName="Background intelligent updater"
ProgressSet( 2.9*24, "Stopping : "&$ServName)
;________________________________________________________________________________________
Run("sc stop lanmanworkstation","",@SW_HIDE)
ProcessWaitClose("sc.exe")
$ServName="Protected Storage"
ProgressSet( 2.9*25, "Stopping : "&$ServName)
;_____________________________________________________________
Run("sc stop Netman","",@SW_HIDE)
ProcessWaitClose("sc.exe")
$ServName="Network Connection Manager"
ProgressSet( 2.9*26, "Stopping : "&$ServName)
;__________________________________________________________________________________________
Run("sc stop RasMan","",@SW_HIDE)
ProcessWaitClose("sc.exe")
$ServName="Protected Storage"
ProgressSet( 2.9*27, "Stopping : "&$ServName)
;_____________________________________________________________
Run("sc stop Schedule","",@SW_HIDE)
ProcessWaitClose("sc.exe")
$ServName="Schedule"
ProgressSet( 2.9*28, "Stopping : "&$ServName)
;_____________________________________________________________
Run("sc stop SharedAccess","",@SW_HIDE)
ProcessWaitClose("sc.exe")
$ServName="Sharing Access"
ProgressSet( 2.9*29, "Stopping : "&$ServName)
;_____________________________________________________________
Run("sc stop Spooler","",@SW_HIDE)
ProcessWaitClose("sc.exe")
$ServName="Printer Spooler"
ProgressSet( 2.9*30, "Stopping : "&$ServName)
;_________________________________________________________________________________________________
Run("sc stop TapiSrv","",@SW_HIDE)
ProcessWaitClose("sc.exe")
$ServName="Protected Storage"
ProgressSet( 2.9*31, "Stopping : "&$ServName)
;______________________________________________________________
Run("sc stop WebClient","",@SW_HIDE)
ProcessWaitClose("sc.exe")
$ServName="Web Client"
ProgressSet( 2.9*32, "Stopping : "&$ServName)
;_____________________________________________________________
Run("sc stop TrkWks","",@SW_HIDE)
$ServName="NTFS Link Track"
ProgressSet( 2.9*33, "Stopping : "&$ServName)
;___________________________________________________________________________________________________

__
ProcessWaitClose("sc.exe")
Run("sc stop TermService","",@SW_HIDE)
$ServName="Protected Storage"
ProgressSet( 2.9*34, "Stopping : "&$ServName)
;_____________________________________________________________
ProcessWaitClose("sc.exe")
Run("sc stop ShellHWDetection","",@SW_HIDE)
$ServName="Shell Hardware Detection"
ProgressSet( 2.9*35, "Stopping : "&$ServName)
;___________________________________________________________________________________________________

___
ProcessWaitClose("sc.exe")
Run("sc stop MSFtpsvc","",@SW_HIDE)
$ServName="Protected Storage"
ProgressSet( 2.9*36, "Stopping : "&$ServName)

;___________________________________________________________________________________________________

________________

ProcessWaitClose("sc.exe")
ProgressOff()

$memafter=$mem[2]
$percent=$memafter-$membefore
TrayTip("Windows Speeder. . .By Ibrahim Ghorabah", "Available Memory Now = "&$mem[2]/1000&" M.Byte",5, 1)
sleep (2000)
TrayTip("Windows Speeder. . .By Ibrahim Ghorabah", "Free Ram Accomplished = "&$percent/1000&" M.Byte",5, 1)
sleep (5000)
FileDelete(@windowsdir&"\membef.txt")

[Ibrahim]

added a right click menu and removed the internet clock(not working fine for me)

expandcollapse popup

#include <Array.au3>
#Include <Date.au3>
#include <Constants.au3>

Opt("TrayMenuMode",1)
Opt("TrayOnEventMode", 1)
Opt("TrayIconDebug",1) 
;Opt("TCPTimeout",3000)
TCPStartup()
$gateway="10.0.0.138"
$n=58
$intruder=""
$x=@DesktopWidth/2
$y=5
$servertime=""
$recv ="Locating Time Server. . ."
$Title=""
$icon=""
TraySetToolTip("Share Watcher")

$tExit = TrayCreateItem("Exit")
$Min=TrayCreateItem("Collapse")
$About=TrayCreateItem("Ibrahim Ghorabah")
TrayItemSetState($About,$TRAY_DISABLE)
TrayItemSetOnEvent($tExit,"Close")
TrayItemSetOnEvent($Min,"Min")
Func Close()
   Exit
EndFunc


Func Min()
opt("wintitlematchmode",4)
WinSetState("classname=tooltips_class32","",@SW_MINIMIZE)
EndFunc



while @error =0
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;~ if $n=60 Then
;~   $n=0
;~  $socket = TCPConnect('129.6.15.28', 37)
;~       While $recv <> ""
;~           $recv = TCPRecv($socket, 512)
;~           If $recv <> '' Then
;~               $servertime = _DateAdd('s', Asc(StringMid($recv, 1, 1)) * 256 ^ 3 + Asc(StringMid($recv, 2, 1)) * 256 ^ 2 _
;~                        + Asc(StringMid($recv, 3, 1)) * 256 + Asc(StringMid($recv, 4, 1)), '1900/01/01 02:00:00')
;~          ExitLoop
;~                   EndIf
;~               WEnd
;~               if $servertime="" then $Title=$Status
;~  EndIf

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    $n=$n+1
AutoItSetOption("WinTitleMatchMode", 4)
$Torrent=WinGetTitle("classname=µTorrent4823DF041B09","")
$Status=StringLeft($Torrent,15)
$Torrentcache=ControlGetText("classname=µTorrent4823DF041B09","",69)
$mem=0
$mem = MemGetStats()
$Router=ping($gateway,1000)
$icon=0
if $Router=0 then 
    $Router="Offline"
;TrayTip("Router State","Router Gone Offline",5,3)
    $icon=3
$Title="Offline "&$Status
    TraySetIcon ("offline.ico")
EndIf

if $Router=2 then 
    $Router="Offline"
;   TrayTip("Router State","Router Gone Offline",5,3)
TraySetIcon ("offline.ico")
$icon=3
$Title="Offline "&$Status
EndIf

;~ if $Router then 
;~ $icon=0
;~ $Title=$Status
;~ EndIf
$IeD=ControlGetText("classname=#32770","",4368)
$Iet=StringLeft(ControlGetText("classname=#32770","",4357),13)
if $IeD="" and $Iet ="" then 
    $IeD=WinGetTitle("classname=MozillaUIWindowClass")
    if StringLen ( $IeD ) > 25 then $IeD=""
    if StringLen ( $IeD ) < 25 then $IeD=StringLeft($IeD,3)
    $Iet =""
EndIf



if $Router=1 then 
    TraySetIcon ("right.ico")
    $Router="Online"    
    $Title=$intruder
    $icon=1
EndIf
$timeM=ControlGetText("classname=MediaPlayerClassicW","",130)
$timeV=StatusbarGetText("classname=wxWindowClassNR","",1)
$spaceC =Int(DriveSpaceFree( "c:\" ))
$spaced =Int(DriveSpaceFree( "d:\" ))
$spacee =Int(DriveSpaceFree( "e:\" ))
$spacef =Int(DriveSpaceFree( "f:\" ))
$spaceg =Int(DriveSpaceFree( "g:\" ))
$spaceh =Int(DriveSpaceFree( "h:\" ))
if $spaceC < 50 then FileDelete("C:\Documents and Settings\Family\Local Settings\Temp\*.wav")
    
If $Status="" then $Status="T. Not Started"
if $timeM="" and $timeV="" Then $timeM="No Media"
$sizebye=DirGetSize(@TempDir, 0)+DirGetSize(@UserProfileDir&"\Local Settings\Temporary Internet Files\Content.IE5", 0)+DirGetSize(@WindowsDir&"\prefetch", 0)
$val=($sizebye/1024)/1024
$temp = Int($val)
$dapSfull=ControlGetText("classname=#32770","",1008)
$dapcfull=ControlGetText("classname=#32770","",1004)
$dapcomp=StringLeft($dapcfull,6)
$dapSpeed=StringLeft($dapSfull,5)
$intruder=FileGetSize("G:\shred\intrded.exe")
if $intruder=0 then $intruder=$servertime
if $intruder > 0 then 
    $intruder="We Have an Intruder.!"
    $icon=2
EndIf

;~ $win=ControlListView ("classname=µTorrent4823DF041B09", "", $list, "GetText", 0, 5)
;~ $win2=ControlListView ("classname=µTorrent4823DF041B09", "", $list, "GetText", 0, 2)
;~ $ivan=ControlListView ("classname=µTorrent4823DF041B09", "", $list, "GetText", 1, 5)
;~ $ivan2=ControlListView ("classname=µTorrent4823DF041B09", "", $list, "GetText", 1, 2)
;MsgBox(0,"",$win)
;ToolTip("DieHard  : "&$win&"    "&$win2&"   "&@CR&$ivan&"   "&$ivan2,850,550,"")
;"T. Stat: "&$Status&@CR&
;&@CR&"Net state: "&$Router
ToolTip($Status&"  "&StringLeft($Torrentcache,5)&@cr&"Free Ram: "&Int($mem[2]/1024)&" MB"&@CR&"Temp Space: "&$Temp&" MB"&@CR&"C ("&$spacec&") D ("&$spaced&") E ("&$spacee&")"&@CR&"F ("&$spacef&") G ("&$spaceg&") H ("&$spaceh&") MB"&@CR&"IE.D. :"&$IeD&" Est.T :"&$Iet&@CR&"DA:"&$dapcomp&"(MB) "&$dapSpeed&"(Kb/s)"&@CR&"Mov: "&$timeM&$timeV,$x,$y,$Status,$icon)
FileWriteLine("g:\downloads\grc\status.txt",$Title&"     "&$Status&@CRLF&$Torrentcache&@CRLF&"Free Ram: "&Int($mem[2]/1024)&" MB"&@CRLF&"Temp Space: "&$Temp&" MB"&@CRLF&"C ("&$spacec&") D ("&$spaced&") E ("&$spacee&")"&@CRLF&"F ("&$spacef&") G ("&$spaceg&") H ("&$spaceh&") MB"&@CRLF&"IE.D. :"&$IeD&" Est.T :"&$Iet&@CRLF&"DA:"&$dapcomp&"(MB) "&$dapSpeed&"(Kb/s)"&@CRLF&"Mov: "&$timeM&$timeV)
FileWriteLine("g:\downloads\grc\status.txt"," - - - - - - - - -"&@HOUR&" : "&@MIN)
$logsize=FileGetSize("g:\downloads\grc\status.txt")
if $logsize> 50000 then FileDelete("g:\downloads\grc\status.txt")
$x=FileReadLine("positions.txt",1)
$y=FileReadLine("positions.txt",2)
sleep(1000)
WEnd

[Ibrahim]

OOOOOOOORrrrrr right 1st of all Don't call me a spammer i'm new to the forums thing,

i added some setting and a tray men

so enjoy

expandcollapse popup

#include <Array.au3>
#Include <Date.au3>
#include <Constants.au3>

Opt("TrayMenuMode",1)
Opt("TrayOnEventMode", 1)
Opt("TrayIconDebug",1) 
$Dp=0
;Opt("TCPTimeout",3000)
TCPStartup()
$gateway="10.0.0.138"
$n=58
$intruder=""
$x=@DesktopWidth/2
$y=5
$servertime=""
$recv ="Locating Time Server. . ."
$Title=""
$icon=""
TraySetToolTip("TOOLTIP")

$tExit = TrayCreateItem("Exit")
$Min=TrayCreateItem("Collapse")
$About=TrayCreateItem("Ibrahim Ghorabah")
$RamRef=TrayCreateItem("Refresh Ram")
$settings=TrayCreateItem("Settings.")

$CloseConvo=TrayCreateItem("End Chat")
;~ TrayCreateMenu("Start")
;~ $CloseConvo=TrayCreateItem("Chat")
AutoItSetOption("WinTitleMatchMode", 4)

;~ TrayItemSetOnEvent($HideT,"Pause")
TrayItemSetState($About,$TRAY_DISABLE)
TrayItemSetOnEvent($tExit,"Close")
TrayItemSetOnEvent($settings,"Settings")
TrayItemSetOnEvent($RamRef,"refreshR")
TrayItemSetOnEvent($CloseConvo,"EndConvo")
Func Close()
   Exit
EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Func Settings()
ShellExecute("settings.au3","","","run")
EndFunc
;;;;;;;;;;;;;;;;;;;;;;              ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Func EndConvo()
    ProcessClose("PIDGIN.EXE")
EndFunc
Func refreshR()
    ShellExecute("rundll32.exe"," advapi32.dll,ProcessIdleTasks")
EndFunc

Func Min()
opt("wintitlematchmode",4)
WinSetState("classname=tooltips_class32","",@SW_HIDE)
EndFunc


while @error =0
if IniRead("settings.ini","Apps","torrenthide","")=1 Then
WinSetState("classname=µTorrent4823DF041B09","",@SW_HIDE)
EndIf
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;~ if $n=60 Then
;~   $n=0
;~  $socket = TCPConnect('129.6.15.28', 37)
;~       While $recv <> ""
;~           $recv = TCPRecv($socket, 512)
;~           If $recv <> '' Then
;~               $servertime = _DateAdd('s', Asc(StringMid($recv, 1, 1)) * 256 ^ 3 + Asc(StringMid($recv, 2, 1)) * 256 ^ 2 _
;~                        + Asc(StringMid($recv, 3, 1)) * 256 + Asc(StringMid($recv, 4, 1)), '1900/01/01 02:00:00')
;~          ExitLoop
;~                   EndIf
;~               WEnd
;~               if $servertime="" then $Title=$Status
;~  EndIf

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    $n=$n+1
AutoItSetOption("WinTitleMatchMode", 4)
$Torrent=WinGetTitle("classname=µTorrent4823DF041B09","")
$Status=StringLeft($Torrent,15)
$Torrentcache=ControlGetText("classname=µTorrent4823DF041B09","",69)
$mem=0
$mem = MemGetStats()
$Router=ping($gateway,1000)
$icon=0
if $Router=0 then 
    $Router="Offline"
;TrayTip("Router State","Router Gone Offline",5,3)
    $icon=3
$Title="Offline "&$Status
    TraySetIcon ("offline.ico")
EndIf

if $Router=2 then 
    $Router="Offline"
;   TrayTip("Router State","Router Gone Offline",5,3)
TraySetIcon ("offline.ico")
$icon=3
$Title="Offline "&$Status
EndIf

;~ if $Router then 
;~ $icon=0
;~ $Title=$Status
;~ EndIf
$IeD=ControlGetText("classname=#32770","",4368)
$Iet=StringLeft(ControlGetText("classname=#32770","",4357),13)
if $IeD="" and $Iet ="" then 
    $IeD=WinGetTitle("classname=MozillaUIWindowClass")
    if StringLen ( $IeD ) > 25 then $IeD=""
    if StringLen ( $IeD ) < 25 then $IeD=StringLeft($IeD,3)
    $Iet =""
EndIf



if $Router=1 then 
    TraySetIcon ("right.ico")
    $Router="Online"    
    $Title=$intruder
    $icon=1
EndIf
$timeM=ControlGetText("classname=MediaPlayerClassicW","",130)
$timeV=StatusbarGetText("classname=wxWindowClassNR","",1)
$spaceC =Int(DriveSpaceFree( "c:\" ))
$spaced =Int(DriveSpaceFree( "d:\" ))
$spacee =Int(DriveSpaceFree( "e:\" ))
$spacef =Int(DriveSpaceFree( "f:\" ))
$spaceg =Int(DriveSpaceFree( "g:\" ))
$spaceh =Int(DriveSpaceFree( "h:\" ))
if $spaceC < 50 then FileDelete("C:\Documents and Settings\Family\Local Settings\Temp\*.wav")
    
If $Status="" then $Status="T. Not Started"
if $timeM="" and $timeV="" Then $timeM="No Media"
$sizebye=DirGetSize(@TempDir, 0)+DirGetSize(@UserProfileDir&"\Local Settings\Temporary Internet Files\Content.IE5", 0)+DirGetSize(@WindowsDir&"\prefetch", 0)
$val=($sizebye/1024)/1024
$temp = Int($val)
$dapSfull=ControlGetText("classname=#32770","",1008)
$dapcfull=ControlGetText("classname=#32770","",1004)
$dapcomp=StringLeft($dapcfull,6)
$dapSpeed=StringLeft($dapSfull,5)
$intruder=FileGetSize("G:\shred\intrded.exe")
if $intruder=0 then $intruder=$servertime
if $intruder > 0 then 
    $intruder="We Have an Intruder.!"
    $icon=2
EndIf

;~ $win=ControlListView ("classname=µTorrent4823DF041B09", "", $list, "GetText", 0, 5)
;~ $win2=ControlListView ("classname=µTorrent4823DF041B09", "", $list, "GetText", 0, 2)
;~ $ivan=ControlListView ("classname=µTorrent4823DF041B09", "", $list, "GetText", 1, 5)
;~ $ivan2=ControlListView ("classname=µTorrent4823DF041B09", "", $list, "GetText", 1, 2)
;MsgBox(0,"",$win)
;ToolTip("DieHard  : "&$win&"    "&$win2&"   "&@CR&$ivan&"   "&$ivan2,850,550,"")
;"T. Stat: "&$Status&@CR&
;&@CR&"Net state: "&$Router
ToolTip($Status&"  "&StringLeft($Torrentcache,5)&@cr&"Free Ram: "&Int($mem[2]/1024)&" MB"&@CR&"Temp Space: "&$Temp&" MB"&@CR&"C ("&$spacec&") D ("&$spaced&") E ("&$spacee&")"&@CR&"F ("&$spacef&") G ("&$spaceg&") H ("&$spaceh&") MB"&@CR&"IE.D. :"&$IeD&" Est.T :"&$Iet&@CR&"DA:"&$dapcomp&"(MB) "&$dapSpeed&"(Kb/s)"&@CR&"Mov: "&$timeM&$timeV,$x,$y,$Status,$icon)
FileWriteLine("h:\downloads\grc\status.txt",$Title&"     "&$Status&@CRLF&$Torrentcache&@CRLF&"Free Ram: "&Int($mem[2]/1024)&" MB"&@CRLF&"Temp Space: "&$Temp&" MB"&@CRLF&"C ("&$spacec&") D ("&$spaced&") E ("&$spacee&")"&@CRLF&"F ("&$spacef&") G ("&$spaceg&") H ("&$spaceh&") MB"&@CRLF&"IE.D. :"&$IeD&" Est.T :"&$Iet&@CRLF&"DA:"&$dapcomp&"(MB) "&$dapSpeed&"(Kb/s)"&@CRLF&"Mov: "&$timeM&$timeV)
FileWriteLine("h:\downloads\grc\status.txt"," - - - - - - - - -"&@HOUR&" : "&@MIN)
$logsize=FileGetSize("g:\downloads\grc\status.txt")
if $logsize> 50000 then FileDelete("h:\downloads\grc\status.txt")
$x=IniRead("settings.ini","Position","Left","")
$y=IniRead("settings.ini","Position","Down","")
sleep(1000)
WEnd

i know i should have to put the settings GUI in the setting function rather than in a separate script

but i needed to post something fast when i was called a SPAAAAAMER I'm not a spaaaaaamer guys !

[Linux]

Spammer!

[DirtDBaK]

Spammer!

Posts: 15

Well newbie theres a better way to say that to people, especially people who are making contributions that include source..

Its call ask them to use the edit not call names and rag on them

Personally you newbies are beginning to pose a problem... or maybe your just a huge annoyance...

Oh well at least this one can spell.....

EDIT: and my post is ragging on Linux no on the topic starter though it would be nice if you used the edit...

Edited January 1, 2008 by DBak