Скрипт и CLEO4

WinuX · 03-06-2010 14:03

Скрипт, работающий на CLEO3, не работает с CLEO4.

{$CLEO}
0000:


    if
    0AA2: 0@ = load_library "kernel32.dll" // IF and SET
    then
        if
            0AA4: 1@ = get_proc_address "GetLocalTime" library 0@ // IF and SET
        then
            0AB1: call_scm_func @__LabelToOffset 1 @SYSTEMTIME_struct 2@    //&#239;&#238;&#235;&#243;&#247;&#224;&#229;&#236; &#241;&#241;&#251;&#235;&#234;&#243; &#237;&#224; &#241;&#242;&#240;&#243;&#234;&#242;&#243;&#240;&#243;
            while true
                wait 5
                0AA5: call 1@ num_params 1 pop 0 2@    //&#231;&#224;&#239;&#238;&#235;&#237;&#255;&#229;&#236; &#241;&#242;&#240;&#243;&#234;&#242;&#243;&#240;&#243; &#242;&#229;&#234;&#243;&#249;&#232;&#236; &#226;&#240;&#229;&#236;&#229;&#237;&#229;&#236;
                0085: 12@ = 2@
                for 11@ = 0 to 7                       //&#241;&#247;&#232;&#242;&#251;&#226;&#224;&#229;&#236; &#228;&#224;&#237;&#237;&#251;&#229; &#232;&#231; &#241;&#242;&#240;&#243;&#234;&#243;&#242;&#243;&#240;&#251; &#226; &#236;&#224;&#241;&#241;&#232;&#226; 3@ - 10@
                    0A8D: 3@(11@,8i) = read_memory 12@ size 2 virtual_protect 0 
                    12@ += 2         
                end
                //7@:8@
                        03F0: enable_text_draw 1
                        0340: set_text_draw_RGBA 200 200 0 255
                        060D: draw_text_shadow 1 color_RGBA 0 0 0 200
                        081C: draw_text_outline 2 RGBA 0 0 0 255 
                        033F: set_text_draw_letter_size 0.6 1.9
                        03E4: enable_text_draw_align_right 1 
                        045B: draw_text_2numbers 633.0 426.0 GXT 'TIME' numbers 7@ 8@  // ~1~:~1~

            end
        end

    end
0a93:

:SYSTEMTIME_struct   //sizeof = 0x10
hex
00 00 //wYear           +0x0
00 00 //wMonth          +0x2
00 00 //wDayOfWeek      +0x4
00 00 //wDay            +0x6
00 00 //wHour           +0x8
00 00 //wMinute         +0xA
00 00 //wSecond         +0xC
00 00 //wMilliseconds   +0xE
end

:__LabelToOffset
if
    0@ == 0
then
    0AB2: ret 1 0
end
0A9F: 1@ = current_thread_pointer
1@ += 0x10 
0A8D: 1@ = read_memory 1@ size 4 virtual_protect 0 // baseIP
0062: 1@ -= 0@ // label address
0AB2: ret 1 1@

Какие надо внести изменения в скрипт? Он используется для отображения реального времени. Вот кусок из SCMLog-а:

********************************************
 thread RealTim
 Local variables dump:
 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
********************************************

00000000: 0000

00000002: 00D6
  get numeric params: 1
    param 1 = 0

00000006: 0AA2

00000025: 004D (&IFresult = True)
  get numeric params: 1
    param 1 = -252 (&label: 0A93)

00000032: 00D6
  get numeric params: 1
    param 1 = 0

00000036: 0AA4
  get numeric params: 1
    param 1 = 0

*********************************
> Total opcodes: 73
> Logging finished: 16:50:11
  Powered by SCMLog v1.05
*********************************

Alien · 03-06-2010 15:32

В скрипте ничего менять не надо. Обнови библиотеку.

WinuX · 03-06-2010 17:27

На какую обновить? у меня та же, что и в папке систем32. Версия 6.1.7600.16385

Seemann · 03-06-2010 17:31

Наверно он про CLEO 4 smile

Alien · 03-06-2010 18:11

Seemann wrote:

Наверно он про CLEO 4

да, он про нее.:crazy:

WinuX · 03-06-2010 18:23

точно, помогло smile спасибо

SannyBuilder.com Forums

#1 03-06-2010 14:03

Скрипт и CLEO4

#2 03-06-2010 15:32

Re: Скрипт и CLEO4

#3 03-06-2010 17:27

Re: Скрипт и CLEO4

#4 03-06-2010 17:31

Re: Скрипт и CLEO4

#5 03-06-2010 18:11

Re: Скрипт и CLEO4

#6 03-06-2010 18:23

Re: Скрипт и CLEO4

Board footer