|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
大家可以自己去看一看.可以说看得想呕吐.以前有次下了个动网来看.里面连基本内置函数的保护措施(函数没防御性)都没有.难怪经常补这个补那个了.可能现在.NET版会好点吧这个是VB的代码,本人新建一个ActiveXDLL,然后改动工程称号和类称号,然后在类中输出以下内容便可。
//////////////////////////////
中文称号:INI文件操纵类
英文称号:Blood_INIClass
Blood
制造工夫:2002.2.8
版本:1.0
版权一切Blood2002-2003
//////////////////////////////
声名变量
PrivatestrAppNameAsStringINI大节称号
PrivatestrKeyNameAsStringINI项目名
PrivatestrValueStrAsStringINI的项目值
PrivatestrFileNameAsStringINI文件名
声名操纵INI文件的API
PrivateDeclareFunctionGetPrivateProfileStringLib"kernel32"Alias"GetPrivateProfileStringA"(ByVallpApplicationNameAsString,ByVallpKeyNameAsAny,ByVallpDefaultAsString,ByVallpReturnedStringAsString,ByValnSizeAsLong,ByVallpFileNameAsString)AsLong
PrivateDeclareFunctionWritePrivateProfileStringLib"kernel32"Alias"WritePrivateProfileStringA"(ByVallpApplicationNameAsString,ByVallpKeyNameAsAny,ByVallpStringAsString,ByVallpFileNameAsString)AsLong
////////////////////
入手下手界说函数
////////////////////
界说写INI文件的函数
PublicFunctionWriteINI()AsLong
经由过程API将值写进INI文件
WriteINI=WritePrivateProfileString(strAppName,strKeyName,strValueStr,strFileName)
EndFunction
界说读INI文件的函数
PublicFunctionGetINI()AsString
ConstSTRING_SIZE=255指定字符串长度
DimlngLengthAsLong界说API函数前往的长度
DimstrDefaultAsString*STRING_SIZE界说在没有找到指定的项目时前往的默许值
DimstrReturnAsString*STRING_SIZE界说一个字符串缓冲区
经由过程API函数获得INI文件的内容
lngLength=GetPrivateProfileString(strAppName,strKeyName,strDefault,strReturn,STRING_SIZE,strFileName)
经由过程判别API函数前往的长度来断定前往的值
If(lngLength=0)Then
GetINI=strValueStr
Else
GetINI=Mid(strReturn,1,lngLength)
EndIf
EndFunction
////////////////////
界说函数停止
////////////////////
////////////////////
入手下手界说属性
////////////////////
获得INI文件的称号
PublicPropertyLetFileName(ByValstrFileAsString)
strFileName=strFile
EndProperty
获得项目值
PublicPropertyLetValueStr(ByValstrValueAsString)
strValueStr=strValue
EndProperty
获得项目称号
PublicPropertyLetKeyName(ByValstrKeyAsString)
strKeyName=strKey
EndProperty
获得大节称号
PublicPropertyLetAppName(ByValstrAppAsString)
strAppName=strApp
EndProperty
////////////////////
停止界说属性
////////////////////
</p>SQLServer是基于服务器端的中型的数据库,可以适合大容量数据的应用,在功能上管理上也要比Access要强得多。在处理海量数据的效率,后台开发的灵活性,可扩展性等方面强大。 |
|