EbExecuteLine 初探

passok

顶起
原来大侠这么早就已经在研究这个东东了。

passok

顶起
原来大侠这么早就已经在研究这个东东了。

h907308901

话说我以前也分析过，写出这样的代码（还没分析完，因此不能使用）：

1. Option Explicit
   
2. 
   
3. Public Declare Function EbInitHost Lib "vba6.dll" (ByVal Unknown1 As Long, ByVal Unknown2 As Long, ByVal Unknown3 As Long, ByVal CallbacksAddress As Long, ByVal Unknown4 As Long, ByVal Unknown5 As Long, ByVal Unknown6 As Long, ByVal Unknown7 As Long, ByVal BaseAddress As Long, ByVal hwnd As Long) As Long
   
4. Public Declare Function EbInitHostPart2 Lib "vba6.dll" (ByVal pString As Long, ByVal Unknown As Long) As Long
   
5. Public Declare Function EbCreateCVbaExtEditors Lib "vba6.dll" (ByVal Unused1 As Long, ByVal Unused2 As Long, ByVal Unused3 As Long, ByVal Pointer As Long) As Long
   
6. Public Declare Function EbInvokeItem Lib "vba6.dll" (ByVal Unknown As Long) As Long
   
7. Public Declare Function EbExecuteLine Lib "vba6.dll " (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long
   
8. Public Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleW" (ByVal lpModuleName As Long) As Long
   
9. Public Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
   
10. 
    
11. Function ExecuteLine(StringToExec As String, ByVal fCheckOnly As Long) As Long
    
12.     Dim hVBA6 As Long, Lng(4) As Long, Ptr1(67) As Long, Ptr As Long, MyStr As String, MyVar As Long
    
13.     hVBA6 = GetModuleHandle(StrPtr("vba6.dll"))
    
14.     If hVBA6 = 0 Then
    
15.         hVBA6 = LoadLibrary("vba6.dll")
    
16.         MsgBox Hex(hVBA6)
    
17.         Lng(0) = &H824448B
    
18.         Lng(1) = &HB24C0D8B
    
19.         Lng(2) = &H8890059
    
20.         Lng(3) = &H8C2C033
    
21.         Lng(4) = &H0
    
22.         Ptr1(23) = VarPtr(Lng(3))
    
23.         Ptr1(59) = VarPtr(Lng(0))
    
24.         Ptr1(67) = VarPtr(Lng(3))
    
25.         Ptr = VarPtr(Ptr1(0))
    
26.         MyStr = "Microsoft Visual Basic"
    
27.         EbInitHost 6, 0, &H1FE9, Ptr, &H134, 4, &H4E4, 0, GetModuleHandle(0), 0
    
28.         EbInitHostPart2 StrPtr(MyStr), 0
    
29.         EbCreateCVbaExtEditors 0, 0, 0, VarPtr(MyVar)
    
30.         EbInvokeItem &H1B
    
31.     End If
    
32.     ExecuteLine = EbExecuteLine(StrPtr(StringToExec), 0, 0, fCheckOnly)
    
33. End Function
    

复制代码