公告:

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

预览模式: 普通 | 列表

魔兽改键精灵使用教程

VS,HF下开全图办法(4月23日测试)

VS下开全图(4月23日测试不封号),请以LYNN补丁开启,配置按下图配置,置于魔兽根目录开启

下载地址:http://www.brsbox.com/filebox/down/fc/742e98f2818c8ef75f79f1036471ad7c

查看更多...

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

可爱的媳妇儿!

1、早上临上班,和老公吻别。
  我:亲一个!
  老公:啵!
  我:再亲一个!
  老公:啵!
  我:还要嘛~~~
  老公:……流氓!
2、昨天晚上睡觉,跟老公抢他的胳膊~,老公抵死不从!我急了,就冒出了一句:
      老衲,你就从了师太吧!老公笑到手软。于是我得逞。
3、某日,我早起,给他留了200元钱放在桌子上(我是家里的财政大臣)。上班后,
      估摸着他已起床,就短他: 老公,桌上是给你昨夜的服务费。他回:全套服务才200 
      块呀? 赶明儿找个富婆去。。。
4、老公:今天坐车人特多,不过在拥挤的车上看到美女了!
       我:....怒!
       老公:她还跟我搭讪呢!
       我:她跟你说什么``(吃醋)
       老公:离我远点! 
5、老公学习无聊中会短信骚扰:小妞,给大爷我笑一个!我回:客官请自重,小女子卖身不卖艺!
6、我出差在外:臣妾今晚不能来侍寝,也请陛下早些歇息,养足精神,明日再来翻
       臣妾的牌子。老公:朕有后宫佳丽三千,此事爱妃不必太过忧虑,还须耐住寂寞:) 
       我:看来今晚非杀回来****不可!老公:说笑说笑,朕的后宫牌子虽多,写的可都是
       一个人的名字! 
7、如厕无聊中,和老公用喊的方式沟通:小子,给主子唱个曲儿!老公:无语

查看更多...

Tags: 搞笑

分类:博文 | 固定链接 | 评论: 8 | 引用: 0 | 查看次数: 9457

模拟桌面刷新代码

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long


Private Declare Function FindWindowEx Lib "user32" _
    Alias "FindWindowExA" (ByVal hWnd1 As Long, _
    ByVal hWnd2 As Long, ByVal lpsz1 As String, _
    ByVal lpsz2 As String) As Long
    Const WM_KEYDOWN = &H100

Public Sub RefreshDesktop()
    Dim DeskWin As Long
    DeskWin = FindWindowEx(0&, 0&, "Progman", vbNullString)
    DeskWin = FindWindowEx(DeskWin, 0&, "SHELLDLL_DefView", vbNullString)
    DeskWin = FindWindowEx(DeskWin, 0&, "SysListView32", vbNullString)
    PostMessage DeskWin, WM_KEYDOWN, &H74, &H3F0001
End Sub

Tags: 桌面 刷新

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

VB6实现隐藏进程的模块

'该模块用于在任务管理器中隐藏进程
Private Const STATUS_INFO_LENGTH_MISMATCH = &HC0000004
Private Const STATUS_ACCESS_DENIED = &HC0000022
Private Const STATUS_INVALID_HANDLE = &HC0000008
Private Const ERROR_SUCCESS = 0&
Private Const SECTION_MAP_WRITE = &H2
Private Const SECTION_MAP_READ = &H4
Private Const READ_CONTROL = &H20000
Private Const WRITE_DAC = &H40000
Private Const NO_INHERITANCE = 0
Private Const DACL_SECURITY_INFORMATION = &H4

Private Type IO_STATUS_BLOCK
Status As Long
Information As Long
End Type

Private Type UNICODE_STRING
Length As Integer
MaximumLength As Integer
Buffer As Long
End Type

