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

此博客展示了一段VB代码,包含Command按钮和Timer定时器的功能实现。通过点击Command1按钮可启动程序并开启定时器,按Command2可停止。定时器会在设定时间后终止进程并重新启动程序,涉及Shell函数调用外部程序。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

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

评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值