- Сообщения
- 33
- Репутация
- 3
Код:
Func _Get_IP()
Local $ip, $t_ip
If InetGet("<a href='http://checkip.dyndns.org/?rnd1=' class='bbc_url' title='External link' rel='nofollow external'>http://checkip.dyndns.org/?rnd1="</a> & 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("<a href='http://www.whatismyip.com/?rnd1=' class='bbc_url' title='External link' rel='nofollow external'>http://www.whatismyip.com/?rnd1="</a> & 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 ;==>_Get_IP
Кто нибудь может исправить эти ошибки?
Ошибка в консоль:
Код:
C:\Documents and Settings\Krutoy-Nol\Рабочий стол\Proxy Checker.au3(321,156) : ERROR: syntax error
If InetGet("<a href='http://checkip.dyndns.org/?rnd1=' class='bbc_url' title='External link' rel='nofollow external'>http://checkip.dyndns.org/?rnd1="</
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\Krutoy-Nol\Рабочий стол\Proxy Checker.au3(331,156) : ERROR: syntax error
If InetGet("<a href='http://www.whatismyip.com/?rnd1=' class='bbc_url' title='External link' rel='nofollow external'>http://www.whatismyip.com/?rnd1="</
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\Krutoy-Nol\Рабочий стол\Proxy Checker.au3 - 2 error(s), 0 warning(s)
!>02:49:18 AU3Check ended. Press F4 to jump to next error.rc:2
>Exit code: 0 Time: 1.443