Тотальная неудачница и убийца жёстких дисков.
Chr(13) & Chr(10) T_T



'====================================================================

Public Sub Main()

  Dim Buff(0 To 1025) As Integer

  Dim RC As Long

  

  RC = SendMessage(&H306CC, WM_GETTEXT, 1024, Buff(0))

  MsgBox """" & asGetStringFromPointerByAnyW(Buff(0)) & """"

End Sub