Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VB coding

1.ÓÃVB6ÅжÏÎļþ´æÔÚÃî·¨
ÔÚ±à³Ìʱ¾­³£»áÓõ½ÅжÏÎļþÊÇ·ñ´æÔÚ£¬±ÈÈç¶ÔÎļþ×ö¶Áд²Ù×÷ǰ£¬»òÊÇÅжÏÃÜÔ¿ÎļþÊÇ·ñ´æÔڵȡ£Åжϵķ½·¨Óкܶ࣬ÓÐЩ·½·¨ËäºÜʵÓ㬵«Óе㷱Ëö¡£Æäʵ»¹¿ÉÒÔÓиü¼òµ¥µÄ·½·¨£¬¾ÍÊÇʹÓÃVB 6.0ÌṩµÄFileSystemObject¶ÔÏó¡£
¡¡¡¡FileSystemObject¶ÔÏó²»ÊÇVBÄÚÖöÔÏó£¬Ê¹ÓÃǰ±ØÐëÊ×ÏÈÑ¡Ôñ[¹¤³Ì]→[ÒýÓÃ]£¬ÔÚ³öÏֵĴ°¿ÚÖÐÑ¡Ôñ“Microsoft Scripting Runtime”£¬È»ºóÀûÓÃFileSystemObjectµÄFileExists·½·¨À´ÅжÏÎļþÊÇ·ñ´æÔÚ¡£Ê¾Àý³ÌÐò´úÂëÈçÏ£º
¡¡¡¡Private Sub Command1_Click()
¡¡¡¡ ′ÒýÓÃFileSystemObject¶ÔÏó
¡¡¡¡ Dim fs As New FileSystemObject
¡¡¡¡ ′ÀûÓÃFileSystemObject¶ÔÏóµÄFileExists
¡¡¡¡ ′·½·¨ÅжÏÎļþÊÇ·ñ´æÔÚ
¡¡¡¡ If fs.FileExists(″c:\£ª.gif″) Then
¡¡¡¡ MsgBox ″Îļþ´æÔÚ″
¡¡¡¡ Else
¡¡¡¡¡¡¡¡¡¡¡¡MsgBox ″Îļþ²»´æÔÚ″
¡¡¡¡¡¡¡¡End If
¡¡¡¡End Sub
¡¡¡¡Áé»îÔËÓÃFileSystemObject¶ÔÏó¿ÉÒÔ½â¾öÓëÎļþ²Ù×÷ÓйصĴ󲿷ÖÎÊÌâ¡£
¡¡¡¡ÒÔÉϳÌÐòÔÚPWin 98,VB 6.0ÖÐÎÄÆóÒµ°æÖÐÔËÐÐͨ¹ý¡£
2.    CheckboxÑ¡Ôñ
chkBlacklist = vbUnchecked
    chkBlacklist.Style
    If StrComp(curVisitor.IsBlacklist, "1") = 0 Then
        chkBlacklist = vbChecked
    End If


Ïà¹ØÎĵµ£º

VB ϵͳÈȼüʵÏÖ£¨Ä£¿é£©

µ÷Ó÷½·¨ºÜ¼òµ¥£¬ÔÚFormÖÐÈçÏÂÊéд´úÂ룺
Private Sub Form_Load()
SetHotkey 1, "Ctrl,112", "Add" '°´ Ctrl+F1 ¼¤»îÖ¸¶¨³ÌÐò£¬F1µÄAsciiÂëΪ112
SetHotkey 2, 113, "Add" '°´ F2 ¼¤»îÖ¸¶¨³ÌÐò£¬F2µÄAsciiÂëΪ113
SetHotkey 3, "Ctrl+Alt,113", "Add" '°´ Ctrl+Alt+F2 ¼¤»îÖ¸¶¨³ÌÐò£¬F2µÄAsciiÂëΪ113
End Sub
Priva ......

vbÖÆ×÷¿ÉÊä³öº¯ÊýµÄͨÓÃDLL VB_DLL_LinkÓ÷¨

