【VB源码】VB系统服务操作类模块

注意:是类模块,不是模块。别搞错了。 用法: Private Sub Command1_Click() Dim NTSrv As New SetSvc With NTSrv     .Name = "nvsvc"                       '服务名称     .DisplayName = "NVIDIA Display Driver Service"                          '显示名称     .Description = "Provides system and desktop level support to the NVIDIA display driver."               '描述    

【VB源码】VB计算谷歌pr查询加密参数模块

Option Explicit '计算谷歌pr查询加密参数模块 '示例: "http://toolbarqueries.google.com/search?client=navclient-auto&ch=" & GetGoogleKey("www.baidu.com") & "&ie=UTF-8&oe=UTF-8&features=Rank:FVN&q=info:" & "www.baidu.com" '算法有点问题,部分参数计算错误。影响不是太大。 Const GOOGLE_MAGIC = &HE6359A60 Function GetGoogleKey(Url) As String  '获取加密参数 GetGoogleKey = "6"

眼睛的幻觉

眼睛的幻觉 德国某大学的科学家们贡献了这个神奇的眼睛魔术网站,在这里你可以体验“空间频率扭曲”,实际上那只是“你的眼睛背叛了你的心”而已。 屁话

【VB技巧】VB KeyCode 常数表

VB KeyCode 常数表 常数 值 描述 vbKeyLButton 0x1 鼠标左键 vbKeyRButton 0x2 鼠标右键 vbKeyCancel 0x3 CANCEL 键 vbKeyMButton 0x4 鼠标中键 vbKeyBack 0x8 BACKSPACE 键 vbKeyTab 0x9 TAB 键 vbKeyClear 0xC CLEAR 键 vbKeyReturn 0xD ENTER 键 vbKeyShift 0x10 SHIFT 键 vbKeyControl 0x11 CTRL 键 vbKeyMenu 0x12 MENU 键 vbKeyPause 0x13 PAUSE 键 vbKeyCapital 0x14 CAPS LOCK 键 vbKeyEscape