vb.net 获取java路径_vb.net 、java、vb等获取guid的方法

GUID:也叫全局唯一标识符(GUID，Globally Unique Identifier)也称作 UUID(Universally Unique IDentifier) 。GUID是一种由算法生成的二进制长度为128位的数字标识符。GUID主要用于在拥有多个节点、多台计算机的网络或系统中。在理想情况下，任何计算机和计算机集群都不会生成两个相同的GUID。GUID 的总数达到了2^128(3.4×10^38)个，所以随机生成两个相同GUID的可能性非常小，但并不为0。GUID一词有时也专指微软对UUID标准的实现。

在理想情况下，任何计算机和计算机集群都不会生成两个相同的GUID。随机生成两个相同GUID的可能性是非常小的，但并不为0。所以，用于生成GUID的算法通常都加入了非随机的参数(如时间)，以保证这种重复的情况不会发生。

GUID 的格式为“xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx”，其中每个 x 是 0-9 或 a-f 范围内的一个4位十六进制数。例如：6H9619ON-8B86-D011-B42D-00C04FB964FF 即为有效的 GUID 值。

vb.net获取GUID的方法：Dim sGUID As String

sGUID = System.Guid.NewGuid.ToString()

java获取GUID的方法：import java.util.UUID;

public class guid {

/**

* @param args

*/

public static void main(String[] args) {

// TODO Auto-generated method stub

UUID uuid = UUID.randomUUID();

System.out.println(".{"+uuid.toString()+"}");

}

}

VB获取GUID的方法：Option Explicit

Private Type GUID

Data1 As Long

Data2 As Long

Data3 As Long

Data4(8) As Byte

End Type

Private Declare Function CoCreateGuid Lib "ole32.dll" (pguid As GUID) As Long

Private Declare Function StringFromGUID2 Lib "ole32.dll" (rguid As Any, ByVal lpstrClsId As Long, ByVal cbMax As Long) As Long

Private Function GUIDGen() As String '生成GUID

Dim uGUID As GUID

Dim sGUID As String

Dim bGUID() As Byte

Dim lLen As Long

Dim RetVal As Long

lLen = 40

bGUID = String(lLen, 0)

CoCreateGuid uGUID '把结构转换为一个可显示的字符串

RetVal = StringFromGUID2(uGUID, VarPtr(bGUID(0)), lLen)

sGUID = bGUID

If (Asc(Mid$(sGUID, RetVal, 1)) = 0) Then RetVal = RetVal - 1

GUIDGen = Left$(sGUID, RetVal)

End Function