<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" class="tt_1">
<span id="stnr">
<table width="98%" height="100%" border="0" align="center" cellpadding="1" cellspacing="1" class="tt_3" height="250">
<tr>
<td height="100" valign="top">包扎止血不能用的物品是______。</td>
<td width="20%" rowspan="3" align="center" valign="top">
</td>
</tr>
<tr>
<td height="95" valign="top">11111111</td>
</tr>
<tr>
<td
<tr>
<td valign="top" class="tt_1">
<span id="stnr">
<table width="98%" height="100%" border="0" align="center" cellpadding="1" cellspacing="1" class="tt_3" height="250">
<tr>
<td height="100" valign="top">包扎止血不能用的物品是______。</td>
<td width="20%" rowspan="3" align="center" valign="top">
</td>
</tr>
<tr>
<td height="95" valign="top">11111111</td>
</tr>
<tr>
<td
Dim dWinFolder As New ShellWindows
Dim WithEvents eventIE As WebBrowser_V1
Private Sub Command1_Click()
Dim objIE As Object
For Each objIE In dWinFolder
If objIE.LocationURL = List1.List(List1.ListIndex) Then
Set eventIE = objIE
Command1.Enabled = False
List1.Enabled = False
Text1.Text = ""
Exit For
End If
Next
End Sub
Private Sub Command2_Click()
Dim MyString
MyString = Text1.Text '建立一个字符串。
Text2.Text = Mid(MyString, 1, 79) ' 返回 "Mid"。
Text3.Text = Mid(MyString, 80, 188) ' 返回 "Demo"。
Text4.Text = Mid(MyString, 188) ' 返回 "Funcion Demo"。
End Sub Private Sub eventIE_NavigateComplete(ByVal URL As String)
Text1.Text = Text1.Text + Chr(13) + Chr(10) + URL
End Sub
'在运行前。点击菜单 Projects | References 项,在Available References 列表中选择Microsoft Internet Controls项将Internet对象引用介入到工程中
Private Sub Form_Load()
Dim objIE As Object
For Each objIE In dWinFolder
If InStr(1, objIE.FullName, "IEXPLORE.EXE", vbTextCompare) <> 0 Then
List1.AddItem objIE.LocationURL
End If
Next
Command1.Caption = "正文"
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set dWinFolder = Nothing
End Sub
Private Sub List1_Click()
Dim objDoc As Object
Dim objIE As Object
For Each objIE In dWinFolder
If objIE.LocationURL = List1.List(List1.ListIndex) Then
Set objDoc = objIE.Document
For i = 1 To objDoc.All.length - 1
If objDoc.All(i).tagName = "BODY" Then
Text1.Text = objDoc.All(i).innerText
End If
Next
Exit For
End If
Next
End Sub
这种只能获取全部汉字
http://download.csdn.net/source/639058