Assembler>VB

[Twister]

Ведь так же можно?

Можно, но где гарантия того, что состояние флагов и регистров не измениться после ее завершения? Если ты заглянешь в отладчик, то увидишь, что Винда меняет значения многих регистров после выполнения любой АПИ-функции.

[Dex]

Ну тогда вариант tyomitch'а. (и всё равно мой метод заслуживает внимания, хотя он и не полноценен )

[Twister]

и всё равно мой метод заслуживает внимания, хотя он и не полноценен

Любой метод заслуживает внимания и критики, особенно если он не полноценен...

[keks-n]

Twister
Меняем значение EAX средствами VB :

Код: Выделить всё

sub Main
ChangeEAX 15

end sub

Function ChangeEAX(NewValue as long) as Long
'Т. к. возвращяемое значение передаётся через EAX, то...
ChangeEAX=NewValue
end function

Также регистры при выполнении апишки меняет не винда а сама функция, т. к. она их использует.

[Twister]

ECX, EDX и ESP на закуску слабо?...

[keks-n]

Издеваешся?
Если поправить ESP, то слетит указатель на стек

[Twister]

Также регистры при выполнении апишки меняет не винда а сама функция, т. к. она их использует.

Имхо к словам предираться не стоит - все поняли о чем я говорил. Впринципе, тоже касается и вопроса о ЕАХ.

[keks-n]

Убедил.

[Twister]

Издеваешся?
Если поправить ESP, то слетит указатель на стек

Конечно, если учесть что в ESP он и храниться...
PS Пора закрывать тему, пошел флуд.

[keks-n]

Перечитал тему. Неужели никто не вспомнил про LASM, лежащий на www.vbstreets.ru ?

[Twister]

Я вспомнил. Но собственно, подобный вариант рассматривался здесь и так...

[keks-n]

Дык это... Там вроде как и компилятор спецательный, и модуль генерится автоматом.

[Twister]

Да. Там такое есть.

[keks-n]

Inline assembeler for VB http://www.persistentrealities.com/files/inlineasm.zip
Тока ему masm32 нужен.

Рульно?

[Twister]

Судя вот по этому, эта фишка не позволяет обращаться к VB-переменным программы...

Код: Выделить всё

Public Sub asmSinCosPointer(ByRef sngCosAngle As Single, ByRef sngSinAngle As Single)
'#ASM_START
'.MMX
' push ebp
' mov ebp, esp
' mov eax, DWORD PTR [ebp+8] ;'//First argument, store in eax (= value now!)

' fld dword ptr [eax] ;'//Get value for cos
' fsincos ;'//Execute sin/cos instruction
' fstp dword ptr [eax] ;'//Store cos in eax (1st param pointer!)

' mov eax, DWORD PTR [ebp+12] ;'//Second argument, store in eax (=value now!)
' fstp dword ptr [eax] ;'//Store sin in eax (2nd param pointer!)

' mov esp, ebp ;'//MOV/POP is much faster
' pop ebp ;'//on 486 and Pentium than Leave
' ret 8
'#ASM_END
End Sub