浏览器

开发平台：

Visual Basic

frmOption.frm：源码内容

VERSION 5.00
Begin VB.Form frmOption
BorderStyle = 3 'Fixed Dialog
Caption = "选项"
ClientHeight = 7395
ClientLeft = 2325
ClientTop = 2730
ClientWidth = 7875
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "frmOption.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 493
ScaleMode = 3 'Pixel
ScaleWidth = 525
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.Frame fraOption
BackColor = &H0000C0C0&
BorderStyle = 0 'None
Caption = "地址栏"
Height = 4800
Index = 2
Left = 420
TabIndex = 9
Top = 1260
Width = 5490
Begin VB.Frame Frame7
Caption = "键盘"
Height = 1215
Left = 60
TabIndex = 30
Top = 2700
Width = 5355
Begin VB.ComboBox cobAddbarShortkey
Height = 300
Left = 240
Style = 2 'Dropdown List
TabIndex = 32
Top = 360
Width = 2775
End
Begin VB.ComboBox cobAddbarEvent
Height = 300
Left = 3660
Style = 2 'Dropdown List
TabIndex = 31
Top = 360
Width = 1515
End
Begin VB.Label Label13
BorderStyle = 1 'Fixed Single
Caption = "Ctrl + Alt = 弹出菜单"
Height = 255
Left = 240
TabIndex = 34
Top = 840
Width = 2775
End
Begin VB.Label Label12
Caption = "="
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3240
TabIndex = 33
Top = 360
Width = 255
End
End
Begin VB.Frame Frame8
Caption = "替换"
Height = 2475
Left = 30
TabIndex = 35
Top = 120
Width = 5415
Begin VB.ListBox lstSearchUrl
Height = 2100
IntegralHeight = 0 'False
Left = 120
TabIndex = 43
Top = 240
Width = 1575
End
Begin VB.TextBox txtSearchTitle
Height = 285
Left = 2400
TabIndex = 42
Text = "Text1"
Top = 240
Width = 1215
End
Begin VB.TextBox txtSearchUrl
Height = 285
Left = 1800
TabIndex = 41
Text = "Text2"
Top = 960
Width = 3495
End
Begin VB.CommandButton cmdSearchAdd
Caption = "添加"
Height = 300
Left = 1800
TabIndex = 40
Top = 1500
Width = 675
End
Begin VB.CommandButton cmdSearchRemove
Caption = "删除"
Height = 300
Left = 2520
TabIndex = 39
Top = 1500
Width = 675
End
Begin VB.CommandButton cmdSearchMoveUp
Caption = "移上"
Height = 300
Left = 3780
TabIndex = 38
Top = 1500
Width = 675
End
Begin VB.CommandButton cmdSearchMoveDown
Caption = "移下"
Height = 300
Left = 4500
TabIndex = 37
Top = 1500
Width = 675
End
Begin VB.CommandButton cmdSearchOk
Caption = "确认修改"
Height = 300
Left = 4080
TabIndex = 36
Top = 1980
Width = 1095
End
Begin VB.Label Label3
Caption = "标题"
Height = 255
Left = 1800
TabIndex = 46
Top = 240
Width = 495
End
Begin VB.Label Label4
Caption = "地址"
Height = 255
Left = 1800
TabIndex = 45
Top = 600
Width = 495
End
Begin VB.Label Label5
Caption = "替换内容以""{keyword}""表示"
Height = 255
Left = 2400
TabIndex = 44
Top = 600
Width = 2775
End
End
End
Begin VB.Frame fraOption
BackColor = &H00C0C000&
BorderStyle = 0 'None
Caption = "收藏夹"
Height = 2835
Index = 8
Left = 3780
TabIndex = 201
Top = 1860
Width = 5415
Begin VB.CommandButton cmdFavorite_Apply
Caption = "应用(&A)"
Height = 330
Left = 4380
TabIndex = 209
Top = 1800
Width = 900
End
Begin VB.CheckBox chkFavorite_SinglLine
Caption = "收藏夹菜单显示为单列"
Height = 195
Left = 120
TabIndex = 207
Top = 1560
Width = 2175
End
Begin VB.CheckBox chkFavorite_Showhidden
Caption = "显示隐藏文件"
Height = 195
Left = 120
TabIndex = 208
Top = 1860
Width = 2175
End
Begin VB.Frame Frame15
Caption = "收藏夹路径"
Height = 1155
Left = 120
TabIndex = 202
Top = 240
Width = 5175
Begin VB.OptionButton optFavorite_Path_Default
Caption = "IE默认"
Height = 180
Left = 120
TabIndex = 203
Top = 300
Width = 915
End
Begin VB.OptionButton optFavorite_Path_Cus
Caption = "自定义"
Height = 255
Left = 1140
TabIndex = 204
Top = 300
Width = 855
End
Begin VB.TextBox txtFavorite_Path
Height = 300
Left = 120
TabIndex = 205
Top = 660
Width = 4455
End
Begin VB.CommandButton cmdFavorite_Browse
Caption = ">>"
Height = 300
Left = 4680
TabIndex = 206
Top = 660
Width = 390
End
End
End
Begin VB.Frame fraOption
BackColor = &H00808000&
BorderStyle = 0 'None
Caption = "搜索栏"
Height = 4815
Index = 7
Left = 600
TabIndex = 161
Top = 600
Width = 5715
Begin VB.Frame Frame14
Caption = "多引擎搜索方案"
Height = 675
Left = 60
TabIndex = 180
Top = 4080
Width = 5355
Begin VB.CommandButton cmdSearchbarMulegnDel
Caption = "删除"
Height = 300
Left = 4440
TabIndex = 184
Top = 240
Width = 810
End
Begin VB.CommandButton cmdSearchbarMulegnRename
Caption = "重命名"
Height = 300
Left = 3540
TabIndex = 183
Top = 240
Width = 810
End
Begin VB.CommandButton cmdSearchbarMulegnNew
Caption = "新建"
Height = 300
Left = 2700
TabIndex = 182
Top = 240
Width = 810
End
Begin VB.ComboBox cmbSearchbarMulegn
Height = 300
Left = 60
Style = 2 'Dropdown List
TabIndex = 181
Top = 240
Width = 2595
End
End
Begin VB.CommandButton cmdSearchbarApply
Caption = "确认修改(&O)"
Height = 300
Left = 4215
TabIndex = 168
Top = 3660
Width = 1200
End
Begin VB.CommandButton cmdSearchbarMoveDown
Caption = "移下(&P)"
Height = 300
Left = 2700
TabIndex = 167
Top = 3660
Width = 810
End
Begin VB.CommandButton cmdSearchbarMoveup
Caption = "移上(&U)"
Height = 300
Left = 1860
TabIndex = 166
Top = 3660
Width = 810
End
Begin VB.CommandButton cmdSearchbarDel
Caption = "删除(&D)"
Height = 300
Left = 900
TabIndex = 165
Top = 3660
Width = 810
End
Begin VB.CommandButton cmdSearchbarAdd
Caption = "添加(&A)"
Height = 300
Left = 60
TabIndex = 164
Top = 3660
Width = 810
End
Begin VB.TextBox txtSearchBarTitle
Height = 300
Left = 600
TabIndex = 162
Text = "Text2"
Top = 2880
Width = 4815
End
Begin VB.TextBox txtSearchBarUrl
Height = 300
Left = 600
TabIndex = 163
Text = "Text1"
Top = 3240
Width = 4815
End
Begin VB.PictureBox pctSearchBar_HoldLvw
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
FillStyle = 0 'Solid
FontTransparent = 0 'False
ForeColor = &H80000008&
HasDC = 0 'False
Height = 2775
Left = 60
ScaleHeight = 185
ScaleMode = 3 'Pixel
ScaleWidth = 357
TabIndex = 199
Top = 60
Width = 5355
End
Begin VB.Label Label37
Caption = "地址"
Height = 255
Left = 60
TabIndex = 170
Top = 3300
Width = 435
End
Begin VB.Label Label36
Caption = "标题"
Height = 315
Left = 60
TabIndex = 169
Top = 2940
Width = 435
End
End
Begin VB.Frame fraOption
BackColor = &H0000C000&
BorderStyle = 0 'None
Caption = "过滤"
Height = 4800
Index = 1
Left = 900
TabIndex = 0
Top = 2460
Visible = 0 'False
Width = 5535
Begin VB.Frame Frame3
Caption = "URL过滤"
Height = 3675
Left = 120
TabIndex = 15
Top = 960
Width = 5295
Begin VB.TextBox txtAddFliter
Height = 285
Left = 120
TabIndex = 22
Top = 600
Width = 4095
End
Begin VB.ListBox lstFliterList
Height = 2580
IntegralHeight = 0 'False
Left = 120
TabIndex = 21
Top = 960
Width = 4095
End
Begin VB.CommandButton cmdAddFliter
Caption = "添加(&A)"
Height = 375
Left = 4260
TabIndex = 20
Top = 600
Width = 975
End
Begin VB.CommandButton cmdDelFliter
Caption = "删除(&D)"
Height = 375
Left = 4260
TabIndex = 19
Top = 1080
Width = 975
End
Begin VB.CommandButton cmdFilterOK
Caption = "确认修改"
Height = 375
Left = 4260
TabIndex = 18
Top = 3180
Width = 975
End
Begin VB.CheckBox chkFliterEnable
Caption = "不弹出下列URL的窗口(可用*)"
Height = 255
Left = 120
TabIndex = 17
Top = 240
Width = 2655
End
Begin VB.CommandButton cmdEditFilter
Caption = "修改(&E)"
Height = 375
Left = 4260
TabIndex = 16
Top = 1560
Width = 975
End
End
Begin VB.ComboBox cobPvnPop
Height = 300
Left = 1200
Style = 2 'Dropdown List
TabIndex = 13
Top = 360
Width = 1095
End
Begin VB.Label Label18
Caption = "当新开页面在鼠标左键单击或按下Enter后的一定时间内发生时,那么判断这个不是自动弹出的页面"
Height = 615
Left = 2520
TabIndex = 83
Top = 240
Width = 2775
End
Begin VB.Label Label1
Caption = "自动过滤"
Height = 255
Left = 240
TabIndex = 14
Top = 360
Width = 855
End
End
Begin VB.Frame fraOption
BackColor = &H000040C0&
BorderStyle = 0 'None
Caption = "鼠标行为"
Height = 5820
Index = 4
Left = 2220
TabIndex = 11
Top = 660
Visible = 0 'False
Width = 6495
Begin VB.Frame fraMouse
BackColor = &H00FFC0C0&
BorderStyle = 0 'None
Caption = "Frame10"
Height = 4400
Index = 1
Left = 1260
TabIndex = 100
Top = -180
Visible = 0 'False
Width = 5475
Begin VB.ComboBox cmbMouseHandEventType
Height = 300
Left = 2160
Style = 2 'Dropdown List
TabIndex = 160
Top = 3360
Width = 915
End
Begin VB.ComboBox cmbMouseHandEventList
Height = 300
Left = 3120
Style = 2 'Dropdown List
TabIndex = 110
Top = 3360
Width = 2235
End
Begin VB.Frame Frame11
Caption = "手势选择"
Height = 1335
Left = 60
TabIndex = 104
Top = 2940
Width = 1185
Begin VB.CommandButton cmdMouseHandDir
Caption = "↑"
Height = 315
Index = 1
Left = 435
TabIndex = 109
Top = 300
Width = 315
End
Begin VB.CommandButton cmdMouseHandDir
Caption = "←"
Height = 315
Index = 2
Left = 120
TabIndex = 108
Top = 615
Width = 315
End
Begin VB.CommandButton cmdMouseHandDir
Caption = "→"
Height = 315
Index = 0
Left = 750
TabIndex = 107
Top = 615
Width = 315
End
Begin VB.CommandButton cmdMouseHandDir
Caption = "↓"
Height = 315
Index = 3
Left = 435
TabIndex = 106
Top = 930
Width = 315
End
Begin VB.CommandButton cmdMouseHandDirBlank
Caption = "X"
Height = 315
Left = 435
TabIndex = 105
Top = 615
Width = 315
End
End
Begin VB.CommandButton cmdMouseHandAdd
Caption = "添加(&A)"
Height = 360
Left = 3420
TabIndex = 103
Top = 3900
Width = 900
End
Begin VB.CommandButton cmdMouseHandDel
Caption = "删除(&D)"
Height = 360
Left = 4440
TabIndex = 102
Top = 3900
Width = 900
End
Begin VB.CommandButton cmdMouseHandUpdateHand
Caption = "更新(&U)"
Height = 330
Left = 4440
TabIndex = 101
Top = 2970
Width = 900
End
Begin VB.PictureBox pctMouseHand_HoldLvw
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
ClipControls = 0 'False
ForeColor = &H80000008&
HasDC = 0 'False
Height = 2715
Left = 60
ScaleHeight = 181
ScaleMode = 3 'Pixel
ScaleWidth = 353
TabIndex = 200
Top = 120
Width = 5295
End
Begin VB.Label labMouseHandShow
BorderStyle = 1 'Fixed Single
Height = 300
Left = 2160
TabIndex = 113
Top = 3000
Width = 2175
End
Begin VB.Label Label21
Caption = "手势设置"
Height = 255
Left = 1320
TabIndex = 112
Top = 3030
Width = 795
End
Begin VB.Label Label22
Caption = "可选命令"
Height = 255
Left = 1320
TabIndex = 111
Top = 3390
Width = 735
End
End
Begin VB.Frame fraMouse
BackColor = &H0000C0C0&
BorderStyle = 0 'None
Caption = "Frame10"
Height = 5115
Index = 0
Left = 540
TabIndex = 84
Top = 2820
Width = 6015
Begin VB.Frame fraDragWeb
Caption = "拖动页面"
Height = 1335
Left = 120
TabIndex = 90
Top = 180
Width = 5175
Begin VB.CheckBox chkInvertDir
Caption = "反方向"
Height = 255
Left = 4080
TabIndex = 99
Top = 960
Width = 855
End
Begin VB.Frame Frame2
Caption = "触发方式"
Height = 975
Left = 2400
TabIndex = 96
Top = 240
Width = 1335
Begin VB.OptionButton optRollmodeClick
Caption = "单击"
Height = 255
Left = 120
TabIndex = 98
Top = 240
Width = 735
End
Begin VB.OptionButton optRollmodeDown
Caption = "按着不放"
Height = 255
Left = 120
TabIndex = 97
Top = 600
Value = -1 'True
Width = 1095
End
End
Begin VB.Frame fraScrollSpeed
Caption = "滚动速度"
Height = 975
Left = 120
TabIndex = 91
Top = 240
Width = 2175
Begin VB.TextBox txtScrollRate2
Height = 285
Left = 1560
Locked = -1 'True
TabIndex = 93
Text = "4"
Top = 600
Width = 495
End
Begin VB.TextBox txtScrollRate1
Height = 285
Left = 1560
Locked = -1 'True
TabIndex = 92
Text = "2"
Top = 240
Width = 495
End
Begin VB.Label Label9
Caption = "Ctrl+鼠标中键"
Height = 255
Left = 120
TabIndex = 95
Top = 600
Width = 1215
End
Begin VB.Label Label8
Caption = "鼠标中键"
Height = 255
Left = 120
TabIndex = 94
Top = 240
Width = 735
End
End
End
Begin VB.Frame Frame9
Caption = "特殊组合"
Height = 1095
Left = 120
TabIndex = 85
Top = 1620
Width = 5175
Begin VB.ComboBox cmbMouseEventLeftRight
Height = 300
Left = 1920
Style = 2 'Dropdown List
TabIndex = 87
Top = 240
Width = 1755
End
Begin VB.ComboBox cmbMouseEventRightLeft
Height = 300
Left = 1920
Style = 2 'Dropdown List
TabIndex = 86
Top = 660
Width = 1755
End
Begin VB.Label Label19
Caption = "按着左键单击右键"
Height = 195
Left = 180
TabIndex = 89
Top = 300
Width = 1695
End
Begin VB.Label Label20
Caption = "按着右键单击左键"
Height = 195
Left = 180
TabIndex = 88
Top = 720
Width = 1695
End
End
End
End
Begin VB.Frame fraOption
BackColor = &H00008080&
BorderStyle = 0 'None
Caption = "插件"
Height = 4875
Index = 5
Left = -660
TabIndex = 82
Top = -540
Width = 5655
Begin VB.ListBox lstPlugin_List
Height = 1200
IntegralHeight = 0 'False
Left = 300
Style = 1 'Checkbox
TabIndex = 210
Top = 960
Width = 3255
End
Begin VB.CommandButton cmdPlugin_Apply
Caption = "应用(&O)"
Height = 360
Left = 4380
TabIndex = 196
Top = 2100
Width = 900
End
Begin VB.TextBox txtPlugin_Param
Height = 300
Left = 600
TabIndex = 194
Text = "Text3"
Top = 3480
Width = 4635
End
Begin VB.CommandButton cmdPlugin_Browse
Caption = "..."
Height = 300
Left = 4740
TabIndex = 191
Top = 3060
Width = 495
End
Begin VB.CommandButton cmdPlugin_Del
Caption = "删除(&R)"
Height = 300
Left = 4380
TabIndex = 190
Top = 1380
Width = 900
End
Begin VB.CommandButton cmdPlugin_Add
Caption = "添加(&A)"
Height = 300
Left = 4380
TabIndex = 189
Top = 1020
Width = 900
End
Begin VB.CommandButton cmdPlugin_MoveDown
Caption = "移下(&D)"
Height = 300
Left = 4380
TabIndex = 188
Top = 480
Width = 900
End
Begin VB.CommandButton cmdPlugin_MoveUp
Caption = "移上(&U)"
Height = 300
Left = 4380
TabIndex = 187
Top = 120
Width = 900
End
Begin VB.TextBox txtPlugin_Command
Height = 300
Left = 600
TabIndex = 186
Text = "Text2"
Top = 3060
Width = 4035
End
Begin VB.TextBox txtPlugin_Title
Height = 300
Left = 600
TabIndex = 185
Text = "Text1"
Top = 2640
Width = 4635
End
Begin VB.Label Label44
Caption = $"frmOption.frx":000C
Height = 795
Left = 2700
TabIndex = 198
Top = 3900
Width = 2535
End
Begin VB.Label Label43
Caption = $"frmOption.frx":004D
Height = 795
Left = 120
TabIndex = 197
Top = 3900
Width = 2235
End
Begin VB.Label Label42
Caption = "参数"
Height = 255
Left = 120
TabIndex = 195
Top = 3540
Width = 435
End
Begin VB.Label Label41
Caption = "命令"
Height = 255
Left = 120
TabIndex = 193
Top = 3120
Width = 375
End
Begin VB.Label Label40
Caption = "名称"
Height = 255
Left = 120
TabIndex = 192
Top = 2700
Width = 375
End
End
Begin VB.Frame fraOption
BackColor = &H00C00000&
BorderStyle = 0 'None
Caption = "一般"
Height = 5100
Index = 0
Left = 300
TabIndex = 1
Top = -1380
Width = 5415
Begin VB.Frame Frame16
Caption = "下载"
Height = 735
Left = 180
TabIndex = 211
Top = 3840
Width = 3975
Begin VB.ComboBox cmbDownTools
Height = 300
Left = 2100
Style = 2 'Dropdown List
TabIndex = 214
Top = 360
Width = 1815
End
Begin VB.CheckBox chkDownUseTool
Caption = "使用下载工具"
Height = 255
Left = 120
TabIndex = 213
Top = 420
Width = 1755
End
Begin VB.CheckBox chkDownShowDlg
Caption = "显示下载地址"
Height = 255
Left = 120
TabIndex = 212
Top = 180
Width = 1815
End
End
Begin VB.Frame Frame4
Caption = "全屏选项"
Height = 1995
Left = 2700
TabIndex = 172
Top = 1800
Width = 2535
Begin VB.CheckBox Check14
Caption = "隐藏状态栏"
Enabled = 0 'False
Height = 240
Left = 180
TabIndex = 179
Top = 1680
Value = 1 'Checked
Width = 1500
End
Begin VB.CheckBox Check13
Caption = "隐藏标签栏"
Enabled = 0 'False
Height = 240
Left = 180
TabIndex = 178
Top = 1440
Value = 1 'Checked
Width = 1500
End
Begin VB.CheckBox Check12
Caption = "隐藏搜索栏"
Enabled = 0 'False
Height = 195
Left = 180
TabIndex = 177
Top = 1200
Value = 1 'Checked
Width = 1500
End
Begin VB.CheckBox Check11
Caption = "隐藏小工具栏"
Enabled = 0 'False
Height = 240
Left = 180
TabIndex = 176
Top = 960
Value = 1 'Checked
Width = 1500
End
Begin VB.CheckBox Check10
Caption = "隐藏地址栏"
Enabled = 0 'False
Height = 240
Left = 180
TabIndex = 175
Top = 720
Value = 1 'Checked
Width = 1500
End
Begin VB.CheckBox Check9
Caption = "隐藏主工具栏"
Enabled = 0 'False
Height = 240
Left = 180
TabIndex = 174
Top = 480
Value = 1 'Checked
Width = 1500
End
Begin VB.CheckBox Check7
Caption = "隐藏菜单"
Enabled = 0 'False
Height = 240
Left = 180
TabIndex = 173
Top = 240
Value = 1 'Checked
Width = 1500
End
End
Begin VB.CheckBox Check4
Caption = "自动保存设置,每隔10分钟"
Enabled = 0 'False
Height = 255
Left = 180
TabIndex = 171
Top = 1440
Value = 1 'Checked
Width = 2415
End
Begin VB.CheckBox Check8
Caption = "不弹出脚本错误对话框"
Enabled = 0 'False
Height = 240
Left = 180
TabIndex = 77
Top = 840
Value = 1 'Checked
Width = 2355
End
Begin VB.CheckBox Check6
Caption = "新窗口在后面打开"
Enabled = 0 'False
Height = 240
Left = 180
TabIndex = 76
Top = 1140
Width = 2355
End
Begin VB.Frame Frame6
Caption = "下载控制"
Height = 1995
Left = 180
TabIndex = 23
Top = 1800
Width = 2415
Begin VB.CheckBox chkGDlctl
Caption = "下载ActiveX"
Height = 195
Index = 6
Left = 120
TabIndex = 80
Top = 1680
Width = 1575
End
Begin VB.CheckBox chkGDlctl
Caption = "允许JavaApplet"
Height = 195
Index = 5
Left = 120
TabIndex = 29
Top = 1440
Width = 1575
End
Begin VB.CheckBox chkGDlctl
Caption = "下载图片"
Height = 195
Index = 0
Left = 120
TabIndex = 28
Top = 240
Width = 1335
End
Begin VB.CheckBox chkGDlctl
Caption = "下载音乐"
Height = 195
Index = 1
Left = 120
TabIndex = 27
Top = 480
Width = 1335
End
Begin VB.CheckBox chkGDlctl
Caption = "下载视频"
Height = 195
Index = 2
Left = 120
TabIndex = 26
Top = 720
Width = 1335
End
Begin VB.CheckBox chkGDlctl
Caption = "允许脚本"
Height = 195
Index = 3
Left = 120
TabIndex = 25
Top = 960
Width = 1335
End
Begin VB.CheckBox chkGDlctl
Caption = "允许ActiveX"
Height = 195
Index = 4
Left = 120
TabIndex = 24
Top = 1200
Width = 1335
End
End
Begin VB.CheckBox chkSaveWhenExit
Caption = "退出保存"
Height = 195
Left = 180
TabIndex = 8
Top = 300
Width = 1215
End
Begin VB.Frame Frame1
Caption = "关闭页面"
BeginProperty Font
Name = "新宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1035
Left = 2700
TabIndex = 4
Top = 240
Width = 2535
Begin VB.CheckBox Check1
Caption = "左键双击标签"
Enabled = 0 'False
Height = 195
Left = 120
TabIndex = 7
Top = 240
Value = 1 'Checked
Width = 1815
End
Begin VB.CheckBox Check2
Caption = "Ctrl + 左键单击标签"
Enabled = 0 'False
Height = 195
Left = 120
TabIndex = 6
Top = 480
Value = 1 'Checked
Width = 2055
End
Begin VB.CheckBox Check3
Caption = "Ctrl + 右键单击页面"
Enabled = 0 'False
Height = 255
Left = 120
TabIndex = 5
Top = 720
Value = 1 'Checked
Width = 2055
End
End
Begin VB.CommandButton cmdSave
Caption = "立即保存"
Height = 375
Left = 4260
TabIndex = 3
Top = 4260
Width = 975
End
Begin VB.CheckBox Check5
Caption = "限制页面个数,15"
Enabled = 0 'False
BeginProperty Font
Name = "新宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 180
TabIndex = 2
Top = 600
Value = 1 'Checked
Width = 1695
End
End
Begin VB.Frame fraOption
BackColor = &H00008000&
BorderStyle = 0 'None
Caption = "拖拽"
Height = 4755
Index = 6
Left = 120
TabIndex = 81
Top = 900
Width = 5475
Begin VB.CheckBox chkDragLink
Caption = "开启拖拽"
Height = 240
Left = 4260
TabIndex = 159
Top = 4440
Width = 1035
End
Begin VB.CommandButton cmdDragDropTextBrowse
Caption = "..."
Height = 300
Left = 4860
TabIndex = 158
Top = 4020
Width = 435
End
Begin VB.TextBox txtDragDropTextSavePath
Height = 300
Left = 1620
TabIndex = 157
Top = 4020
Width = 3195
End
Begin VB.CommandButton cmdDragDropImageBrowse
Caption = "..."
BeginProperty Font
Name = "宋体"
Size = 7.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 4860
TabIndex = 154
Top = 3660
Width = 435
End
Begin VB.TextBox txtDragDropImageSavePath
Height = 300
Left = 1620
OLEDropMode = 1 'Manual
TabIndex = 153
Top = 3660
Width = 3195
End
Begin VB.Frame Frame13
Caption = "图像"
Height = 1095
Left = 120
TabIndex = 124
Top = 2520
Width = 5175
Begin VB.CommandButton cmdDragDropImage
Caption = "6"
BeginProperty Font
Name = "Webdings"
Size = 7.5
Charset = 2
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Index = 0
Left = 4740
TabIndex = 151
Top = 660
Width = 255
End
Begin VB.CommandButton cmdDragDropImage
Caption = "6"
BeginProperty Font
Name = "Webdings"
Size = 7.5
Charset = 2
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Index = 2
Left = 4740
TabIndex = 149
Top = 180
Width = 255
End
Begin VB.CommandButton cmdDragDropImage
Caption = "6"
BeginProperty Font
Name = "Webdings"
Size = 7.5
Charset = 2
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Index = 3
Left = 2340
TabIndex = 147
Top = 660
Width = 255
End
Begin VB.CommandButton cmdDragDropImage
Caption = "6"
BeginProperty Font
Name = "Webdings"
Size = 7.5
Charset = 2
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Index = 1
Left = 2340
TabIndex = 145
Top = 180
Width = 255
End
Begin VB.TextBox txtDragDropImage
Height = 255
Index = 0
Left = 3480
Locked = -1 'True
MousePointer = 1 'Arrow
TabIndex = 152
Top = 690
Width = 1215
End
Begin VB.TextBox txtDragDropImage
Height = 255
Index = 2
Left = 3480
Locked = -1 'True
MousePointer = 1 'Arrow
TabIndex = 150
Top = 210
Width = 1215
End
Begin VB.TextBox txtDragDropImage
Height = 255
Index = 3
Left = 1080
Locked = -1 'True
MousePointer = 1 'Arrow
TabIndex = 148
Top = 690
Width = 1215
End
Begin VB.TextBox txtDragDropImage
Height = 255
Index = 1
Left = 1080
Locked = -1 'True
MousePointer = 1 'Arrow
TabIndex = 146
Top = 210
Width = 1215
End
Begin VB.Label Label34
Caption = "向上"
Height = 300
Left = 480
TabIndex = 128
Top = 240
Width = 375
End
Begin VB.Label Label33
Caption = "向下"
Height = 300
Left = 480
TabIndex = 127
Top = 720
Width = 375
End
Begin VB.Label Label32
Caption = "向左"
Height = 300
Left = 2940
TabIndex = 126
Top = 240
Width = 375
End
Begin VB.Label Label31
Caption = "向右"
Height = 300
Left = 2940
TabIndex = 125
Top = 720
Width = 375
End
End
Begin VB.Frame Frame12
Caption = "文本"
Height = 1095
Left = 120
TabIndex = 119
Top = 1320
Width = 5175
Begin VB.CommandButton cmdDragDropText
Caption = "6"
BeginProperty Font
Name = "Webdings"
Size = 7.5
Charset = 2
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Index = 0
Left = 4740
TabIndex = 143
Top = 660
Width = 255
End
Begin VB.CommandButton cmdDragDropText
Caption = "6"
BeginProperty Font
Name = "Webdings"
Size = 7.5
Charset = 2
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Index = 2
Left = 4740
TabIndex = 141
Top = 180
Width = 255
End
Begin VB.CommandButton cmdDragDropText
Caption = "6"
BeginProperty Font
Name = "Webdings"
Size = 7.5
Charset = 2
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Index = 3
Left = 2340
TabIndex = 139
Top = 660
Width = 255
End
Begin VB.CommandButton cmdDragDropText
Caption = "6"
BeginProperty Font
Name = "Webdings"
Size = 7.5
Charset = 2
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Index = 1
Left = 2340
TabIndex = 137
Top = 180
Width = 255
End
Begin VB.TextBox txtDragDropText
Height = 255
Index = 0
Left = 3480
Locked = -1 'True
MousePointer = 1 'Arrow
TabIndex = 144
Top = 690
Width = 1215
End
Begin VB.TextBox txtDragDropText
Height = 255
Index = 2
Left = 3480
Locked = -1 'True
MousePointer = 1 'Arrow
TabIndex = 142
Top = 210
Width = 1215
End
Begin VB.TextBox txtDragDropText
Height = 255
Index = 3
Left = 1080
Locked = -1 'True
MousePointer = 1 'Arrow
TabIndex = 140
Top = 690
Width = 1215
End
Begin VB.TextBox txtDragDropText
Height = 255
Index = 1
Left = 1080
Locked = -1 'True
MousePointer = 1 'Arrow
TabIndex = 138
Top = 210
Width = 1215
End
Begin VB.Label Label30
Caption = "向上"
Height = 300
Left = 480
TabIndex = 123
Top = 240
Width = 375
End
Begin VB.Label Label29
Caption = "向下"
Height = 240
Left = 480
TabIndex = 122
Top = 720
Width = 375
End
Begin VB.Label Label28
Caption = "向左"
Height = 300
Left = 2940
TabIndex = 121
Top = 240
Width = 375
End
Begin VB.Label Label27
Caption = "向右"
Height = 240
Left = 2940
TabIndex = 120
Top = 720
Width = 375
End
End
Begin VB.Frame Frame10
Caption = "链接"
Height = 1095
Left = 120
TabIndex = 114
Top = 120
Width = 5175
Begin VB.CommandButton cmdDragDropLink
Caption = "6"
BeginProperty Font
Name = "Webdings"
Size = 7.5
Charset = 2
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Index = 0
Left = 4740
TabIndex = 135
Top = 660
Width = 255
End
Begin VB.CommandButton cmdDragDropLink
Caption = "6"
BeginProperty Font
Name = "Webdings"
Size = 7.5
Charset = 2
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Index = 2
Left = 4740
TabIndex = 133
Top = 180
Width = 255
End
Begin VB.CommandButton cmdDragDropLink
Caption = "6"
BeginProperty Font
Name = "Webdings"
Size = 7.5
Charset = 2
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Index = 3
Left = 2340
TabIndex = 131
Top = 660
Width = 255
End
Begin VB.CommandButton cmdDragDropLink
Caption = "6"
BeginProperty Font
Name = "Webdings"
Size = 7.5
Charset = 2
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Index = 1
Left = 2340
TabIndex = 130
Top = 180
Width = 255
End
Begin VB.TextBox txtDragDropLink
Height = 255
Index = 0
Left = 3480
Locked = -1 'True
MousePointer = 1 'Arrow
TabIndex = 136
Top = 690
Width = 1215
End
Begin VB.TextBox txtDragDropLink
Height = 255
Index = 2
Left = 3480
Locked = -1 'True
MousePointer = 1 'Arrow
TabIndex = 134
Top = 210
Width = 1215
End
Begin VB.TextBox txtDragDropLink
Height = 255
Index = 3
Left = 1080
Locked = -1 'True
MousePointer = 1 'Arrow
TabIndex = 132
Top = 690
Width = 1215
End
Begin VB.TextBox txtDragDropLink
Height = 255
Index = 1
Left = 1080
Locked = -1 'True
MousePointer = 1 'Arrow
TabIndex = 129
Top = 210
Width = 1215
End
Begin VB.Label Label26
Caption = "向右"
Height = 240
Left = 2940
TabIndex = 118
Top = 720
Width = 375
End
Begin VB.Label Label25
Caption = "向左"
Height = 300
Left = 2940
TabIndex = 117
Top = 240
Width = 375
End
Begin VB.Label Label24
Caption = "向下"
Height = 240
Left = 480
TabIndex = 116
Top = 720
Width = 375
End
Begin VB.Label Label23
Caption = "向上"
Height = 300
Left = 480
TabIndex = 115
Top = 240
Width = 375
End
End
Begin VB.Label Label35
Caption = "文本自动保存路径"
Height = 195
Left = 120
TabIndex = 156
Top = 4080
Width = 1455
End
Begin VB.Label Label2
Caption = "图像自动保存路经"
Height = 255
Left = 120
TabIndex = 155
Top = 3720
Width = 1455
End
End
Begin VB.Frame fraOption
BackColor = &H00C000C0&
BorderStyle = 0 'None
Caption = "页面规则"
Height = 4800
Index = 3
Left = -1320
TabIndex = 10
Top = -60
Visible = 0 'False
Width = 5535
Begin VB.TextBox txtPageRuleUrls
Height = 1920
Left = 2160
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 49
Text = "frmOption.frx":00A4
Top = 120
Width = 3255
End
Begin VB.CheckBox chkPageRuleEnable
Caption = "开启页面规则"
Height = 300
Left = 2640
TabIndex = 78
Top = 4380
Width = 1455
End
Begin VB.CommandButton cmdPageRuleMoveDown
Caption = "下移"
Height = 300
Left = 60
TabIndex = 73
Top = 1200
Width = 615
End
Begin VB.CommandButton cmdPageRuleMoveUp
Caption = "上移"
Height = 300
Left = 60
TabIndex = 72
Top = 840
Width = 615
End
Begin VB.TextBox txtPageRuleTitle
Height = 270
Left = 720
TabIndex = 48
Text = "Text4"
Top = 2160
Width = 1335
End
Begin VB.CommandButton cmdPageRuleDel
Caption = "删除"
Height = 300
Left = 60
TabIndex = 71
Top = 480
Width = 615
End
Begin VB.CommandButton cmdPageRuleAdd
Caption = "添加"
Height = 300
Left = 60
TabIndex = 47
Top = 120
Width = 615
End
Begin VB.OptionButton optPageRuleType
Caption = "方式2"
Height = 255
Index = 1
Left = 1080
TabIndex = 69
Top = 4320
Width = 855
End
Begin VB.OptionButton optPageRuleType
Caption = "方式1"
Height = 255
Index = 0
Left = 120
TabIndex = 68
Top = 4320
Width = 855
End
Begin VB.CommandButton cmdPageRuleOk
Caption = "确认修改"
Height = 300
Left = 4200
TabIndex = 70
Top = 4380
Width = 1215
End
Begin VB.ListBox lstPageRuleList
Height = 1920
IntegralHeight = 0 'False
Left = 720
Style = 1 'Checkbox
TabIndex = 12
Top = 120
Width = 1335
End
Begin VB.Frame fraPageRuleType
Caption = "方式1: 页面属性"
Height = 1575
Index = 0
Left = 90
TabIndex = 50
Top = 2640
Width = 5295
Begin VB.CheckBox chkPageRuleOpenNew
Caption = "总是在新窗口打开"
Height = 255
Left = 3240
TabIndex = 60
Top = 840
Width = 1815
End
Begin VB.CheckBox chkPageRuleForceChange
Caption = "强制"
Height = 255
Left = 4320
TabIndex = 62
Top = 1200
Width = 735
End
Begin VB.ComboBox cmbPageRuleAuitpPrv
Height = 300
Left = 4080
Style = 2 'Dropdown List
TabIndex = 59
Top = 360
Width = 975
End
Begin VB.Frame Frame5
Caption = "下载控制"
Height = 1215
Left = 120
TabIndex = 52
Top = 300
Width = 3015
Begin VB.CheckBox chkPageRuleDlctl
Caption = "允许JavaApplet"
Height = 210
Index = 5
Left = 1320
TabIndex = 58
Top = 840
Width = 1575
End
Begin VB.CheckBox chkPageRuleDlctl
Caption = "下载图片"
Height = 210
Index = 0
Left = 120
TabIndex = 53
Top = 360
Width = 1095
End
Begin VB.CheckBox chkPageRuleDlctl
Caption = "下载音乐"
Height = 210
Index = 1
Left = 120
TabIndex = 54
Top = 600
Width = 1095
End
Begin VB.CheckBox chkPageRuleDlctl
Caption = "下载视频"
Height = 210
Index = 2
Left = 120
TabIndex = 55
Top = 840
Width = 1095
End
Begin VB.CheckBox chkPageRuleDlctl
Caption = "允许脚本"
Height = 210
Index = 3
Left = 1320
TabIndex = 56
Top = 360
Width = 1335
End
Begin VB.CheckBox chkPageRuleDlctl
Caption = "允许ActiveX"
Height = 210
Index = 4
Left = 1320
TabIndex = 57
Top = 600
Width = 1335
End
End
Begin VB.CheckBox chkPageRuleInherit
Caption = "继承"
Enabled = 0 'False
Height = 300
Left = 3240
TabIndex = 61
Top = 1200
Width = 735
End
Begin VB.Label Label11
Caption = "自动过滤"
Height = 255
Left = 3240
TabIndex = 63
Top = 360
Width = 855
End
End
Begin VB.Frame fraPageRuleType
Caption = "方式2: 调用外部程序"
Height = 1575
Index = 1
Left = 90
TabIndex = 51
Top = 2640
Visible = 0 'False
Width = 5295
Begin VB.CommandButton cmdPageRuleBrowse
Caption = "..."
Height = 300
Left = 4680
TabIndex = 79
Top = 540
Width = 450
End
Begin VB.TextBox txtPageRuleParam
Height = 300
Left = 120
TabIndex = 65
Text = "Text3"
Top = 1200
Width = 5055
End
Begin VB.TextBox txtPageRuleExepath
Height = 300
Left = 120
TabIndex = 64
Text = "Text2"
Top = 540
Width = 4455
End
Begin VB.Label Label15
Caption = "参数: (%url% = 页面url)"
Height = 255
Left = 120
TabIndex = 67
Top = 960
Width = 2175
End
Begin VB.Label Label14
Caption = "路径:"
Height = 255
Left = 120
TabIndex = 66
Top = 300
Width = 735
End
End
Begin VB.Label Label17
Caption = "不同站点用分号"";""隔开,可以用通配符*"
Height = 255
Left = 2160
TabIndex = 75
Top = 2220
Width = 3255
End
Begin VB.Label Label16
Caption = "标题"
Height = 255
Left = 120
TabIndex = 74
Top = 2220
Width = 495
End
End
End
Attribute VB_Name = "frmOption"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'---------------------------------------------------------------------------------------
' Module : frmOption
' DateTime : 2005-3-14 21:01
' Author : Lingll
' Purpose : 选项窗口
'---------------------------------------------------------------------------------------
Option Explicit
'地址栏
Private mSearchUrl() As UrlSimpleInfo
Private mSearchurlCount As Long
Private WithEvents mAddBarControls As cListMove
Attribute mAddBarControls.VB_VarHelpID = -1
Private Const frameCnt& = 9
Dim mcUDScrollRate As New cUpDown
Dim mcUDScrollRate2 As New cUpDown
'Private mExToolsCount As Long
'Private mExTools() As typExTool
'
'页面规则
Private Type mTypPageRule
Title As String
Enabled 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
Private mPageRule() As mTypPageRule '下标从1开始
Private mPageRuleCnt As Long
'=========================================
'鼠标手势中4方向的表示
Private DirFlag(0 To 4) As String
'当前鼠标手势
Private mHand(0 To 2) As Byte
''拖拽菜单
'Private mDragDropMenu As cPopMenu
''"替换"的子菜单
'Private mDragDropMenu2 As cPopMenu
Private mLoading As Boolean
'"搜索"
Private mSearchEgnCount As Long
Private mSearchEgn() As UrlSimpleInfo 'begin from 1
'mul"搜索"
Private mMulSearch() As typMulSearchEngine
Private mMulSearchCount As Long
'插件
Private Type mTypePlugindata
Title As String
Command As String
Param As String
VisInMenu As Boolean
End Type
Private WithEvents mPluginControls As cListMove
Attribute mPluginControls.VB_VarHelpID = -1
Private mPlugins() As mTypePlugindata
Private mPluginCnt&
'插件,sideband
Private mPlugins_SideBand() As mTypePlugindata
Private mPlugins_SBCnt As Long
'收藏夹选项(数据)
Private m_FavoriteUseDefaultPath& '是否用ie默认路径
Private m_FavoriteCustomPath$ '自定义的路径
Private m_FavoriteSinglLineMenu& '单列菜单
Private m_FavoriteShowHidden& '显示隐藏文件
'common controls
'main tab
Private WithEvents m_cTabMain As cTabControl32
Attribute m_cTabMain.VB_VarHelpID = -1
'mouse tab
Private WithEvents m_cTabMouse As cTabControl32
Attribute m_cTabMouse.VB_VarHelpID = -1
'search egn lvw
Private WithEvents m_cLvwSearchBar As cSysListView32
Attribute m_cLvwSearchBar.VB_VarHelpID = -1
Private m_Sch_ChangeLock As Boolean
'mouse hand lvw
Private WithEvents m_cLvwMouseHand As cSysListView32
Attribute m_cLvwMouseHand.VB_VarHelpID = -1
'plugin tab
Private WithEvents m_cTabPluginTypes As cTabControl32
Attribute m_cTabPluginTypes.VB_VarHelpID = -1
Private Sub chkDownShowDlg_Click()
gShowDownDlg = chkDownShowDlg.Value
End Sub
Private Sub chkDownUseTool_Click()
gUseDownTool = chkDownUseTool.Value
cmbDownTools.Enabled = (gUseDownTool = 1)
End Sub
Private Sub chkDragLink_Click()
EnableDragLink = chkDragLink.Value
End Sub
Private Sub chkFavorite_Showhidden_Click()
m_FavoriteShowHidden = chkFavorite_Showhidden.Value
End Sub
Private Sub chkFavorite_SinglLine_Click()
m_FavoriteSinglLineMenu = chkFavorite_SinglLine.Value
End Sub
Private Sub chkFliterEnable_Click()
EnableUrlFilter = chkFliterEnable.Value
End Sub
Private Sub chkGDlctl_Click(index As Integer)
Dim tValue As Boolean
tValue = (chkGDlctl(index).Value = 1)
Select Case index
Case 0
gDL_Image = tValue
Case 1
gDL_BgSound = tValue
Case 2
gDL_Video = tValue
Case 3
gDL_Script = tValue
Case 4
gDL_ActiveX = tValue
Case 5
gDL_JavaApplet = tValue
Case 6
gDl_DlActiveX = tValue
End Select
End Sub
Private Sub chkInvertDir_Click()
RollInvert = chkInvertDir.Value
End Sub
Private Sub chkPageRuleDlctl_Click(index As Integer)
Dim tIndex&
Dim tValue As Boolean
tIndex = lstPageRuleList.ListIndex
If tIndex >= 0 Then
' If chkPageRuleDlctl(index).Value = 1 Then
' tValue = True
' Else
' tValue = False
' End If
tValue = (chkPageRuleDlctl(index).Value = 1)
With mPageRule(tIndex + 1)
Select Case index
Case 0
.DL_Image = tValue
Case 1
.DL_BgSound = tValue
Case 2
.DL_Video = tValue
Case 3
.DL_Script = tValue
Case 4
.DL_ActiveX = tValue
Case 5
.DL_JavaApplet = tValue
End Select
End With
End If
End Sub
Private Sub chkPageRuleEnable_Click()
gEnablePageRule = chkPageRuleEnable.Value
End Sub
Private Sub chkPageRuleForceChange_Click()
Dim tIndex&
tIndex = lstPageRuleList.ListIndex
If tIndex >= 0 Then
mPageRule(tIndex + 1).ForceChange = _
(chkPageRuleForceChange.Value = 1)
End If
End Sub
Private Sub chkPageRuleInherit_Click()
Dim tIndex&
tIndex = lstPageRuleList.ListIndex
If tIndex >= 0 Then
mPageRule(tIndex + 1).Inherit = _
(chkPageRuleInherit.Value = 1)
End If
End Sub
Private Sub chkPageRuleOpenNew_Click()
Dim tIndex&
tIndex = lstPageRuleList.ListIndex
If tIndex >= 0 Then
mPageRule(tIndex + 1).AllwaysOpenNew = _
(chkPageRuleOpenNew.Value = 1)
End If
End Sub
'Private Sub chkPvnPop_Click()
'PreventPopWindow = chkPvnPop.Value
'Dim tFm As Form
'For Each tFm In Forms
' If TypeOf tFm Is frmBrowser Then
' tFm.mPvnPop = PreventPopWindow
' End If
'Next
'End Sub
Private Sub chkSaveWhenExit_Click()
SaveWhenExit = chkSaveWhenExit.Value
End Sub
Private Sub cmbDownTools_Click()
gDownToolIndex = cmbDownTools.ListIndex + 1
End Sub
Private Sub cmbMouseEventLeftRight_Click()
mouse_event_leftright.InsideIndex = cmbMouseEventLeftRight.ListIndex
End Sub
Private Sub cmbMouseEventRightLeft_Click()
mouse_event_rightleft.InsideIndex = cmbMouseEventRightLeft.ListIndex
End Sub
Private Sub cmbMouseHandEventList_Click()
Dim tItem&
Dim tObj As cCallByName
tItem = m_cLvwMouseHand.GetNextItem(-1, LVNI_SELECTED)
If tItem >= 0 Then
Set tObj = MouseHand.GetCallObject_ByIndex(tItem + 1)
If Not tObj Is Nothing Then
If tObj.InsideIndex = tObj.GetPluginIndex Then
tObj.PluginIndex = cmbMouseHandEventList.ListIndex + 1
m_cLvwMouseHand.SetItemText tObj.EventText, tItem, 1
Else
tObj.InsideIndex = cmbMouseHandEventList.ListIndex
m_cLvwMouseHand.SetItemText tObj.EventText, tItem, 1
End If
End If
End If
'Dim tItem As MSComctlLib.ListItem
'Dim tObj As cCallByName
'Set tItem = lvwMouseHand.SelectedItem
'If Not tItem Is Nothing Then
' Set tObj = MouseHand.GetCallObject_ByIndex(tItem.index)
' If Not tObj Is Nothing Then
' Debug.Print tObj.InsideIndex = tObj.GetPluginIndex ' GetScriptIndex
' 'If tObj.InsideIndex = tObj.GetScriptIndex Then
' If tObj.InsideIndex = tObj.GetPluginIndex Then
' 'tObj.ScriptIndex = cmbMouseHandEventList.ListIndex + 1
' tObj.PluginIndex = cmbMouseHandEventList.ListIndex + 1
' tItem.SubItems(1) = tObj.EventText
' Else
' tObj.InsideIndex = cmbMouseHandEventList.ListIndex
' tItem.SubItems(1) = tObj.EventText
' End If
' Debug.Print tObj.EventText
' End If
'End If
End Sub
Private Sub cmbMouseHandEventType_Click()
Dim tItem&
Dim tObj As cCallByName
tItem = m_cLvwMouseHand.GetNextItem(-1, LVNI_SELECTED)
If tItem >= 0 Then
Set tObj = MouseHand.GetCallObject_ByIndex(tItem + 1)
If Not tObj Is Nothing Then
Select Case cmbMouseHandEventType.ListIndex
Case 0
If tObj.InsideIndex = tObj.GetPluginIndex Then
Call ShowInCombo_Order
tObj.InsideIndex = 0
m_cLvwMouseHand.SetItemText tObj.EventText, tItem, 1
cmbMouseHandEventList.ListIndex = tObj.InsideIndex
End If
Case 1
If tObj.InsideIndex <> tObj.GetPluginIndex Then
Call ShowInCombo_Plugin
tObj.InsideIndex = 100
If gPluginCnt > 0 Then
tObj.PluginIndex = 1
Else
tObj.PluginIndex = 0
End If
cmbMouseHandEventList.ListIndex = tObj.PluginIndex - 1
m_cLvwMouseHand.SetItemText tObj.EventText, tItem, 1
End If
End Select
End If
End If
'Dim tItem As MSComctlLib.ListItem
'Dim tObj As cCallByName
'Set tItem = lvwMouseHand.SelectedItem
'If Not tItem Is Nothing Then
' Set tObj = MouseHand.GetCallObject_ByIndex(tItem.index)
' If Not tObj Is Nothing Then
' Select Case cmbMouseHandEventType.ListIndex
' Case 0
' 'If tObj.InsideIndex = tObj.GetScriptIndex Then
' If tObj.InsideIndex = tObj.GetPluginIndex Then
' Call ShowInCombo_Order
' tObj.InsideIndex = 0
' tItem.SubItems(1) = tObj.EventText
' cmbMouseHandEventList.ListIndex = tObj.InsideIndex
' End If
' Case 1
' 'If tObj.InsideIndex <> tObj.GetScriptIndex Then
' If tObj.InsideIndex <> tObj.GetPluginIndex Then
' 'Call ShowInCombo_Script
' Call ShowInCombo_Plugin
' tObj.InsideIndex = 100 ' tObj.GetScriptIndex
' If gPluginCnt > 0 Then
' tObj.PluginIndex = 1
' Else
' tObj.PluginIndex = 0
' End If
'' If gScriptCnt > 0 Then
'' tObj.ScriptIndex = 1
'' Else
'' tObj.ScriptIndex = 0
'' End If
' 'cmbMouseHandEventList.ListIndex = tObj.ScriptIndex - 1
' cmbMouseHandEventList.ListIndex = tObj.PluginIndex - 1
' Debug.Print tObj.InsideIndex
' tItem.SubItems(1) = tObj.EventText
' End If
' End Select
' End If
'End If
End Sub
Private Sub cmbPageRuleAuitpPrv_Click()
Dim tIndex&
tIndex = lstPageRuleList.ListIndex
If tIndex >= 0 Then
mPageRule(tIndex + 1).AutoPreventPop = cmbPageRuleAuitpPrv.ListIndex
End If
End Sub
Private Sub cmbSearchbarMulegn_Click()
Dim tIndex&, i&
tIndex = cmbSearchbarMulegn.ListIndex + 1
With mMulSearch(tIndex)
If mSearchEgnCount > .Count Then
.Count = mSearchEgnCount
ReDim Preserve .UseMul(0 To .Count)
End If
For i = 1 To .Count
'lvwSearchBar.ListItems(i).Checked = .UseMul(i)
Call m_cLvwSearchBar.CheckItem(.UseMul(i), i - 1)
Next i
End With
End Sub
Private Sub cmdAddFliter_Click()
Dim i&, cnt&
Dim tstr$, canAdd As Boolean
canAdd = True
tstr = LCase(Trim$(txtAddFliter.Text))
If tstr <> "" Then
cnt = lstFliterList.ListCount
For i = 0 To cnt - 1
If tstr = lstFliterList.List(i) Then
canAdd = False
Exit For
End If
Next i
If canAdd Then lstFliterList.AddItem tstr
Call Show_Listbox_HScrollebar(lstFliterList)
End If
End Sub
Private Sub cmdDelFliter_Click()
On Error Resume Next
If lstFliterList.ListIndex >= 0 Then
lstFliterList.RemoveItem lstFliterList.ListIndex
lstFliterList.ListIndex = 0
End If
Call Show_Listbox_HScrollebar(lstFliterList)
End Sub
Private Sub cmdDragDropImageBrowse_Click()
Dim newFolder As String
Call BrowseForFolder(newFolder, , Me.hWnd)
If newFolder <> "" Then
txtDragDropImageSavePath.Text = newFolder
End If
End Sub
Private Sub cmdDragDropImage_Click(index As Integer)
Call ChangeDragDropSetup(txtDragDropImage(index), gDDEventImage(index))
End Sub
Private Sub cmdDragDropLink_Click(index As Integer)
Call ChangeDragDropSetup(txtDragDropLink(index), gDDEventLink(index))
End Sub
Private Sub cmdDragDropText_Click(index As Integer)
Call ChangeDragDropSetup(txtDragDropText(index), gDDEventText(index))
End Sub
Private Sub cmdDragDropTextBrowse_Click()
Dim newFolder As String
Call BrowseForFolder(newFolder, , Me.hWnd)
If newFolder <> "" Then
txtDragDropTextSavePath.Text = newFolder
End If
End Sub
Private Sub cmdEditFilter_Click()
Dim tstr$
If lstFliterList.SelCount > 0 Then
tstr = Trim$(LCase(txtAddFliter.Text))
If tstr <> "" Then
lstFliterList.List(lstFliterList.ListIndex) = tstr
End If
End If
End Sub
Private Sub cmdFavorite_Apply_Click()
If m_FavoriteUseDefaultPath = 0 Then
If Not FileExist(m_FavoriteCustomPath, False) Then
m_FavoriteUseDefaultPath = 1
optFavorite_Path_Default.Value = True
MsgBox "路径不存在,改为使用ie默认", vbInformation Or vbOKOnly
End If
End If
gFavoriteUseDefaultPath = m_FavoriteUseDefaultPath
gFavoriteCustomPath = m_FavoriteCustomPath$
gFavoriteSinglLineMenu = m_FavoriteSinglLineMenu
gFavoriteShowHidden = m_FavoriteShowHidden
Call gMainForm.RefreshFavorite
End Sub
Private Sub cmdFavorite_Browse_Click()
Dim newFolder As String
Call BrowseForFolder(newFolder, , Me.hWnd)
If newFolder <> "" Then
txtFavorite_Path.Text = newFolder
End If
End Sub
'Private Sub cmdExtoolAdd_Click()
'mExToolsCount = mExToolsCount + 1
'ReDim Preserve mExTools(0 To mExToolsCount)
'With mExTools(mExToolsCount)
' .Caption = "New"
' .Param = ""
' .path = ""
' lvwExtoolListall.ListItems.Add , , .Caption
'End With
'lvwExtoolListall.ListItems(mExToolsCount).Selected = True
'Call ClickExtoolItem(mExToolsCount)
'End Sub
'Private Sub cmdExtoolBrowse_Click()
'Dim tOpen As OpenSaveDlg
'Set tOpen = New OpenSaveDlg
'With tOpen
' .Filter = "*.exe|*.exe|*.*|*.*"
' If .ShowOpen(Me.hwnd) Then
' txtExtoolPath.Text = .FileName
' End If
'End With
'
'End Sub