Sign in to follow this  
Followers 0
ileandros

Trace IP

12 posts in this topic

Hello,

I am trying to do sth but i am not rly sure if its illegal or not this so if yes plz tell me so i stop this thread or lock it.

I am a member in a website where there is a chat.(a usual chat that everyone can send their msg and chat).

What i want to ask is: is it possible to make a programm that will trace the ip of the members that are chating???

Like location, ip number or sth else???

What i want to do is to create a baner system. I want to trace and save the ip of them so i can create a blacklist.

This is just to avoid spammer and ppls that are joining with other names after beeing kicked.

Thanks in advance.


I feel nothing.It feels great.

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

Hello,

I am trying to do sth but i am not rly sure if its illegal or not this so if yes plz tell me so i stop this thread or lock it.

I am a member in a website where there is a chat.(a usual chat that everyone can send their msg and chat).

What i want to ask is: is it possible to make a programm that will trace the ip of the members that are chating???

Like location, ip number or sth else???

What i want to do is to create a baner system. I want to trace and save the ip of them so i can create a blacklist.

This is just to avoid spammer and ppls that are joining with other names after beeing kicked.

Thanks in advance.

By what I know, this isn't illegal but is more inflictive on the terms and conditions a site might have and aside from that this entire question makes me think you know little about how a typical website works.

You're not going to get the IP address of some random person on a chat site unless the information is obtainable client side (and the person who set it up is letting users know each others IP addresses). Otherwise, if you're actually already in control of this info, then getting information regarding geolocation and other miscellaneous non-identifying information is just a matter of using a public or private service that allows access to a database that ha information on millions of IP addresses.

I use something like that on this image, but it's rarely accurate and displays info of the IP addresses service provider..

Posted Image

Else if you're asking how to go about actually getting a users IP address, then good luck, that requires doing things that will get you in trouble.

Edited by ApudAngelorum

Things that I've done..

Icon Resource Editor: icon resource editor 

AutoIt Piano: a piano

AutoIt Unlocker: unlocks files when you want to delete them

Colorful tooltips: a wrapper for the tool tips UDF

Rouge GoogleBot: a full screen animation

ASciTE text editor: a text editor written in autoit

Warning: Posts by this user are subject to change or may disappear without notice.

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

Else if you're asking how to go about actually getting a users IP address, then good luck, that requires doing things that will get you in trouble.

This is what i am exactlly asking... As far as i know there are websites that allows you to trace IP adress of someone. I dont know how but i do know they exists.

"Once upon a time"... i was using a programm wich i had downloaded from internet and did this: without " using a public or private service that allows access to a database that ha information on millions of IP addresses." i had the option of right clicking on a clint and trace his IP. This action navigated a site(wich i dont rly remember the name) and showed me the IP. As i think it was taking the vIP of the user and tracing the IP adress from that...

P.S. i am also a python user so if you know sth more in python scripting will be appreciated.

Edited by ileandros

I feel nothing.It feels great.

Share this post


Link to post
Share on other sites

RE:" I use something like that on this image, but it's rarely accurate and displays info of the IP addresses service provider.."

I'm glad that it's rarely accurate.

Out of curiosity.......where did you dig up that particular IP?

Share this post


Link to post
Share on other sites

#5 ·  Posted (edited)

RE:" I use something like that on this image, but it's rarely accurate and displays info of the IP addresses service provider.."

I'm glad that it's rarely accurate.

Out of curiosity.......where did you dig up that particular IP?

I don't know what you mean. If you mean the IP displayed in the image, then that's your IP address.

Edited by ApudAngelorum

Things that I've done..

Icon Resource Editor: icon resource editor 

AutoIt Piano: a piano

AutoIt Unlocker: unlocks files when you want to delete them

Colorful tooltips: a wrapper for the tool tips UDF

Rouge GoogleBot: a full screen animation

ASciTE text editor: a text editor written in autoit

Warning: Posts by this user are subject to change or may disappear without notice.

Share this post


Link to post
Share on other sites

