找回密码
 加入
搜索
查看: 134|回复: 4

[网络通信] 求教,为什么我的网页显示不完整[已解决]

[复制链接]
发表于 2024-11-12 12:53:10 | 显示全部楼层 |阅读模式
本帖最后由 xsjtxy 于 2024-11-13 17:48 编辑

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>



Local $oIE = _IECreateEmbedded()
GUICreate("", 840, 600)
GUICtrlCreateObj($oIE, 10, 40, 820, 500)


GUISetState() ;显示GUI

_IENavigate($oIE, "https://gushitong.baidu.com/index/ab-000001")

; 等待用户关闭窗口
While 1
    Local $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop

    EndSelect
WEnd

GUIDelete()

Exit

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
发表于 2024-11-12 17:25:18 | 显示全部楼层
你这是什么系统?XP,WIN7,WIN10,win11?
发表于 2024-11-12 22:31:32 | 显示全部楼层
用python吧,直接调用api接口          我设置的竖屏显示.   ,  实时更新的 ,exe 文件 超过20M上传不上来,自己下载源码.

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
发表于 2024-11-12 22:49:32 | 显示全部楼层

#include <WinAPI.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>

; 创建 GUI 窗口
$hGUI = GUICreate("嵌入 Edge 浏览器窗口", 1024, 768, -1, -1, BitOR($WS_OVERLAPPEDWINDOW, $WS_VISIBLE))

; Edge 浏览器路径
Local $sEdgePath = '"C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe"'

; 启动 Edge 浏览器,打开指定网页,以应用模式启动,窗口最小化
Run($sEdgePath & ' --app="https://gushitong.baidu.com/index/ab-000001"', "", @SW_HIDE)

; 等待浏览器进程启动
Sleep(2000)

; 获取 Edge 浏览器窗口句柄
Local $hEdge
For $i = 1 To 50
    $hEdge = WinGetHandle("[CLASS:Chrome_WidgetWin_1]", "")
    If $hEdge Then ExitLoop
    Sleep(100)
Next

If Not $hEdge Then
    MsgBox(16, "错误", "未能获取 Edge 浏览器窗口句柄")
    Exit
EndIf

; 隐藏浏览器窗口,确保在嵌入前不显示
WinSetState($hEdge, "", @SW_HIDE)

; 将浏览器窗口嵌入到 GUI 窗口中
_WinAPI_SetParent($hEdge, $hGUI)

; 去掉浏览器窗口的边框和标题栏
Local $iStyle = _WinAPI_GetWindowLong($hEdge, $GWL_STYLE)
_WinAPI_SetWindowLong($hEdge, $GWL_STYLE, BitAND($iStyle, BitNOT($WS_CAPTION + $WS_THICKFRAME)))

; 调整浏览器窗口大小
WinMove($hEdge, "", 0, 0, 1024, 768)

; 显示嵌入后的浏览器窗口
WinSetState($hEdge, "", @SW_SHOW)

; 显示 GUI 窗口
GUISetState(@SW_SHOW, $hGUI)

; 主事件循环
While True
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            ExitLoop
        Case $GUI_EVENT_RESIZED
            ; 调整浏览器窗口大小
            Local $aSize = WinGetClientSize($hGUI)
            WinMove($hEdge, "", 0, 0, $aSize[0], $aSize[1])
    EndSwitch
WEnd

; 关闭浏览器窗口
WinClose($hEdge)

; 关闭 GUI 窗口
GUIDelete($hGUI)



Exit

 楼主| 发表于 2024-11-13 17:42:58 | 显示全部楼层
rdw167 发表于 2024-11-12 22:49
#include
#include
#include

66666666666666666666
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-12-22 00:53 , Processed in 0.079416 second(s), 21 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表