2004年09月_iwebsms

原创如何在C# 中使用WMI 实现远程查询和共享

WMI 对大多数开发人员来说是一个感觉比较迷惑的东西，对我来说也是如此。直到最近看了一篇关于 .Net Management 的介绍后，才对WMI 有了一点点了解。下面就把自己的一点经验写给爱好C# 的朋友们。WMI 是一个非常强大的工具，它可以提供给我们非常强大的功能。比如在我们开发应用程序时经常需要得到本地或远程操作系统的信息。虽然看起来很平常，但是实际操作起来还是比较麻烦的，尤其当我们想

2004-09-29 13:35:00 2624 4

原创 Setting NTFS Permissions with C#

Today I needed to set NTFS permissions in C# on some newly created directories. No problem I thought, the CLR will have something for it somewhere in Security, so I checked Google in the hopes to find

2004-09-29 11:41:00 2523 1

原创 VS.NET 学习方法论

VS.NET 学习方法论　　　　　——我的VS.NET学习之旅　　　　　　　　　屠恩海（SunHai）　　开发工具：Microsoft Visual Studio .NET 2003　　操作系统：Windows XP　　题记：即使你没有一点编程经验，只要你愿意，并理解本文介绍的学习方法，你也可以象作者一样轻松、愉快地步入程序设计之门。让我们一起开始激动人心的VS.NET之旅。　

2004-09-28 20:58:00 2246

原创用C#操纵IIS（代码）