vbÖÆ×÷¿ÉÊä³öº¯ÊýµÄͨÓÃDLL---VB_DLL_LinkÓ÷¨
ÂÛ̳ԽÀ´Ô½¶àÈ˹Ø×¢dll£¬ÌØ·ÖÏíÒ»ÏÂvbÖÆ×÷¿ÉÊä³öº¯ÊýµÄͨÓÃDLL---VB_DLL_LinkÓ÷¨
    ´ó¼ÒÖªµÀ£¬VB6Ö»ÄÜÖÆ×÷ActiveX DLLÎļþ£¬ÖÆ×÷ÄÜÊä³öº¯ÊýµÄͨÓÃDLLÎļþͨ³£ÒªÓõ½VCµÈ¹¤¾ß¡£Êµ¼ÊÉÏ£¬VBÔÚ±àÒëµÄʱºò¼ÓÒÔ¿ØÖÆ£¬¾­¹ýÊʵ±´¦ÀíÒ²ÊÇ¿ÉÒÔÖÆ×÷ͨÓÃDLLµÄ¡£Ê¹ÓÃVB_DLL_ ......

vb¹ÜµÀÔËÓÃʵÀý

 Õª×ÔVB°É¸ßÊÖ¾¨ÎÞµÐÐÖµÄÒ»¶Î¹ÜÊ×ʾÀý´úÂ룺
'******* ¶ÁÈ¡DOS³ÌÐòipconfig.exeµÄ·µ»Ø½á¹û£º ********
'×÷Õߣº ¾¨Î޵Р2006-10-19 21:57
'**************************************************
'´°Ìå´úÂ룺Form1
'**************************************************
Option Explicit
Private Const NOR ......

ÖØÊ°VBÖ®ËÄ£¬ÈÕÖ¾¼Óǿƪ

ÖØÊ°VBÖ®ËÄ£¬ÈÕÖ¾¼Óǿƪ  
¹Ø¾¢ËÉ PMP
Ò»¡¢¹ØÓÚÈÕÖ¾¼Ç¼¹¦ÄÜ
Ö÷Òª¹¦ÄܵãÓÐ
1 ÔÚ³ÌÐòĿ¼ÏÂÉú³ÉlogĿ¼£¬ÓÃÓÚ±£´æÈÕÖ¾Îļþ¡£
2 ×Ô¶¯ÔÚlogĿ¼ÖУ¬Éú³ÉÈÕÖ¾Îļþ£¬ÎļþÃüÃûÓÃÄêÔÂÈÕ¶¨Ò壬Èç20100119_log.log¡£
3 ÔÚÈÕÖ¾ÎļþÖУ¬Ã¿ÐмǼһ¸öʱ¼äµãµÄÔËÐÐÄÚÈÝ¡£Ê±¼äµãµÄ¾«¶ÈÓ¦¸Ã´ïµ½ºÁÃë¡£
4 ÔÚÈÕÖ¾ÎļþÖУ¬Ã ......

VB sytem32\ieframe.dllÕÒ²»µ½µÄ½â¾ö·½°¸

c:\windows\sytem32\ieframe.dll\1ÕÒ²»µ½,´íÎó½â¾ö·½°¸.
Õâ¸öieframe.dllÊÇvbÖÐWebBrowser µ÷ÓõĿؼþ£¬µ±ÄãÓÃvbÔٴδò¿ªÄãµÄ¹¤³ÌÖ®ºó£¬¾Í¿ÉÒÔ·¢ÏÖÒÔǰµÄWebBrowser ¿Ø¼þûÓÐÁË¡£¶øÇÒÔٴμÓÔØÒ²ÊDz»ÄܵÄÁË£¬Õâʱ¾ÍÐèÒªÓõ½ÏÂÃæµÄ·½·¨À´´¦Àí£º
°ÑÒÔÏÂÄÚÈÝ×ö³ÉÒ»¸ö×¢²á±íÎļþfixieframe.reg£¬µ¼Èë×¢²á±í¼´¿É£º
Windows Re ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