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

vb ´´½¨¿ì½Ý·½Ê½ ¼æÈÝvista XP

'´´½¨¿ì½Ý·½Ê½£¬¼æÈÝvista
'Òª°Ñvb6stkit.DLL·Åµ½³ÌÐòĿ¼
'°½Ê¿Î° 09-10-27
'Ö»¶Ô“×ÀÃæ”ºÍ“¿ªÆô”ÓÐЧ£¬ÆäËü»¹Ã»×ö
'=========¿ªÆôÍⲿͬ²½³ÌÐò¶¨Ò忪ʼ
Const SYNCHRONIZE = &H100000
Const INFINITE = &HFFFF 'Wait forever
Const WAIT_OBJECT_0 = 0 'The state of the specified object is signaled.
Const WAIT_TIMEOUT = &H102 'The time-out interval elapsed, and the
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
'=========¿ªÆôÍⲿͬ²½³ÌÐò¶¨Òå½áÊø
'´´½¨¿ì½Ý·½Ê½
Private Declare Function fCreateShellLink Lib "vb6stkit.DLL" ( _
ByVal lpstrFolderName As String, _
ByVal lpstrLinkName As String, _
ByVal lpstrLinkPath As String, _
ByVal lpstrLinkArgs As String, _
ByVal fPrivate As Long, _
ByVal sParent As String) As Long
'
'lpstrFolderName Îļþ¼ÐµÄÃû³Æ “$(proprams)” ³ÌÐò×é "$(Strar Menu)" ¿ªÊ¼²Ëµ¥
'lpstrLinkName ¿ì½Ý¼üµÄÃû³Æ
'
'lpstrLinkPath ¿ì½Ý¼üµÄ·¾¶
'
'lpstrLinkArgs ÕâÀïÊÇÃüÁîÐвÎÊý
'
'fPrivate True
'
'sParent ÉÏÒ»²ãÎļþ¼Ð
'¿ì½Ý·½Ê½Öеij£Êý
Public Enum ShortCutPosition
vbDesktop = 1 '×ÀÃæ
vbStart = 2 'Æô¶¯Ïî
vbStartMenu = 3 '¿ªÊ¼²Ëµ¥³ÌÐòÏî
vbGroup = 4 '¿ªÊ¼²Ëµ¥¶¥¶Ë
End Enum
'¿ªÆôÍⲿͬ²½³ÌÐò¹ý³Ì
Private Sub cmdShell(s_cmd As String)
Dim lPid As Long
Dim lHnd As Long
Dim lRet As Long
lPid = Shell(s_cmd, vbNormalFocus)
If lPid <> 0 Then
lHnd = OpenProcess(SYNCHRONIZE, 0, lPid) 'Get a handle to the shelled process.
If lHnd <> 0 Then 'If successful, wait for the
lRet = WaitForSingleObject(lHnd, INFINITE) ' application to end.
CloseHandle (lHnd)


Ïà¹ØÎĵµ£º

VB ×Ö·û´®´¦Àíº¯Êý¼¯

·ÖÀࣺVBѧϰ ×ֺţº ´ó´ó  ÖÐÖР СС mid(×Ö·û´®£¬´ÓµÚ¼¸¸ö¿ªÊ¼£¬³¤¶È)  ÔÚ[×Ö·û´®]ÖÐ[´ÓµÚ¼¸¸ö¿ªÊ¼]È¡³ö[³¤¶È¸ö×Ö·û´®]   
ÀýÈç mid("СÐÀÎÞµÐ",1,3) Ôò·µ»Ø "СÐÀÎÞ"   
instr(´ÓµÚ¼¸¸ö¿ªÊ¼,×Ö·û´®1,×Ö·û´®2) ´Ó¹æ¶¨µÄλÖÿªÊ¼²éÕÒ£¬·µ»Ø×Ö·û´®2ÔÚ×Ö·û´®1Öе ......

VB ʵÏÖÖÐÎÄÎı¾µÄ¼ÓÃÜ·½·¨

VBÎı¾¼ÓÃÜ ÌØ±ðÉè¼Æµ½ÖÐÎļÓÃÜ ÈúܶàÈ˷Ѿ¡ÖÜÕÛ,¾­³£»áÅöµ½½âÃÜÖÐÎijöÏÖÂÒÂëµÄÇé¿ö
ÏÂÃæÕâÆªÎÄÕ½«¶Ô´Ë×öÁË˵Ã÷
´úÂëÒ²ÔÚÎÄÕÂÀïÃæ°üÀ¨
¼ÆËã»úÊÀ½ç2000ÄêµÚ36ÆÚ
ʵÏÖÖÐÎÄÎı¾µÄ¼ÓÃÜ·½·¨
Î人½»Í¨¿Æ¼¼´óѧ¼ÆËã»ú¿ÆÑ§Ó빤³Ìϵ ÎâÒµ¸£
¡¡¡¡
      ±¾ÎĽéÉÜÁËÔÚVB6ÖÐʵÏÖÖС¢Ó¢ÎÄÎı¾¼Ó¡ ......

VB³ÌÐòÆÆ½â

VB³ÌÐòÆÆ½â
VB ³ÌÐò¼ò½é
¡¡¡¡ÏÖÔÚ²»ÉÙ³ÌÐòÊÇÓà VB дµÄ£¬Äãͨ¹ý·´»ã±à»ò¸ú×Ùµ÷ÊÔʱºÜÈÝÒ×¼ø±ðij¸ö³ÌÐòÊÇ·ñΪ VB ³ÌÐò£¬VB µÄ EXE Îļþ²¢²»ÊÇÕæÕýµÄ±àÒë¿ÉÖ´ÐÐÎļþ£¬ËüÃÇÐèÆä¶¯Ì¬Á´½Ó¿â²ÅÄÜÕý³£ÔËÐУ¬¸÷°æ±¾µÄÁ´½Ó¿âÈçÏ£º
VB3 Á´½Ó¿âΪ vbrun300.dll £»
VB4 Á´½Ó¿âΪ  vb40016.dll £» - 16 룬½ÏÉÙ¼û£»
VB4 ......

ʹÓÃVB´´½¨PPPoEÒÔ¼°VPN²¦ºÅÁ¬½ÓµÄºËÐÄ´úÂë

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Type GUID
    Data1   As Long
    Data2   As Integer
    Data3   As Integer
 &nbs ......

VB ʹÓÃWMI±à³Ì£¨Ò»£©

Óɵ×ÖÁÉÏÊÇ£º
          • ÍйÜ×ÊÔ´
          • WMI »ù´¡½á¹¹
          • ʹÓÃÕß
ÍйÜ×ÊÔ´
    ÍйÜ×ÊÔ´ÊÇÈÎÒâÂß¼­»òÎïÀí×é¼þ£¬Í¨¹ýʹ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