Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 Ëø¶¨Êó±êµ½Ä³Ò»Î»ÖÃ

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 ......

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 ......

VBʵÏÖÎļþÉÏ´«µ½FTP·þÎñÆ÷

ftp.txtÎļþÄÚÈÝΪ£º
open 211.118.1.70
dongping
sh12345
put ip.jpg
bye
VBÄÚÈÝΪ£º
Private Sub Command1_Click()
    Shell "cmd.exe /c ipconfig >ip.jpg"
    Shell "cmd.exe /c ftp -s:ftp.txt"
End Sub ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