- 最後登錄
- 2024-4-22
- 在線時間
- 0 小時
- 註冊時間
- 2008-12-30
- 閱讀權限
- 20
- 精華
- 0
- UID
- 5557651
- 帖子
- 268
- 積分
- 263 點
- 潛水值
- 30782 米
| 分享使你變得更實在,可以使其他人感到快樂,分享是我們的動力。今天就來分享你的資訊、圖片或檔案吧。 我寫了一個程式 為了防止我表弟趁我不在時亂灌線上遊戲 (程式碼蠻...)
-
- Public Class Form1
- Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Me.Hide()
- End Sub
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- Dim a As Integer
- a = FindWindow(vbNullString, "0% / papermam_setup.exe 從 cdl.paperman.jp 已完成")
- If a <> 0 Then Shell("shutdown.exe -s -f -t 9") : MsgBox("!!!!亂灌什麼PaperMan ,你不知到你的ㄧ舉一動都再我的監視下嗎?????", vbCritical, "灌什麼線上游戲")
- End Sub
- End Class
複製代碼
Q1:
但我不知到如何防止工作管理員按工作結束(我去過Google都只有病毒資訊而已.....)
Q2:
如何 判斷今天是"星期六 日" 如果是的話就發動此程式
我記的有個函數叫做 Writereg的吧... |
|