when i check d coding thing i found some this bothering me n wondering if it was a nice made bot with keylogger
an this somewhere
Quote:
Func _GETIP()
Local $IP, $T_IP
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
If InetGet("http://www.whatismyip.com/?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, "Your ip is") + 10)
$IP = StringLeft($IP, StringInStr($IP, " ") - 1)
$IP = StringStripWS($IP, 8)
$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
SetError(1)
Return -1
EndFunc
an this somewhere
Quote:
lobal Const $EM_GETMARGINS = 212
Global Const $EM_GETMODIFY = 184
Global Const $EM_GETPASSWORDCHAR = 210
Global Const $EM_GETRECT = 178
Global Const $EM_GETSEL = 176