VFP 愛用者社區

[aqiang]

MYDLL只能取得本機的MAC地址

[syntech]

困難.......

但不是沒有辦法.

[aqiang]

所以試了一段時間 只好請教高手了

[小賴]

試試這方法 :


PARAMETERS cIPAddress
LOCAL cCommandStr, cFileText, nPoisition
IF EMPTY(cIPAddress)
RETURN ""
ENDIF
cCommandStr = "NbtStat -A " + ALLTRIM(cIPAddress) + " > MAC.TXT"
RUN/N7 &cCommandStr
cFileText = FILETOSTR("MAC.TXT")
nPoisition = AT("MAC Address", cFileText)
IF nPoisition = 0
RETURN ""
ELSE
RETURN SUBSTR(cFileText, nPoisition+14, 17)
ENDIF

[aqiang]

請問可不可以去掉DOS執行窗口

原程序如下
PARAMETERS cIPAddress
LOCAL cCommandStr, cFileText, nPoisition
IF EMPTY(cIPAddress)
RETURN ""
ENDIF
cCommandStr = "NbtStat -A " + ALLTRIM(cIPAddress) + " > MAC.TXT"
RUN &cCommandStr
cFileText = FILETOSTR("MAC.TXT")
nPoisition = AT("MAC Address", cFileText)
IF nPoisition = 0
RETURN ""
ELSE
RETURN SUBSTR(cFileText, nPoisition+14, 17)
ENDIF

[zlabsoft]

可試試下列程式, 在 XP 下成功:

? ZGETMAC('192.168.1.1')

PROCEDURE ZGETMAC
LPARAMETERS lnLanCard
*
* 取得網卡 / ip Mac 地址 3.0
*
* 程式示例: lcMac = ZGETMAC(1)
*
*** 輸入參數 :
*
* lnLanCard - 數值, 第幾張網卡
* 字串, ip 地址
*
*** 輸出 : 字串, 12字元網卡 Mac 地址
*
****************************************
*
* 其他必需檔案 : mydll.dll
*
****************************************
*
* 程式內容 : 取得網卡 / ip Mac 地址
* 在 win9X 下未能取得 ip Mac 地址
* 前程式調用 FOCUS.FLL, 可惜為收費軟件
* 選擇以 mydll.dll 作為取得網卡 Mac address工具比其他工具優勢的地方:
* 程式簡潔, 體積細小, 免費, 免 dll 註冊, 另有其他用途.
*
* 24/05/2005 3.0 - 新增可檢測 ip 的 Mac 地址, 擇自 "紅雨"
* 22/05/2005 2.0 - 重新用 mydll.dll, 程式碼極度優化
* 31/07/2001 1.5 - 調用 FOCUS.FLL
* 29/07/2001 1.4 - 解決不能正常在 Win 2000 上運行
* 16/07/2001 1.3 - 暫存檔用隨機名稱
* 16/07/2001 1.2 - 刪除取得網卡 Mac 地址 的 EXE 檔案
* 15/07/2001 1.1 - 去掉 Mac 字串內的 "."
* 15/07/2001 1.0 - 初稿
*
* By: zlabsoft
*
IF VARTYPE(lnLanCard) = 'C'
LOCAL lcMacStr, lcWSADATA, lnRemoteAddr, lcMacAddress, lnReturnCode, lnLoop
#DEFINE WSADATA_SIZE 398
#DEFINE WS_VERSION 514
DECLARE INTEGER WSAStartup IN ws2_32 ;
INTEGER wVerRq, ;
STRING @lpWSAData

lcMacStr = '000000000000'
*
* 初始化 SOCKET
*
lcWSADATA = REPLICATE(CHR(0), WSADATA_SIZE)
IF WSAStartup(WS_VERSION, @lcWSADATA) = 0
*
* 發送ARP檢查封包取得遠程MAC地址
*
DECLARE INTEGER inet_addr IN ws2_32 ;
STRING cp
DECLARE INTEGER SendARP IN Iphlpapi ;
INTEGER nHost, ;
INTEGER unsigned, ;
STRING @, ;
INTEGER @

lnRemoteAddr = inet_addr(lnLanCard)
lcMacAddress = SPACE(6)
lnReturnCode = SendARP(lnRemoteAddr, 0, @lcMacAddress, 6)
IF lnReturnCode = 0
lcMacStr = ''
FOR lnLoop = 1 TO 6
lcMacStr = lcMacStr + RIGHT(TRANSFORM(ASC(SUBSTR(lcMacAddress,lnLoop,1)),'@0'),2)
ENDFOR
ENDIF
DECLARE INTEGER WSACleanup IN ws2_32
= WSACleanup()
ENDIF
ELSE
DECLARE STRING getmac IN 'MyDll.dll' ;
INTEGER NetCardNo

lcMacStr = LEFT(CHRTRAN(getmac(IIF(VARTYPE(lnLanCard) = 'N' AND lnLanCard > 0, lnLanCard, 1)), '.', ''), 12)
ENDIF

RETURN lcMacStr

[ronald]

我想用mydll.dll, 我已download 'MyDll.dll' , 照這樣寫不成功

DECLARE STRING getmac IN 'MyDll.dll' INTEGER NetCardNo
lcMacStr = LEFT(CHRTRAN(getmac(IIF(VARTYPE(lnLanCard) = 'N' AND lnLanCard > 0, lnLanCard, 1)), '.', ''), 12)

Massage is "Cannot find entry point" getmac in the Dll
請教怎樣可 找'進入點'

[garfield]

試著下載這個版本的mydll http://vfp.sunyear.com.tw/download.php?id=697

[ronald]

Dear Garfield,
原來我的version 太舊
thangs a lot.
Ronald

[lelhappy]