目    录
 
第一节 测绘程序设计的意义
 
第二节 程序设计语言的发展
 
第三节 测绘程序设计语言的选择

    用VB自动关闭网页广告窗口
 
经常上网冲浪的人，在打开网页的时候经常遇到同时弹出多个广告窗口的情况，不但影响视线，还会影响网速。如果用鼠标一个个关闭，实在很麻烦。我经过观察分析，找到了解决的办法，可以让你的屏幕从此清爽起来。
 
     网页广告分析：
 
    1.弹出的广告窗口
         网页中弹出的广告窗口都是用JS或VBS编写的脚本程序，每个广告窗口都有自已的URL地址，只要获取所有的IE窗口的URL地址，再把其中的广告窗口的URL地址记录下来保存到文本文件中，并且关闭这个窗口，就达到了自动关闭广告的目的。
     2.Flash广告窗口
         有些广告是FLASH动画，只要获得窗口句柄，关闭类名为“MacromediaFlashPlayerActiveX”的FLASH播放控件，就可以关闭这些FLASH广告了。
         编程原理：通过设置定时器定时搜索，根据IE的程序名判断是否有IE窗口打开，如发现再进一步判断打开的IE的URL的地址是否与记录在列表框中的一致，如相同就关闭它。由于不涉及窗口的类名，无论是IE的各个版本都可以使用。至于网页中的FLASH则是通过“FindWindowEx”函数来一层层的查找打开网页窗口的“MacromediaFlashPlayerActiveX”类名（IE窗口的各个类名是通过工具软件“SPY++”可以获得），并返回窗口句柄，再用“SendMessage”消息函数发送消息关Flash广告窗口。
 
    程序设计：
 
    新建一个工程，添加一个窗体和控件。
     1.建立一个用来控制图标在系统托盘的模块“Module1”，相关代码见后文下载地址。
     2.程序主窗口的部分代码如下：
     Private Sub cmdRightOne_Click()'向黑名单列表中添加网址，cmdLeftOne的代码与此雷同，详见程序源代码
       On Error Resume Next
       Dim i As Integer
       If lstAll.ListCount = 0 Then Exit Sub
       If lstAll.Text = "" Then Exit Sub
       lstSelected.AddItem lstAll.Text
       i = lstAll.ListIndex
       lstAll.RemoveItem lstAll.ListIndex
       If lstAll.ListCount > 0 Then
         If i > lstAll.ListCount - 1 Then
           lstAll.ListIndex = i - 1
         Else
           lstAll.ListIndex = i
         End If
       End If
       lstSelected.ListIndex = lstSelected.NewIndex
     End Sub
 
    Private Sub closeflash()'关闭flash动画
     On Error GoTo callerrora
     Dim sclassname As String
     Dim windowhandle As Long
     Dim lhwnd As Long
     Dim a As Long
     lhwnd = 0
     sclassname = ("IEFrame")
     lhwnd = FindWindowEx(lhwnd, 0, sclassname, vbNullString)
     sclassname = ("Shell DocObject View")
     lhwnd = FindWindowEx(lhwnd, 0, sclassname, vbNullString)
     sclassname = ("Internet Explorer_server")
     lhwnd = FindWindowEx(lhwnd, 0, sclassname, vbNullString)
     sclassname = ("MacromediaFlashPlayerActiveX")
     lhwnd = FindWindowEx(lhwnd, 0, sclassname, vbNullString)
     windowhandle = lhwnd
     If windowhandle <> 0 Then
     a = SendMessage(windowhandle, WM_CLOSE, 0, 0)
     End If
     Exit Sub
     callerrora:
     MsgBox Err.Description
     Err.Clear
     End Sub
 
    Private Sub filter()'过滤黑名单中的广告链接
     Dim objIE As Object
     Dim i As Integer
     On Error Resume Next
     For Each objIE In dWinFolder '遍历所有IE浏览器窗口
     If InStr(1, objIE.FullName, "IEXPLORE.EXE", vbTextCompare) <> 0 Then
     For i = 1 To lstSelected.ListCount - 1
     If objIE.LocationURL = Trim(lstSelected.List(i)) Then
      objIE.Quit
     Exit For
     End If
     Next i
     End If
     Next
     objIE = Nothing
     End Sub
     代码输入完毕，按F5运行一下吧（如图）！然后在IE中打开一个含有多个广告窗口的网页看一下效果如何，只要单击托盘图标调出程序，按“刷新”按钮就会在左边栏中列出所有的URL地址，把广告窗口的URL地址添加到右边的黑名单中，“确定”后以后就会自动关闭这个广告窗口了。如果想浏览它，再把它从黑名单中删除即可。也可以在托盘图标的右键菜单中，控制功能的开/关。
     本程序在Windows 98（IE6.0）和VB6.0企业版下调试通过
 
