²ÉÓÃ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µÄһЩ¹Ø¼
Ïà¹ØÎĵµ£º
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 ......
'******************************************************************************************
'* ÐèҪעÒâµÄÎÊÌâ *
'******************************************************************************************
'1.INIÎļþµÄ· ......
·¢ËͶËÒÔ163ΪÀý
Ò»¡¢asp.net°æ using System.Web.Mail; //ÃüÃû¿Õ¼äÒýÓÃ
c#
MailMessage mail = new MailMessage();
mail.To = "shadow103@qq.com"; //½ÓÊÜÈ˵ÄÓÊÏä
& ......
×ö±ÏÒµÂÛÎĵÄʱºòÓöµ½µÄÒ»¸öÎÊÌ⣬Çë½Ì¶¹°êÉϵÄÍøÓѲÅÓÐÁ˴𰸡£Ð»Ð»Õâλ½Ð“Òì²Ê”µÄÅóÓÑ¡£ÄóöÀ´Óë´ó¼Ò·ÖÏí¡£
¡¡¡¡ÓÃVB×öͼÏñ´¦ÀíÈí¼þµÄ±ÏÒµÂÛÎÄ£¬Óöµ½Ò»¸öÎÊÌâ¡£¼ÓÔØÒ»·ùͼƬ£¬Óöà¸öÂ˾µ·Ö±ð´¦Àí£¬ÏëÒ»²½Ò»²½UNDOµ½×îÔʼµÄͼÏñ£¬¶à´ÎUNDOÔõôʵÏÖ?
²Î¿¼·½°¸£º
Èç¹ûÏë×öµ½¶à´ÎUND ......
·½çÃæÉè¼Æ±ØÐë±£³ÖÒ»ÖÂ
·Á½¸ö³ÌÐòÖ®¼äµÄÌØÐԾ߱¸¹²ÐÔ
·ºÍwindowsÓ¦ÓóÌÐòµÄ¿ì½Ý¼üÊÇÒ»ÖµÄ
·±à³ÌÔÔò
·Îª´°Ì帳ÓèͳһµÄÍâ¹ÛºÍÐÐÎªÌØÐÔ
·Èç¹û´°ÌåµÄ´óС¸Ä±äʱ£¬Ëü²»¸Ä±äÆäÄÚÈݵĴóС£¬ÄÇô±ß¿ò¾Í²»Ó ......