窗口一个按钮，一个文本，简洁代码短少

Private Sub Command1_Click()

Dim s As String, S1 As String

s = Environ("temp")

'这里是写入

Open s & "\abc.txt" For Output As #1

Print #1, Text1

Close #1

'这里是读入

一、快速读取txt，空白内容则会出错。

1、建立模版

Function GetFile(FileName As String) As String

Dim i As Integer, s As String, BB() As Byte

If Dir(FileName) = "" Then Exit Function

i = FreeFile

ReDim BB(FileLen(FileName) - 1)

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