Private Const OBJ_INHERIT = &H2
Private Const OBJ_PERMANENT = &H10
Private Const OBJ_EXCLUSIVE = &H20
Private Const OBJ_CASE_INSENSITIVE = &H40
Private Const OBJ_OPENIF = &H80
Private Const OBJ_OPENLINK = &H100
Private Const OBJ_KERNEL_HANDLE = &H200
Private Const OBJ_VALID_ATTRIBUTES = &H3F2

Private Type OBJECT_ATTRIBUTES
Length As Long
RootDirectory As Long
ObjectName As Long
Attributes As Long
SecurityDeor As Long
SecurityQualityOfService As Long
End Type

Private Type ACL
AclRevision As Byte
Sbz1 As Byte
AclSize As Integer
AceCount As Integer
Sbz2 As Integer
End Type

查看更多...

Tags: 隐藏 进程

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

打开摄像头程序并保存jpg文件

Private Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function capCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" (ByVal lpszWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hwndParent As Long, ByVal nID As Long) As Long
Private Const GET_FRAME As Long = 1084
Private Const COPY As Long = 1054
Private Const CONNECT As Long = 1034
Private Const DISCONNECT As Long = 1035
Private CapHwnd As Long

Private Sub Command1_Click()
   '打开摄像头
   Dim xMax As Integer, xMon As Integer
   CapHwnd = capCreateCaptureWindow("WebcamCapture", 0, 0, 0, 640, 480, Me.hwnd, 0)
   DoEvents
   SendMessage CapHwnd, CONNECT, 0, 0
   Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
   '停止摄像头
   DoEvents
   SendMessage CapHwnd, DISCONNECT, 0, 0
   Timer1.Enabled = False
End Sub

查看更多...

Tags: 摄像头

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

vb 通过进程pid获取进程路径

Option Explicit
Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessID As Long) As Long
Private Declare Function GetModuleFileNameExA Lib "psapi.dll" (ByVal hProcess As Long, ByVal hModule As Long, ByVal ModuleName As String, ByVal nSize As Long) As Long
Private Declare Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Long) As Long
Private Declare Function EnumProcessModules Lib "psapi.dll" (ByVal hProcess As Long, ByRef lphModule As Long, ByVal cb As Long, ByRef cbNeeded As Long) As Long

Private Function GetProcessNameByProcessId(ByVal Pid As Long) As String
     Dim szBuf(1 To 250) As Long
     Dim Ret As Long
     Dim szPathName As String
     Dim nSize As Long
     Dim hProcess As Long
     hProcess = OpenProcess(&H400 or &H10, 0, Pid)
     If hProcess <> 0 Then
        Ret = EnumProcessModules(hProcess, szBuf(1), 250, Pid)
        If Ret <> 0 Then
            szPathName = Space(260)
            nSize = 500
            Ret = GetModuleFileNameExA(hProcess, szBuf(1), szPathName, nSize)
            GetProcessNameByProcessId = szPathName
        End If
     End If
     Ret = CloseHandle(hProcess)
End Function
调用GetProcessNameByProcessId (进程pid即可)
修改下可以取得进程名
Private Sub Command1_Click()
Dim SplitStr() As String
SplitStr = Split(GetProcessNameByProcessId(pid), "\")
MsgBox SplitStr(UBound(SplitStr))
End Sub

Tags: pid 进程

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

删除任意文件的指定行

用法:
DeleteLineFromFile App.Path & "/test.txt", 3

函数:
Public Sub DeleteLineFromFile(RFile As String, RLine As Integer)
Dim FileNum As Integer
Dim TextLine As String
Dim NewText As String
Dim CurentLine As Integer
FileNum = FreeFile
Open RFile For Input As #FileNum
Do Until EOF(FileNum)
Line Input #FileNum, TextLine
currentline = currentline + 1
If Not currentline = RLine Then
If currentline = 1 Then
NewText = TextLine
Else
NewText = NewText & vbNewLine & TextLine
End If
End If
Loop
Close #FileNum
Open RFile For Output As #FileNum
Print #FileNum, NewText
Close #FileNum
End Sub

Tags: 删除

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