Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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µÄѧϰ½»Á÷ÍøÕ¾

http://www.Experts-Exchange.com: ·Ç³£ºÃµÄÎÊÌâ ÌÖÂÛÇø£¬¸ßÊÖÊý²»¾¡£¬¶øÇÒÕâÀïµÄÈ˺ÜÓÐרҵ¾«Éñ£¬²»»áÌÖÂÛһЩºÍ³ÌÐòÎÞ¹ØÓÖÎÞÁĵÄÎÊÌâ¡£²»¹ýÏëÒª±ðÈ˰ïÄã ½â¾öÎÊÌ⣬×Ô¼ºÒ²ÒªÓÐÕæ³ÏµÄ̬¶È¡£
http://www.Codeguru.com/vb: ÓÐÃûµÄÔ´ÂëÌÖÂÛÕ¾ µã£¬ÌصãÊÇÔÚÿ¸öÔ´ÂëÏÂÃæ¶¼¿ÉÒÔ¸úÌûÌÖÂÛ¡£
http://www.planet-source-code.co ......

BarCode Ëã·¨ VBÀà¿â 1

 Option Explicit
' VB / VBA Functions for Code128(A, B,C), UCC/EAN 128
' Copyright 2004 by MW6 Technologies Inc. All rights reserved.
'
' This code may not be modified or distributed unless you purchase
' the license from MW6.
Public UFPrefixFunctions As Boolean
Private I As Integer
Pri ......

BarCode Ëã·¨ VBÀà¿â 2

 
Option Explicit
Public Function ascii2Char(strInput As String) As String
Dim i As Integer
Dim strTemp As String
Dim nPos As Integer
Dim nValue As Integer
i = 1
nPos = InStr(i, strInput, "&#", vbTextCompare)
While (nPos > 0)
    ascii2Char = ascii2Char + Left(st ......

VB: È¡ÍøÒ³Ô´Âë

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" ( _
    ByVal pCaller As Long, _
    ByVal szURL As String, _
    ByVal szFileName As String, _
    ByVal dwReserved As Long, _
  ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