Нужна помощь со скриптом | аналог

Статус
В этой теме нельзя размещать новые ответы.
Y

ykp

Новичок
Автор темы
88
11
romacaddy написал(а):
вроде я делал на луа похожее. щас поищу
Нажмите для раскрытия...
В твоих тема нету такого, видимо ты не выложил
Jenecheque написал(а):
как вариант причины краша
http://api.2ip.com.ua/provider.xml - сайт который юзает плагин, не работает, подменить попробуйте ссылочку на рабочую, мейби будет работать
Нажмите для раскрытия...
Исходника нету данного скрипта
 
randazzo

randazzo

.
1,417
1,032
ykp написал(а):
Там нужно кейворды переписывать(
Нажмите для раскрытия...
CLEO: 
{$CLEO}
{$NOSOURCE}
{$INCLUDE SF}
0000:
thread "hIP"
0662: printstring "IPinfo by hnnssy"


/*const
USER_AGENT = "IP"
HOSTNAME = "whoisxmlapi.com"
LFILE = "home.php"
end*/

31@ = 0
log "{C1C1C1}* /cs/ IPinfo loaded %c%c hnnssy" 47 47

repeat
wait 0
until Samp.Available()

0b34: "ip" @ip

while true
wait 0
if 31@ == 1
then

//    0B3B: samp show_dialog id 1488 caption "{FFCC00}[IPinfo]" text "{FFFFFF}Получение информации об IP." button_1 "Закрыть" button_2 "" style 0
    0C65: 3@ = download_url 0@ to_file "CLEO\ip.txt"
    1@ = -1
    while 1@ == -1 // Скачивание всё ещё в процессе
    wait 0
        0C66: 1@ = get_download 3@ state // Получаем статус загрузки
    end
    0C7D: release_download 3@
    repeat
    wait 0
    until 0AAB:   file_exists "CLEO\ip.txt"
 
    if 0A9A: 4@ = openfile "CLEO\ip.txt" mode "rt"
    then
        alloc 5@ 2048
        0C11: 5@ 0 2048
        alloc 8@ 512
        0C11: 8@ 0 512
        repeat
        //wait 0
            0C11: memset destination 5@ value 0 size 2048
            0AD7: read_string_from_file 4@ to 5@ size 2048
            //msg "%s" -1 5@
            //log 5@
        until 0C18: 6@ = strstr string1 5@ string2 "Страна</b>:"

        6@ += 26
        call @delete_last_chars_from_string 2 6@ 13
        //msg "%s" -1 5@
        log 6@
        0C17: 10@ = strlen 6@
        alloc 11@ 128
        0C11: 11@ 0 128
        0C68: unicode_string 6@ to_ansi 11@ size 10@
        log 11@
        format 8@ = "Расположение[1]: {FFFFFF}%s" 11@
     
        0C11: memset destination 5@ value 0 size 2048
        0AD7: read_string_from_file 4@ to 5@ size 2048
        //log 5@
        0C18: 6@ = strstr string1 5@ string2 "Город</b>:"
        6@ += 24
        call @delete_last_chars_from_string 2 6@ 13
     
        0C17: 10@ = strlen 6@
        0C69: ansi_string 6@ to_unicode 11@ size 10@
        log 11@
     
        format 8@ = "%s, %s" 8@ 6@

        alloc 9@ 512
        0C11: 9@ 0 512
        0A9B: closefile 4@
        0B00: delete_file "CLEO\ip.txt"
        format 0@ "http:%c%cwww.ip-ping.ru/ipinfo/?ipinfo=%s" 47 47 30@
        0C65: 3@ = download_url 0@ to_file "CLEO\ip.txt"
        1@ = -1
        while 1@ == -1 // Скачивание всё ещё в процессе
        wait 0
            0C66: 1@ = get_download 3@ state // Получаем статус загрузки
        end
        0C7D: release_download 3@
        repeat
        wait 0
        until 0AAB:   file_exists "CLEO\ip.txt"
     
        if 0A9A: 4@ = openfile "CLEO\ip.txt" mode "rt"
        then
            alloc 5@ 2048
            repeat
                0C11: memset destination 5@ value 0 size 2048
                0AD7: read_string_from_file 4@ to 5@ size 2048
            until 0C18: 6@ = strstr string1 5@ string2 "Расположение:</span>"
            6@ += 21
            call @delete_last_chars_from_string 2 6@ 7
            //msg "%s" -1 6@
            format 9@ "Расположение[2]: {FFFFFF}%s" 6@
        end
        //6@ += 21
        //call @delete_last_chars_from_string 2 6@ 7
//        alloc 10@ 256
//        memset 10@ 0x0 256
//        format 10@ "{FFCC00}IP: {FFFFFF}%s%c{FFCC00}Расположение: {FFFFFF}%s" 30@ 0xA 6@
//
        0A9B: closefile 4@
        0B00: delete_file "CLEO\ip.txt"
        format 0@ "http:%c%crx-name.ua/domain/whois/?domain=%s&x=88&y=12&type=" 47 47 30@
        0C65: 3@ = download_url 0@ to_file "CLEO\ip.txt"
        1@ = -1
        while 1@ == -1 // Скачивание всё ещё в процессе
        wait 0
            0C66: 1@ = get_download 3@ state // Получаем статус загрузки
        end
        0C7D: release_download 3@
        repeat
        wait 0
        until 0AAB:   file_exists "CLEO\ip.txt"
        msg "IP: {FFFFFF}%s" 0xFFCC00 30@
        msg "%s" 0xFFCC00 8@
        msg "%s" 0xFFCC00 9@
        //msg "Расположение: {FFFFFF}%s" 0xFFCC00 6@
        if 0A9A: 4@ = openfile "CLEO\ip.txt" mode "rt"
        then
            alloc 5@ 2048
            repeat
                0C11: memset destination 5@ value 0 size 2048
                0AD7: read_string_from_file 4@ to 5@ size 2048
            until 0C18: 6@ = strstr string1 5@ string2 "netname:"
            6@ += 16
            call @delete_last_chars_from_string 2 6@ 7
            msg "Провайдер: {FFFFFF}%s" 0xFFCC00 6@
//            format 10@ "%s%c{FFCC00}Провайдер: {FFFFFF}%s" 10@ 0xA 6@
            0A9B: closefile 4@
            0B00: delete_file "CLEO\ip.txt"
        end
//
//        alloc 10@ 256
//        memset 10@ 0x0 256
//        format 10@ "{FFCC00}IP: {FFFFFF}%s%c{FFCC00}Расположение: {FFFFFF}%s" 30@ 0xA 6@
//        0B3B: samp show_dialog id 1488 caption "{FFCC00}[IPinfo]" text 10@ button_1 "Закрыть" button_2 "" style 0
//        0A9B: closefile 4@
//        0B00: delete_file "CLEO\ip.txt"
        free 0@
        free 8@
//        free 10@
    end
     
    31@ = 0                
end
end

:ip
if 0AAB:   file_exists "CLEO\ip.txt"
then
    0B00: delete_file "CLEO\ip.txt"
end
0b35: 30@
//0C17: 29@ = strlen 30@
if 0AD4: 11@ = scan_string 30@ format "%d.%d.%d.%d" 12@ 13@ 14@ 15@ //29@ > 0
then
    if and
    12@ >= 0
    12@ <= 255
    13@ >= 0
    13@ <= 255
    14@ >= 0
    14@ <= 255
    15@ >= 0
    15@ <= 255
    then
        alloc 0@ 128
        0C11: 0@ 0x0 128                    //                                                                                                                                      
        //format 0@ "http:%c%cwww.ip-ping.ru/ipinfo/?ipinfo=%s" 47 47 30@
        format 0@ "http:%c%cwww.seogadget.ru/location?addr=%s" 47 47 30@
//        format 0@ "http:%c%crx-name.ua/domain/whois/?domain=%s&x=88&y=12&type=" 47 47 30@ https://geoiptool.com/ru/?ip=176.39.5.13
//        msg "%s" -1 0@
        31@ = 1
    else
        msg "* Неверный IP." 0xC1C1C1
//        0B3B: samp show_dialog id 1488 caption "{FFCC00}[IPinfo]" text "{FFFFFF}Неверный IP." button_1 "Закрыть" button_2 "" style 0
    end
else
    msg "* Неверный IP." 0xC1C1C1
//    0B3B: samp show_dialog id 1488 caption "{FFCC00}[IPinfo]" text "{FFFFFF}Неверный IP." button_1 "Закрыть" button_2 "" style 0
end
0b43:

:delete_last_chars_from_string
// call @delete_last_chars_from_string call  2 0@ 5
var
0@: int
1@: int
2@: int
end
0C17: 2@ = strlen 0@
2@ -= 1@
0@ += 2@
0C11: memset 0@ 0 1@
ret 0
 

Вложения

  • ip.cs
    1.7 KB · Просмотры: 16
  • Нравится
Реакции: ykp
Y

ykp

Новичок
Автор темы
88
11
randazzo написал(а):
CLEO: 
{$CLEO}
{$NOSOURCE}
{$INCLUDE SF}
0000:
thread "hIP"
0662: printstring "IPinfo by hnnssy"


/*const
USER_AGENT = "IP"
HOSTNAME = "whoisxmlapi.com"
LFILE = "home.php"
end*/

31@ = 0
log "{C1C1C1}* /cs/ IPinfo loaded %c%c hnnssy" 47 47

repeat
wait 0
until Samp.Available()

0b34: "ip" @ip

while true
wait 0
if 31@ == 1
then

//    0B3B: samp show_dialog id 1488 caption "{FFCC00}[IPinfo]" text "{FFFFFF}Получение информации об IP." button_1 "Закрыть" button_2 "" style 0
    0C65: 3@ = download_url 0@ to_file "CLEO\ip.txt"
    1@ = -1
    while 1@ == -1 // Скачивание всё ещё в процессе
    wait 0
        0C66: 1@ = get_download 3@ state // Получаем статус загрузки
    end
    0C7D: release_download 3@
    repeat
    wait 0
    until 0AAB:   file_exists "CLEO\ip.txt"
 
    if 0A9A: 4@ = openfile "CLEO\ip.txt" mode "rt"
    then
        alloc 5@ 2048
        0C11: 5@ 0 2048
        alloc 8@ 512
        0C11: 8@ 0 512
        repeat
        //wait 0
            0C11: memset destination 5@ value 0 size 2048
            0AD7: read_string_from_file 4@ to 5@ size 2048
            //msg "%s" -1 5@
            //log 5@
        until 0C18: 6@ = strstr string1 5@ string2 "Страна</b>:"

        6@ += 26
        call @delete_last_chars_from_string 2 6@ 13
        //msg "%s" -1 5@
        log 6@
        0C17: 10@ = strlen 6@
        alloc 11@ 128
        0C11: 11@ 0 128
        0C68: unicode_string 6@ to_ansi 11@ size 10@
        log 11@
        format 8@ = "Расположение[1]: {FFFFFF}%s" 11@
    
        0C11: memset destination 5@ value 0 size 2048
        0AD7: read_string_from_file 4@ to 5@ size 2048
        //log 5@
        0C18: 6@ = strstr string1 5@ string2 "Город</b>:"
        6@ += 24
        call @delete_last_chars_from_string 2 6@ 13
    
        0C17: 10@ = strlen 6@
        0C69: ansi_string 6@ to_unicode 11@ size 10@
        log 11@
    
        format 8@ = "%s, %s" 8@ 6@

        alloc 9@ 512
        0C11: 9@ 0 512
        0A9B: closefile 4@
        0B00: delete_file "CLEO\ip.txt"
        format 0@ "http:%c%cwww.ip-ping.ru/ipinfo/?ipinfo=%s" 47 47 30@
        0C65: 3@ = download_url 0@ to_file "CLEO\ip.txt"
        1@ = -1
        while 1@ == -1 // Скачивание всё ещё в процессе
        wait 0
            0C66: 1@ = get_download 3@ state // Получаем статус загрузки
        end
        0C7D: release_download 3@
        repeat
        wait 0
        until 0AAB:   file_exists "CLEO\ip.txt"
    
        if 0A9A: 4@ = openfile "CLEO\ip.txt" mode "rt"
        then
            alloc 5@ 2048
            repeat
                0C11: memset destination 5@ value 0 size 2048
                0AD7: read_string_from_file 4@ to 5@ size 2048
            until 0C18: 6@ = strstr string1 5@ string2 "Расположение:</span>"
            6@ += 21
            call @delete_last_chars_from_string 2 6@ 7
            //msg "%s" -1 6@
            format 9@ "Расположение[2]: {FFFFFF}%s" 6@
        end
        //6@ += 21
        //call @delete_last_chars_from_string 2 6@ 7
//        alloc 10@ 256
//        memset 10@ 0x0 256
//        format 10@ "{FFCC00}IP: {FFFFFF}%s%c{FFCC00}Расположение: {FFFFFF}%s" 30@ 0xA 6@
//
        0A9B: closefile 4@
        0B00: delete_file "CLEO\ip.txt"
        format 0@ "http:%c%crx-name.ua/domain/whois/?domain=%s&x=88&y=12&type=" 47 47 30@
        0C65: 3@ = download_url 0@ to_file "CLEO\ip.txt"
        1@ = -1
        while 1@ == -1 // Скачивание всё ещё в процессе
        wait 0
            0C66: 1@ = get_download 3@ state // Получаем статус загрузки
        end
        0C7D: release_download 3@
        repeat
        wait 0
        until 0AAB:   file_exists "CLEO\ip.txt"
        msg "IP: {FFFFFF}%s" 0xFFCC00 30@
        msg "%s" 0xFFCC00 8@
        msg "%s" 0xFFCC00 9@
        //msg "Расположение: {FFFFFF}%s" 0xFFCC00 6@
        if 0A9A: 4@ = openfile "CLEO\ip.txt" mode "rt"
        then
            alloc 5@ 2048
            repeat
                0C11: memset destination 5@ value 0 size 2048
                0AD7: read_string_from_file 4@ to 5@ size 2048
            until 0C18: 6@ = strstr string1 5@ string2 "netname:"
            6@ += 16
            call @delete_last_chars_from_string 2 6@ 7
            msg "Провайдер: {FFFFFF}%s" 0xFFCC00 6@
//            format 10@ "%s%c{FFCC00}Провайдер: {FFFFFF}%s" 10@ 0xA 6@
            0A9B: closefile 4@
            0B00: delete_file "CLEO\ip.txt"
        end
//
//        alloc 10@ 256
//        memset 10@ 0x0 256
//        format 10@ "{FFCC00}IP: {FFFFFF}%s%c{FFCC00}Расположение: {FFFFFF}%s" 30@ 0xA 6@
//        0B3B: samp show_dialog id 1488 caption "{FFCC00}[IPinfo]" text 10@ button_1 "Закрыть" button_2 "" style 0
//        0A9B: closefile 4@
//        0B00: delete_file "CLEO\ip.txt"
        free 0@
        free 8@
//        free 10@
    end
    
    31@ = 0               
end
end

:ip
if 0AAB:   file_exists "CLEO\ip.txt"
then
    0B00: delete_file "CLEO\ip.txt"
end
0b35: 30@
//0C17: 29@ = strlen 30@
if 0AD4: 11@ = scan_string 30@ format "%d.%d.%d.%d" 12@ 13@ 14@ 15@ //29@ > 0
then
    if and
    12@ >= 0
    12@ <= 255
    13@ >= 0
    13@ <= 255
    14@ >= 0
    14@ <= 255
    15@ >= 0
    15@ <= 255
    then
        alloc 0@ 128
        0C11: 0@ 0x0 128                    //                                                                                                                                     
        //format 0@ "http:%c%cwww.ip-ping.ru/ipinfo/?ipinfo=%s" 47 47 30@
        format 0@ "http:%c%cwww.seogadget.ru/location?addr=%s" 47 47 30@
//        format 0@ "http:%c%crx-name.ua/domain/whois/?domain=%s&x=88&y=12&type=" 47 47 30@ https://geoiptool.com/ru/?ip=176.39.5.13
//        msg "%s" -1 0@
        31@ = 1
    else
        msg "* Неверный IP." 0xC1C1C1
//        0B3B: samp show_dialog id 1488 caption "{FFCC00}[IPinfo]" text "{FFFFFF}Неверный IP." button_1 "Закрыть" button_2 "" style 0
    end
else
    msg "* Неверный IP." 0xC1C1C1
//    0B3B: samp show_dialog id 1488 caption "{FFCC00}[IPinfo]" text "{FFFFFF}Неверный IP." button_1 "Закрыть" button_2 "" style 0
end
0b43:

:delete_last_chars_from_string
// call @delete_last_chars_from_string call  2 0@ 5
var
0@: int
1@: int
2@: int
end
0C17: 2@ = strlen 0@
2@ -= 1@
0@ += 2@
0C11: memset 0@ 0 1@
ret 0
Нажмите для раскрытия...
Не работает, даже уведомление нету что скрипт загружен.
 
W

Woofing Giraffe

Активный
402
49
sanek a.k.a Maks_Fender написал(а):
плагин хуета короче, скорее всего отвязали или что-то сделали с ним
syj-I0Kabos.jpg
BC2DqLd8oUQ.jpg
Нажмите для раскрытия...
Эт мой плагин, просто он написан крайне по уебански, соре

randazzo написал(а):
Если это старая версия, которая была ~в 16 году, то нет.
Нажмите для раскрытия...
Это 15 год, это важно :d
 
Статус
В этой теме нельзя размещать новые ответы.

Похожие темы

  1. K
    • Решено
    Нужна помощь в доработке скрипта
    Ответы
    8
    Просмотры
    635
    Помощь
    #Kingston
    K
  2. Frapsy
    • Опрос
    Исходник Полноценный исходник фракционного(МО) скрипта ARP
      • Нравится
    Ответы
    74
    Просмотры
    31K
    Lua
    Frapsy
    Frapsy
  3. СергейВеликийГосподин
    • Вопрос
      [ARP] House Checker - нужна помощь.
    Ответы
    1
    Просмотры
    798
    Помощь
    Aniki
    Aniki
  4. Mamashin
    Совет Железный способ фарма депозита 24/7 на Arizona RP в 2024 году.
      • Нравится
      • Влюблен
      • Вау
    Ответы
    126
    Просмотры
    43K
    Инфа
    Mamashin
    Mamashin
  5. Vintik
    Исходник Как сделать скрипт «Быстрый звонок Arizona-RP(G)»
      • Нравится
      • Bug
    Ответы
    26
    Просмотры
    8K
    Lua
    Vintik
    Vintik
Сверху Снизу