ÔÚVS2008ÖУ¬ÎÒÓÃshell´ò¿ªÁËpowerpoint£¬ÇëÎÊÔõôÑùʹÓÃVBÔٹرմò¿ªµÄÕâ¸öpowerpoint£¬Ê¾·¶¾ßÌåµÄAPI£¬Ð»Ð»£¡
0)
End If
Loop While (ProcessNext(hSnapShot, pe32))
CloseHandle (hSnapShot)
GetTargetProcessID = dwRet
End Function
Private Function CloseTargetProcess(ByVal dwProcess ......
ÈçÌ⣬ллÁË
"VBÔõô¼ÓÃÜÄØ?" ÄãÖ¸Ëã·¨¼ÓÃÜ×Ö·û»¹ÊÇ×öºÃÈí¼þºóµÄ¼ÓÃܱ£»¤£¿
Ëã·¨¼ÓÃÜ×Ö·û¾Í¿´ÄãÔõôд£¬ ¡° ABC -> »»ËãºóµÃµ½ $2^ ¡± £¨½âÃܾͷ´¹ýÀ´)
×öºÃÈí¼þºóµÄ¼ÓÃܱ£»¤£¬ÕÒ¸ö¼Ó¿ÇÈí¼þ¾Í×îÈÝÒײ»¹ýÁË¡£
ͬÉÏ£¬ÒªËµÇå³þÊǼÓÃÜʲô
ÄãÒª¼ÓÃÜʲô£¬ÊÇÄãµÄVB³ÌÐò£ ......
FindWindow(vbNullString, "Program Manager")
ÕâÑùÖ»ÄÜÊÇÔÚ×ÀÃæÍ¼±êÖ®ÉÏ,ÎÒÒªµÄÊÇÔÚ×ÀÃæÍ¼±êÖ®ÏÂÓÅÖʵ¾µÄÂð?лл
setparent°É
2Â¥ ÄÜ˵Ã÷°×µãÂð?лл ÎÒÊÇÏë×ö¸ö×ÀÃæ²¥·ÅÆ÷ ÆäÓಿ·Ö¶¼×öºÃÁË ¾Í²î×ÀÃæ²¥·ÅÁË
ÎÒÊÇÓÃsetparent°ÑÎҵĴ°ÌåÉèÖóÉ×ÀÃæµÄ×Ó´°¿Ú ,¿ÉÊÇÕâÑù×ÀÃæÍ¼±ê¾Í±»ÎҵĴ°Ì帲¸ÇÁ˰¡!,Õâ ......
ÎÒÓÐÒ»¸öÊý×ÖÊÇ´ÓÊý¾Ý¿âÀïÃæÈ¡³öµÄ£¬¸ÃÊý¾Ý¿âµÄ×Ö¶ÎÊý×ÖÀàÐÍÊÇdecimal 13,ÖÁÉÙÒª±£Áô4λСÊý
,ÎÒ´ÓÕâ¸ö×Ö¶ÎÈ¡µ½ÊýºóÒª¸³¸øÒ»¸ö±äÁ¿fquantity£¬Õâ¸ö±äÁ¿ÎÒÉè³Ésingle(dim fquantity as single),µ«ÊÇ·¢ÏÖÓеÄʱºòÕâ¸öÊý±¾À´ÊÇ0µÄ£¬´«µÝµ½ºóÃæµÄʱºòÈ´±ä³ÉÁËÒ»¸öĪÃûÆæÃîµÄÊý×Ö£¬ÎÒ¾õµÃºÜÆæ¹Ö£¬ÎÒ¹À¼ÆÊÇÎÒµÄÉêÃ÷´íÁË¡£ÄÇôӦ¸ ......
ÎÒµÄÒ»¶Î´úÂ룬ÊǶÁÈ¡txtÎļþ²¢Êä³öµÄ£¬
ÔÚvb6ÖÐÔËÐÐÕý³£
µ«ÊDZàÒë³ÉexeÖ®ºóȴûÓÐÈκζ¯¾²£¬ÕâÊÇÔõô»ØÊÂÄØ£¿
×¢£ºtxtÎļþµÄ·¾¶ÎÞ´í£¬ÎÒ¼ì²é¹ýµÄ
°Ñ´úÂëÌù³öÀ´............
ºÃÁË£¬ÎÒÕÒµ½ÎÊÌâÁË£¬±£´æ¶ÁÈ¡Êý¾ÝµÄÊý×éÔ½½çÁË£¬¶øÎÒÓÐÓÃÁËon error resume next
µ¼Ö´íÎó²»ÄÜ´¦Àí
jf..........
·Å ......
VB³ÌÐòÒѾÔÚÔËÐУ¬µ«Ã»Óб»¼¤»îʱ£¬ÔÚVBÖÐÔõÑùʼÖÕ¼àÊÓ¼üÅÌ»òÕß¼àÊÓijһ¸ö¼ü¡¾±ÈÈçS¼ü¡¿Ò²ÐУ¬×îºÃÊÇ¿ÉÓÃÀý×Ó
ËÆºõÊÇÓù³×Ó£¬¿ÉϧÊÖ±ßûÓдúÂë¡£UP!
http://www.codeproject.com/KB/system/kbdlistenerpackage.aspx
hope it's useful for you
ÊÇVB6»¹ÊÇVB.net£¿
Õ⹦ÄÜÓÃÈ«¾Ö¼üÅ̹³×Ó¼´¿ÉʵÏÖ¡£
VB6µÄ²»ÖªµÀÄÜ ......