Oh, so the image is a functional thing, not a "picture" & my paranoia is unfounded.

Share this post


Link to post
Share on other sites

#7 ·  Posted (edited)

Oh, so the image is a functional thing, not a "picture" & my paranoia is unfounded.

I would say so. It's just a PHP script made to sort of pretend to be an image, it gets your browsers user agent string and IP address that requested it and passes it to an autoit script that creates the image and deletes it after it was sent back to the client.

Image.png

<?PHP
set_time_limit(15);
include('ip2locationlite.class.php');
$AutoIt_Return = exec('image.exe "' . IP() .'" "' . Agent() . '" "' . GEO() .'"');
header('Content-Type: image/png');
@readfile($AutoIt_Return);
@unlink($AutoIt_Return);
Function IP() {
If (IsSet($_SERVER['REMOTE_ADDR'])) {
  Return $_SERVER['REMOTE_ADDR'];
} Else {
  Return "-";
}
}
Function Agent() {
If (IsSet($_SERVER['HTTP_USER_AGENT'])) {
  Return $_SERVER['HTTP_USER_AGENT'];
} Else {
  Return "-";
}
}
function GEO() {
$ipLite = new ip2location_lite;
$ipLite->setKey('347th87r53th057g7h09785h0789yhuj2f9ujh725y70874h7trgh');
$locations = $ipLite->getCity($_SERVER['REMOTE_ADDR']);
$errors = $ipLite->getError();
if (!empty($locations) && is_array($locations)) {
  $LocStr = '';
  If(IsSet($locations['countryCode'])) {
   $LocStr .= $locations['countryCode'].',';
  }
  If(IsSet($locations['regionName'])) {
   $LocStr .= $locations['regionName'].',';
  }
  If(IsSet($locations['cityName'])) {
   $LocStr .= $locations['cityName'];
  }
}
return $LocStr;
}
?>

ip2locationlite.class.php

final class ip2location_lite{
protected $errors = array();
protected $service = 'api.ipinfodb.com';
protected $version = 'v3';
protected $apiKey = '';

public function __construct(){}

public function __destruct(){}

public function setKey($key){
if(!empty($key)) $this->apiKey = $key;
}

public function getError(){
return implode("n", $this->errors);
}

public function getCountry($host){
return $this->getResult($host, 'ip-country');
}

public function getCity($host){
return $this->getResult($host, 'ip-city');
}

private function getResult($host, $name){
$ip = @gethostbyname($host);

if(preg_match('/^(?:25[0-5]|2[0-4]d|1dd|[1-9]d|d)(?:[.](?:25[0-5]|2[0-4]d|1dd|[1-9]d|d)){3}$/', $ip)){
$xml = @file_get_contents('http://' . $this->service . '/' . $this->version . '/' . $name . '/?key=' . $this->apiKey . '&ip=' . $ip . '&format=xml');

try{
$response = @new SimpleXMLElement($xml);

foreach($response as $field=>$value){
$result[(string)$field] = (string)$value;
}

return $result;
}
catch(Exception $e){
$this->errors[] = $e->getMessage();
return;
}
}

$this->errors[] = '"' . $host . '" is not a valid IP address or hostname.';
return;
}
}

Image.exe

