要用编程器写保护程序，你需要遵循以下步骤：
编制屏幕保护图形
设计并创建你想要的屏幕保护图形。这可以通过使用图形设计软件或编程语言中的绘图库来完成。
隐藏鼠标
使用操作系统提供的API函数来隐藏鼠标指针。例如，在Windows系统中，可以使用`ShowCursor`函数来隐藏鼠标。
检测鼠标和按键行为
编写代码来检测鼠标的移动和按键操作。当检测到这些行为时，程序应该能够终止屏幕保护程序。
编译屏幕保护程序
将你的程序编译成可执行文件。在Visual Basic中，你可以通过选择“File”菜单中的“Make Project”选项，并将项目后缀名从.vbp改为.scr来完成这一步骤。
设置屏幕保护程序
将编译好的屏幕保护程序（.scr文件）复制到Windows系统的屏幕保护程序目录下，通常位于`C:\Windows\System32`目录。这样，当系统启动屏幕保护时，你的程序就会被执行。
```vb.net
Option Explicit
Dim quitflag As Boolean
Private Sub Form1_Load（sender As Object, e As EventArgs） Handles MyBase.Load
' 初始化屏幕保护程序
Me.Cursor = Cursors.WaitCursor
HideCursor（）
End Sub
Private Sub HideCursor（）
' 隐藏鼠标指针
Cursor = Cursors.None
End Sub
Private Sub ShowCursor（）
' 显示鼠标指针
Cursor = Cursors.Default
End Sub
Private Sub Form1_KeyDown（sender As Object, e As KeyEventArgs） Handles MyBase.KeyDown
' 如果按下任意键，退出屏幕保护程序
If e.KeyCode <> Keys.None Then
quitflag = True
Me.Close（）
End If
End Sub
Private Sub Form1_MouseDown（sender As Object, e As MouseEventArgs） Handles MyBase.MouseDown
' 如果按下鼠标，退出屏幕保护程序
quitflag = True
Me.Close（）
End Sub
Private Sub Form1_Unload（sender As Object, e As EventArgs） Handles MyBase.Unload
' 退出屏幕保护程序
If quitflag Then
CloseSCR（）
End If
End Sub
Private Sub CloseSCR（）
' 关闭屏幕保护程序
' 这里需要添加代码来实际关闭屏幕保护程序，这可能涉及到调用Windows API或其他方法
End Sub
```
请注意，这个示例代码仅用于演示目的，实际编写屏幕保护程序可能需要更多的细节考虑，例如处理不同版本的Windows系统、优化性能等。此外，隐藏鼠标可能会影响用户体验，因此请确保在必要时才使用此功能。