编一个全局函数如下：
//---------------------------------------------
//function f_get_guid//得到全球唯一码
//argument: <ref string> of_guid //全球唯一码
//return: [none]
//create by 泥草鞋 2004-03-10
//----------------------------------------------
oleobject pbobject
long ll_result
pbobject = create oleobject
ll_result = pbobject.connecttonewobject("powerbuilder.application")
if ll_result < 0 then
messagebox(gs_message,"连接失败：与powerbuilder.application连接出错！")
return
else
ll_result = pbobject.generateguid(ref of_guid)
end if
if ll_result < 0 then
messagebox(gs_message,"生成guid失败：不能获得guid！")
return
end if
of_guid = mid(of_guid,2,len(of_guid) - 2)
//end of fuction
Java Asp PHP .Net XML C/C++ CGI VB Jsp J2ee J2se J2me EJB Servlet Tomcat Resin Struts Weblogic Eclipse ANT GUI JMS Web servise IDEA Webphere Hibernate Spring Jboss Applet Swing Socket Javamail Perl Ajax P2P 安全 模式 框架 测试 开源 游戏
Windows XP Windows 2000 Windows 2003 Windows Me Windows 9.x Linux UNIX 注册表 操作系统 服务器 应用服务器
