http://kmext.sourceforge.net/files/liveipplus.7z
displays liveip(local machine) and website(domain ip) in status bar.
this is also a combined constant ip for websites with fixes to bugs displaying ip of a background tab in the active tab. the website ip is also displayed constantly in the titlebar.. if you have used constip before please remove it and download this update
the extension replaces 'ready' in the statusbar and will always display your machine ip plus the website ip with the domain in square brackets, this however will not override the functions of page loading stats or hovering on href links or macro info description..they will still display normally but once you hover out, the ips will be displayed all the time. also supports dynamic ips and the statusbar is updated instantly once the ip is changed.. all functions work without any interference from the user.
srces
# K-Meleon Macros (http://kmeleon.sourceforge.net/wiki/index.php?id=MacroLanguage)
# ---------- displays liveIP/domainip in statusbar------------
$_tool_path=getfolder(RootFolder)."\\Tools";
liveIP{
exec($_tool_path."\\liveipplus.exe ");
}
# --------------------------------------------
$OnInit=$OnInit."liveIP;";
$macroModules=$macroModules."statusbarIP;";
; AutoIt Version: 3.3.0
; Language: Gibberish
; Platform: Win9x/NT
; Author: yannis kargas
;liveip in statusbar (constant) plus website ip in statusbar and titlebar(domain in brackets)
;kmstatusbarctrlID=59393 (willbeusefulforotherextensionswhenstatusbarneedstobemanipulated)
#NoTrayIcon
#Include <string.au3>
#include <Misc.au3>
if _Singleton("liveipplus",0) = 0 Then
exit
endif
TCPStartup()
while winExists("[CLASS:KMeleon Browser Window]", "")
$pagetitle=WinGetTitle("[CLASS:KMeleon Browser Window]")
$ddcheck=StringRegExp ($pagetitle, ":::")
if $ddcheck=1 then
noaddtitle()
else
addtitle()
endif
sleep(4000)
Wend
exit
func addtitle()
$liveIP=TCPNameToIP("")
$fuck=ControlGetText ("[CLASS:KMeleon Browser Window]", "", 1001)
$prop1=StringReplace($fuck, "http://", "")
$prop2=StringReplace($prop1, "https://", "")
$prop3=StringReplace($prop2, "ftp://", "")
$prop4=StringReplace($prop3, "gopher://", "")
$prop5=StringReplace($prop4, "/", ")", 1)
$pos=StringInStr($prop5, ")")
$ddf=StringMid ($prop5, 1 , $pos-1)
$domainIP = TCPNameToIP($ddf)
$sdisplay=("liveIP: " & $liveIP & " | domainIP: " & $domainIP & " [" & $ddf & "]")
ControlSetText("[CLASS:KMeleon Browser Window]", "", 59393, $sdisplay)
$settitle=($pagetitle & " ::: " & $domainIP)
WinSetTitle ("[CLASS:KMeleon Browser Window]", "", $settitle)
endfunc
func noaddtitle()
$liveIP=TCPNameToIP("")
$fuck=ControlGetText ("[CLASS:KMeleon Browser Window]", "", 1001)
$prop1=StringReplace($fuck, "http://", "")
$prop2=StringReplace($prop1, "https://", "")
$prop3=StringReplace($prop2, "ftp://", "")
$prop4=StringReplace($prop3, "gopher://", "")
$prop5=StringReplace($prop4, "/", ")", 1)
$pos=StringInStr($prop5, ")")
$ddf=StringMid ($prop5, 1 , $pos-1)
$domainIP = TCPNameToIP($ddf)
$sdisplay=("liveIP: " & $liveIP & " | domainIP: " & $domainIP & " [" & $ddf & "]")
ControlSetText("[CLASS:KMeleon Browser Window]", "", 59393, $sdisplay)
endfunc