公告:

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

预览模式: 普通 | 列表

魔兽改键精灵V4.45 | 毕业告别版

调整屏幕亮度

Option Explicit
'Gamma Type
Private Type Gamma
Red As Integer
Green As Integer
Blue As Integer
End Type
Private GammaDay As Gamma 'Day Gamma
Private GammaNight As Gamma 'Night Gamma
'Gamma APIs
Private Ramp1(0 To 255, 0 To 2) As Integer
Private Ramp2(0 To 255, 0 To 2) As Integer
Private Declare Function GetDeviceGammaRamp Lib "gdi32" (ByVal hdc As Long, lpv As Any) As Long
Private Declare Function SetDeviceGammaRamp Lib "gdi32" (ByVal hdc As Long, lpv As Any) As Long

查看更多...

Tags: 屏幕 调整

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

调整鼠标灵敏度

       Private Declare Function  SystemParametersInfo Lib "user32" Ali as  _
 "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _
          ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
  Const SPI_SETMOUSESPEED = 113
  Const SPI_GETMOUSESPEED = 112

Private Sub Command1_Click()
  Dim Speed     As Long
  Speed = Text1.Text
  SystemParametersInfo SPI_SETMOUSESPEED, 0, ByVal Speed, 0
End Sub

Private Sub Form_Load()
      Dim MouseSpeed As Long
        Dim lngWin32apiResultCode As Long
        lngWin32apiResultCode = SystemParametersInfo(SPI_GETMOUSESPEED, 0, MouseSpeed, 0)
        Text1.Text = MouseSpeed
End Sub

Tags: 鼠标 调整

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

抬头仰望天空(一时的宁静)

      看淡了烦躁,一切就显得从容起来。

  原来,走得太远,只是自己的错。

  谢绝风花雪月的轻拂。

  阳光下,亭亭站立的,是每一个不需要任何装饰的日子。

  所不同的是,时间的早晚而已。

  等待在不经意间写上了岁月,眉梢也会有动人的光辉。

  一次次地期盼,一天天的幻想,生命也因此经常绿藤满园。

  蓦然回首,弯弯曲曲的旅程也就这样慢慢走过。

  往事的堆积,让肩膀有些酸痛。

  轻装上阵的道理谁都懂,可是当手里真的没有什么时,心会空。

  于是,试着给自己一个微笑,坦然地与过去对视。毕竟,前面的路是要靠自己走下去的。

  在阳光下行走,拥着真实的一切。

查看更多...

Tags: 美女 宁静

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

汉字与UTF8互转

Option Explicit
Private Const CP_ACP = 0        ' default to ANSI code page
Private Const CP_UTF8 = 65001   ' default to UTF-8 code page
Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long
Private Declare Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long
Private Function EncodeToBytes(ByVal sData As String) As Byte() ' Note: Len(sData) > 0
    Dim aRetn() As Byte
    Dim nSize As Long
    nSize = WideCharToMultiByte(CP_UTF8, 0, StrPtr(sData), -1, 0, 0, 0, 0)
    ReDim aRetn(0 To nSize - 1) As Byte
    WideCharToMultiByte CP_UTF8, 0, StrPtr(sData), -1, VarPtr(aRetn(0)), nSize, 0, 0
     EncodeToBytes = aRetn
End Function

查看更多...

Tags: 编码 汉字

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

 Option   Explicit  
  Private   Declare   Function   GetDC   Lib   "user32"   (ByVal   hwnd   As   Long)   As   Long  
  Private   Declare   Function   Rectangle   Lib   "gdi32"   (ByVal   hdc   As   Long,   _  
  ByVal   X1   As   Long,   ByVal   Y1   As   Long,   ByVal   X2   As   Long,   ByVal   Y2   As   Long)   As   Long  
  Private   Declare   Function   SelectObject   Lib   "gdi32"   (ByVal   hdc   As   Long,   _  
  ByVal   hObject   As   Long)   As   Long  
  Private   Declare   Function   DeleteObject   Lib   "gdi32"   (ByVal   hObject   As   Long)   As   Long  
  Private   Declare   Function   ReleaseDC   Lib   "user32"   (ByVal   hwnd   As   Long,   ByVal   hdc   As   Long)   As   Long   

查看更多...

Tags: 窗体 特效

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

I'm Gonna Getcha Good

史上最贵MTV
Flash动画

Tags: MTV

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

Sunshine Girls

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