#NoTrayIcon
#NoAutoIt3Execute
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Change2CUI=y
#AutoIt3Wrapper_Res_Comment=Signiture & Avatar Creation Utility
#AutoIt3Wrapper_Res_Description=Creates an image with IP and user agent informaion
#AutoIt3Wrapper_Res_Fileversion=1.0.0.52
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#AutoIt3Wrapper_Res_LegalCopyright=Copyright © 2011-2012 THAT1ANONYMOUSDUDE
#AutoIt3Wrapper_Res_Language=1033
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
://////=__=
://////=__=.=
://////=__=.=
#AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#AutoIt3Wrapper_Run_Obfuscator=y
#Obfuscator_Parameters=/cs=0 /cn=0 /cf=0 /cv=0 /sf=1 /sv=1
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
OnAutoItExitRegister( "Terminate" )
#include <GDIPlus.au3>
#include <winapi.au3>
#include <File.au3>
#include <inet.au3>
Global Const $IMAGE_BITMAP = 0
Global Const $STM_SETIMAGE = 0x172
Global $hImage, $Info, $Info2, $Avitar = False
If Not ($CmdLine[0] > 2) Then Exit ConsoleWrite(@ScriptDir & "RonPaul.png")
If ($CmdLine[0] > 3) Then
If $CmdLine[4] = "Avitar" Then $Avitar = True
EndIf
ConsoleWrite(Draw(StringInfo()))
Func StringInfo()
Local $Data = "", $Ping, $TCPIp
Switch $Avitar
  Case True
   $Data &= 'IP: ' & $CmdLine[1] & @CRLF
   $Data &= Agent($CmdLine[2])
   If StringLen($CmdLine[3]) > 6 Then
    $Data &= 'GEO: ' & $CmdLine[3] & @CRLF
   EndIf
   $Ping = Ping($CmdLine[1])
   If $Ping > 0 Then
    $Data &= "Ping Status: Visible to web" & @CRLF
    IP(1, $CmdLine[1])
    $TCPIp = _TCPIpToName($CmdLine[1], 1)
    For $I = 0 To UBound($Info) - 1
     $Data &= '[' & $Info[$I] & ']'
    Next
    For $I = 0 To UBound($Info2) - 1
     $Data &= '[' & $Info2[$I] & ']'
    Next
    For $I = 1 To UBound($TCPIp) - 1
     $Data &= '[' & $TCPIp[$I] & ']'
    Next
   Else
    $Data &= "Ping Status: Invisible to web" & @CRLF
   EndIf
   $Data = StringProc($Data, 18)
  Case Else
   $Data &= 'IP: ' & $CmdLine[1] & @CRLF
   $Data &= Agent($CmdLine[2])
   If StringLen($CmdLine[3]) > 6 Then
    $Data &= 'GEO: ' & $CmdLine[3] & @CRLF
   EndIf
   $Ping = Ping($CmdLine[1])
   If $Ping > 0 Then
    IP(1, $CmdLine[1])
    $TCPIp = _TCPIpToName($CmdLine[1], 1)
    For $I = 0 To UBound($Info) - 1
     $Data &= $Info[$I] & @CRLF
    Next
    For $I = 0 To UBound($Info2) - 1
     $Data &= $Info2[$I] & @CRLF
    Next
    For $I = 1 To UBound($TCPIp) - 1
     $Data &= $TCPIp[$I] & @CRLF
    Next
   Else
    $Data &= "Status: Invisible to web" & @CRLF
   EndIf
EndSwitch
Return $Data
EndFunc   ;==>StringInfo
Func Draw($sString)
Local $hGraphic, $hBrush, $hFormat, _
   $hFamily, $hFont, $tLayout, $aInfo, _
   $hBitmap, $TempImg, $FontSize, _
   $iWidth, $iHeight
