zoukankan      html  css  js  c++  java
  • VB CreateObject转C#

    C#调用方法、函数获取属性大致流程如下:

                System.Type oType = System.Type.GetTypeFromProgID("SomeClass");
                object o = System.Activator.CreateInstance(oType);
                oType.InvokeMember("SomeMethod", System.Reflection.BindingFlags.InvokeMethod, null, o, new object[] { arg1, arg2 });
                w = oType.InvokeMember("SomeFunction", System.Reflection.BindingFlags.InvokeMethod, null, o, new object[] { arg1, arg2 });
                w = oType.InvokeMember("SomeGet", System.Reflection.BindingFlags.GetProperty, null, o, null);
                oType.InvokeMember("SomeSet", System.Reflection.BindingFlags.SetProperty, null, o, new object[] { w }); 

    示例:VB.NET 获取计划任务列表

    Dim service = CreateObject("Schedule.Service")
            Call service.Connect()
    
            ' Get the task folder that contains the tasks. 
            Dim rootFolder
            rootFolder = service.GetFolder("")
    
            Dim taskCollection
            taskCollection = rootFolder.GetTasks(0)
    
            Dim numberOfTasks
            numberOfTasks = taskCollection.Count
    
            If numberOfTasks = 0 Then
                Debug.Print("No tasks are registered.")
            Else
                Debug.Print("Number of tasks registered: " & numberOfTasks)
    
                Dim registeredTask
                For Each registeredTask In taskCollection
                    Debug.Print("Task Name: " & registeredTask.Name)
    
                    Dim taskState
                    Select Case registeredTask.State
                        Case "0"
                            taskState = "Unknown"
                        Case "1"
                            taskState = "Disabled"
                        Case "2"
                            taskState = "Queued"
                        Case "3"
                            taskState = "Ready"
                        Case "4"
                            taskState = "Running"
                        Case Else
                            taskState = "Unknown"
                    End Select
    
                    Debug.Print("    Task State: " & taskState)
                Next
            End If

    翻译为C#:

    var typeofScheduleService = System.Type.GetTypeFromProgID("Schedule.Service");
                var service = System.Activator.CreateInstance(typeofScheduleService);
                typeofScheduleService.InvokeMember("Connect", System.Reflection.BindingFlags.InvokeMethod, null, service, new object[] { });
                var rootFolder = typeofScheduleService.InvokeMember("GetFolder", System.Reflection.BindingFlags.InvokeMethod, null, service, new object[] { @"" });
                var taskCollection = typeofScheduleService.InvokeMember("GetTasks", System.Reflection.BindingFlags.InvokeMethod, null, rootFolder, new object[] { 0 });
                var numberOfTasks = int.Parse(typeofScheduleService.InvokeMember("Count", System.Reflection.BindingFlags.GetProperty, null, taskCollection, new object[] { }).ToString());
                foreach(var task in taskCollection as IEnumerable)
                {
                    var taskName = typeofScheduleService.InvokeMember("Name", System.Reflection.BindingFlags.GetProperty, null, task, new object[] { }).ToString();
                    var taskState = int.Parse(typeofScheduleService.InvokeMember("State", System.Reflection.BindingFlags.GetProperty, null, task, new object[] { }).ToString());
                   //略去switch部分
                }
  • 相关阅读:
    字符串里输出字符c的所有位置
    python时间戳
    python之set()和issubset()方法
    python之判断键是否存在于字典中
    python之方法与函数的区别,及其传参
    接口测试之requests
    python之isinstance()函数
    MySQL创建表时,被``和''坑了很久
    游标位置self.cur.scroll(0, mode='absolute')
    python操作MySQL数据库
  • 原文地址:https://www.cnblogs.com/nanfei/p/6098359.html
Copyright © 2011-2022 走看看