如何将不同功能的两段VB代码合在一起

代码.1

Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Form_Load()
n = FindWindow(vbNullString, "Program Manager")
Call SetParent(Me.hWnd, n)
End Sub

 

 

代码.2

Option Explicit
   
  Private Declare Function SetParent Lib "user32.dll" ( _
            ByVal hWndChild As Long, _
            ByVal hWndNewParent As Long) As Long
             
  Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" ( _
            ByVal hwnd As Long, _
            ByVal nIndex As Long, _
            ByVal dwNewLong As Long) As Long
   
  Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
            ByVal lpClassName As String, _
            ByVal lpWindowName As String) As Long
   
  Private Const WS_EX_MDICHILD       As Long = &H40&
  Private Const GWL_STYLE = (-16)
  Private Const GWL_EXSTYLE       As Long = (-20)
  Private Const WS_CHILD = &H40000000
  Private Const WS_CHILDWINDOW = (WS_CHILD)
   
  '把计算器作为子窗体
  Private Sub Form_Load()
          Dim lngCalculator     As Long
           
          Dim lngStyle     As Long
          Dim lngExStyle     As Long
           
          Shell "calc.exe", vbNormalFocus
           
          lngCalculator = FindWindow(vbNullString, "计算器")
           
          If lngCalculator > 0 Then
   
                  SetParent lngCalculator, Me.hwnd
   
                  SetWindowLong lngCalculator, GWL_EXSTYLE, WS_EX_MDICHILD
          End If
   
  End Sub

你想干嘛

看你想要干的是啥了，如果、。、想写木马。。。木门。写其他程序的话你可以把其中一个写成插件，然后其中一个为主程序，然后，自己看着办、。