|
VFP ·R¥ÎªÌªÀ°Ï ¥»°Q½×°Ï¬° Visual Foxpro ·R¥ÎªÌ¸gÅç¥æ¬yªº¦a¤è, ½Ð¦h¦h§Q¥Î"·j´M"ªº¥\¯à, ¥ý¬d¬Ý¬Ý¦³µL«e¨Ò¥i´`, ¦pªGÁÙ¦³¤£À´ªº¦Aµo°Ý. ³¡¥÷¥DÃD¦³ªþ¥[ÀÉ®×, ¶·¥ýµù¥U¦¨¬°ªÀ°Ï©~¥Á¤~¥i¥H¤U¸ü.
|
¤W¤@½g¥DÃD :: ¤U¤@½g¥DÃD |
µoªí¤H |
¤º®e |
sunghsia
µù¥U®É¶¡: 2003-06-13 ¤å³¹: 52 ¨Ó¦Û: ¥x¥_
²Ä 1 ¼Ó
|
µoªí©ó: ¬P´Á¤é ¤Q¤ë 02, 2005 1:41 pm ¤å³¹¥DÃD: ¥t¤@ºØ~¤£«Âж}±Ò¦P¤@µ{¦¡ |
|
|
****************************
* «þ³Æ¦Ü *.prg
****************************
PARAMETERS exeFile &&±ýÀˬdªº°õ¦æÀɦW
* exeFile= "Notepad.exe"
exeFile= "Vfp.exe"
DECLARE INTEGER CreateToolhelp32Snapshot IN kernel32 INTEGER dwFlags, INTEGER th32ProcessID
DECLARE INTEGER CloseHandle IN kernel32 INTEGER hPass
DECLARE INTEGER Process32First IN kernel32 INTEGER hSnapshot, STRING @ µ²ºcPROCESSENTRY32
DECLARE INTEGER Process32Next IN kernel32 INTEGER hSnapshot, STRING @ µ²ºcPROCESSENTRY32
TH32CS_SNAPPROCESS = 2
hSnap = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0) &&¨ú±o hSnap
proc= num2dword(296) + REPL(chr(0),292)
f= Process32First(hSnap, @proc)
_Open= 0
Do While f #0
e= substr(proc, 37,260) &&°õ¦æÀɪº§¹¾ã¸ô®|»P¦WºÙ
e= left(e, at(chr(0),e)-1) &&²M°£¤£¥Îªº¦r¤¸
e= substr(e, rat("\",e)+1) && ³Õ¨ú°õ¦æÀɦW
_Open= _Open+ iif(lower(e)==lower(exeFile), 1, 0)
f= Process32Next(hSnap, @proc)
enddo
= CloseHandle(hSnap)
messagebox ("µ{¦¡ &exeFile" + chr(13) + "¤w°õ¦æ" + ltrim(str(_Open)) + "¦¸¤F........",64)
RETURN _Open
FUNCTION num2dword (lnValue) &&±µ¦¬¤Q¶i¦ì,¶Ç¦^32¦ì¤¸¼Æȸê®Æ
#DEFINE m0 256
#DEFINE m1 65536
#DEFINE m2 16777216
LOCAL b0, b1, b2, b3
b3 = Int(lnValue/m2)
b2 = Int((lnValue - b3*m2)/m1)
b1 = Int((lnValue - b3*m2 - b2*m1)/m0)
b0 = Mod(lnValue, m0)
RETURN Chr(b0)+Chr(b1)+Chr(b2)+Chr(b3) |
|
¦^³»ºÝ |
|
|
bin1x
µù¥U®É¶¡: 2004-08-27 ¤å³¹: 462
²Ä 2 ¼Ó
|
µoªí©ó: ¬P´Á¤é ¤Q¤ë 02, 2005 1:49 pm ¤å³¹¥DÃD: |
|
|
«z¶ë!
³o¬O¤°»òapi ¨ç¼Æ
¬Ý°_«Ü±µªños¨t²Î¼h±ªº¨ç¼Æ
¦n¹³¬On°õ¦æªºµ{§Ç,©Mµ{¦¡ºÞ²zû¦³ªg¨º»ò¤@ÂIÃö«Y
¦³µ{¦¡ªº°õ¦æ±Æµ{³oºØªF¦è¶Ü? OS ªº²z½×§Ñ¥ú¤F
µ¹Óºô¯¸©Î¸ê®Æ°Ñ¦Ò¤@¤U§a!
¬Ý°_¨Ó¦n¹³¥Î«Ü²³æªº¬[ºc¸Ñ¨M°ÝÃD
½Ð±Ð¤@¤U©O! |
|
¦^³»ºÝ |
|
|
sunghsia
µù¥U®É¶¡: 2003-06-13 ¤å³¹: 52 ¨Ó¦Û: ¥x¥_
²Ä 3 ¼Ó
|
|
¦^³»ºÝ |
|
|
sunghsia
µù¥U®É¶¡: 2003-06-13 ¤å³¹: 52 ¨Ó¦Û: ¥x¥_
²Ä 4 ¼Ó
|
|
¦^³»ºÝ |
|
|
violetlkk
µù¥U®É¶¡: 2003-06-21 ¤å³¹: 82 ¨Ó¦Û: kaohsiung
²Ä 5 ¼Ó
|
µoªí©ó: ¬P´Á¤@ ¤Q¤ë 03, 2005 1:17 am ¤å³¹¥DÃD: |
|
|
¦bwin98
process ªº¦WºÙ¦n¹³¤£¬Ovfp.exe |
|
¦^³»ºÝ |
|
|
catjoke
µù¥U®É¶¡: 2003-06-16 ¤å³¹: 175 ¨Ó¦Û: »´ä
²Ä 6 ¼Ó
|
µoªí©ó: ¬P´Á¤T ¤Q¤ë 05, 2005 5:19 pm ¤å³¹¥DÃD: |
|
|
¨º¤£¬O°ÝÃD, §A¼gªº exe , §Aª¾¹D¥¦ªº ¦W¦r!! _________________ ØpØ{~ ¿ß·íµM¬O "T" ªº¹À! ^0^; |
|
¦^³»ºÝ |
|
|
sunghsia
µù¥U®É¶¡: 2003-06-13 ¤å³¹: 52 ¨Ó¦Û: ¥x¥_
²Ä 7 ¼Ó
|
µoªí©ó: ¬P´Á¤T ¤Q¤ë 05, 2005 7:23 pm ¤å³¹¥DÃD: |
|
|
¦pªGn¦Û°Ê°»´úexeªº¦WºÙ, §i¶D§A¤@Ó¤]¥i¦æªºÂ²³æ¤èªk, ¦ý¦¹ªk¬Ý°_¨Ó¦³¨Ç²Â_! ©Ò¥H§A¤£n¯º^^.....
¤]¤£¯à«OÃÒ¥ô¦ówindows¨t²Î, ©Ò°õ¦æªºµ²ªG³£¤@¼Ë!! §Ú¸Õªº®ÉÔ¬O¨S°ÝÃD, ¦ý§AÁÙn¥h¸Õ¸Õ¤~ª¾¹D!
= CloseHandle(hSnap)
messagebox (e) &&¥[¤J¦¹¦C
RETURN e &&¥[¤J¦¹¦C
¦pÅã¥Üµ²ªG, ¬O§Aªí³æ½sĶ«áªº°õ¦æÀɦW, ¨º´Nok¤F..
§A¥un¦h¤@¹Dµ{§Ç´N¦n¤F,´N¬O¥ý¥h¶Ç¦^ e ÅܼƪºÈ.. ¦b¶Ç¤J eÅܼƪºÈ¶i¥h°õ¦æ |
|
¦^³»ºÝ |
|
|
bin1x
µù¥U®É¶¡: 2004-08-27 ¤å³¹: 462
²Ä 8 ¼Ó
|
µoªí©ó: ¬P´Á¤T ¤Q¤ë 05, 2005 7:36 pm ¤å³¹¥DÃD: |
|
|
sunghsia ¼g¨ì: | ¦pªGn¦Û°Ê°»´úexeªº¦WºÙ, §i¶D§A¤@Ó¤]¥i¦æªºÂ²³æ¤èªk, ¦ý¦¹ªk¬Ý°_¨Ó¦³¨Ç²Â_! ©Ò¥H§A¤£n¯º^^.....
¤]¤£¯à«OÃÒ¥ô¦ówindows¨t²Î, ©Ò°õ¦æªºµ²ªG³£¤@¼Ë!! §Ú¸Õªº®ÉÔ¬O¨S°ÝÃD, ¦ý§AÁÙn¥h¸Õ¸Õ¤~ª¾¹D!
= CloseHandle(hSnap)
messagebox (e) &&¥[¤J¦¹¦C
RETURN e &&¥[¤J¦¹¦C
¦pÅã¥Üµ²ªG, ¬O§Aªí³æ½sĶ«áªº°õ¦æÀɦW, ¨º´Nok¤F..
§A¥un¦h¤@¹Dµ{§Ç´N¦n¤F,´N¬O¥ý¥h¶Ç¦^ e ÅܼƪºÈ.. ¦b¶Ç¤J eÅܼƪºÈ¶i¥h°õ¦æ |
§Úı±o°Õ
¦pªG§â°ÝÃD¬Ý¦¨¤£°õ¦æ"2"¦¸ªº¸Ü
f= Process32First(hSnap, @proc)
¹³°j°éùتºe³B²z¤èªk¤@¼Ë
¥Îexefile ¥Ne ¤£´N¦n¤F |
|
¦^³»ºÝ |
|
|
sunghsia
µù¥U®É¶¡: 2003-06-13 ¤å³¹: 52 ¨Ó¦Û: ¥x¥_
²Ä 9 ¼Ó
|
µoªí©ó: ¬P´Á¤T ¤Q¤ë 05, 2005 8:15 pm ¤å³¹¥DÃD: |
|
|
쥻³oÓµ{½Xªº¼gªk, ¬On¦U¦ì¤j¤j«þ³Æ¦Üprg«á, ¥iª½±µÂIÀ»´ú¸Õ, ¤£¶·¦b°t¦Xªí³æ°õ¦æ
³o¼Ë¤ñ¸û¤è«K..
§Ñ¤F»¡~~~~ ´ú¸Õ®É, »Ýn¥[¤J¤@¨Çmard:
* exeFile= "Vfp.exe"
* _Open= _Open+ iif(lower(e)==lower(exeFile), 1, 0)
bin1x ¥S, §A¯u¬OÂÔ·V^^, §Úªº¥Dn¥Î·N¬O, ³Õ¨ú³Ì«á¤@Ó¶}±Òªºµ{¦¡ |
|
¦^³»ºÝ |
|
|
bin1x
µù¥U®É¶¡: 2004-08-27 ¤å³¹: 462
²Ä 10 ¼Ó
|
µoªí©ó: ¬P´Á¤T ¤Q¤ë 05, 2005 9:48 pm ¤å³¹¥DÃD: |
|
|
©I!
§Úªº·N«ä¬O
e= substr(proc, 37,260) &&°õ¦æÀɪº§¹¾ã¸ô®|»P¦WºÙ
e= left(e, at(chr(0),e)-1) &&²M°£¤£¥Îªº¦r¤¸
e= substr(e, rat("\",e)+1) && ³Õ¨ú°õ¦æÀɦW
¥H¤W³o¬qcopy ¦Ü°j°é¥~§Î¦¨ first E ¤j¼g °Ï¤À¤@¤U¦n¤F
µM«áexefile = first E ·d©w À³¸Ó¬Oassign ¹º³D²K¨¬¤F
¦pªG¤£·Q°õ¦æ²Ä¤T¦¸°j°é¦ü¥Gn¤¤Â_!
§Ú©Ò¿×ªºÂ²³æªº¬[ºc´N¬O
²Ä¤@¦¸
°j°é
n = n + 1
end °j°é loop n ¦¸
µ²§ô¦¬§À
³B²zÀÉ®×record ³£¹À³Q³o»ò±Ð
bin1x ¦b ¬P´Á¥| ¤Q¤ë 06, 2005 11:12 am §@¤F²Ä 1 ¦¸×§ï |
|
¦^³»ºÝ |
|
|
sunghsia
µù¥U®É¶¡: 2003-06-13 ¤å³¹: 52 ¨Ó¦Û: ¥x¥_
²Ä 11 ¼Ó
|
µoªí©ó: ¬P´Á¤T ¤Q¤ë 05, 2005 9:59 pm ¤å³¹¥DÃD: |
|
|
¤F¸Ñ~~ §Ú¤w±NÃþ§O§ï¥Î§Aªº¬[ºc¤F, «Ü¦n¥Î |
|
¦^³»ºÝ |
|
|
bin1x
µù¥U®É¶¡: 2004-08-27 ¤å³¹: 462
²Ä 12 ¼Ó
|
µoªí©ó: ¬P´Á¤T ¤Q¤ë 05, 2005 11:46 pm ¤å³¹¥DÃD: |
|
|
sunghsia ¼g¨ì: | ¤F¸Ñ~~ §Ú¤w±NÃþ§O§ï¥Î§Aªº¬[ºc¤F, «Ü¦n¥Î |
¨ü±Ðªº¬O§Ú |
|
¦^³»ºÝ |
|
|
sunghsia
µù¥U®É¶¡: 2003-06-13 ¤å³¹: 52 ¨Ó¦Û: ¥x¥_
²Ä 13 ¼Ó
|
µoªí©ó: ¬P´Á¤T ¤Q¤ë 05, 2005 11:55 pm ¤å³¹¥DÃD: |
|
|
bin1x ¥S: §Ú¤]¦³¨ü§Aªº±Ð, ©¼¦¹¨ü¯q^^ |
|
¦^³»ºÝ |
|
|
|
|
±z µLªk ¦b³oÓª©±µoªí¤å³¹ ±z µLªk ¦b³oÓª©±¦^ÂФ峹 ±z µLªk ¦b³oÓª©±½s¿è¤å³¹ ±z µLªk ¦b³oÓª©±§R°£¤å³¹ ±z µLªk ¦b³oÓª©±¶i¦æ§ë²¼ ±z µLªk ¦b³oÓª©±ªþ¥[ÀÉ®× ±z µLªk ¦b³oÓª©±¤U¸üÀÉ®×
|
Powered by phpBB © 2001, 2005 phpBB Group ¥¿Å餤¤å»y¨t¥Ñ phpbb-tw ºûÅ@»s§@
|