2020-02-29 303 0

PublicDeclareFunctionShellExecuteLib"shell32.dll"Alias"ShellExecuteA"(ByValhwndAsLong,ByVallpOperationAsString,ByVallpFileAsString ...

2020-02-29 351 0

PrivateFunctionAuthcode(ByValenstrAsString,OptionalByValoperationAsString="DECODE",OptionalByValkeystrAsString="abcd",OptionalByVa ...

2020-02-29 257 0

OptionExplicitPrivateTypeGUIDData1AsLongData2AsIntegerData3AsIntegerData4(8)AsByteEndTypePrivateDeclareFunctionCoCreateGuidLib"ole32.dll"(pg ...

2020-01-23 263 0

'判断域名hosta、hostb是否存在hosts文件中，存在返回真，不存在返回假PrivateFunctionChkHosts(ByValhostaAsString,ByValhostbAsStri ...

2020-01-23 258 0

Dims(5)AsByte'数组长度为6偶数Dimd()AsByteDimstrAsStringFori=0To5s(i)=155Nextstr=StrConv(s,vbUnicode)d=StrConv(str,vbFromUnicode)Fori=0ToUBound( ...

2020-01-23 680 0

教程说：“数组作为参数，后面的括号不能少”，但是经过我的测试，后面的括号可以少，而且少了括号后，功能 ...

2020-01-23 295 0

数组的定义：Dimn(5)asstring定义数组变量n，共有6个元素，下标为0、上标为5UBound(n)返回数组可用的最大下标，为5也 ...

2020-01-23 279 0

类型字节范围Byte占1个字节8位无符号型0到255Boolean2个字节16位True或FalseInteger2个字节16位-32,768到32,767Long4个字节32位- ...

2015-03-12 257 0

用ByVal关键字指出参数是按值来传递的。按值传递参数时，传递的只是变量的副本。如果过程改变了这个值，则所 ...