浏览器

开发平台：
Visual Basic

TypeVal.bas：源码内容
							Attribute VB_Name = "mSelfTypeVal"
Option Explicit
'================================================
'===============资源文件ID=======================
'===============================================
Public Const IDI_Folder As Integer = 301
Public Const IDI_Url As Integer = 302
Public Const IDI_Fav_Reopen As Integer = 303
Public Const IDI_Fav_Add As Integer = 304
Public Const IDI_Fav_Fav As Integer = 305
Public Const IDI_Folder_Open As Integer = 306
Public Const IDI_Fav_Add_Gray As Integer = 307
Public Const IDI_Progress_0 As Integer = 200
Public Const IDI_Progress_1 As Integer = 201
Public Const IDI_Progress_2 As Integer = 202
Public Const IDI_Progress_3 As Integer = 203
Public Const IDI_Progress_4 As Integer = 204
Public Const IDI_TabGoLeft As Long = 102
Public Const IDI_TabGoLeft_Gary As Long = 103
Public Const IDI_TabGoRight As Long = 104
Public Const IDI_TabGoRight_Gray As Long = 105
Public Const IDB_SearchBar As Long = 101
Public Const IDB_SearchBar_Icon As Long = 105
Public Const IDB_OtherBar As Long = 102
Public Const IDB_MainBar As Long = 103
Public Const IDB_MainBar_Gray As Long = 104
Public Const IDB_ProgressIcon As Long = 105
Public Const IDB_TabGoLR As Long = 106
Public Const IDB_MenuIcon As Long = 108
Public Const IDB_PluginIcon As Long = 109
'==================================================================
'=====================Self Value===================================
'==================================================================
'通用类型 for url
Public Type UrlSimpleInfo
    Title As String
    Url As String
End Type
'代理服务器数据
Public Type proxyType
    proxyName As String '* 128
    address As String '* 128
    port As String '* 16
    isByPass As Byte
    bypass As String '* 1024
End Type
    
Public proxyData() As proxyType
Public Const maxProxy As Long = 50
Public proxyDataCount As Long
'===================================================================
Public Const TabsTitleLength As Integer = 12 '标签文字长度
Public Const browserCount As Integer = 15 '允许最多打开的页数
Public loadedBrowserCount As Long '已打开的页数
Public Const tabLength As Long = 1455 '标签宽度
Public tabsPos As Long
Public isLockPresentWeb As Long '是否锁住当前页面
Public gIsAllOpenNew As Long    '总是在新页面打开
Public PreventPopWindow As Long '自动过滤,0表示不过滤,1-3代表不同等级
Public SaveWhenExit As Long  '退出时是否保存
'Public gOffline As Long '脱机工作
Public gLockToolBar As Boolean '锁住工具栏
Public preSaveWhenExit As Long
Public addbarGetFocus As Boolean '标志变量
Public isExit As Boolean   '标志变量
Public selectedTabsCount '被选择标签的数量
'Public browserState() As Integer
Public gActiveWebIndex As Integer
'Public popWbbIdx As Integer
Public hFolder As Long
'Dim wwShoutObj As Object
'Dim wshshell As Object
'Public Type webbPos
'    Left As Single
'    Top As Single
'    Width As Single
'    Height As Single
'End Type
Public ProxySelected As Integer
Public IsUseProxy As Integer
'Public isCancel As Boolean
Public Add_To_Fav_Is_On As Boolean
Public meCaption As String
'Public Type type_BrowserState
'    StatusText As String
'    Progress As String
''    isFirst As Integer '0--empty ,1--first ,2---not first
'    'fontSize As Integer
'    isLoaded As Boolean
'    webForm As frmBrowser
''    webTab As ClXButton
'    TabBtn As cButton
''    tabOrder As Integer
'End Type
Public webbState() As cLBrowser ' type_BrowserState
Public isTabClick As Boolean
Public isUnloadByFunction As Boolean
'Public po_webmousecenter As Picture
'Public po_webmouseleft As Picture
'Public po_webmouseup As Picture
'Public po_webmouseright As Picture
'Public po_webmousedown As Picture
'Public po_webmouse_ul As Picture
'Public po_webmouse_ur As Picture
'Public po_webmouse_dr As Picture
'Public po_webmouse_dl As Picture
Public dragCursor As Picture
'Public DragDropSaveFolder As String
Public DragDropSaveImageFolder As String
Public DragDropSaveTextFolder As String
'===== 搜索列表 ======================
'Public Type typSearchUrl
'    Title As String
'    Url As String
'End Type
Public FirstLoadSearchurl As Long
Public SearchurlCount As Long
Public searchUrl() As UrlSimpleInfo
Public Const defSearchCount& = 8
Public Const SearchUrlKeywordFlag$ = "{keyword}"
Public def_searchurl(1 To defSearchCount) As UrlSimpleInfo
    '搜索栏
'    Public Type typSearchEngine
'        Title As String
'        Url As String
'        'MulSearch As Boolean
'    End Type
    Public gSearchEgnCount As Long
    Public gSearchEgn() As UrlSimpleInfo   'begin from 1
    Public gDefaultEgn As Long
    
    '多引擎搜索
    Public Type typMulSearchEngine
        Title As String
        UseMul() As Boolean
        Count As Long
    End Type
    Public gMulSearch() As typMulSearchEngine
    Public gMulSearchCount As Long
    Public gDefaultMulEgn As Long
    