==========================================================================
 
vb实现的是更改代理ip  
 
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long 
 Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long 
 Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long ' Note that if you declare the lpData parameter as String, you must pass it By Value. 
 Private Const REG_DWORD As Long = 4 
 Private Const REG_SZ = 1 
 Private Const HKEY_CURRENT_USER = &H80000001 


 Private Sub SetSurrogate(address As String, Port As String) '设置代理服务器的地址跟端口 
 Dim str As String 
 Dim SubKey As String 
 Dim hKey As Long 

 str = Trim(address) & ":" & Trim(Port) 
 SubKey = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\" 
 RegCreateKey HKEY_CURRENT_USER, SubKey, hKey 
 RegSetValueEx hKey, "ProxyServer", 0, REG_SZ, ByVal str, LenB(StrConv(str, vbFromUnicode)) + 1 
 RegCloseKey hKey 
 End Sub 

 Private Sub SetEnable() 
 Dim SubKey As String 
 Dim hKey As Long 

 SubKey = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\" 
 RegCreateKey HKEY_CURRENT_USER, SubKey, hKey 
 RegSetValueEx hKey, "ProxyEnable", 0, REG_DWORD, 1&, 4 
 RegCloseKey hKey 
 End Sub 

 Private Sub SetDisable() 
 Dim SubKey As String 
 Dim hKey As Long 

 SubKey = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\" 
 RegCreateKey HKEY_CURRENT_USER, SubKey, hKey 
 RegSetValueEx hKey, "ProxyEnable", 0, REG_DWORD, 0&, 4 
 RegCloseKey hKey 
 End Sub 



 Private Sub Command1_Click()'使代理服务器可用 
 SetSurrogate "192.168.1.199", "200" 
 SetEnable 
 End Sub 

 Private Sub Command2_Click()'使代理服务器不可用 
 SetDisable 
 End Sub
 
========================================================================================
 
vb 操作 iframe
 
为什么写这个？
 
1.操作跨域框架。这个资料很难得，我在网上苦苦找了一个星期。以前研究BHO的时候，也是找了好久的。留此存照。在vb吧提问如何取得跨域框架的控制权，仅有一个人对此关注，并且说很简单，直接分析源代码，或者用DOM等...恩，现在的vb吧确实很少有深刻的内容了。
 
2.了解IE编程知识。本以为通过一次BHO编程，已经了解一些IE编程技巧了，结果这次写这个程序，又辛苦找了十来天的资料。现在看来，自己果然无知。懂得越多，越觉得自己无知。
 
下面是代码
 
 
 
'需要引用Microsoft Html Object Library，Edanmo's Ole interfaces 1.81 ，Microsoft Internet Controls
 '其中，Edanmo's Ole interfaces 1.81是Edanmo写的OLELIB.TLB，请自己在网上搜索下载
 
'声明一个全局变量数组IframeIE，用来保存网页框架的操作对象；至少我是这么操作的，当然有更好的办法请指教cnoldjohn嬷嬷茶
 

 Private IframeIE() As SHDocVw.WebBrowser
 
'下面代码的核心是修改自MVP Edanmo的大作
 '枚举框架，参数WB是一个webbrowser控件的名称，其中承载着我们要分析的页面
 Sub EnumFrames(ByVal WB As WebBrowser)
 Dim j As Integer
 Dim pContainer As olelib.IOleContainer
 Dim pEnumerator As olelib.IEnumUnknown
 Dim pUnk As olelib.IUnknown 
 '获得页面的Document接口，然后我们就可以对其为所欲为了
 Set pContainer = WB.Object.Document
 '很奇怪，有时候上面这段对象赋值出错，用下面这句就没有问题了
 'Set pContainer = WB.Document
 If pContainer.EnumObjects(OLECONTF_EMBEDDINGS, pEnumerator) = 0 Then
 Set pContainer = Nothing
 Do While pEnumerator.Next(1, pUnk) = 0
 On Error Resume Next 
 If Err.Number = 0 Then
 '将框架页面依次赋值到IframeIE数组中
 ReDim Preserve IframeIE(0 To j)
 Set IframeIE(j) = pUnk 
 j = j + 1
 End If
 Loop
 Set pEnumerator = Nothing
 End If
 End Sub
 
