¡¾·ÖÏí¡¿Ò»ÖÜÒ»Ìù£ºVB¿ØÖÆÃæ°åÃüÁî´óÈ«
תÌû£¬ÇëÎð±ÉÊÓ£¡
ÓëÄãÓÐÓÃÕßMarkÖ®£¬ÓëÄãÎÞÓÃÕßÇëһЦ¶ø¹ý¡£
-------------------------------------------
VBÆô¶¯¿ØÖÆÃæ°å´óÈ«
¡¡¡¡Ä£¿é£º control.exe
¡¡¡¡ÃüÁ rundll32.exe shell32.dll,Control_RunDLL
¡¡¡¡½á¹û£º ÏÔʾ¿ØÖÆÃæ°å´°¿Ú¡£
¡¡¡¡Àý×Ó£º
¡¡¡¡Dim x
¡¡¡¡x = Shell("rundll32.exe shell32.dll,Control_RunDLL")
¸¨ÖúÑ¡Ïî
¡¡¡¡Ä£¿é£º access.cpl
¡¡¡¡ÃüÁ rundll32.exe shell32.dll,Control_RunDLL access.cpl,,5
¡¡¡¡½á¹û£º ÏÔʾ¸¨ÖúÑ¡Ïî/³£¹æ¡£
¡¡¡¡ÃüÁ rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1
¡¡¡¡½á¹û£º ÏÔʾ¸¨ÖúÑ¡Ïî/¼üÅÌ¡£
¡¡¡¡ÃüÁ rundll32.exe shell32.dll,Control_RunDLL access.cpl,,2
¡¡¡¡½á¹û£º ÏÔʾ¸¨ÖúÑ¡Ïî/ÉùÒô¡£
¡¡¡¡ÃüÁ rundll32.exe shell32.dll,Control_RunDLL access.cpl,,3
¡¡¡¡½á¹û£º ÏÔʾ¸¨ÖúÑ¡Ïî/ÏÔʾ¡£
¡¡¡¡ÃüÁ rundll32.exe shell32.dll,Control_RunDLL access.cpl,,4
¡¡¡¡½á¹û£º ÏÔʾ¸¨ÖúÑ¡Ïî/Êó±ê¡£
¡¡¡¡Ìí¼ÓÐÂÓ²¼þ
¡¡¡¡Ä£¿é£º sysdm.cpl
¡¡¡¡ÃüÁrundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1
¡¡¡¡Ôö¼ÓеĴòÓ¡»ú
¡¡¡¡Ä£¿é£ºshell32.dll
¡¡¡¡ÃüÁrundll32.exe shell32.dll,SHHelpShortcuts_RunDLL AddPrinter
¡¡¡¡Ìí¼Ó/ɾ³ý³ÌÐò
¡¡¡¡Ä£¿é£ºappwiz.cpl
¡¡¡¡ÃüÁrundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1
¡¡ ½á¹û£ºÏÔʾ°²×°/Ð¶ÔØ¡£
¡¡¡¡ÃüÁrundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1
¡
Ïà¹ØÎÊ´ð£º
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË
´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£
»Ø¸´ ......
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
°ÑÒÑÓÐÊý¾Ý£¨Êý¾Ý´óÓÚ20ÐУ©µÄRS(recordset)µÄµÚ10ÐÐÊý¾ÝÓëµÚ11ÐÐÊý¾Ý×ö¼Ó·¨ºó£¬É¾³ýµÚ11ÐеÄÊý¾Ý£¬È»ºó°ÑºóÃæµÄÊý¾ÝÏòÇ°ÒÆ¡£
RSµÄ»°ÐÞ¸ÄÊý¾ÝÊÇ»á¸üÐÂÊý¾Ý¿â£¬ÏÖÔÚµÄÎÊÌâÊÇRSÀïµÄÒÑÓÐÊý¾ÝÊÇÓÃSQLÓï¾ä·ÖÀàͳ¼Æ³öÀ´µÄ ......