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)
Ïà¹ØÎÊ´ð£º
¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£
Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......