求解释一段简单的程序语言
- F717刚开始接触编程,麻烦各位业内翻译一下,谢谢。。。。。。
RegPath="HKLM\System\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName"
RegPath2="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultUserName"
ComputerName=ReadComputerName.RegRead(RegPath)
uname=ReadComputerName.RegRead(RegPath2)
ksu=split(computername,"-")
if ksu(1)<="009" then
ksu(1)=right(ksu(1),2)
else
ksu(1)=cint(ksu(1))
end if - ouiki猜一下,通过注册表,读到机器名和用户名。
机器名用"-"分割成几个部分。
if:机器名的第二部分 小于 "009",则把第二部分改成原来从右面数的2位(如009 改成09)
else:cint(ksu(1))(你查一下cint这个函数吧)
抛砖引玉。 - 不要看我如果ksu(1)小于等于009为真
取右边两位字符吧?right函数是这个意思?
否则cint(ksu(1))这也是取值,函数意思自己去查。
前面那些是注册路径。 - LuciferQ就是条件结构,读两个注册表键然后比较之后做出两种选择 里面的函数用法不知道
- redpill是VB吧
2楼说的差不多了。
CInt就是转换成整数Int类型 - lobydenk看MSDN,VB的‘大于’‘小于’用在字符串时相当怪异,很有WINDOWS风格
http://msdn.microsoft.com/zh-cn/library/215yacb6(v=vs.80).aspx