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

vbÈçºÎ¸ù¾ÝieµØÖ·À¸µÄµØÖ·À´ÅжÏÍøÒ³

²»ÊÇÏñÏÂÃæÕâ¾äÒ»Ñù¸ù¾Ý´°¿Ú±êÌâÀ´ÅжÏ
hwnd1 = FindWindow("IEFrame", "°Ù¶È——È«Çò×î´óÖÐÎÄËÑË÷ÒýÇæ - Microsoft Internet Explorer")
ÎÒÏë¸ù¾Ýie´°¿ÚµÄµØÖ·À¸ÀïµÄµØÖ·À´ÅжÏÍøÒ³ÊDz»Êǰٶȣ¬Ó¦¸Ãզд£¿×îºÃ˵Ïêϸµã ÎҺܲˣ¡Ð»Ð»
IEµØÖ·À¸µÄ¾ä±úÊÇ¿ÉÒÔͨ¹ýö¾ÙIE×Ó´°¿Úö¾Ùµ½£¬µØÖ·À¸µÄÀàÃûÊÇEdit£¨IE7°æ±¾£©¡£


×îºÃ˵Ïêϸµã LZºÜ²Ë£¡

ÒýÓÃ
IEµØÖ·À¸µÄ¾ä±úÊÇ¿ÉÒÔͨ¹ýö¾ÙIE×Ó´°¿Úö¾Ùµ½£¬µØÖ·À¸µÄÀàÃûÊÇEdit£¨IE7°æ±¾£©¡£



VB code:
Option Explicit
Private Sub Command1_Click()

Text1.Text = ""
EnumWindows AddressOf EnumProc, 0
If Text1.Text = "" Then Text1.Text = "ûÓÐÆô¶¯ IE ä¯ÀÀÆ÷"
End Sub


×¢:IE8Óò»ÁË

Ê×ÏÈ´ò¿ªVB£¬½¨Á¢Ò»¸öй¤³Ì£¬µã»÷²Ëµ¥ Projects | References ÏÔÚAvailable References ÁбíÖÐÑ¡Ôñ
'Microsoft Internet ControlsÏInternet¶ÔÏóÒýÓýéÈëµ½¹¤³ÌÖС£Ìí¼ÓÒ»¸öListBoxµ½Form1£¬È»ºóÔÚForm1ÖÐÌí¼ÓÉÏÃæ´úÂë

VB code:
Private Sub Command1_Click()
Dim objShell, objWindows, objIE, strURL
strURL = "http://www.baidu.com"
Set objShell = CreateObject("Shell.Application") 'New ShellWindows
Set objWi


Ïà¹ØÎÊ´ð£º

ΪʲôCдDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷ÓÃ

ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿

1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......

vbÈçºÎµ÷ÓÃIllustrator£¨´ËǰIllustratorδÆô¶¯£©£¿

Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......

ÇëºÃÐÄÈ˰ïÎÒ°ÑVBÔ´ÂëתΪVB.NET~

Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..


Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html

תΪVB.NETÔ´Âë.

СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ

ÎÒµÄEMAILÊÇ:4452 ......

VB ÔõôÄÜÌá¸ßÎı¾ÎļþµÄÑ­»·ËÙ¶È

ÌâÄ¿ÃèÊöÓ¦¸Ã²»ÊǺÜ׼ȷ¡£
ÏÖ×´ÊÇ£º¼ÙÈçÒ»¸öÎı¾Îļþ¹²100ÐУ¬ÄÇôÎÒÑ­»·´ÎÊý×î´ó¾ÍÊÇ100×100=10000Ï£¬»¨·Ñʱ¼ä·Ç³£¶à£¬ÇëÎÊÓÐûÓа취Äܹ»Ìá¸ß¶ÔÎı¾ÎļþµÄÑ­»··ÃÎÊËÙ¶È¡£·ÇÊý¾Ý¿â¼¼Êõ¡£
ÄãҪѭ»·×öʲô£ ......

vbÄÜ·ñ°Ñwinsock¿Ø¼þ·â×°µ½dllÖÐ

vb½«winsock¿Ø¼þ·â×°µ½dllÎÊÌâ ÓÐʲôºÃµÄ˼·£¿ Èç¹ûÓÃSocket APIÄØ£¿
ÀýÈ磬ÏñÏÂÃæÕâÑù·â×°Winsock¿Ø¼þ£¬ÐеÄͨ£¿
´´½¨ActiveX dll£¬Ìí¼Ó´°ÌåfrmClient£¬¼ÓÈëWinSock¿Ø¼þwskClient¡£
Àà´úÂ룺
Option Expli ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