.NET开发

本类阅读TOP10

·NHibernate快速指南(翻译)
·vs.net 2005中文版下载地址收藏
·【小技巧】一个判断session是否过期的小技巧
·VB/ASP 调用 SQL Server 的存储过程
·?dos下编译.net程序找不到csc.exe文件
·通过Web Services上传和下载文件
·学习笔记(补)《.NET框架程序设计(修订版)》--目录
·VB.NET实现DirectDraw9 (2) 动画
·VB.NET实现DirectDraw9 (1) 托管的DDraw
·建站框架规范书之——文件命名

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
用VB编写的刷QQ等级的工具

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

    我今天用了www.cn90.net原创的一个刷QQ等级的工具。感觉这样软件它的编写很无聊,也不难,因此我就试着用VB也编写一个吧!

========================================================
Option Explicit
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function GetTickCount Lib "kernel32" () As Long
Const PROCESS_TERMINATE = 1
Dim ProID   As Long
Dim strpath As String
Dim mm

Private Sub Command1_Click()
    Command1.Enabled = False
    Command2.Enabled = True
    mm = Val(Text2.Text) * 1000
    strpath = Text1.Text
    ProID = Shell(strpath, vbNormalFocus)
    Timer1.Interval = 1000
    Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
    Timer1.Enabled = False
    Command1.Enabled = True
    Command2.Enabled = False
End Sub

Private Sub Form_Load()
    Command2.Enabled = False
    Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
    Dim hProcess As Long
    Dim i
    i = GetTickCount()
    Do Until GetTickCount() > i + mm
        DoEvents
    Loop
    hProcess = OpenProcess(PROCESS_TERMINATE, False, ProID)
    TerminateProcess hProcess, 1
    CloseHandle hProcess
    ProID = Shell(strpath, vbNormalFocus)
End Sub

========================================================

cn90的刷等级的工具是用bcb编写的,我这个用VB编写的。两个软件虽然用法不太一样,但是功能差不多啦!




相关文章

相关软件