六狼论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

新浪微博账号登陆

只需一步,快速开始

搜索
查看: 99|回复: 0

C#对Microsoft.VisualBasic My对象兰台妙选【月儿原创】

[复制链接]

升级  38.7%

580

主题

580

主题

580

主题

探花

Rank: 6Rank: 6

积分
1774
 楼主| 发表于 2013-1-27 04:35:03 | 显示全部楼层 |阅读模式
C#对Microsoft.VisualBasic My对象兰台妙选
作者:清清月儿
主页:http://blog.csdn.net/21aspnet/           时间:2007.4.24
 1.添加引用

2.引用Microsoft.VisualBasic 命名空间

3.所有的My对象应用皆出自以下类库,本文仅抛砖引玉,更多请大家看MSDN

4.应用-获取应用程序所在服务器信息

说明:要添加using Microsoft.VisualBasic.Devices;
代码
using System;
using System.Data;
using System.Configuration;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;
using Microsoft.VisualBasic.Devices;
public partial class _Default : System.Web.UI.Page
{
    protected void Page_Load(object sender, EventArgs e)
    {
    }
   
    protected void Button1_Click1(object sender, EventArgs e)
    {
        Microsoft.VisualBasic.Devices.Computer my = new Computer();
        TextBox1.Text = "机器名为:" + my.Name + "\r\n";
        TextBox1.Text += "操作系统信息为:" + my.Info.OSFullName +" "+my.Info.OSPlatform+" "+my.Info.OSVersion +"\r\n";
        TextBox1.Text += "物理内存为:" + my.Info.TotalPhysicalMemory + "\r\n";
        TextBox1.Text += "虚拟内存为:" + my.Info.TotalVirtualMemory + "\r\n";
        TextBox1.Text += "可用物理内存为:" + my.Info.AvailablePhysicalMemory + "\r\n";
        TextBox1.Text += "可用虚拟内存为:" + my.Info.AvailableVirtualMemory + "\r\n";    }
}

5.文件操作

代码:
using System;
using System.Data;
using System.Configuration;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;
using Microsoft.VisualBasic.Devices;
using System.Text;
public partial class _Default : System.Web.UI.Page
{
    protected void Page_Load(object sender, EventArgs e)
    {
    }
   
    protected void Button1_Click1(object sender, EventArgs e)
    {
        Microsoft.VisualBasic.Devices.Computer my = new Microsoft.VisualBasic.Devices.Computer();
        TextBox1.Text = my.FileSystem.ReadAllText(FileUpload1.PostedFile.FileName,Encoding.GetEncoding("gb2312"));
       
    }
}

6.读取系统注册表(这是最粗糙的读取,建议用递归+树形菜单展示全部)

代码
using System;
using System.Data;
using System.Configuration;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;
using Microsoft.VisualBasic.Devices;
using System.Text;

public partial class _Default : System.Web.UI.Page
{
    protected void Page_Load(object sender, EventArgs e)
    {
    }
   
   
    protected void Button1_Click(object sender, EventArgs e)
    {
        Microsoft.VisualBasic.Devices.Computer my = new Microsoft.VisualBasic.Devices.Computer();
        foreach (String k in my.Registry.CurrentUser.GetSubKeyNames())
        {
            TextBox1.Text += k + "\r\n";
        }

    }
}
可以Registry后点出ClassesRoot,LocalMachine等节点请自己尝试。
7.Microsoft.VisualBasic命名空间的字符串处理能力非常强大。
最常见的半角和全角互换,简体和繁体互换等等做起来非常轻松,既然可以这么轻松处理为什么要写很复杂的类呢?

代码:
using System;
using System.Data;
using System.Configuration;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;
using Microsoft.VisualBasic;
using System.Text;

public partial class _Default : System.Web.UI.Page
{
    protected void Page_Load(object sender, EventArgs e)
    {
    }
   
   
    protected void Button1_Click(object sender, EventArgs e)
    {
        TextBox2.Text = Strings.StrConv(TextBox1.Text, VbStrConv.Narrow, 0);
        TextBox4.Text = Strings.StrConv(TextBox3.Text, VbStrConv.TraditionalChinese, 0);
    }
}


            VbStrConv.None
            
            不执行任何转换
            
            VbStrConv.LinguisticCasing
            
            使用语言规则进行大小写,而不使用文件系统(默认)。仅当与 VbStrConv.UpperCase 和 VbStrConv.LowerCase 一起使用时才有效。
            
            VbStrConv.UpperCase
            
            将字符串转换为大写字符。
            
            VbStrConv.LowerCase
            
            将字符串转换为小写字符。
            
            VbStrConv.ProperCase
            
            将字符串中每个单词的第一个字母转换为大写。
            
            VbStrConv.Wide *
            
            将字符串中的窄(半角)字符转换为宽(全角)字符。
            
            VbStrConv.Narrow *
            
            将字符串中的宽(全角)字符转换为窄(半角)字符。
            
            VbStrConv.Katakana **
            
            将字符串中的平假名字符转换为片假名字符。
            
            VbStrConv.Hiragana **
            
            将字符串中的片假名字符转换为平假名字符。
            
            VbStrConv.SimplifiedChinese *
            
            将繁体中文字符转换为简体中文字符。
            
            VbStrConv.TraditionalChinese *
            
            将简体中文字符转换为繁体中文字符。
            
您需要登录后才可以回帖 登录 | 立即注册 新浪微博账号登陆

本版积分规则

快速回复 返回顶部 返回列表