以上这段代码的神奇之处在于可以跨域操作框架。

实现功能
 

 用户密码验证登录，按键识别。
 

 
 
 

 窗体1：两个标签，两个文本框，两个按钮。窗体2：一个文本框
 

 
 
 

 
 
 
 

 窗体1代码
 

 窗口名称Form1，标签1，2分别为Lbl1，Lbl2，确定，取消按钮为，cmd1，cmd2，用户名文本框和密码文本框为txt1，txt2
 

 
Private Sub Cmd1_Click() '确定按钮鼠标单击事件代码
 If txt1.Text = "user" Then '若用户名文本框输入正确
    Txt2.SetFocus '密码文本框激活
 ElseIf txt1.Text <> "user" Then '若用户名文本框输入不正确
     MsgBox "请输入正确的用户名！", vbOKOnly + vbInformation, "注意" '显示警告窗口
 End If
 If Txt2.Text = "123456" Then '若密码文本框输入正确
   Form1.Hide '窗体1隐藏
   Form2.Show '窗体2显示
ElseIf Txt2.Text <> "123456" Then '若密码文本框输入不正确
   MsgBox "请输入正确的密码！", vbOKOnly + vbInformation, "注意" '显示警告窗口
 End If
End Sub
Private Sub Cmd2_Click() '取消按钮鼠标单击事件代码
  End '退出程序
End Sub
Private Sub Form_Load() '窗体1加载事件代码
  Form2.Show '窗体2显示
  Form1.Show 1 '窗体1为模式窗体，即始终位于窗体2前面
End Sub

窗体2代码
 

 
 
 

 窗体2窗体名称Form2，文本框名称Txt
 

 
Private Sub Form_Click() '窗体2的鼠标单击事件代码
  Form2.BackColor = RGB(0, 255, 0) '将窗体2的背景色设置为绿色
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) '窗体2的KeyDown事件代码
  Dim ShiftDown, AltDown, CtrlDown '定义变量
  Dim Txt As String '定义变量
  ShiftDown = (Shift And vbShiftMask) > 0 '
  AltDown = (Shift And vbAltMask) > 0 '
  CtrlDown = (Shift And vbCtrlMask) > 0 '
  If KeyCode >= 48 And KeyCode <= 105 Then '设置键代码范围以显示字母和数字
     If ShiftDown And AltDown And CtrlDown Then '若Shift、Alt、Ctrl键被同时按下
        Txt = "Shif+Alt+Ctrl" '为Txt赋值
     ElseIf ShiftDown And AltDown Then '若Shift、Alt键被同时按下
        Txt = "Shif+Alt" '为Txt赋值
     ElseIf ShiftDown And CtrlDown Then '若Shift、Ctrl键被同时按下
        Txt = "Shif+Ctrl" '为Txt赋值
     ElseIf CtrltDown And AltDown Then '若Alt、Ctrl键被同时按下
        Txt = "Ctrl+Alt" '为Txt赋值
     ElseIf ShiftDown Then '若Shift键被同时按下
        Txt = "Shif" '为Txt赋值
     ElseIf AltDown Then '若Alt键被同时按下
        Txt = "Alt" '为Txt赋值
     ElseIf CtrlDown Then '若Ctrl键被同时按下
        Txt = "Ctrl" '为Txt赋值
     ElseIf Shift = 0 Then '若三键均未被按下
        Txt = "" '为Txt赋值
     End If
     Txt = Txt + Chr(KeyCode) '为Txt赋值为键代码对应的字符
     txt1.Text = "您按下了" + Txt '显示用户按下的键
  End If
End Sub

Private Sub Form_Load() '窗体2装载事件代码
Form2.KeyPreview = True '允许窗体响应键盘事件
txt1.Text = "" '设置标签的属性
End Sub

Private Sub Form_Resize() '窗体Resize事件代码
  txt1.Move Form1.Width / 2 - 800, Form1.Height / 2 - 400, 1600, 400 '设置标签的位置
End Sub
 
 
 
 
 
 
 

 
 
 

 
 
 

 
 
 

 
 
 

 
 
 

 
 
 

 
 
 

 
 
 

 
 
 

 
 
 

 
 
 

 
 
 

 
 
 

 
 
 

 
 
 

 
 
 

 
 
 

 
 
 

 
 

