VFP ·R¥ÎªÌªÀ°Ï

[Ruey]

Àò±oµwºÐ§Ç¸¹

*!* Get HD Serials
*-- ©w¸q DLL ¨ç¼Æ
PUBLIC lnserialno
DECLARE SHORT GetVolumeInformation IN Win32API;
STRING @lpRootPathName, STRING @lpVolumeNameBuffer,;
INTEGER nVolumeNameSize, INTEGER @lpVolumeSerialNumber,;
INTEGER @lpMaximumComponentLength, INTEGER @lpFileSystemFlags,;
STRING @lpFileSystemNameBuffer, INTEGER nFileSystemNameSize
*-- ­nŪ¨úªºÅX°Ê¾¹ªº±Ò©l¥Ø¿ý
lcroot = "C:\"
*-- ªì©l¤ÆÅܼÆ
STORE 0 TO lnserialno, lncomplen, lnsysflags
STORE SPACE(260) TO lcvolname, lcsysname
STORE LEN(lcvolname) TO lnvolsize, lnnamesize
*-- ½Õ¥Î GetVolumeInformation Ū¨úºÏ¤ù¸ê°T
llresult = (GetVolumeInformation(@lcroot, @lcvolname, ;
lnvolsize, @lnserialno, @lncomplen, @lnsysflags, ;
@lcsysname, lnnamesize) # 0)
IF lnserialno < 0
lnserialno = lnserialno * (-1)
ENDIF
IF llresult
*-- ¦¨¥\
lnserialno = lnserialno
ELSE
*-- ¥¢±Ñ
lnserialno = nMMTT
ENDIF
*!* Get HD Serials End

[Ruey]

¨ú±ocpuªº§Ç¸¹

Declaration:


VOID GetSystemInfo(
LPSYSTEM_INFO lpSystemInfo // system information
);



FoxPro declaration:


DECLARE GetSystemInfo IN kernel32 STRING @ lpSystemInfo



Parameters:

lpSystemInfo
[out] Pointer to a SYSTEM_INFO structure that receives the information.


Return value:

This function does not return a value.

[Ruey]

°»´ú¸ÑªR«×

CLEAR
#DEFINE screenWidth 1
#DEFINE screenHeight 2
nScreenWidth = SysMetric(screenWidth)
nScreenHeight = SysMetric(screenHeight)
? nScreenWidth
? nScreenHeight

SYSMETRIC(nScreenElement)¬O¤@­Ó¨ç¦¡¡A°Ñ¼ÆnScreenElement¦p¤U©Ò¥Ü¡G

1 Screen width
2 Screen height.
3 Width of sizable window frame
4 Height of sizable window frame
5 Width of scroll arrows on vertical scroll bar
6 Height of scroll arrows on vertical scroll bar
7 Width of scroll arrows on horizontal scroll bar
8 Height of scroll arrows on horizontal scroll bar
9 Height of window title
10 Width of non-sizable window frame
11 Height of non-sizable window frame
12 Width of DOUBLE or PANEL window frame
13 Height of DOUBLE or PANEL window frame
14 Scroll box width on horizontal scroll bar in text editing windows
15 Scroll box height on vertical scroll bar in text editing windows
16 Minimized window icon width*
17 Minimized window icon height*
18 Maximum insertion point width
19 Maximum insertion point height
20 Single-line menu bar height
21 Maximized window width
22 Maximized window height
23 Kanji window height
24 Minimum sizable window width
25 Minimum sizable window height
26 Minimum window width
27 Minimum window height
28 Window controls width
29 Window controls height
30 1 if mouse hardware present; 0 otherwise.
31 1 for Microsoft Windows debugging version; 0 otherwise*
32 1 if mouse buttons swapped; 0 otherwise*

[Ruey]

¨ú±oºô¥d§Ç¦C¸¹
«Ü¦h³n¥ó¥H¨ú±oºô¥d¦a§}§@¬°LicenseÅçµý¡A³o¤£¥¢¬°¤@­ÓÅçµý¦Xªk¥Î¤áªº¦n¿ìªk¡A¤£¹L­n¥I¥X¦^´_¥Î¤á¹q¸Ü¡B¶Ç¯uªº¥Nɲ®@¡@^_^
¡@¡@±N¤U­±³o¬q¥N½X«þ¨©¨ìµ{§Ç¤¤¡AµM¦Z¦b§Aªºµ{§Ç»Ý­nªº®É­Ô½Õ¥ÎEthernetAddress(0),¸Ó¨ç¼Æªð¦^ªº¦r²Å¦ê´N¬O±zÉ󾹤Wºô¥dªº¥H¤Ó§Ç¦C¸¹¡C

Private Const NCBASTAT = &H33
Private Const NCBNAMSZ = 16
Private Const HEAP_ZERO_MEMORY = &H8
Private Const HEAP_GENERATE_EXCEPTIONS = &H4
Private Const NCBRESET = &H32

Private Type NCB
¡@ncb_command As Byte
¡@ncb_retcode As Byte
¡@ncb_lsn As Byte
¡@ncb_num As Byte
¡@ncb_buffer As Long
¡@ncb_length As Integer
¡@ncb_callname As String * NCBNAMSZ
¡@ncb_name As String * NCBNAMSZ
¡@ncb_rto As Byte
¡@ncb_sto As Byte
¡@ncb_post As Long
¡@ncb_lana_num As Byte
¡@ncb_cmd_cplt As Byte
¡@ncb_reserve(9) As Byte ' Reserved, must be 0
¡@ncb_event As Long
End Type

Private Type ADAPTER_STATUS
¡@adapter_address(5) As Byte
¡@rev_major As Byte
¡@reserved0 As Byte
¡@adapter_type As Byte
¡@rev_minor As Byte
¡@duration As Integer
¡@frmr_recv As Integer
¡@frmr_xmit As Integer
¡@iframe_recv_err As Integer
¡@xmit_aborts As Integer
¡@xmit_success As Long
¡@recv_success As Long
¡@iframe_xmit_err As Integer
¡@recv_buff_unavail As Integer
¡@t1_timeouts As Integer
¡@ti_timeouts As Integer
¡@Reserved1 As Long
¡@free_ncbs As Integer
¡@max_cfg_ncbs As Integer
¡@max_ncbs As Integer
¡@xmit_buf_unavail As Integer
¡@max_dgram_size As Integer
¡@pending_sess As Integer
¡@max_cfg_sess As Integer
¡@max_sess As Integer
¡@max_sess_pkt_size As Integer
¡@name_count As Integer
End Type

Private Type NAME_BUFFER
¡@name As String * NCBNAMSZ
¡@name_num As Integer
¡@name_flags As Integer
End Type

Private Type ASTAT
¡@adapt As ADAPTER_STATUS
¡@NameBuff(30) As NAME_BUFFER
End Type

Private Declare Function Netbios Lib "netapi32.dll" _
(pncb As NCB) As Byte

Private Declare Sub CopyMemory Lib "kernel32" Alias _
"RtlMoveMemory" (hpvDest As Any, ByVal hpvSource As Long, _
ByVal cbCopy As Long)

Private Declare Function GetProcessHeap Lib "kernel32" () _
As Long

Private Declare Function HeapAlloc Lib "kernel32" _
(ByVal hHeap As Long, ByVal dwFlags As Long, _
ByVal dwBytes As Long) As Long

Private Declare Function HeapFree Lib "kernel32" _
(ByVal hHeap As Long, ByVal dwFlags As Long, lpMem As Any) _
As Long

Private Function EthernetAddress(LanaNumber As Long) _
As String

¡@Dim udtNCB¡@¡@¡@ As NCB
¡@Dim bytResponse¡@As Byte
¡@Dim udtASTAT¡@¡@ As ASTAT
¡@Dim udtTempASTAT As ASTAT
¡@Dim lngASTAT¡@¡@ As Long
¡@Dim strOut¡@¡@¡@ As String
¡@Dim x¡@¡@¡@¡@¡@¡@As Integer

¡@udtNCB.ncb_command = NCBRESET
¡@bytResponse = Netbios(udtNCB)
¡@udtNCB.ncb_command = NCBASTAT
¡@udtNCB.ncb_lana_num = LanaNumber
¡@udtNCB.ncb_callname = "* "
¡@udtNCB.ncb_length = Len(udtASTAT)
¡@lngASTAT = HeapAlloc(GetProcessHeap(), _
HEAP_GENERATE_EXCEPTIONS Or HEAP_ZERO_MEMORY, udtNCB.ncb_length)

¡@strOut = ""
¡@If lngASTAT Then
¡@¡@udtNCB.ncb_buffer = lngASTAT
¡@¡@bytResponse = Netbios(udtNCB)
¡@¡@CopyMemory udtASTAT, udtNCB.ncb_buffer, Len(udtASTAT)
¡@¡@ With udtASTAT.adapt
¡@¡@¡@For x = 0 To 5
¡@¡@¡@¡@strOut = strOut & Right$("00" & Hex$(.adapter_address(x)), 2)
¡@¡@¡@Next x
¡@¡@End With
¡@¡@HeapFree GetProcessHeap(), 0, lngASTAT
¡@End If
¡@EthernetAddress = strOut
End Function

[Ruey]

¬õª°ºô¯¸ ¹ù¤j

¦p¦ó±oª¾¥i¥Î¥úºÐ¾÷ªº¥N¸¹ API À³¥Î(2)
DECLARE INTEGER GetDriveType IN "kernel32" STRING
cdnum=0
Cdstring=''
FOR cdnumber=ASC('A') TO ASC('Z')
cdname=CHR(cdnumber)+":"
IF GetDriveType (cdname)=5
cdnum=cdnum+1
Cdstring=Cdstring+'¥i¥Î¥úºÐ¾÷'+SPACE(1)+cdname+CHR(13)
ENDIF
ENDFOR
Cdstring=Cdstring+'¦@'+PADL(cdnum,2,'0')+'¥x'
WAIT Cdstring WINDOW

[Watermelon]

Ruey, «e½ú§A¦n!
§Ú·Q¥Î§A´£¨Ñªº¨ú±oºô¥d§Ç¦C¸¹ ªºµ{¦¡¡A¦ý¬O¤£·|¥Î©O!½Ð§A±Ð§Ú¦n¶Ü?

[jason0730]

[jllu0406]

¥H¤WÀò±oHD¡B ºô¥d¡BCPU SERIAL NOªº¤èªk¦n¹³³£¥u¯à¬°³æ¾÷ª¬ºA¤U¥i¾A¥Î¡A¦p¥Î¦b FILE SERVER ¤Î CLIENT SERVER¤W¦n¹³¤£ºÞ¥Î

½Ð°Ý¦U¦ì¤j¤j:
À³¦p¦ó¥Ñ¤u§@¯¸¨ú±o¦bFILE SERVER¤ÎCLIENT SERVER¤W¥D¾÷SERVERªºHD¡Bºô¥d¡BCPU SERIAL NO©O?

§Ú·Q¨ì¤@­Ó¤èªk¸Ñ¨M:
µ{¦¡»Ý¥ý¦b¥D¾÷¤W±Ò°Ê¡A¥H«K°»´ú¥D¾÷ªºHD¡Bºô¥d¡BCPU SERIAL NO¡A¥Ñ«È¤á±N³o¨Ç§Ç¸¹MAILµ¹¤½¥q¡AµM«á¤½¥q¦A±N¦¹§Ç¸¹¸g¥Ñ¥[±K²£¥Í¤@²Õµù¥U¸¹¡A¦p¤ñ¹ï¦¨¥\¦AREPLACE±Ò°Ê¬YÄæ¦ì(¦p­­¨îµ§¼ÆªºÄæ¦ì¡A¦ý¦r¦ê­n¥[±K)

¦ý¦pªG¬OLINUX SERVER ¥ÎSAMBA·íFILE SERVER©Î¬O MYSQL·íCLIENT SERVER §Ú´N¨S¿ìªk¤F

©Ò¥H¦p¦ó¥Ñ¤u§@¯¸´N¥i´ú±oWINDOWS SERVER©Î¬OLINUX SERVERªºHD¡B ºô¥d¡BCPU SERIAL NOªº¤èªk©O?

½Ð¦³¸gÅ窺¤j¤jÀ°À°¦£?

[garfield]

°»´ú°Ï°ìºô¸ô¤ºªººô¥d macaddress
http://vfp.sunyear.com.tw/viewtopic.php?t=2521&highlight=mac+%BA%F4%A5d

¹q¸£µwÅé¸ê°T GetCurrentHwProfile
¨Ò¤l: http://vfp.sunyear.com.tw/viewtopic.php?p=14099

[jllu0406]

[garfield]

§Ú°µªººô¸ôª©«È¤á³£¬O¤£­­user ¼Æ, ¤]¤£«OÅ@, ¦]¬°µ{¦¡Àô¹Ò¤Ó½ÆÂø, ¤@¯ë¤HµLªk½Æ»s, ­n¦b¥D¾÷¥Îkeypro¤]¬O¥i¥Hªº. ¦ý§Ú¬O¬Û«H«È¤á¤£·|·Q³Q§O¤Hcopy¨«ªº, ²¦³º¥D¾÷¸Ì³Ì¦³»ù­Èªº¤£¬Oµ{¦¡, ¦Ó¬O¥L­Ì¨C¤Ñ¨¯­Wkeyinªº¸ê®Æ.
¨ä¥¦­Ó¤Hª©¥Î¤á³£¬O¥Îkeypro ¤ñ¸û¤è«K.

[jllu0406]