[навеяно tyomitch'ем] Шутка в VB (та же самая)

[ANDLL]

А вы думали Visual Basic без оптимизации

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

Option Explicit
Private Declare Function VirtualProtect Lib "kernel32" (ByVal lpAddress As Long, ByVal dwSize As Long, ByVal flNewProtect As Long, lpflOldProtect As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As Long, ByVal Source As Long, ByVal Length As Long)

Private Sub Form_Load()
    Dim lng As Long
    VirtualProtect StrPtr("Hello world"), 100, 4, lng
    CopyMemory StrPtr("Hello world"), StrPtr("It is funny"), LenB("It is funny") + 1
    MsgBox "Hello world"
    End
End Sub


Создал новую тему, что бы даже те, кто пропускает темы, касательно C++ оценили...

[tyomitch]

Собственно, я уже много раз здесь постил про оптимизацию в VB... И строки сливаются, и выражения из констант вычисляются, и мёртвый код удаляется... Всё это было.

[Viper]

А вы думали Visual Basic без оптимизации

так думают очень наивные люди. А если еще учесть, что компилятор у Сей (у Visual Сей точнее) и VB практически один и тот же...