| tiancao1001 于 2009-02-06 02:40 PM 发表评论： |
Private Const SW_HIDE = 0
Private Const GW_OWNER = 4
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Sub MDIForm_Load()
Dim rc As Long
Dim OwnerhWnd As Long
'从任务管理器列表中移除
OwnerhWnd = GetWindow(Me.hwnd, GW_OWNER)
rc = ShowWindow(OwnerhWnd, SW_HIDE)
End Sub
上面的代码已经被App.TaskVisible = False取代。 |
|
| 查看所评论的日志：田草日志 |
| tiancao1001 于 2009-01-25 03:53 PM 发表评论： |
emule会过滤搜索关键词，
我们只有清空config文件夹下面得wordfilter.txt，就可以了。 |
|
| 查看所评论的日志：田草日志 |
| tiancao1001 于 2009-01-23 10:22 AM 发表评论： |
winXP SP2 IIS 出现 “服务没有及时响应启动或控制请求” 错误解决方
是删除系统自动更新 KB939373。OK
|
|
| 查看所评论的日志：田草日志 |
| tiancao1001 于 2009-01-12 03:32 PM 发表评论： |
看这几年的CCTV半小时新闻联播的总结：
前10分钟，领导们都很忙；
中间10分钟，全国人民都很幸福；
后10分钟，国外生活在水深火热中 |
|
| 查看所评论的日志：田草日志 |
| tiancao1001 于 2009-01-09 03:02 PM 发表评论： |
|
| 查看所评论的日志：田草日志 |
| tiancao1001 于 2009-01-06 04:56 PM 发表评论： |
Private Enum CSIDL_VALUES
CSIDL_DESKTOP = &H0
CSIDL_INTERNET = &H1
CSIDL_PROGRAMS = &H2
CSIDL_CONTROLS = &H3
CSIDL_PRINTERS = &H4
CSIDL_PERSONAL = &H5
CSIDL_FAVORITES = &H6
CSIDL_STARTUP = &H7
CSIDL_RECENT = &H8
CSIDL_SENDTO = &H9
CSIDL_BITBUCKET = &HA
CSIDL_STARTMENU = &HB
CSIDL_MYDOCUMENTS = &HC
CSIDL_MYMUSIC = &HD
CSIDL_MYVIDEO = &HE
CSIDL_DESKTOPDIRECTORY = &H10
CSIDL_DRIVES = &H11
CSIDL_NETWORK = &H12
CSIDL_NETHOOD = &H13
CSIDL_FONTS = &H14
CSIDL_TEMPLATES = &H15
CSIDL_COMMON_STARTMENU = &H16
CSIDL_COMMON_PROGRAMS = &H17
CSIDL_COMMON_STARTUP = &H18
CSIDL_COMMON_DESKTOPDIRECTORY = &H19
CSIDL_APPDATA = &H1A
CSIDL_PRINTHOOD = &H1B
CSIDL_LOCAL_APPDATA = &H1C
CSIDL_ALTSTARTUP = &H1D
CSIDL_COMMON_ALTSTARTUP = &H1E
CSIDL_COMMON_FAVORITES = &H1F
CSIDL_INTERNET_CACHE = &H20
CSIDL_COOKIES = &H21
CSIDL_HISTORY = &H22
CSIDL_COMMON_APPDATA = &H23
CSIDL_WINDOWS = &H24
CSIDL_SYSTEM = &H25
CSIDL_PROGRAM_FILES = &H26
CSIDL_MYPICTURES = &H27
CSIDL_PROFILE = &H28
CSIDL_SYSTEMX86 = &H29
CSIDL_PROGRAM_FILESX86 = &H2A
CSIDL_PROGRAM_FILES_COMMON = &H2B
CSIDL_PROGRAM_FILES_COMMONX86 = &H2C
CSIDL_COMMON_TEMPLATES = &H2D
CSIDL_COMMON_DOCUMENTS = &H2E
CSIDL_COMMON_ADMINTOOLS = &H2F
CSIDL_ADMINTOOLS = &H30
CSIDL_CONNECTIONS = &H31
CSIDL_COMMON_MUSIC = &H35
CSIDL_COMMON_PICTURES = &H36
CSIDL_COMMON_VIDEO = &H37
CSIDL_RESOURCES = &H38
CSIDL_RESOURCES_LOCALIZED = &H39
CSIDL_COMMON_OEM_LINKS = &H3A
CSIDL_CDBURN_AREA = &H3B
CSIDL_COMPUTERSNEARME = &H3D
CSIDL_FLAG_PER_USER_INIT = &H800
CSIDL_FLAG_NO_ALIAS = &H1000
CSIDL_FLAG_DONT_VERIFY = &H4000
CSIDL_FLAG_CREATE = &H8000
CSIDL_FLAG_MASK = &HFF00
End Enum |
|
| 查看所评论的日志：VB 获取系统特殊文件夹 |
| tiancao1001 于 2009-01-06 01:03 PM 发表评论： |
VB默默导入reg注册表文件
Private Sub Command1_Click()
Dim RegStr As String
RegStr = "regedit /s " & App.Path & "\reg.reg"
Shell RegStr, vbHide
End Sub |
|
| 查看所评论的日志：田草日志 |
| tiancao1001 于 2008-12-31 12:55 AM 发表评论： |
|
| 查看所评论的日志：IP 天气预报网页调用代码 |
[23] [24] [25] [26] [27] [28] [29] [30] [31] [32] ... [37] 