VB获取浏览器地址
发布网友
发布时间:2022-04-22 18:38
我来回答
共4个回答
热心网友
时间:2023-09-27 14:45
'引用Microsoft Internet Controls
'添加listbox
'列出所有IE窗口的地址,要达到你要的效果,变通一下就OK
Dim dWinFolder As New ShellWindows
Private Sub Form_Load()
Dim objIE As Object
For Each objIE In dWinFolder
If 0 Or InStr(1, objIE.FullName, "IEXPLORE.EXE", vbTextCompare) <> 0 Then
List1.AddItem objIE.LocationURL
End If
Next
End Sub
热心网友
时间:2023-09-27 14:46
给你个思路吧。1.获取所有ie窗口
2.对每一个窗口,搜索地址栏类型的子窗口
3.判断是否以http://开头的,如果是则获取
我现在没有vb的api浏览器,也没时间,不好意思,有时间给你回答一下
热心网友
时间:2023-09-27 14:46
Dim oShellApp, oShellAppWindows, oWin
Set oShellApp = CreateObject("Shell.Application")
Set oShellAppWindows = oShellApp.Windows
For Each oWin In oShellAppWindows
If LCase(TypeName(oWin.document)) = "htmldocument" Then
text1.text= oWin.LocationURL
enf if
Next
Set oWin = Nothing
Set oShellApp = Nothing
Set oShellAppWindows = Nothing
热心网友
时间:2023-09-27 14:47
一个控件
vb.net 如何获取当前浏览器的网址
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load WebBrowser1.Navigate("www.baidu.com")End Sub Private Sub WebBrowser1_DocumentTitleChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles WebBrowser1.DocumentTitleChanged Me....
aippt自动生成工具
随着AI技术的飞速发展,如今市面上涌现了许多实用易操作的AI生成工具1、简介:AiPPT: 这款AI工具智能理解用户输入的主题,提供“AI智能生成”和“导入本地大纲”的选项,生成的PPT内容丰富多样,可自由编辑和添加元素,图表类型包括柱状图、条形...
VB如何获得浏览器地址栏全部内容。
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long '取得指定窗口的司法题 Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClass...
...取得当前页面的URL,必须兼容所有IE内核的浏览器(如360浏览器)_百度...
以下代码在360浏览器下调试成功。分两步:一、把下面代码复制到一个模块中:Option ExplicitDeclare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPublic Declare Function SetC...
VB或批处理修改默认浏览器
回答:就改两个注册表值,以360浏览器为例的bat码:@echo off reg add "HKEY_CLASSES_ROOT\http\shell\open\command" /ve /d "C:\360se.exe" /f reg add "HKEY_CLASSES_ROOT\http\shell\open\ddeexec\Application" /ve /d "IExplore" /f
vb 如何调用默认浏览器
默认浏览器不是IE浏览器,VB可以打开自行设置的默认浏览器来浏览网页。可以用以下两种代码方式打开。代码1)用Shell函数直接调用explorer.exe来打开网页。Private Sub Command1_Click() Dim strOpen strOpen = Shell("explorer.exe "& Text1, 1)End SubPrivate Sub Form_Load() Text1 = "http://...
怎样用VB访问WEB
选择"vb应用程序向导"此向导会指导你创建一个工程,其中有一步是询问"你是否希望用户从你的应用程序中访问internet",选择"是",最后选择"完成"来生成一个工程 你会看到,向导已经为你生成了一个:frmbrowser 的窗体,这就是你要的web浏览器了.企业版本在新建项目 里面都有 游览器 这个可以直接 用 ...
vb如何用最简单的方法,设置自己制作的浏览器的主页
mainpg = InputBox("输入你的主页地址", "设置", mainpg)End Sub Private Sub Form_Load()stpg = "www.baidu.com" '起始页 mainpg = "http://www.163.com" '主页 WebBrowser1.Navigate stpg Command1.Caption = "加载主页"Command2.Caption = "设置主页"End Sub 建议你用外部文件...
如何用VB指定一个位置的浏览器打开固定网页页面?
wz = "www.baidu.com"浏览器安装地址 = "你想选的浏览器安装地址"Shell 浏览器安装地址 & " " & wz, vbMinimizedNoFocus'运行且自动最小化
在VB如何模仿浏览器地址输入
我想用VB写个,像浏览器的地址输入栏.当输入网址http://www.XXX.com/点"确定"之后,就自动打开浏览器.访问到你输入的哪个网站!---还要一个可以搜索中... 我想用VB写个,像浏览器的地址输入栏.当输入网址http://www.XXX.com/点"确定"之后,就自动打开浏览器.访问到你输入的哪个网站!---还要一个可以搜索 中...
用VB做个网页浏览器,然后再搜索里面指定的内容,怎么编啊
建立个VB标准exe工程 引用WebBrowser控件默认名即可 再加入个文本控件,以便输入url地址,默认命名就可以了 再加入个按钮 比如让你做的这个窗口在打开时显示主页加入以下代码在Form Load事件中 Private Sub Form_Load()WebBrowser1.GoHome End Sub 比如在你想在文本框内输入网址,然后点击按钮就可以浏览你...