16,554
社区成员
发帖
与我相关
我的任务
分享
For Each s In Ps
Dim S1() As String = s.Split("=")
If S1(0) = "CXMC" Then
Dim assem As Assembly = Assembly.Load(S1(1))
Dim helloType As Type = assem.GetType(S1(1) & ".启动")
CX = Activator.CreateInstance(helloType)
Exit For
End If
Next
If Not CX Is Nothing Then
Application.Run(CX.main(P))
End If