本文目录一览：
- 1、NBK联轴器质量好不好？
- 2、有谁能帮助解答"西北工业大学网络教育学院2009年5月考试试题"
- 3、报文处理系统（MHS）由__________，__________，__________和__________等几部分组成。
- 4、我想用VB做了个简单的网页浏览器，不想让别人复制网页地址，想屏蔽VB中网页窗口的右键~怎么弄
NBK联轴器质量好不好？
像米思米、NBK这类日本品牌的联轴器，质量还是可以的，但是你知道的进口的东西价格都相对比较贵，可以考虑用一些知名国产品牌替代。
有谁能帮助解答"西北工业大学网络教育学院2009年5月考试试题"
3．有一IP地址为192．207．150．130的主机，其所在网络的缺省子网掩码是255．255．255．0
6．HDLC帧的类型有三种，它们分别是信息帧、控制帧和无编号帧。
7．IP分组格式中，数据报头部长度的最小值为__20_________个字节，最大值为60个字节。
9．现在经常使用的IP协议版本号为4，其IP地址为____32_______位。
10．曼彻斯特编码技术的编码效率是_____50______%，而4B/5B编码的效率是____80_______%。
报文处理系统（MHS）由__________，__________，__________和__________等几部分组成。
• MHS 的功能模型包含了报文自理系统的主要功能元素。报文传输系统 MTS （ Message Transfer System ）由一些互连的报文传输代理 MTA （ Message Transfer Agent ）组成。 MTA 接受用户代理 UA(User Agent) 提交的报文，把它传送给目的端 MTA 。报文在网络中经过多次存储—转发，最后由目的端的 MTA 投递给 UA 或者被存放在目的端的报文 MS （ Message Store ）。在一般情况下， UA 置于用户个人计算机终端上， MTA 置于通讯公司的大型机器上。
• MHS 服务分成四类：报文传输服务、个人间报文通信服务、报文存储服务和物理投递服务。
我想用VB做了个简单的网页浏览器，不想让别人复制网页地址，想屏蔽VB中网页窗口的右键~怎么弄
你用的是什么控件啊，WebBrowser倒是可以用下面的方法。
在含有WebBrowser控件的窗体中，添加如下的代码：
Private Sub Form_Load()
SetHook
End Sub
Private Sub Form_Unload(Cancel As Integer)
DelHook
End Sub
然后再新建一个模块，加入下列代码：
Option Explicit
Private Declare Function SetWindowsHookEx Lib "user32" _
Alias "SetWindowsHookExA" ( _
ByVal idHook As Long, _
ByVal lpfn As Long, _
ByVal hmod As Long, _
ByVal dwThreadId As Long _
) As Long
Private Declare Function UnhookWindowsHookEx Lib "user32" ( _
ByVal hHook As Long _
) As Long
Private Declare Function CallNextHookEx Lib "user32" ( _
ByVal hHook As Long, _
ByVal nCode As Long, _
ByVal wParam As Long, _
lParam As Any _
) As Long
Private Declare Sub CopyMemory Lib "kernel32" _
Alias "RtlMoveMemory" ( _
ByRef Destination As Any, _
ByRef Source As Any, _
ByVal Length As Long _
)
Private Declare Function GetClassName Lib "user32" _
Alias "GetClassNameA" ( _
ByVal hWnd As Long, _
ByVal lpClassName As String, _
ByVal nMaxCount As Long _
) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Private Type MHS
pt As POINTAPI
hWnd As Long
wHitTestCode As Long
dwExtraInfo As Long
End Type
Private Const WH_MOUSE As Long = 7
Private Const WM_RBUTTONDOWN As Long = H204
Private Const WM_RBUTTONUP As Long = H205
Private hHook As Long
Private Function GetClassNameStr(ByVal hWnd As Long) As String
Dim TempStr As String, Rc As Long
Const NAME_MAX_LEN = 256
TempStr = Space(NAME_MAX_LEN)
Rc = GetClassName(hWnd, TempStr, NAME_MAX_LEN)
GetClassNameStr = StrConv(LeftB$(StrConv( _
TempStr, vbFromUnicode), Rc), vbUnicode)
End Function
Private Function HookProc( _
ByVal nCode As Long, _
ByVal wParam As Long, _
ByVal lParam As Long _
) As Long
Static MH As MHS
CopyMemory MH, ByVal lParam, LenB(MH)
HookProc = CallNextHookEx( _
hHook, nCode, wParam, lParam)
If wParam = WM_RBUTTONDOWN Or _
wParam = WM_RBUTTONUP Then
If LCase(GetClassNameStr(MH.hWnd)) = _
LCase("Internet Explorer_Server") Then
HookProc = 1
End If
End If
End Function
Public Function SetHook() As Boolean
If hHook = 0 Then _
hHook = SetWindowsHookEx( _
WH_MOUSE, AddressOf HookProc, _
App.hInstance, App.ThreadID)
SetHook = CBool(hHook)
End Function
Public Function DelHook() As Boolean
If UnhookWindowsHookEx(hHook) = 0 Then
DelHook = False
Else
hHook = 0
DelHook = True
End If
End Function
就可以了。