VBÈçºÎÒþ²Ø¶à¸öÎļþ£¬ÎÒÓÃÒÔÏÂÕâ¶Î´úÂ룬ÓÐʱºòºóÄÜÒþ²Ø£¬ÓÐʱºòÓÖ²»ÄÜÒþ²Ø£¬Èý¸öÎļþ
Private Sub Command1_Click()
Dim fs, f, r
Set fs = CreateObject("Scripting.FileSystemObject")
  ......
ÓÃVB³ÌÐò¿ÉÒÔ²Ù×÷ϵͳ±äÁ¿Âð£¿
±ÈÈçÎÒÓÐÒ»¸öϵͳ±äÁ¿ÊÇ
path=d:\oracle10g_client\BIN;C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem;C:\Program Files\Microsoft SQL Server\80\Tools\BINN;C:\Program Files\Sybase\Adaptive Server Anywhere 6.0\win32;C:\Program Files\Common Files\Thunder Network\ ......
VBÓÐûÓÐÀàËÆÏñJDBCµÄ·½·¨»òÕßÊÇÖмä¼þÁ¬½ÓORACLEÊý¾Ý¿â£¬ÍøÉϵĸ÷ÖÖÀý×Ó¶¼ÐèÒª°²×°¿Í»§¶Ë£¬»òÕßÊÇÅäÊý¾ÝÔ´¡£
ûÓÐÆäËû·½·¨£¬Äã±ØÐëÒª°²×°Çý¶¯µÄ
ORACLEÊý¾Ý¿âÊÇ»ùÓÚ°²È«ÐԵĿ¼ÂÇ,¿Í»§¶Ë¶¼ÐèÒª°²×°,ºÃÏóûÓбðµÄ°ì·¨
Êý¾Ý¿â±ØÐë°²×°µÄ£¬°²×°ÒÔºó»áÔÚVBÁ¬½ÓÊý¾Ý¿âʱÌṩÁ´½ÓµÄ
»»ÁËÒ»¸ö˼· ÓÃJDBC½â¾öÁË£¡¸Ðл¸÷Î ......
VBµ÷Óà C££Ð´µÄdllºó£¨ÄÚº¬Ò»¸ö´°Ìå¿Ø¼þ£©£¬µ¯³öµÄ´°¿ÚûÓÐÁËC££´°Ìå¿Ø¼þµÄÍâ¹ÛЧ¹û£¬Ö»ÊǺÍËùÓеÄVB´°ÌåÒ»Ñù£¬ºÜÄÑ¿´£¿Ã»Ò»µã3DЧ¹û¡£
ÕâÓа취½â¾öÂð£¿
²»Àí½âÂ¥Ö÷Òâ˼.C#´°Ìå¿Ø¼þµÄÍâ¹ÛÊǺÍwindowsϵͳµÄÖ÷ÌâÒ»ÖµÄ.
ÄѵÀÂ¥Ö÷ÖØ»æÁË?
ÔÚÏîÄ¿ÊôÐÔÖУ¬ÆôÓÃXP¿ÉÊÓÑùʽ¼´¿É
ÒýÓÃ
²»Àí½âÂ¥Ö÷Òâ˼.C#´°Ìå¿Ø¼ ......
×ÜÊÇÏëѧ×ÜÊÇѧ²»ºÃ ¡£¡£¡£
³õѧVBÄÇЩÖصã±È½ÏÖØÒª¡£
1¡¢»ù±¾¸ÅÄÊý¾ÝÀàÐÍ¡¢³£Á¿¡¢±äÁ¿¡¢Êý×é¡¢Óï¾ä¡¢Àà¡¢º¯Êý¡¢¹ý³Ì¡¢²ÎÊý¡¢²ÎÊý´«µÝ¡¢Ê¼þ£¬¶ÔÏó¡¡
2¡¢³£¼û¿Ø¼þµÄʹÓã¬Íⲿ¿Ø¼þµÄʹÓã¬Óû§¿Ø¼þµÄʹÓá¡
3¡¢Îļþ²Ù×÷¡¢Êó±ê¡¢¼üÅÌ¡¢¼ôÇаåµÄʹÓá¡
4¡¢Êý¾Ý¿â¡¡¡¡
5¡¢ÄÚ²¿º¯Êý¡¢APIº¯Êý¡¢dll ......
ÈçÌâ Çë½Ì´ó¼ÒÈçºÎʵÏÖ£¿ÓÐûÓÐÏà¹Ø×ÊÁÏ
лл¥ÉϵÄ
ÎÒµ÷ÓÃcreatfile
readfile
writefile
µÈº¯Êý¿ÉÒÔʵÏÖͬ²½Í¨ÐŶÔÉ豸µÄ·ÃÎÊ£¬µ«ÊÇÒ첽ͨОͲ»ÄܽÓÊÕµ½ÏÂλ»ú´«Ë͵ÄÊý¾Ý
ÓÐûÓÐÈËÄÜÌṩһ¸ö¹ØÓÚÒ첽ͨÐŵĽâ¾ö·½°¸°¡
¸½ÉÏ´úÂëVB code:
Function FindTheHid() As Boolean
'Makes a series of ......