Switch $Avitar
  Case True
   $iWidth = 120
   $iHeight = 120
   $FontSize = 7
   #region - Create Image Signiture -
   _GDIPlus_Startup()
   $hImage = _GDIPlus_BitmapCreateFromScan0($iWidth, $iHeight)
   $hGraphic = _GDIPlus_ImageGetGraphicsContext($hImage)
   $hBrush = _GDIPlus_BrushCreateSolid(0xFF000000)
   _GDIPlus_GraphicsFillRect($hGraphic, 0, 0, $iWidth, $iHeight, $hBrush)
   $hFormat = _GDIPlus_StringFormatCreate()
   $hFamily = _GDIPlus_FontFamilyCreate("OCR A Extended")
   $hFont = _GDIPlus_FontCreate($hFamily, $FontSize, 0)
   $tLayout = _GDIPlus_RectFCreate(5, 5, 0, 0)
   $aInfo = _GDIPlus_GraphicsMeasureString($hGraphic, $sString, $hFont, $tLayout, $hFormat)
   $hBrush = _GDIPlus_BrushCreateSolid(0xFF37FF00)
   _GDIPlus_GraphicsDrawStringEx($hGraphic, $sString, $hFont, $aInfo[0], $hFormat, $hBrush)
   $hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
   _WinAPI_DeleteObject($hBitmap)
   _GDIPlus_FontDispose($hFont)
   _GDIPlus_FontFamilyDispose($hFamily)
   _GDIPlus_StringFormatDispose($hFormat)
   _GDIPlus_BrushDispose($hBrush)
   _GDIPlus_GraphicsDispose($hGraphic)
   _GDIPlus_GraphicsDispose($hGraphic)
   $TempImg = _TempFile(@ScriptDir, "", ".png")
   _GDIPlus_ImageSaveToFile($hImage, $TempImg)
   #endregion - Create Image Signiture -
  Case Else
   $iWidth = 500
   $iHeight = 100
   $FontSize = 7
   #region - Create Image Signiture -
   _GDIPlus_Startup()
   $hImage = _GDIPlus_BitmapCreateFromScan0($iWidth, $iHeight)
   $hGraphic = _GDIPlus_ImageGetGraphicsContext($hImage)
   $hBrush = _GDIPlus_BrushCreateSolid(0xFF000000)
   _GDIPlus_GraphicsFillRect($hGraphic, 0, 0, $iWidth, $iHeight, $hBrush)
   $hFormat = _GDIPlus_StringFormatCreate()
   $hFamily = _GDIPlus_FontFamilyCreate("OCR A Extended")
   $hFont = _GDIPlus_FontCreate($hFamily, $FontSize, 0)
   $tLayout = _GDIPlus_RectFCreate(10, 10, 0, 0)
   $aInfo = _GDIPlus_GraphicsMeasureString($hGraphic, $sString, $hFont, $tLayout, $hFormat)
   $hBrush = _GDIPlus_BrushCreateSolid(0xFF37FF00)
   _GDIPlus_GraphicsDrawStringEx($hGraphic, $sString, $hFont, $aInfo[0], $hFormat, $hBrush)
   $hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
   _WinAPI_DeleteObject($hBitmap)
   _GDIPlus_FontDispose($hFont)
   _GDIPlus_FontFamilyDispose($hFamily)
   _GDIPlus_StringFormatDispose($hFormat)
   _GDIPlus_BrushDispose($hBrush)
   _GDIPlus_GraphicsDispose($hGraphic)
   _GDIPlus_GraphicsDispose($hGraphic)
   $TempImg = _TempFile(@ScriptDir, "", ".png")
   _GDIPlus_ImageSaveToFile($hImage, $TempImg)
   #endregion - Create Image Signiture -
EndSwitch
Return $TempImg
EndFunc   ;==>Draw
Func StringProc($StrIn, $SplitMark)
Local $StrOut = '', $count, $StrSplit, $StrLen
$StrSplit = StringSplit($StrIn,@CRLF,2)
For $X = 0 To UBound($StrSplit) - 1
  $StrLen = StringLen($StrSplit[$X])
  If $StrLen > 17 Then
   $count = Ceiling(StringLen($StrSplit[$X]) / $SplitMark)
   Local $array[$count + 1], $start = 1
   For $i = 0 To $count
    $array[$i] = StringMid($StrSplit[$X], $start, $SplitMark)
    $start += $SplitMark
   Next
   For $i = 0 To $count
    If $array[$i] = "" Or $array[$i] = " " Then ContinueLoop
    If StringInStr($array[$i]," ",0,1,1,1) Then
     $StrOut &= StringReplace(StringReplace(StringReplace($array[$i],@LF,""),@CR,""), " ", "", 1, 1)&@LF
    Else
     $StrOut &= StringReplace(StringReplace($array[$i],@LF,""),@CR,"")&@LF
    EndIf
   Next
  Else
   If $StrSplit[$X] = "" Then ContinueLoop
   $StrOut &= StringReplace(StringReplace($StrSplit[$X],@LF,""),@CR,"")&@LF
  EndIf
