[amel27]

morgan1991

Код:

#include <Math.au3>

$nu = (1 + 28 / 60 + 0 / 3600) * 2
$result = Sin(_Radian ($nu))
MsgBox(0, "", $result)

[morgan1991]

спс всё клёва просто афигенно помогли.

[HORRIBLE]

Как сделать секундомер, только чтоб он показывал не секунды, а милисекунды?? без разницы, что цифры будут быстро обновляться и их будет почти не видно, просто как это сделать?

[Maza Faka]

HORRIBLE
Как именно должен выглядеть таймер? Так: чч:мм:сс:мм? Или просто миллисекунды?

[HORRIBLE]

Maza Faka,
Ай, забыл указать это.
Вот так: cc:мм

[Maza Faka]

HORRIBLE
В общем вот быстрый и грубый пример, как реализовать счётчик миллисекунд, но учитывая, что AutoIt - скриптовый язык (а значит работает медленно), немного поигравшись со значениями, примерно подсчитал, что 60 вызовов функции _TimerProc() примерно равны 1 секунде. В принципе в сети есть примеры, но они для таких языков, как: C, C++, Delfi. Короче пробуй!

Код:

#include <Date.au3>

Global $SecTimer = 0
Global $MsTimer = 0

$hGUI = GUICreate("Timer", 200, 100)

$SecLabel = GUICtrlCreateLabel("00:", 75, 40, 16, 15)

$MSLabel = GUICtrlCreateLabel("", 91, 40, 16, 15)
GUICtrlSetColor(-1, 0xFF0000)

GUISetState()

Global $TimerProcHandle = DllCallbackRegister("_TimerProc", "none", "hwnd;int;int;dword")

Global $TimerCall = DllCall("user32.dll", "int", "SetTimer", "hwnd", 0, "int", 0, "int", 1, _
                            "ptr", DllCallbackGetPtr($TimerProcHandle))
$TimerCall = $TimerCall[0]

Do
Until GUIGetMsg() = -3

DllCallbackFree($TimerProcHandle)
DllCall("user32.dll", "int", "KillTimer", "hwnd", 0, "int", $TimerCall)

Func _TimerProc($hWnd, $Msg, $IdTimer, $dwTime)
    If $MsTimer >= 60 Then
        $MsTimer = 0
        $SecTimer += 1
        If $SecTimer >= 60 Then $SecTimer = 0
        ControlSetText($hGUI, "", $SecLabel, StringFormat("%02i:", $SecTimer))
    EndIf

    $MsTimer += 1

    ControlSetText($hGUI, "", $MSLabel, StringFormat("%02i", $MsTimer))
EndFunc

[Creat0R]

Maza Faka,

примерно подсчитал, что 60 вызовов функции _TimerProc() примерно равны 1 секунде »

Но в одной секунде 1000 мс

Код:

#include <Date.au3>

Global $SecTimer = 0
Global $MsTimer = TimerInit()

$hGUI = GUICreate("Timer", 200, 100)

$SecLabel = GUICtrlCreateLabel("00:", 75, 40, 16, 15)

$MSLabel = GUICtrlCreateLabel("", 91, 40, 16, 15)
GUICtrlSetColor(-1, 0xFF0000)

GUISetState()

Global $TimerProcHandle = DllCallbackRegister("_TimerProc", "none", "hwnd;int;int;dword")

Global $TimerCall = DllCall("user32.dll", "int", "SetTimer", "hwnd", 0, "int", 0, "int", 1, _
    "ptr", DllCallbackGetPtr($TimerProcHandle))
$TimerCall = $TimerCall[0]

Do
Until GUIGetMsg() = -3

DllCallbackFree($TimerProcHandle)
DllCall("user32.dll", "int", "KillTimer", "hwnd", 0, "int", $TimerCall)

Func _TimerProc($hWnd, $Msg, $IdTimer, $dwTime)
    If TimerDiff($MsTimer) >= 1000 Then
        $MsTimer = TimerInit()
        $SecTimer += 1
        If $SecTimer >= 60 Then $SecTimer = 0
        ControlSetText($hGUI, "", $SecLabel, StringFormat("%02i:", $SecTimer))
    EndIf

    ControlSetText($hGUI, "", $MSLabel, _
        StringFormat("%02i", Round(TimerDiff($MsTimer)) / 10)) ; / 10 это чтобы получить 10-чное представление
EndFunc

[MaxxQ]

Цитировать »

Цитировать »

Нашел программу для декомпиляции exe обратно в скрипт.
Если кому надо, могу выложить.

[Creat0R]

MaxxQ,

могу выложить »

Не нужно, кому нужно сами найдут, вот лучше бы кто-то придумал способ как защитить наши скомпилированные скрипты от подобных взломов .

[MaxxQ]

Цитировать »

хммм... а кому они нужны? IMHO, скрипты AutoIt пишутся под конкретные нужды и исключительно для СЕБЯ, или вы продаете их?