两个全球最大的液化天然气模块（LNG模块）正式起航，运往俄罗斯的摩尔曼斯克。
该规格的模块是由南通惠生海洋工程有限公司生产制造，由中国信保承保支持。该项目是中国信保继顺利承保支持EXMAR FLNG（全球首座浮式天然气液化和存储装置项目）后，又一次与惠生重工在重大项目上实现创新合作。
该模块是目前世界上单体体积最大、重量最重的液化天然气模块，填补了我国海洋工程在极地液化天然气项目建设中的一个空白，标志我国在海洋工程建设上已经迈入世界顶尖行列。
液化天然气物理特性怎样液化天然气
液化天然气是一种无色，无味，低温，易燃易爆液体。
微点主动防御软件能与哪种病毒特征扫描类杀毒软件共存？？？？
个人感觉不需再安装任何杀软，用绿色杀软平时扫描一下病毒就行
推荐大蜘蛛Dr.Web CureIt!
官方网站：
无需安装，双击一下就扫描，需要定期下载新的程序替换旧版本
如何将不同功能的两段VB代码合在一起
看你想要干的是啥了，如果、。、想写木马。。。木门。写其他程序的话你可以把其中一个写成插件，然后其中一个为主程序，然后，自己看着办、。
如何把用底层windows API函数写的工程移植到VS2010下？
v
呵呵
楼上俩位的，你们那个太占资源了，只有在没有办法的情况下才使用你们这个办法....
使用timer....如果使用这个功能，cup占用可不是一般的多阿~是非常多~
给你这个代码，只有在按下键盘的时候才会激发~不占资源~~
'模块
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 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 Sub CopyMemory Lib kernel32 _
Alias RtlMoveMemory _
(Destination As Any, _
Source As Any, _
ByVal Length As Long)
Private Type PKBDLLHOOKSTRUCT
vkCode As Long
scanCode As Long
flags As Long
time As Long
dwExtraInfo As Long
End Type
Private Const WM_KEYDOWN = &H100
Private Const WM_SYSKEYDOWN = &H104
Private Const WM_KEYUP = &H101
Private Const WM_SYSKEYUP = &H105
Private Const HC_ACTION = 0
Private Const WH_KEYBOARD_LL = 13
Private lngHook As Long
Public Function HotKey(ByVal nCode As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long
Dim p As PKBDLLHOOKSTRUCT
If nCode = HC_ACTION Then
Select Case wParam
Case WM_KEYDOWN, WM_SYSKEYDOWN
Call CopyMemory(p, ByVal lParam, Len(p))
If p.vkCode = vbKeyF10 Then '这里定义热键
MsgBox 你按下了F10 '这里，执行你要执行的程序，我这里示范msgbox
End If
Case Else
End Select
End If
Call CallNextHookEx(WH_KEYBOARD_LL, nCode, wParam, lParam)
End Function
Public Sub HooK()
lngHook = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf HotKey, App.hInstance, 0)
End Sub
Public Sub UnHooK()
Call UnhookWindowsHookEx(lngHook)
End Sub
'窗体
Private Sub Form_Load()
HooK
End Sub
Private Sub Form_Unload(Cancel As Integer)
UnHooK
End Sub
如果对您有帮助，请记得采纳为满意答案，谢谢！祝您生活愉快！
vaela
