promotion image of download ymail app
Promoted
匿名使用者
匿名使用者 發問時間: 電腦與網際網路程式設計 · 2 0 年前

請問有沒有病毒寫法

我想學病毒丟給討厭的人

聽說用VB可以寫一些簡單的

不過我還不是很熟

請問有人知道大概要怎寫惡意程式嗎

5 個解答

評分
  • 匿名使用者
    2 0 年前
    最佳解答

    一個利用API的開玩笑的程式- 小瓜瓜 首頁

    --------------------------------------------------------------------------------

    ※測試結果可適用:Windows 95、Windows98、Windows NT4.0

    這個用API寫的程式

    ●於模組裡宣告: (Module)

    Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long

    Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

    Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

    Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

    Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

    Type RECT

    Left As Long

    Top As Long

    Right As Long

    Bottom As Long

    End Type

    ●上面的Command1內的程式碼: Private Sub Command1_Click()

    Dim Shell_Pos As RECT

    Dim TmpLng As Long

    MsgBox "歡迎掉入^V^世界", vbInformation, "哈哈~"

    TmpLng = FindWindow("Shell_TrayWnd", vbNullString)

    GetWindowRect TmpLng, Shell_Pos

    SetCursorPos Shell_Pos.Left + 25, Shell_Pos.Top + 15

    Sleep 500

    SetCursorPos Shell_Pos.Left + 25, Shell_Pos.Top + 15

    mouse_event 2, 0, 0, 0, 0

    mouse_event 4, 0, 0, 0, 0

    Sleep 500

    SetCursorPos Shell_Pos.Left + 50, Shell_Pos.Top - 20

    Sleep 500

    SetCursorPos Shell_Pos.Left + 50, Shell_Pos.Top - 20

    mouse_event 2, 0, 0, 0, 0

    mouse_event 4, 0, 0, 0, 0

    End Sub

    ●這個程式的內容有點惡質,他會把離開Windows98的對話框給叫出來,如果在狠心一點加入SendKeys Chr(13),Windows98不是開機、要不然就是關機。

    ●叫出離開Windows對話框不是簡單的API就可以解決嗎?怎麼寫得那麼長?上面的執行結果,你可以看到使用者因看到滑鼠自動跳到〝開始〞,然後自動點一下,停在〝關機〞上,然後自動點一下,叫出〝關閉 Windows〞對話框那樣驚愕的表情!

    參考資料: 網站
    • Commenter avatar登入以對解答發表意見
  • 匿名使用者
    1 0 年前

    對於不喜歡的人...我贊成用這樣的做法...

    • Commenter avatar登入以對解答發表意見
  • 匿名使用者
    2 0 年前

    問這問題的無聊兼沒水準..

    罵人髒話的更...

    • Commenter avatar登入以對解答發表意見
  • 匿名使用者
    2 0 年前

    ~"~ 請注意用詞..

    我不贊成寄這種惡作劇的程式給別人,但也沒必要說是"沒水準沒..."之類的話吧..

    回覆者已說明"●這個程式的內容有點惡質",使用與否看個人,能不能學到東西也是看個人..

    應該不需要從這支程式到您個人的形容方式才是..

    • Commenter avatar登入以對解答發表意見
  • 您覺得這個回答如何?您可以登入為回答投票。
  • 匿名使用者
    2 0 年前

    沒水準沒修養

    無聊至極

    2005-06-11 07:38:36 補充:

    arst987: 贛你娘最好你就有修養啦

    arst987: 操基掰

    arst987: 問問題乾你*是

    lstella220: 哈哈哈

    lstella220: 繼續罵阿

    從這邊就可以看出你有沒有修養了...

    • Commenter avatar登入以對解答發表意見
還有問題?馬上發問,尋求解答。