'========================================================
'边栏收藏夹是否浮动
Public FloatFavorite  As Long ' MSComctlLib.ValueConstants
'========================================================
'中键拖动速度
Public ScrollRate As Long
Public ScrollRate2 As Long
'反向滚动
Public RollInvert As Long
'滚动模式,0:按着不放,1:单击后随鼠标滚动
Public Rollmode As Long
'在新页面中打开拖放的链接或图片
Public EnableDragLink As Long
'URL过滤
Public UrlFilter() As String
Public UrlFilterCount As Long
Public EnableUrlFilter As Long
'===========================================
''外部工具
'Public Type typExTool
'    Caption As String
'    path As String
'    Param As String
'End Type
'Public ExTools() As typExTool   '1 base
'Public ExToolsCount As Long
''===================================
    
'Progress Icon
Public ProgressIcon(0 To 4) As Picture
'==========================================
'地址栏组合键对应事件
Public AddBarShortKey_Enter As Long
Public AddBarShortKey_Ctrl As Long
Public AddBarShortKey_Shift As Long
Public AddBarShortKey_Alt As Long
Public AddBarShortKey_CtrlShift As Long
Public AddBarShortKey_AltShift As Long
'Public AddBarShortKey_CtrlAlt As Long
'========================================
'全局下载控制
Public gDL_Image As Boolean
Public gDL_BgSound As Boolean
Public gDL_Video As Boolean
Public gDL_Script As Boolean
Public gDL_ActiveX As Boolean
Public gDL_JavaApplet As Boolean
Public gDl_DlActiveX As Boolean
'=====================================
'页面规则
Public gEnablePageRule As Long  '是否启用页面规则
Public Type typPageRule
    Title As String
    Enabled As Long '是否开启该规则
    UrlCnt As Long
    Urls() As String    '下标从0开始
    
    Type As Long    '规则方式,0:页面的一些选项,1:调用外部程序
    
    '页面选项
    DL_Image As Boolean
    DL_BgSound As Boolean
    DL_Video As Boolean
    DL_Script As Boolean
    DL_ActiveX As Boolean
    DL_JavaApplet As Boolean
    
    AutoPreventPop As Long
    AllwaysOpenNew As Boolean   '总是在新窗口中打开
    Inherit As Boolean  '继承
    ForceChange As Boolean '强制转换选项,而不管其原窗口的选项
    
    '外部程序
    OutExePath As String
    OutExeParam As String
End Type
Public PageRule() As typPageRule    '下标从1开始
Public PageRuleCnt As Long
'=========================================
'Full Screen
Public gFullScreenMode As Boolean
Public gShowMainToolbar As Boolean
Public gShowAddressbar As Boolean
Public gShowSearchbar As Boolean
Public gShowTabsbar As Boolean
Public gShowSmallToolbar As Boolean
Public gShowStatusbar As Boolean
'Toolbar 按钮选择
Public Const gTbrMainBtnCnt As Long = 14
Public gTbrMainBtnShow(0 To gTbrMainBtnCnt - 1) As Byte
Public Const gTbrSmallBtnCnt As Long = 8
Public gTbrSmallBtnShow(0 To gTbrSmallBtnCnt - 1) As Byte
'自身拖拽判断的数据
Public gSelfDrag As cSelfDrag
'托拽各方向响应事件
Public gDDEventLink(0 To 3) As cDragDropEvent
Public gDDEventText(0 To 3) As cDragDropEvent
Public gDDEventImage(0 To 3) As cDragDropEvent
'拖拽菜单
Public gDragDropMenu As cPopMenu
'"搜索"的子菜单
Public gDragDropMenu2 As cPopMenu
''脚本数据
'Public Type ScriptData
'    Title As String
'    Language As String
'    Script As String
'    LoadedScript As Boolean '是否加载了脚本
'    FileName As String
'    '程序启动时是否加载脚本,0:启动时不加载,1:启动时加载
'    LoadAtExec As Long
'    '执行类型,可以有三个值,0:在顶层页面中执行,1:在页面中的每一个frame都执行,2:仅在鼠标所在的frame中执行
'    RunType As Long
'End Type
'Public gScripts() As ScriptData '1 base
'Public gScriptCnt As Long
'Public Const ScriptInfoFlag_Info = "Info"
'Public Const ScriptInfoFlag_Title = "Title"
'Public Const ScriptInfoFlag_Language = "Language"
'Public Const ScriptInfoFlag_Script = "[Script]"
'Public Const ScriptInfoFlag_RunType = "RunType"
'Public Const ScriptInfoFlag_LoadAtExec = "LoadAtExec"
'地址栏输入历史记录
Public gAddUrlz() As String
Public gAddUrlCnt&
'收藏夹选项
Public gFavoriteUseDefaultPath&     '是否用ie默认路径
Public gFavoriteCustomPath$         '自定义的路径
Public gFavoriteSinglLineMenu&      '单列菜单
Public gFavoriteShowHidden&         '显示隐藏文件
'为插件提供程序信息
Public gOutInfo As cOutPortInfo
'下载相关
Public gShowDownDlg As Long     '是否在下载前显示下载地址
Public gUseDownTool As Long     '是否使用工具下载
Public gDownToolIndex As Long   '下载工具index
Public gDownTools() As UrlSimpleInfo    '下载工具列表 ,1 base
Public gDownToolCount As Long

						