Next
Return $StrOut
EndFunc
Func Agent($Agent)
Local $Data
Select
  #region - Operating System -
   #region - Mobile -
  Case StringInStr($Agent, "Mobile") = True
   $Data &= Mobile($Agent)
   $Data &= VendorID($Agent)
  Case StringInStr($Agent, "BlackBerry") = True
   $Data &= Mobile($Agent)
   $Data &= VendorID($Agent)
   #endregion - Mobile -
   #region - Windows -
  Case StringInStr($Agent, "Windows NT 5.1") = True
   $Data &= "Uses: Windows XP" & @CRLF
  Case StringInStr($Agent, "Windows NT 5.2") = True
   $Data &= "Uses: Windows Server 2003; Windows XP x64 Edition" & @CRLF
  Case StringInStr($Agent, "Windows NT 6.0") = True
   $Data &= "Uses: Windows Vista" & @CRLF
  Case StringInStr($Agent, "Windows NT 6.1") = True
   $Data &= "Uses: Windows 7" & @CRLF
   #endregion - Windows -
   #region - Linux -
  Case StringInStr($Agent, "Linux") = True
   $Data &= "Uses: Linux" & @CRLF
   #endregion - Linux -
   #region - Mac -
  Case StringInStr($Agent, "Mac OS X") = True
   $Data &= "Uses: Mac OS X/ You're a MacFag" & @CRLF
   #endregion - Mac -
   #region - Other -

   #endregion - Other -
  #endregion - Operating System -
EndSelect
;If $Avitar Then Return $Data
Select
  #region - Browser -
  Case StringInStr($Agent, "Chrome") = True
   $Data &= "Browsing With: Chrome" & @CRLF
  Case StringInStr($Agent, "Opera") = True
   $Data &= "Browsing With: Opera" & @CRLF
  Case StringInStr($Agent, "rekonq") = True
   $Data &= "Browsing With: Rekonq" & @CRLF
  Case StringInStr($Agent, "Firefox/3") = True
   $Data &= "Browsing With: FireFox 3" & @CRLF
  Case StringInStr($Agent, "Firefox/4") = True
   $Data &= "Browsing With: FireFox 4" & @CRLF
  Case StringInStr($Agent, "Firefox/5") = True
   $Data &= "Browsing With: FireFox 5" & @CRLF
  Case StringInStr($Agent, "Firefox/6") = True
   $Data &= "Browsing With: FireFox 6" & @CRLF
  Case StringInStr($Agent, "Firefox/7") = True
   $Data &= "Browsing With: FireFox 7" & @CRLF
  Case StringInStr($Agent, "Firefox/8") = True
   $Data &= "Browsing With: FireFox 8" & @CRLF
  Case StringInStr($Agent, "Firefox/9") = True
   $Data &= "Browsing With: FireFox 9" & @CRLF
  Case StringInStr($Agent, "MSIE 6.0") = True
   $Data &= "Browsing With: Microsoft Internet Explorer 6" & @CRLF
   $Data &= "Extended Info: IE6? Holy shit, get a real browser." & @CRLF
  Case StringInStr($Agent, "MSIE 7.0") = True
   $Data &= "Browsing With: Internet Explorer 7 or IE7 CV/BM" & @CRLF
   $Data &= "Extended Info: Internet Exploder, your browsing wrong." & @CRLF
  Case StringInStr($Agent, "MSIE 8.0") = True
   $Data &= "Browsing With: Internet Explorer 8 or IE8 CV/BM" & @CRLF
   $Data &= "Extended Info: LOL IE 8 really? Learn to internet." & @CRLF
  Case StringInStr($Agent, "MSIE 9.0") = True
   $Data &= "Browsing With: Internet Explorer 9" & @CRLF
   $Data &= "Extended Info: What is this IE 9 bullshit?" & @CRLF
   #endregion - Browser -
   #region - Mobile Browser -
  Case StringInStr($Agent, "Safari") = True
   $Data &= "Browsing With: Safari bullshit" & @CRLF
   #endregion - Mobile Browser -
