TerminateProcess (hwnd,uExitCode)
解决方案 »
- 急
- 知道一个窗口的类名和窗口名的前几个字母,怎么获得它的句柄?
- 在线等!小问题!如何将数据库中的某一字段的内容原样写入文本框!!????
- 数据错误和文本输入
- 怎样让加载进来的Form船体不能通过鼠标拖动来改变它的大小?
- 在ActiveX Dll的类中自定义了一个类型,在另一个工程中引用了该dll以后,为什么找不到该类型?
- Internet Transfer Control 实现ftp的问题?
- ■■■■高难度问题,有谁能打上来呀!!!!■■■■■
- 在VB6中怎样将窗体中(MDI窗体)的最大化按钮灰掉???
- VB中实现输入的内容与数据库中对应记录智能跟踪
- 惊闻自考通过一门,高兴,散分~~
- 请问VB能不能创建自解压包?
Dim dWinFolder As New ShellWindows
Dim WithEvents eventIE As WebBrowser_V1Private 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 SubPrivate 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 SubPrivate Sub Form_Unload(Cancel As Integer)
Set dWinFolder = Nothing
End SubPrivate 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
objDoc.All(i).Quit旧可以退出IE。