using System;using System.DirectoryServices;using System.Collections;using System.Text.RegularExpressions;using System.Text; /** * @author 吴海燕 * @email wuhy80-usual@yahoo.com * 2004

2004-09-28 20:57:00 2656 4

原创返回8位小写字母数字混合随机密码

返回8位小写字母数字混合随机密码Function GetRandomPassword() As String Dim s As String() = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m",

2004-09-28 19:42:00 1792

原创对称加密解密模块

Imports System.TextImports System.Security.Cryptography Module ModSecurity Function EnText(ByVal Text As String, ByVal sKey As String) As String Text = Text.ToLower Dim

2004-09-28 19:42:00 1769 1

原创根据时间的字符串形式（20031110）获得日期型

根据时间的字符串形式（20031110）获得日期型Function GetDateTimeByDateString(ByVal DateString As String) As Date Return CDate(Left(DateString, 4) & "-" & Right(Left(DateString, 6), 2) & "-" & Right(DateString, 2

2004-09-28 19:41:00 1315

原创获得汉字字符串拼音首字母

返回给定字符串的首字母Function IndexCode(ByVal IndexTxt As String) As String Dim i As Integer For i = 1 To IndexTxt.Length IndexCode = IndexCode & GetOneIndex(Mid(IndexTxt, i, 1)) Ne

2004-09-28 19:40:00 7646 1

原创使用HttpWebRequest获得URL的返回值

使用HttpWebRequest获得URL的返回值Function GetUrlValue(ByVal Url As String) As String Dim HttpWebRequest As System.Net.WebRequest = System.Net.WebRequest.Create(Url) Dim HttpWebResponse As Syst

2004-09-28 19:40:00 2166

原创获得时间的字符串形式，例如：20031110

获得时间的字符串形式，例如：20031110Function GetDateStringByDateTime(ByVal DateTime As Date) As String Return DateTime.Year & Format(DateTime.Month, "00") & Format(DateTime.Day, "00")End Function

2004-09-28 19:38:00 1143

原创递归统计指定目录下所有文件容量总和

Public Class ShowDirSize 递归统计指定目录下所有文件容量总和 Public Shared Function DirSize(ByVal d As IO.DirectoryInfo) As Long Dim Size As Long = 0 统计本目录下所有文件容量总和 Dim fis As

2004-09-28 19:37:00 1297

原创获得硬盘D盘序列号

获得硬盘C盘序列号Function GetDrvID() As Long Dim GetVal As Long Dim TempStr1 As New String(Chr(0), 255) Dim TempStr2 As New String(Chr(0), 255) Dim TempLon1 As Integer Dim Te

2004-09-28 19:37:00 1223

原创获得字符串的MD5格式

获得字符串的MD5格式Function GetMD5(ByVal StrValue As String) As String Return System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(StrValue, "md5")End Function

2004-09-28 19:36:00 1129

原创检查一个字符串是不是常用域名

检查一个字符串是不是常用域名Function CheckDomain(ByVal Domain As String) As Boolean Dim vDomain() As String = Domain.Split(".") : Dim i As Integer Dim vLastDomain As String() = "com,net,org,gov,cn,info

2004-09-28 19:35:00 1193

原创将货币的小写转换为大写，例如：肆佰陆拾贰圆捌角柒分

将货币的小写转换为大写，例如：肆佰陆拾贰圆捌角柒分Public Function Num2Chi(ByVal txtJE As Double) As String Dim i, K As Integer Dim NC, nd, ka, chrNum, strZheng As String Dim c1, c2, c3 As String Dim K

2004-09-28 19:34:00 2608

原创 VB.NET的阳历与农历转换的算法

下面是一个关于VB的农历算法日期数据定义方法如下前12个字节代表1-12月为大月或是小月，1为大月30天，0为小月29天；第13位为闰月的情况，1为大月30天，0为小月29天；第14位为闰月的月份，如果不是闰月为0，否则给出月份，10、11、12分别用A、B、C来表示，即使用16进制；最后4位为当年家农历新年-即农历1月

2004-09-28 19:32:00 2757 1

原创从字符串中获得电子邮件数组

从字符串中获得电子邮件数组 Function GetMailListFromStrStream(ByVal StrStream As String) As ArrayList Dim Re As System.Text.RegularExpressions.Regex Dim RegStr As String = "[a-zA-Z0-9]+@

2004-09-28 19:31:00 1694

原创 ASP.NET常用函数

Abs(number) 取得数值的绝对值。 Asc(String) 取得字符串表达式的第一个字符ASCII 码。 Atn(number) 取得一个角度的反正切值。 CallByName (object, procname, usecalltype,[args()]) 执行一个对象的方法、设定或传回对象的属性。 CBool(expression) 转换表达式为Boolean 型态。

2004-09-28 19:30:00 1066

原创运用StreamReader从一个标准的文本文件读行信息。

运用StreamReader从一个标准的文本文件读行信息。 Dim srReadLine As New System.IO.StreamReader("D:/1.txt", System.Text.Encoding.GetEncoding("GB2312")) srReadLine.BaseStream.Seek(0, System.IO.Se

2004-09-28 19:28:00 1222

原创 VB.NET操作SQL Server完全模块

Module ModSql Function GetIntByStr(ByVal FieldName As String, ByVal TableName As String, ByVal ParaName As String, ByVal ParaValue As String) As Integer Dim sqlConnection As New SqlCl

2004-09-28 19:26:00 1436

原创制作最清晰缩略图的完整类

Public Class ClassUpPic Private vPicFile As System.Web.UI.HtmlControls.HtmlInputFile Private vSmallPicSize, vUpFileSize As Integer Private vUpPicPath, vNewPicName, vTmpPicName As String

2004-09-28 19:24:00 1809 2

原创称骨算命的VB.NET类

Public Class ClassChG Private vWeight As Integer = 0 Private vResultWord As String vDate格式为：1978-8-10 vTime值为：子：子（23：00～1：00）丑：丑（1：00～3：00）寅：寅（3：00～5：00）

2004-09-28 19:22:00 3268

原创排除重复的字符串

排除重复的字符串 Function GetNotRepeat(ByVal ArrList As ArrayList) As ArrayList Dim i As Integer : Dim TmpArrayList As New ArrayList For i = 0 To ArrList.Count - 1 If

2004-09-28 19:20:00 892

原创根据文本文件获得每行字符串的数组

根据文本文件获得每行字符串的数组 Function GetLineStrByTxtFile(ByVal txtFileName As String) As ArrayList Dim fs As IO.FileStream = New IO.FileStream(txtFileName, IO.FileMode.Open, IO.FileAccess.R

2004-09-28 19:19:00 1005

原创窗体中加入下列代码，回车自动转回为TAB

窗体中加入下列代码，回车自动转回为TAB Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message, ByVal keyData As System.Windows.Forms.Keys) As Boolean If keyData = Keys.E

2004-09-28 19:18:00 1255

原创以追加模式打开记录文件

以追加模式打开记录文件 Dim error1 As TextWriter = New StreamWriter("d:/error.log", True) error1.WriteLine("{0}试图以{1}登录时间{2}", user, pwd, DateTime.Now)

2004-09-28 19:17:00 1501

原创 ASP.NET或者VB.NET开发自动备份数据库应用程序

备份数据库 BackupDataName数据库存放的绝对路径 Function BackUpData(ByVal BackupDataName As String) As String Dim Conn As New SqlClient.SqlConnection(ModConn.GetConn) Dim mySelectQuer

2004-09-28 19:16:00 1248

原创怎样将datagrid中数据到处到execl中

1 引入Microsoft Excel 10.0 Object Library (项目->添加引用->Com)2 Dim excelapp As New excel.Application Dim excelbook As excel.Workbook Dim excelsheet As excel.Worksheet3 Set excelbook = excelapp.Workbooks.

2004-09-28 19:14:00 933

原创总结:Connection大全

1.Sqlserver A.ODBC I.Standard Security: "Driver={SQL Server};Server=Aron1;Database=pubs;Uid=sa;Pwd=asdasd;" II.Trusted connection: "Driver={SQL Server};Server=Aron1;Database=pubs;

2004-09-28 19:13:00 1026

原创生成图象验证码函数

生成图象验证码函数 Sub ValidateCode(ByVal VNum As String) Dim Img As System.Drawing.Bitmap Dim g As Graphics Dim ms As System.IO.MemoryStream gheight为图片宽度,根据字符长度自

2004-09-28 19:12:00 878

原创将身份证从15位升级为18位的函数

将身份证从15位升级为18位的函数 Function GetNewIDCard(ByVal IDCard As String) As String Dim i, S As Integer Dim Wi() As String = Split("7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2,1", ",")

2004-09-28 19:09:00 1021

iwebsms的专栏