VBA可否检测出IP地址和工作组名称？[求助]

sayeah51 · 发表于 2002-12-23 12:17

VBA可不可以检测电脑的IP地址和工作组名称，然后与指定的IP地址清单、工作组清单较对，非这些IP和工作组不能打开这Excel文件，这样来实现对Excel文件的加密可以吗？

[此贴子已经被作者于2002-12-23 12:17:57编辑过]

marco · 发表于 2002-12-23 13:38

可以利用API函數做到,具体你查查API手冊. 或是參考一下這個,雖然例子并不完全与你的要求相符. http://klhome.vicp.net:5700/cdb/viewthread.php?tid=411&highlight=%2B%2BKLYAN

sayeah51 · 发表于 2002-12-23 14:29

谢谢游侠，但我不能下载你指定的文件啊。可以email给我吗？webmaster@decent.com.cn谢谢！！！

jdainet · 发表于 2002-12-24 14:54

如下得到PC名： Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Private Sub Findpcname() Dim st As String * 100 Dim pln As Long pln = 99 GetUserName st, pln MsgBox Left$(st, pln) End Sub 只能得到当前用户名，不能得到计算机名。

roger_lai · 发表于 2003-8-19 17:20

何必如此复杂,看下面 Sub sddssd() Set sys_infm = CreateObject("WSCRIPT.NETWORK") UserName = sys_infm.UserName pcname = sys_infm.computername End Sub

stlhq · 发表于 2003-8-21 13:07

Winsock控件，在那裡?我找不到,

白天羽 · 发表于 2003-8-21 13:34

winsock控件在附加控件里找，不过为什么我想插入时它提示“无法创建控件，因为它未经正确授权”，要怎么样授权啊

fxqcn · 发表于 2003-8-21 17:36

regsvr32

FENGJUN · 发表于 2004-11-9 17:38

以下是引用Emily在2002-12-24 18:45:00的发言： Private Declare Function w32_GetComputerName Lib "kernel32" _ Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long Sub test() ComputerName = GetComputerName End Sub Function GetComputerName() Dim sComputerName As String Dim lComputerNameLen As Long Dim lResult As Long lComputerNameLen = 256 sComputerName = Space(lComputerNameLen) lResult = w32_GetComputerName(sComputerName, lComputerNameLen) If lResult <> 0 Then GetComputerName = Left(sComputerName, lComputerNameLen) Else GetComputerName = "Unknown" End If End Function

代码能得到什么呢？

zz5151353 · 发表于 2005-1-7 17:16

一一下載收藏研究,謝謝各層高手們

		自动登录	找回密码
密码			免费注册