Guidance
指路人
g.yi.org
software / rapidq / Examples / Win32API & DLL / GetComputerName.bas

Register 
注册
Search 搜索
首页 
Home Home
Software
Upload

  
'From:  "victor ifrance" <victorgarnier@i...> Tue Oct 15, 2002  8:59 pm
'Subject:  Re: [rapidq] GetComputerName

     $OPTION VBDLL ON            'If you don't put that you'll get an error...

     DECLARE FUNCTION GetComputerName LIB "kernel32" ALIAS "GetComputerNameA"(BYVAL lpBuffer AS STRING, nSize AS LONG) AS LONG
     DIM MyBuffer AS STRING*256
     DIM intVal AS INTEGER
     intVal = 256
     GetComputerName(MyBuffer, intVal)
     MESSAGEBOX(MyBuffer,"",0)

'END
掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Fri 2024-3-29  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2009-07-25 17:29:44