Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 ³¤ÕûÐͺÍ×Ö½ÚÊý×éµÄת»»ÎÊÌâ (LongByte)

VB ³¤ÕûÐͺÍ×Ö½ÚÊý×éµÄת»»ÎÊÌâ (Long<>Byte)
Posted by JiaJia 17 March,2009 (0)Comment
Óõ½µÄAPIÉùÃ÷£º
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Long2Byte
Dim TempLng As Long
Dim TempBytes(0 To 3) As Byte ......

asp.net,c#,vb,vbs,js¸÷¸öÓïÑÔµÄÓÊÏä·¢ËÍÔ´´úÂë

·¢ËͶËÒÔ163ΪÀý
Ò»¡¢asp.net°æ   using System.Web.Mail; //ÃüÃû¿Õ¼äÒýÓà
c#
        MailMessage mail = new MailMessage();
        mail.To = "shadow103@qq.com";  //½ÓÊÜÈ˵ÄÓÊÏä
     & ......

VBÏÂEXECLµÄ²Ù×÷·½·¨

È«Ãæ¿ØÖÆ Excel
Ê×ÏÈ´´½¨ Excel ¶ÔÏó£¬Ê¹ÓÃComObj:
Dim ExcelID as Excel.Application
Set ExcelID as new Excel.Application
1) ÏÔʾµ±Ç°´°¿Ú£º
ExcelID.Visible := True;
2) ¸ü¸Ä Excel ±êÌâÀ¸£º
ExcelID.Caption := 'Ó¦ÓóÌÐòµ÷Óà Microsoft Excel';
3) Ìí¼Óй¤×÷²¾£º
ExcelID.WorkBooks.Add;
4) ´ò¿ªÒÑ´æÔÚµ ......

vb±ê×¼£¨ËÄ£©£º´íÎó´¦Àí

·´íÎóÀàÐÍ
    ·±à³ÌÔ±µÄ´íÎ󣨱ÈÈç·Öĸ²»ÄÜÊÇ0£¬²ÎÊý¸öÊý»òÊý¾ÝÀàÐͲ»¶ÔÓ¦£©
    ·»·¾³·½ÃæµÄ´íÎ󣨱ÈÈçÎļþÌ«´ó£¬´ÅÅ̷Ų»Ï£©
    ·Ê±¼äÉϵĴíÎ󣨱ÈÈçÊÓͼ¸øÉÐδÍê³É¼ÓÔØµÄ´°ÌåÉèÖý¹µã£©
·´´½¨´íÎó´¦Àí³ÌÐò
    ......

vb±ê×¼£¨¶þ£©£º´úÂëµÄ×¢ÊÍ

·×¢ÊÍÄÜʹעÊÍÄÜʹ´úÂë¸ü¼ÓÈÝÒ×Àí½â£¬¸ü¼ÓÈÝÒ׸ú×Ù¡£
·³öÉ«µÄ×¢Ê;ÍÏñÒ»·ùºÃµÄÉè¼ÆÀ¶Í¼£¬Äܹ»Òýµ¼ÔĶÁÕßͨ¹ýÄãµÄÓ¦ÓóÌÐòµÄÇúÕÛÖ®´¦£¬Äܹ»ËµÃ÷Ô¤ÆÚµÄÔËÐнá¹ûºÍ¿ÉÄܳöÏÖµÄÒì³£Çé¿ö¡£
·±à³ÌÔ­Ôò
   ·ÓÃÎÄ×Ö˵Ã÷´úÂëµÄ×÷ÓÃ
      ·±àд·Ç³£³öÉ«µÄ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