EndSelect
Select
  Case StringInStr($Agent, "Media Center") = True
   $Data &= "Setup: Has Fancy Media Center Stuff!" & @CRLF
EndSelect
Select
  Case StringInStr($Agent, "OfficeLiveConnector") = True
   $Data &= "With: Office Live Connector bullshit" & @CRLF
EndSelect
Select
  Case StringInStr($Agent, ".NET") = True
   $Data &= "Has: .NET BullShit" & @CRLF
EndSelect
Return $Data
EndFunc   ;==>Agent
Func Mobile($Agent)
Local $Ret = ""
Select
  Case StringInStr($Agent, "BlackBerry8300") = True
   $Ret &= "Using: BlackBerry Curve" & @CRLF
  Case StringInStr($Agent, "BlackBerry8700") = True
   $Ret &= "Using: BlackBerry Bold" & @CRLF
  Case StringInStr($Agent, "BlackBerry 9800") = True
   $Ret &= "Using: BlackBerry Torch" & @CRLF
  Case StringInStr($Agent, "BlackBerry 9850") = True
   $Ret &= "Using: BlackBerry Torch" & @CRLF
  Case StringInStr($Agent, "ipad") = True
   $Ret &= "You're: An IFag using an IPad" & @CRLF
  Case StringInStr($Agent, "GT-I9100") = True
   $Ret &= "Uses: Samsung Galaxy" & @CRLF
EndSelect
Return $Ret
EndFunc   ;==>Mobile
Func VendorID($Agent)
Local $Ret = ""
Select
  Case StringInStr($Agent, "VendorID/100") = True
   $Ret &= "Vendor: T-Mobile" & @CRLF
  Case StringInStr($Agent, "VendorID/102") = True
   $Ret &= "Vendor: Cingular" & @CRLF
  Case StringInStr($Agent, "VendorID/104") = True
   $Ret &= "Vendor: Sprint" & @CRLF
  Case StringInStr($Agent, "VendorID/105") = True
   $Ret &= "Vendor: Verizon" & @CRLF
  Case StringInStr($Agent, "VendorID/107") = True
   $Ret &= "Vendor: Rogers" & @CRLF
  Case StringInStr($Agent, "VendorID/109") = True
   $Ret &= "Vendor: Bell Mobility Canada" & @CRLF
EndSelect
Return $Ret
EndFunc   ;==>VendorID
Func IP($Mode = 0, $Address = "")
Switch $Mode
  Case 0
   Local $IP, $t_ip, $bRead, $sRead, $sReturn
   If InetGet("http://checkip.dyndns.org/?rnd1=" & Random(1, 65536) & "&rnd2=" & Random(1, 65536), @TempDir & "~ip.tmp") Then
    $IP = FileRead(@TempDir & "~ip.tmp", FileGetSize(@TempDir & "~ip.tmp"))
    FileDelete(@TempDir & "~ip.tmp")
    $IP = StringTrimLeft($IP, StringInStr($IP, ":") + 1)
    $IP = StringTrimRight($IP, StringLen($IP) - StringInStr($IP, "/") + 2)
    $t_ip = StringSplit($IP, '.')
    If $t_ip[0] = 4 And StringIsDigit($t_ip[1]) And StringIsDigit($t_ip[2]) And StringIsDigit($t_ip[3]) And StringIsDigit($t_ip[4]) Then
     Return $IP
    EndIf
   EndIf
   $bRead = InetRead("http://api.hostip.info/?ip=")
   $sRead = BinaryToString($bRead)
   $sReturn = StringRegExp($sRead, "<ip>(.*?)</ip>", 3)
   If Not @error Then Return $sReturn[0]
   $bRead = InetRead("http://www.checkingtools.com/ip_check")
   $sRead = BinaryToString($bRead)
   $sReturn = StringRegExp($sRead, '(?s)(?i)<a href="/?ip=(.*?)">', 3)
   If Not @error Then Return $sReturn[0]
   Return SetError(1, 0, -1)
  Case 1
   Local $WData = BinaryToString(InetRead("http://whois.arin.net/rest/nets;q=" & $Address & "?showDetails=true"))
   $Info = StringRegExp($WData, '<orgRef name="(.*?)"', 3)
   $Info2 = StringRegExp($WData, '<name>(.*?)</name>', 3)
