Sign in to follow this  
Followers 0
Ibrahim

The Tip Watcher

17 posts in this topic

#1 ·  Posted (edited)

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

post-22904-1190687054_thumb.jpg

Edited by Ibrahim

Share this post


Link to post
Share on other sites



Very cool! I congradulate you on an impressive job!

:salute:


[center][/center]Working on the next big thing.Currently Playing: Halo 4, League of LegendsXBL GT: iRememberYhslaw

Share this post


Link to post
Share on other sites

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


Minesweeper

A minesweeper game created in autoit, source available.

_Mouse_UDF

An UDF for registering functions to mouse events, made in pure autoit.

2D Hitbox Editor

A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes.

Share this post


Link to post
Share on other sites

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 :)

Share this post


Link to post
Share on other sites

:) 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.

Share this post


Link to post
Share on other sites

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

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")

Share this post


Link to post
Share on other sites

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

#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

Share this post


Link to post
Share on other sites

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

#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 !

Share this post


Link to post
Share on other sites

#17 ·  Posted (edited)

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 by DBak

[center][/center]

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0