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
相关文档：
Put 语句
将一个变量的数据写入磁盘文件中。
Put [#]filenumber, [recnumber], varname
Get 语句
将一个已打开的磁盘文件读入一个变量之中。
Get [#]filenumber, [recnumber], varname
例如：
dim B as byte
open "File1.txt" for binary as #1
get #1, 1, B
close #1
即可将File1.txt文件� ......
VB下如何编写CRC校验程序
随着计算机技术的不断发展，在现代工业中，利用微机进行数据通讯的工业控制应用得也越来越广泛。由于传输距离、现场状况等诸多可能出现的因素影响，计算机与受控设备之间的通讯数据常会发生无法预测的错误。为了防止错误所带来的影响，一般在通讯时采取数据校验的办法，而循环冗余码校 ......
Public Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (Var() As Any) As Long
Public Declare Function VarPtrStringArray Lib "msvbvm60.dll" Alias "VarPtr" (Var() As Any) As Long
取对象地址: ObjPtr
取OLE对象的地址: OLE_NAME.LpOleObject
取函数地址: AddressOf
取字符串地址: StrPtr
取 ......
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取得线程句柄,返回线程句� ......
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 ......
