Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long

Public Sub KillProcess(ByVal ProcessName As String)

       Set oWMI = GetObject("winmgmts:")

       Set oServices = oWMI.InstancesOf("win32_process")

建立托盘命名为Popup，再建立Picture1命名为Pic

Private Type NOTIFYICONDATA

    cbSize As Long

<form action="64.php" method="GET">

<p>base64密文: <input type="text" name="code" />

<input value="给我转" type="submit" /><p>

</form>

1、登录login.php 用户admin密码123456

<?php

session_start();

1、窗口新建立一个Picture1命名为 Pci 然后在里面选择你采用的托盘图标。