VB×¢²á×é¼þ
±ÈÈçÎÒÏë×¢²áD:\Program Files\ietool\abc.ocx
ÓÃvbÔõÃ´Ð´ÄØ£¿ÈÃËûÔÚ×¢²áµÄʱºòËäÈ»³É¹¦×¢²á£¬µ«²»Ìáʾ³É¹¦×¢²áµÄ¶Ô»°¿ò£¬
ÔõôÄÜ×öµ½ÄØ£¿
ÓÃÒÔÏ·½·¨ÖÐ
ÈçºÎ°Ñ·¾¶¸ÄΪD:\Program Files\ietool\
Dim AA$,WinSys$
'winsys ÊÇsystem32µÄ·¾¶,×Ô¼ºÏȸ³Öµ
'×¢²á
AA = "Regsvr32.exe /s " & WinSys & "abc.ocx"
Call Shell(AA, vbHide)
'½â³ý×¢²á
AA = "regsvr32 -u /s " & WinSys & "abc.ocx"
Call Shell(AA, vbHide)
Çë¸ßÊÖ¸ø³öÔ´Â롣лл
/s ²ÎÊý¾ÍÊǹرÕÌáʾ,ÄãÒª³É¹¦Ìáʾ¹Ø±Õ´Ë²ÎÊý¾ÍÊÇÁË.
ÏÈ¿´Íêregsvr32 µÄÃüÁî²ÎÊýÔÙÎʰÉ.
ÿ¸öµ¼³öCOM¶ÔÏóµÄdll,ocxµÈʵ¼ÊÉÏÒ²ÊÇÒ»¸ö±ê×¼µÄdll,ËüÃǶ¼µ¼³öÁËÁ½¸öº¯Êý£ºDllRegisterServer ,DllUnregisterServer¡£Ò»¸öÓÃÓÚ×¢²á£¬Ò»¸öÓÃÓÚ·´×¢²á.Regsvr32ʵ¼ÊÉϾÍÊǵ÷ÓõÄÕâЩº¯Êý¡£ËùÒÔÔÚ³ÌÐòÖ»Ðè×ÔÒѵ÷ÓþÍÐÐÁË
ÄãµÄ·½·¨ÊÇÕýÈ·µÄ£¬²»ÖªµÀÄ㻹ÎÊʲô£¿
±£ÏÕµÄ×ö·¨¸øÂ·¾¶¼ÓÉÏÒýºÅ¡£AA = "Regsvr32.exe /s " & chr(34) & WinSys & "abc.ocx" & chr(34)
Ïà¹ØÎÊ´ð£º
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click
MouseWait()
Dim ClearTempTabelSQL As String
'If Not ......
Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ
ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£
hÊÇxml¸ñʽµÄ×Ö·û´®
ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿
ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......