EndSwitch
EndFunc   ;==>IP
Func _GDIPlus_BitmapCreateFromScan0($iWidth, $iHeight, $iStride = 0, $iPixelFormat = 0x0026200A, $pScan0 = 0)
Local $aResult = DllCall($ghGDIPDll, "uint", "GdipCreateBitmapFromScan0", "int", $iWidth, "int", $iHeight, "int", $iStride, "int", $iPixelFormat, "ptr", $pScan0, "int*", 0)
If @error Then Return SetError(@error, @extended, 0)
Return $aResult[6]
EndFunc   ;==>_GDIPlus_BitmapCreateFromScan0
Func Terminate()
_GDIPlus_ImageDispose($hImage)
_GDIPlus_Shutdown()
Exit
EndFunc   ;==>_Exit
Edited by ApudAngelorum

Things that I've done..

Icon Resource Editor: icon resource editor 

AutoIt Piano: a piano

AutoIt Unlocker: unlocks files when you want to delete them

Colorful tooltips: a wrapper for the tool tips UDF

Rouge GoogleBot: a full screen animation

ASciTE text editor: a text editor written in autoit

Warning: Posts by this user are subject to change or may disappear without notice.

Share this post


Link to post
Share on other sites

Ignorance; the gift that keeps on giving............

I've tried to quit, but it seems that I,m an addict.

Sorry.

Share this post


Link to post
Share on other sites

thx guys. I found my way out. It wasnt so difficulte ;)


I feel nothing.It feels great.

Share this post


Link to post
Share on other sites

thx guys. I found my way out. It wasnt so difficulte ;)

So are you going to leave everyone on the entire planet wondering what it was you did or are you going to let us know how you fabricated a solution to your problem for later reference?


Things that I've done..

Icon Resource Editor: icon resource editor 

AutoIt Piano: a piano

AutoIt Unlocker: unlocks files when you want to delete them

Colorful tooltips: a wrapper for the tool tips UDF

Rouge GoogleBot: a full screen animation

ASciTE text editor: a text editor written in autoit

Warning: Posts by this user are subject to change or may disappear without notice.

Share this post


Link to post
Share on other sites

@ileandros, Why would you try to get ppl IP adress? Unless they have static IP that info is useless. Every 24 h your router at home restarts and you get new IP adress or you can restart it yourself to get new adress. You could try by blocking usernames. Also you could send cookie and hope that they won't clear them, that way you could always see if ppl are blocked or not. There is no easy method of blocking someone on the internet. Only providers can do that.

Share this post


Link to post
Share on other sites

#12 ·  Posted (edited)

@ileandros, Why would you try to get ppl IP adress? Unless they have static IP that info is useless. Every 24 h your router at home restarts and you get new IP adress or you can restart it yourself to get new adress. You could try by blocking usernames. Also you could send cookie and hope that they won't clear them, that way you could always see if ppl are blocked or not. There is no easy method of blocking someone on the internet. Only providers can do that.

They have vIP brother. I can get it from that. Also if u enter someones IP you can find other ways of blocking him. Blocking by usernames is worthless because there are spam bots tha are created every singe second so i have to block 100 of them everyday.

They allowed me to enter the database and that was pretty helpfull.

So are you going to leave everyone on the entire planet wondering what it was you did or are you going to let us know how you fabricated a solution to your problem for later reference?

You have already found the solution in ur first post. Anyway i made it in C++ so i dont know if its worth

P.s i was wondering how that programm u posted works. I copied it but i didnt hade the time to take a look on it.

It runs but it didnt do sth. I will take a look at it later. If you could explain me i would appriciate that

Edited by ileandros

I feel nothing.It feels great.

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