公告:

毕业五年,一切如走马观灯、过眼烟云,如梦境般似真亦幻,当年的豪言壮语已随风飘逝,本我、自我、超我不断碰撞,最后只剩下一具缺乏灵魂的僧侣,一生被定格在那个片段,固定的作息、固定的生活、固定的朋友,不知千年的轮回,是否只为这一生孤寂的宿命。

预览模式: 普通 | 列表

关于下个版本魔兽改键精灵的改进说明

   下个版本将与zhensan.com合作,可能会添加一下功能:

1.扩展键功能

玩家可以对各个按键进行更精细的设置,比如一键必杀中M+S+V=W,双击W调出如下界面

第一项对M键的英雄选择,第二个为设置的快捷键,第三个为鼠标,第四个为延时。按下W后,将会有如下操作:选择第二个英雄,放M招,按下鼠标右键;选择第三个英雄,按下S招,按下鼠标左键;选择第四个英雄,按下V。其中英雄选择主要针对英雄控制比较多的玩家(比如澄海、DOTA中的地卜),鼠标设置主要针对需要连招的英雄(如真三中法的EX)。

2.游戏开始提示

查看更多...

Tags: 魔兽改键精灵

分类:软件 | 固定链接 | 评论: 13 | 引用: 0 | 查看次数: 6695

简单实现繁体简体互转的办法

Private Declare Function LCMapString Lib “kernel32″ Alias “LCMapStringA” (ByVal Locale As Long, ByVal dwMapFlags As Long, ByVal lpSrcStr As String, ByVal cchSrc As Long, ByVal lpDestStr As String, ByVal cchDest As Long) As Long
Private Declare Function lstrlen Lib “kernel32″ Alias “lstrlenA” (ByVal lpString As String) As Long

 ‘简转繁
Public Function JToF(ByVal Str As String) As String
Dim STlen As Long
Dim STf As String
STlen = lstrlen(Str)
STf = Space(STlen)
LCMapString &H804, &H4000000, Str, STlen, STf, STlen
JToF = STf
End Function

‘繁转简
Public Function FToJ(ByVal Str As String) As String
Dim STlen As Long
Dim STj As String
STlen = lstrlen(Str)
STj = Space(STlen)
LCMapString &H804, &H2000000, Str, STlen, STj, STlen
FToJ = STj
End Function

Tags: 文字转换

分类:编程 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2809

窗口处理技巧大全

Vb提供了API函数SetWindowLong和GetWindowLong,可以让我们很容易取得对窗口的操作;通过对窗口属性的操作,可以更改窗口的显示风格。有些看来是正常情况下无法实现的窗口,现在你可以很容易的实现。只要你想到,更多希奇古怪的你也能做到。快试试下面的例子吧。 ‘一下例子中可能用到的API声明和常量、变量声明
Private Declare Function GetWindowLong Lib “user32″ Alias “GetWindowLongA” (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib “user32″ Alias “SetWindowLongA” (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetWindowPos Lib “user32″ (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOZORDER = &H4
Private Const SWP_NOMOVE = &H2
Private Const SWP_DRAWFRAME = &H20
Private Const GWL_STYLE = (-16)
Private Const WS_THICKFRAME = &H40000
Private Const WS_DLGFRAME = &H400000
Private Const WS_POPUP = &H80000000
Private Const WS_CAPTION = &HC00000
Private Const WS_SYSMENU = &H80000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZE = &H20000000
Private Const WS_MAXIMIZE = &H1000000

查看更多...

Tags: 控件 界面

分类:编程 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2630

获取快捷方式原文件路径

此方法可以不需要引用IShellLink.

Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type

Private Type LNKHEAD
dwID As Long
dwGUID(3) As Long
dwFlags As Long
dwFileAttributes As Long
dwCreationTime As FILETIME
dwModificationTime As FILETIME
dwLastaccessTime As FILETIME
dwFileLen As Long
dwIconNum As Long
dwWinStyle As Long
dwHotkey As Long
dwReserved1 As Long
dwReserved2 As Long
End Type

查看更多...

Tags: 快捷方式

分类:编程 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 4648

VB6中的FSO对象模型

在编程中,我们经常需要对文件系统中的驱动器、文件夹和文件进行处理,比如收集驱动器的相关信息;创建、添加、移动或删除文件夹和文件等。在VB6中新提供了一套称为FSO(File System Object)对象模型来对文件系统进行访问处理。该模型提供了一个基于对象的工具,通过它所提供的一系列属性和方法,我们可以在应用程序中更简单、灵活地对文件系统进行各种操作。

  一、FSO简介

  FSO对象模型包含以下几种对象:

  Drive对象:允许收集系统物理或通过LAN与系统逻辑连接的硬盘、CD-ROM等驱动器的可用空间、共享名等信息。

  Folder对象:允许创建、删除或移动文件夹,并向系统查询文件夹的名称、路径等。

  Files对象:允许创建、删除或移动文件,并向系统查询文件的名称、路径等。

  TextStream对象:允许创建和读写文本文件。

  FileSystemObject对象:提供一整套用于驱动器、文件夹和文件操作的方法,在功能上可以把它看作是上面几个对象的集合并且经常与它们配合使用。与该对象相关联的很多方法重复了前面四个对象中的方法,因此我们既可以通过FileSystemObject对象来对驱动器、文件夹和文件进行大多数操作,也可以通过对应的驱动器、文件夹或文件对象对这些组件进行操作。FSO模型通过两种方法实现对同一对象的操作,其操作效果是相同的,提供这种冗余功能的目的是为了实现最大的编程灵活性。

查看更多...

Tags: fso

分类:编程 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 9168

Dodolook

很可爱很搞怪的女生

Tags: dodolook

分类:影音 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 10440

丹麦经典帅哥说唱组合

丹麦经典帅哥说唱组合

Tags: 说唱 丹麦

分类:影音 | 固定链接 | 评论: 1 | 引用: 0 | 查看次数: 3067

利用VB函数Dir()实现递归搜索目录

具体代码如下:

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'函数GetExtName
'功能:得到文件后缀名(扩展名)
'输入:文件名
'输出:文件后缀名(扩展名)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Public Function GetExtName(strFileName As String) As String
     Dim strTmp As String
     Dim strByte As String
     Dim i As Long
     For i = Len(strFileName) To 1 Step -1
      strByte = Mid(strFileName, i, 1)
      If strByte <> "." Then
       strTmp = strByte + strTmp
      Else
       Exit For
      End If
     Next i
     GetExtName = strTmp
End Function

查看更多...

Tags: dir 目录

分类:编程 | 固定链接 | 评论: 1 | 引用: 0 | 查看次数: 2566