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

²ÉÓÃVB±àдµÄ¶¯Ì¬Á´½Ó¿â(ActiveX DLL)

¡ôÇëÓÉ´ËÈ·¶¨ÊÇ·ñ±»¶ñÒâÐ޸ġô
×÷ÕߣºÎÒÐÄ·ÉÏè
VBÖÐÒýÈë±¾DLLµÄ·½·¨
·½·¨Ò»£ºÑ¡Ôñ“¹¤³Ì(P)”²Ëµ¥ÏµēÒýÓÃ(N)”£¬ÔÚ³öÏֵĶԻ°¿òÖеã“ä¯ÀÀ°´Å¥”£¬²¢ÕÒµ½DLLËùÔÚλÖá£
·½·¨¶þ£º·ÖÁ½²½×ß
(1)×¢²á¶¯Ì¬Á´½Ó¿â£¬Ê¹ÓÃregsvr32ÃüÁî¡£ÔÚÔËÐжԻ°¿òÖУ¬ÊäÈë“regsvr32  DLLÍêÕû·¾¶”¡£
(2)Ñ¡Ôñ“¹¤³Ì(P)”²Ëµ¥ÏµēÒýÓÃ(N)”£¬ÔÚ³öÏֵĶԻ°¿òÖÐ,Ö±½ÓÔÚÁбíÖÐÕÒ“Swpi Zy DLL 1.0.1(v2005.01.23)”
¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï
·â×°º¯Êý¹ý³ÌÒ»ÀÀ±í----°´ÕÕ·ÖÀ༰×Öĸ˳Ðò
¡ô·â×°µÄ10¸ö¹ý³Ì£¬Ã»Óзµ»ØÖµ¡ô
01¡¢AboutAndHelp-----ÏÔʾ°ïÖúÐÅÏ¢
02¡¢ExitOs-----------×¢Ïú¡¢ÖØÆôºÍ¹Ø»ú
03¡¢KillApplication--¹Ø±ÕÖ¸¶¨Ó¦ÓóÌÐò
04¡¢OpenUrlOfEmail---¸ù¾ÝÖ¸¶¨EmailµØÖ·£¬µ÷ÓÃÓʼþ¹¤¾ß
05¡¢OpenUrlOfFile----¸ù¾ÝÖ¸¶¨±¾µØÂ·¾¶£¬´ò¿ªÒ»¸öÎļþ
06¡¢OpenUrlOfHttp----¸ù¾ÝÖ¸¶¨HttpµØÖ·£¬µ÷ÓÃĬÈÏä¯ÀÀÆ÷
07¡¢SetCdRomClosed---¹ØÉϹâÅÌÇý¶¯Æ÷
08¡¢SetCdRomOpen-----µ¯¿ª¹âÅÌÇý¶¯Æ÷
09¡¢SetWindowTopMost-½«´°¿ÚÖÃÓÚ×î¶¥²ã
10¡¢ShowMousePointer-ÏÔʾ»òÕßÒþ²ØÊó±êÖ¸Õë
¡ñ·â×°µÄ10¸öº¯Êý£¬ÓÐÆä·µ»ØÖµ¡ñ
11¡¢AddAppToAutorun--½«Ö¸¶¨Ó¦ÓóÌÐòÉèÖÃΪ¿ª»ú×ÔÔËÐÐ
12¡¢DecodeData-------¶ÔEncodeData¼ÓÃܺóµÄÊý¾Ý½øÐнâÃÜ
13¡¢EncodeData-------¶Ô¸ø¶¨µÄ×Ö·û´®½øÐÐBase64Ëã·¨µÄ¼ÓÃÜ
14¡¢GetCompName------»ñÈ¡±¾µØ¼ÆËã»úÃû×Ö
15¡¢GetCurrUser------»ñÈ¡µ±Ç°µÇ¼Óû§Ãû
16¡¢GetSysDir--------»ñȡϵͳËùÔÚĿ¼
17¡¢GetWinDir--------»ñÈ¡WindowsËùÔÚĿ¼
18¡¢PlayWavSound-----²¥·Åwav¸ñʽµÄÒôƵÎļþ
19¡¢SetDesktopStatus-ÏÔʾ»òÕßÒþ²Ø×ÀÃæ
20¡¢ShowControlPanel-ÏÔʾ¿ØÖÆÃæ°åÖеIJ¿·ÖÏî
¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï ¡ï
©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤
VBÖÐÓñ¾DLL·â×°Àà´´½¨¶ÔÏóµÄÓï¾ä
  Dim zyObj As New prjSwpiZy.clsZy
ΪÁËÖ´ÐÐЧÂÊ£¬×îºÃ½«DimºÍNew·Ö¿ª¡£ÏÂÃæÊÇʵ¼Êµ÷ÓÃDLLÖк¯ÊýµÄÑÝʾ
  Dim zyObj As prjSwpiZy.clsZy  '¶¨Òå
  Set zyObj = New prjSwpiZy.clsZy  'ʵÀý»¯
  zyObj.OpenUrlOfHttp ("www.niit.com.cn")  'µ÷ÓÃ
  Set zyObj = Nothing  'ÊÍ·Å
©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤
VCÖÐÓñ¾DLLµÄһЩ¹Ø¼


Ïà¹ØÎĵµ£º

VB/VBAͨÓ÷¾¶Ñ¡Ôñ¶Ô»°¿ò

Option Explicit
Private Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pDisplayName As String
lpTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
Private Declare Function SHGetPathfromIDList Lib "shell32.dll" Alias _
"SHGetPa ......

ÔÚVB2008 ËٳɰæÖÐʹÓòÎÊý»¯SQL²éѯÓï¾äÎÞЧ

  ×î½ü¸Õѧ»áÔÚVB2008 ÖÐʹÓòÎÊý»¯SQLÓï¾ä£¬ÓÚÊÇÂíÉÏÓõ½´úÂëÖУ¬È´Åöµ½²é²»µ½ÈκÎÊý¾ÝµÄÇé¿ö£¬¾À½áÁ˺ü¸Ì죬»¹ÊÇûÓиãÃ÷°×£¬²îµãÍÂѪ¡£²»µÃÒÑ»¹ÊÇÏÈÔÚ´úÂëÖÐʹÓÃ×Ö·û´®Æ´½ÓµÄSQLÓï¾ä¡£
  °üº¬²ÎÊý»¯SQLÓï¾äµÄ´úÂëÈçÏ£º
            Dim cmSl As N ......

VB¶ÁдINIÎļþ

  '******************************************************************************************
'* ÐèҪעÒâµÄÎÊÌâ *
'******************************************************************************************
'1.INIÎļþµÄ· ......

vb Ëø¶¨Êó±êµ½Ä³Ò»Î»ÖÃ

Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Private Sub Command1_Click() 'Ëø¶¨Êó±ê µ½Ä³Ò»Î»ÖÃ
   ......

VB Ïß³Ì ÕæµÄ²»ÐÐ

Ò»¿ªÊ¼ ÒÔΪVBµÄÏß³Ì ²»ÊÇÏñÍøÉÏÈË˵µÄÄÇô´àÈõ¡£¡£¡£°¥ ÏÖÔÚÁìÂÔµ½ÁË¡£¡£¡£VPrivate Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, ByVal lpParameter As Long, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long
Pri ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