菜单程序设计
 
为什么要学菜单？菜单重要吗？
 windows环境下，所有的应用软件都是通过菜单实现各种操作的。？？你说重要不重要？？
 对于复杂的操作，菜单具有明显的优势。
 菜单的作用
 - 提供人机对话的界面。 让使用者可以通过菜单使用应用程序的各种功能、
 - 管理应用系统，控制各种功能模块的运行
 高质量的菜单程序，不单可以让系统美观，还可以让操作者使用方便
 菜单是什么？
 菜单可以分为下拉式菜单，和弹出式菜单。
 下拉式菜单长什么样？
 是最典型的窗口式菜单。窗口是指屏幕上一个特定的矩形区域，
 文字描述：
 他可以在屏幕上出现，也可以重新显示在屏幕上，各个窗口允许覆盖，下拉式窗口 从上到下 在屏幕上下拉 一个个 窗口来供用户选择或者输入信息。
 就是这玩意
 弹出式菜单长什么样？
 往下看。
 vb中的菜单的理解？
 把每个菜单项，看作是一个图形对象，（控件）， 具有和某些控件相同的属性
 
可视语言中，菜单的设计要简单，vb中菜单通过菜单编辑器来建立，
 认识一下菜单编辑器
 
 怎么出现这个菜单编辑器？
 
工具-----》菜单编辑器
crtl + e
工具栏----》菜单编辑器
窗体右键--------弹出菜单选择菜单编辑器
 菜单编辑器的结构是什么？
 菜单编辑器可以分为数据区，编辑区，菜单显示区
 数据区可以 修改菜单项，设置属性
 编辑区 是 那7个按钮，用来对输入的菜单项进行简单的编辑。
 菜单显示区 输入的菜单在此处显示出来，通过内缩符号表明菜单项的层次。条形光标所在的菜单项是“当前菜单项”
 菜单编辑器怎么使用？
 往下康
 怎么使用菜单编辑器建立菜单？
 通过本章第一个例子来说明，这个例子说明了菜单程序设计的基本方法和步骤，不管多复杂的菜单都可以使用相同的方法设计。 在最后面
 为什么有些菜单项和别的不同呢？
 有些菜单项是灰色的，有些菜单项有下划线，
 我们通过有效性操作和菜单项标记来让一些菜单项更加有个性
 什么是有效性控制？
 比如： 有些菜单项可以根据执行条件不同而进行动态变化。
 我们要设置他们的有效属性，来控制他们。
 如果有效属性 = False 菜单项就变成灰色的了
 例如:Add.Enabled = False
 想要恢复就设置
 Add.Enabled = True
 对上一个11-1进行完善
 
Private Sub Text1_Change()
If Text1.Text = "" Then
Add.Enabled = False
Min.Enabled = False
Mul.Enabled = False
Div.Enabled = False
Else
Add.Enabled = True
Min.Enabled = True
Mul.Enabled = True
Div.Enabled = True
End If
End Sub
Private Sub Text2_Change()
If Text1.Text = "" Then
Add.Enabled = False
Min.Enabled = False
Mul.Enabled = False
Div.Enabled = False
Else
Add.Enabled = True
Min.Enabled = True
Mul.Enabled = True
Div.Enabled = True
End If
End Sub
 
什么是菜单项标记？
 就是在菜单项面前加一个 勾勾
 我们用一个例子来说明它的用法11-2
 
代码清单
 11-1
 设计 具有运算以及清除功能的菜单，
 界面设计如下
 
 设计菜单
 规划好提供给菜单的属性 就可以设计菜单了，
 
 
 
 编写程序代码
 
Private Sub Add_Click()
x = Val(Text1.Text) + Val(Text2.Text)
Label4.Caption = x
End Sub

Private Sub Clean_Click()
Text1.Text = ""
Text2.Text = ""
Label4.Caption= ""
Text1.SetFocus
End Sub

Private Sub Div_Click()
x = Val(Text1.Text) / Val(Text2.Text)
Label4.Caption = x
End Sub

Private Sub Min_Click()
x = Val(Text1.Text) - Val(Text2.Text)
Label4.Caption = x
End Sub

Private Sub Mul_Click()
x = Val(Text1.Text) * Val(Text2.Text)
Label4.Caption = x
End Sub

Private Sub Quit_Click()
End
End Sub

 
11-2