用VB编写的刷QQ等级的工具

新客网 XKER.COM 2005-02-25 来源： 收藏本文

我今天用了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编写的。两个软件虽然用法不太一样，但是功能差不多啦！

• ·身份证函数 查看身份证地区信息
• ·VS2008 第一次安装心得及使用
• ·ASP.NET 2.0跨网页提交的三法
• ·编程实例 WebGroupBox(Aspx控件)
• ·asp.net mvc脚手架代码生成工具
• ·用独立的DLL来存储图片(资源文件)
• ·ASP.NET中多国语言的实现方法
• ·实例 .net生成静态页方法总结
• ·ASP.NET控件学习笔记之ViewState
• ·用递归在TreeView价节点
• ·经验总结 关于.NET 中的Event机制
• ·.NET应用程序开发标准化(z)
• ·在DataTable中查询应该注意的问题
• ·LINQ 中调用存储过程自动绑定列名
• ·如何用.NET技术在线生成网站LOGO
• ·对于访问IIS元数据库失败的解决