VBNet - Форум - Риторически: почему я не знал об этом раньше?

Вопрос: Риторически: почему я не знал об этом раньше? Добавлено: 14.10.10 02:03

Автор вопроса: Winand | Web-сайт: winandfx.narod.ru

Почему я не знал, что в vb6 можно сабклассить окна так, чтоб ide не вылетало при ошибках в коде, при остановке на брейкпоинтах, даже при нажатии кнопки Стоп.
Почему я не знал, что так легко подменять вызов функций собственным asm кодом
Почему я пишу на vb6 сейчас?
http://www.planet-source-code.com/vb/scripts/showcode.asp?txtCodeId=51403&lngWId=1

'==================================================================================================
'cShift - Fast assembler bitshift class.
'
'Paul_Caton@hotmail.com
'Copyright free, use and abuse as you see fit.
'==================================================================================================
Option Explicit

Private pMe     As Long
Private nEntry  As Long
Private sCode() As String

Private Sub Class_Initialize()
  Call WinSubHook2.CopyMemory(pMe, ByVal ObjPtr(Me), 4)
  Call Inject("8B4424088B4C240C8B542410D3E0890231C0C21000") 'ShiftLeft machine-code
  Call Inject("8B4424088B4C240C8B542410D3E8890231C0C21000") 'ShiftRight machine-code
End Sub

Public Function ShiftLeft(ByVal lngValue As Long, ByVal lngShift As Long) As Long
End Function

Public Function ShiftRight(ByVal lngValue As Long, ByVal lngShift As Long) As Long
End Function

Private Sub Inject(ByVal sHexCode As String)
  Dim i As Long
  Dim s As String

  ReDim Preserve sCode(0 To nEntry)

  For i = 1 To Len(sHexCode) Step 2
    s = s & ChrB$(Val("&H" & Mid$(sHexCode, i, 2)))
  Next i

  sCode(nEntry) = s
  Call WinSubHook2.CopyMemory(ByVal pMe + &H1C + (nEntry * 4), StrPtr(sCode(nEntry)), 4)
  nEntry = nEntry + 1
End Sub

Ответить

Ответы Всего ответов: 5

Номер ответа: 1 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #1	Добавлено: 14.10.10 10:04
	Потому, что это делаешь не ты, и не на vb6. это делает человек, написавший библу в пряморукой среде. и написал достаточно пряморуко, чтобо ты мог использовать его софт в говношестерке, конечно же. Ответить

Номер ответа: 2 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822	Профиль \| \| #2	Добавлено: 14.10.10 10:21
	человек, написавший библу в пряморукой среде AgentFire, как ты можешь так говорить о том кто написал библу не в .NET??? Эх, AgentFire, слова твои пусты... Ответить

Номер ответа: 3 Автор ответа: Winand Вопросов: 87 Ответов: 2795	Web-сайт: winandfx.narod.ru Профиль \| \| #3	Добавлено: 14.10.10 12:18
	гм, библу я видел там одну - tlb (и то от нее теоретически можно избавиться). А ништяки на ассемблере написаны как я понимаю Ответить

Номер ответа: 4 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #4	Добавлено: 14.10.10 13:41
	LOL, я почему-то уверен, что он написал ее не в шестерке. Ответить

Номер ответа: 5 Автор ответа: Winand Вопросов: 87 Ответов: 2795	Web-сайт: winandfx.narod.ru Профиль \| \| #5	Добавлено: 14.10.10 16:05
	говорю вам это асм. Не важно на чем написано, хотя отсутствие лишних библ - хорошо. Важно что есть люди извратившиеся на столько, чтобы разобраться во внутреннем устройстве vb6 Ответить

Страница: 1 |