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

VBÏÔʾÍøÒ³Ô´Âë»òÄÚÈÝ

 http://blog.donews.com/sloo/archive/2006/01/29/711269.aspx
1.ÓÃMicrosoft Internet Transfer Control ¿Ø¼þ£¨ÔÚ²¿¼þÖÐÌí¼Ó£©£¬´úÂë·Ç³£¼òµ¥£¬ÈçÏ£¨ÔÚformÉÏÌí¼ÓÒ»¸öInet1ºÍText1ºÍCommand1£©£º
Private Sub Command1_Click()
Text1.Text = Inet1.OpenURL("http://www.vbgood.com/")
End Sub
2.Èç¹ûÊÇʹÓà WebBrowser¿Ø¼þ£¬´úÂëÒ²·Ç³£¼òµ¥£¬ÈçÏ£¨ÔÚformÉÏÌí¼ÓÒ»¸öWebBrowser1ºÍText1£©£º
Private Sub Form_Load() WebBrowser1.Navigate2 "http://xsuplist.hintsoft.net/game/xsGame"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
'ÏÔʾԴÂë
Text1.Text = WebBrowser1.Document.documentElement.outerHTML
''ÏÔʾÄÚÈÝ
'Text1.Text = WebBrowser1.Document.documentElement.outerTEXT
End Sub
VBS½Å±¾£º
Set oDOM = WScript.GetObject("http://baidu.com")
do until oDOM.readyState = "complete"
WScript.sleep 200
loop
WScript.echo oDOM.documentElement.outerText


Ïà¹ØÎĵµ£º

VBÈ¡µÃÏ߳̾ä±ú

 Private Declare Function OpenThread Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwThreadId As Long) As Long
Private Const THREAD_ALL_ACCESS = &H1F03FF
 OpenThread(THREAD_ALL_ACCESS, 1, Ïß³ÌID)    'ÓÉÏß³ÌIDÈ¡µÃÏ߳̾ä±ú,·µ»ØÏß³Ì¾ä± ......

VB: Ò»¸öÕýÔòÌáÈ¡¹¦ÄÜ

'ÒýÓãºMicrofoft VBScript Regular Expressions 5.5 'Ò»¸öÕýÔòÌáÈ¡¹¦ÄÜ
Public Function regGetStr_three(ByVal myString As String, ByVal patReg As String) As String()
   Dim objRegExp As RegExp
   Dim objMatch As Match
   Dim colMatches   As Ma ......

VBÖеõ½ÆÁĻ֧³ÖµÄ·Ö±æÂʺÍɫλ

http://topic.csdn.net/t/20030306/11/1497896.html#
 ¹¤³ÌÎļþÃû£ºChdsp.vbp  
Type=Exe
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\PWIN95\SYSTEM\\STDOLE2.TLB#OLE Automation
Module=Module1; ChDsp.bas
Form=ChDsp.frm
Startup="Form1"
He ......

VB³ÌÐòÖÐʹÓýű¾Ö§³Ö

 ÕýÔÚ¿ª·¢Ð¡ÃØÊéϵͳ²¢²»¶ÏÌá¸ßÆäÖÇÄÜˮƽ,ÆäÖÐÓõ½µÄÊǽű¾Ö§³ÖµÄ¼¼Êõ
ËäÈ»Õⲿ·Ö²»ÊôÓÚ³õѧÕßʹÓÃ,È»¶øÓÐЩÈËÏëѧÕâ¸ö¶«¶«,ÕâÀï¾Í·¢~~~²¼³öÈ¥°É!
н¨Ò»¸ö±ê×¼exe¹¤³Ì(Standard EXE);
"¹¤³Ì"(Project)-->"²¿¼þ"(Components)
Ñ¡¶¨"Microsoft Script Control 1.0" ,λÖÃÊÇC:\WINDOWS\system32\msscript.ocx
Ìí ......

ת£ºWinFormʹÓÃWebService×Ô¶¯Éý¼¶ £¨VB + .Net£©

ת×Ô£ºhttp://hi.baidu.com/sunward08/blog/item/cb64ac224657014dac34de2d.html 
 
WinFormʹÓÃWebService×Ô¶¯Éý¼¶
2009-08-08 10:49
winform³ÌÐòÏà¶Ôweb³ÌÐò¶øÑÔ£¬¹¦ÄܸüÇ¿´ó£¬±à³Ì¸ü·½±ã£¬µ«Èí¼þ¸üÐÂÈ´Ï൱Âé·³£¬Òªµ½¿Í»§¶Ëһ̨һ̨µØÉý¼¶£¬Ãæ¶ÔÕâ¸öʵ¼ÊÎÊÌ⣬ÔÚ×î½üµÄÒ»¸öСÏîÄ¿ÖУ¬±¾ÈËÉè¼ÆÁËÒ»¸öͨ¹ýÈí ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