General :  K-Meleon Forum
General discussion about K-Meleon. 
sitestatuschecker 4 paul
Posted by: disrupted
Date: May 19, 2009 06:12AM

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


Options: ReplyQuote
Re: sitestatuschecker 4 paul
Posted by: Paul
Date: May 19, 2009 06:55AM

Excellent, thanks I didn't spot that! smiling smiley

Options: ReplyQuote
Re: sitestatuschecker 4 paul
Posted by: disrupted
Date: May 19, 2009 06:59AM

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


Options: ReplyQuote
Re: sitestatuschecker 4 paul
Posted by: reeko124
Date: May 19, 2009 07:15AM

now if you can only make an extension that magically puts money in my bank account grinning smiley

Options: ReplyQuote
Re: sitestatuschecker 4 paul
Posted by: Paul
Date: May 19, 2009 07:54PM

Thanks disrupted, your talent has no limits. smiling smiley

Options: ReplyQuote
Re: sitestatuschecker 4 paul
Posted by: disrupted
Date: May 19, 2009 11: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 smiling smiley

reeko..i think such an extension will require a linux

Options: ReplyQuote
Re: sitestatuschecker 4 paul
Posted by: reeko124
Date: May 20, 2009 01:49AM

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

Options: ReplyQuote
Re: sitestatuschecker 4 paul
Posted by: disrupted
Date: May 20, 2009 03:40AM

anything capable of hacking the u.s federal reserve..now we need a hacker tongue sticking out smiley

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

Options: ReplyQuote
Re: sitestatuschecker 4 paul
Posted by: Paul
Date: May 20, 2009 03:58AM

Anyone know how to set a laser printer to stun? tongue sticking out smiley

Options: ReplyQuote
Re: sitestatuschecker 4 paul
Posted by: disrupted
Date: May 20, 2009 04:37AM

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 tongue sticking out smiley

Options: ReplyQuote
Re: sitestatuschecker 4 paul
Posted by: reeko124
Date: May 20, 2009 04:42AM

grinning smiley That is hilarious grinning smiley

Options: ReplyQuote
Re: sitestatuschecker 4 paul
Posted by: disrupted
Date: May 20, 2009 04:42AM



Options: ReplyQuote
Re: sitestatuschecker 4 paul
Posted by: Paul
Date: May 20, 2009 05:12AM

grinning smiley Only a joke kids!

Options: ReplyQuote
Re: sitestatuschecker 4 paul
Posted by: reeko124
Date: May 20, 2009 05:17AM

come to find KM extensions and see a comedy show grinning smiley

Options: ReplyQuote


K-Meleon forum is powered by Phorum.