Ein kleines Skript dass euch ein Sattellitenbild eures derzeitigen Aufenthaltsortres erstellt
Spoiler anzeigen
#include <IE.au3>
#include <WindowsConstants.au3>
#Include <ScreenCapture.au3>
#include <GUIConstantsEx.au3>
Global $Bin = InetRead ("http://www.find-ip-address.org/ip-location-lookup-module.php")
Global $Page = BinaryToString ($Bin)
$City = Grep($Page, "Your City")
$Region = Grep($Page, "Your Region")
$Country = Grep($Page, "Your Country Name")
$hGUI = GUICreate("Where the Fuck I am?", 350, 460, 0, 0, $WS_POPUP, $WS_EX_TOOLWINDOW)
_IEErrorHandlerRegister ()
$oIE = _IECreateEmbedded ()
GUICtrlCreateObj($oIE, -500, -120, 1000, 600)
GUISetState()
_IENavigate ($oIE, "http://maps.google.de/maps?q="&$City&",+"&$Region&",+"&$Country&"&hl=de&ie=UTF8&vpsrc=6&t=h&z=18")
GUICtrlCreateLabel("Made by Google and #WhereTheFuckIam", 0, 449, 350, 13)
_ScreenCapture_Capturewnd(@tempdir&"\loc.bmp", $hGUI)
GUIDelete($hGUI)
ShellExecute(@tempdir&"\loc.bmp")
Exit
Func Grep($sString, $sSearch) ; by UEZ
Local $aGrep = StringRegExp($Page, "(?i)(?U)" & $sSearch & ": <b>(.*)</b>", 3)
If @error Then Return SetError(@error, 0, 0)
Return $aGrep[0]
EndFunc
MfG, campweb