General :
K-Meleon Web Browser Forum
General discussion about K-Meleon
sitestatuschecker 4 paul
Date: May 18, 2009 11:12PM
checks if the site is down or is it just you with downforeveryoneorjustme.com
nt version:
http://kmeleon.swiftfree.net/files/down4allNT.7z
9x version:
http://kmeleon.swiftfree.net/files/down4all9x.7z
access menu: tools(webservices)>site status
# K-Meleon Macros (http://kmeleon.sourceforge.net/wiki/index.php?id=MacroLanguage)
# -----checks if site is down with downforeveryoneorjustme.com-----------------
$_tool_path=getfolder(RootFolder)."\\Tools";
down4all{
#menugrayed=(hostname($URL)=="");
$justme= $URL;
$justme= prompt("Enter site url to check if it's down :", "Get site status", $justme);
$justme== "" ? "" : exec($_tool_path."\\down4.exe ".$justme);
}
down4all_BuildMenu{
setmenu(WebServices,macro,"Site Status Checker",down4all);
}
$OnInit=$OnInit."down4all_BuildMenu;";
# --------------------------------------------------------------------
$macroModules=$macroModules."down4all;";
; AutoIt Version: 3.3.0
; Language: English
; Platform: Win9x/NT
; Author: yanni
#NoTrayIcon
#include <GUIConstantS E X.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#Include <String.au3>
#Include <Clipboard.au3>
$temper=(@TempDir & "\down4.txt")
$downfinder=("www.downforeveryoneorjustme.com/" & $Cmdline[1])
InetGet($downfinder, $temper, 1, 0)
$getdown=FileReadLine($temper, 7)
;It's just you
$downchk=StringRegExp ($getdown,"(?i)It's just you")
if $downchk=1 Then
$isit=("..is not down, it's just you.")
Else
$isit=("..is down, it's not just you.")
EndIf
$dispdown = GUICreate("down4all", 218, 34, -1, -1, BitOR($WS_DLGFRAME, $WS_POPUP, $WS_EX_TOPMOST))
$Label1 = GUICtrlCreateLabel($Cmdline[1], 8, 3, 200, 15)
$Label2 = GUICtrlCreateLabel($isit, 8, 17, 140, 15)
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
WinSetOnTop("down4all", "", 1)
sleep(7422)
GUIDelete()
ExitLoop
WEnd
Exit
Re: sitestatuschecker 4 paul
Posted by:
Paul
Date: May 18, 2009 11:55PM
Excellent, thanks I didn't spot that!
Re: sitestatuschecker 4 paul
Date: May 18, 2009 11:59PM
update: icons because colours are easier and faster to interpret to the human-eye than reading text.
download from same links for nt and 9x
; AutoIt Version: 3.3.0
; Language: English
; Platform: Win9x/NT
; Author: yanni
#NoTrayIcon
#include <GUIConstantS E X.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#Include <String.au3>
#Include <Clipboard.au3>
$temper=(@TempDir & "\down4.txt")
$downfinder=("www.downforeveryoneorjustme.com/" & $Cmdline[1])
InetGet($downfinder, $temper, 1, 0)
$getdown=FileReadLine($temper, 7)
;It's just you
$downchk=StringRegExp ($getdown,"(?i)It's just you")
if $downchk=1 Then
$isit=("..is not down, it's just you.")
$icon=(@scriptdir & "\on.ico")
Else
$isit=("..is down, it's not just you.")
$icon=(@scriptdir & "\off.ico")
EndIf
$onicon=(@scriptdir & "\on.ico")
$dispdown = GUICreate("down4all", 218, 34, -1, -1, BitOR($WS_DLGFRAME, $WS_POPUP, $WS_EX_TOPMOST))
$Label1 = GUICtrlCreateLabel($Cmdline[1], 8, 3, 200, 15)
$Label2 = GUICtrlCreateLabel($isit, 8, 17, 140, 15)
$status = GUICtrlCreateIcon($icon, -1 , 170 , 17, 16, 16)
$status = GUICtrlCreateIcon($icon, -1 , 185 , 17, 16, 16)
$status = GUICtrlCreateIcon($icon, -1 , 200 , 17, 16, 16)
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
WinSetOnTop("down4all", "", 1)
sleep(7422)
GUIDelete()
ExitLoop
WEnd
Exit
Re: sitestatuschecker 4 paul
Date: May 19, 2009 12:15AM
now if you can only make an extension that magically puts money in my bank account
Re: sitestatuschecker 4 paul
Posted by:
Paul
Date: May 19, 2009 12:54PM
Thanks disrupted, your talent has no limits.
Re: sitestatuschecker 4 paul
Date: May 19, 2009 04:26PM
nah.. no talent, many times i use code from other extensions, like for this one; i used same code for tinyurl plus and just changed few variables.. so it's quite easy and i get the ideas from what the community needs
reeko..i think such an extension will require a linux
Re: sitestatuschecker 4 paul
Date: May 19, 2009 06:49PM
Is puppylinux ok. Its amazing how that little OS helped me save files froma corupted Vista. Still gotta figure how to get windows to recognize them but atleast I have them
Re: sitestatuschecker 4 paul
Date: May 19, 2009 08:40PM
anything capable of hacking the u.s federal reserve..now we need a hacker
linuxes are great for emergencies.. i have a live knoppix cd for dire situations and a bullet-proof firewall freebsd machine
edit: win should recognise files recovered by unix without problems.. unless they have been assigned a wrong exttension or extension has been removed during the recovery.. try a program to scan the file and identify it like trid
http://mark0.ngi.it/soft-trid-e.html
Re: sitestatuschecker 4 paul
Posted by:
Paul
Date: May 19, 2009 08:58PM
Anyone know how to set a laser printer to stun?
Re: sitestatuschecker 4 paul
Date: May 19, 2009 09:37PM
that's easy.. throw some water inside it and call out your favourite work-colleague and tell him/her that you need help with a paper jam. keep a safe distance from that person during this experiment.
can also be used to silence a nagging spouse
Re: sitestatuschecker 4 paul
Date: May 19, 2009 09:42PM
That is hilarious
Re: sitestatuschecker 4 paul
Date: May 19, 2009 09:42PM
Re: sitestatuschecker 4 paul
Posted by:
Paul
Date: May 19, 2009 10:12PM
Only a joke kids!
Re: sitestatuschecker 4 paul
Date: May 19, 2009 10:17PM
come to find KM extensions and see a comedy show