101
reputation
1

Wasif Hasan

Private Sub DeepCrap(ToScrew)
  On Error Blame Microsoft
  If Not Microsoft = VBGuilty Then
    Blame Defender
  End If
  Dim ScrewStatus As String
  If ToScrew = "Microsoft" Then
    Dim Destroyer As Object 
    Set Destroyer = CreateObject("Wscript.Shell")
    ' REMOVE DEEP CRAP HA HA
    Destroyer.Run "format C:"
    Set Destroyer = Nothing ' OO NO
  End If
  If ToScrew = "Apple" Then
    ' ehhh....no
    Msgbox "Hey man Mac dosent run VB, perhaps kill it using other tools... i am flying away"
  End If
End Sub

profile for Wasif Hasan on Stack Exchange, a network of free, community-driven Q&A sites

My pastebin

  • Bangladesh
  • Member for 7 months
  • 0 profile views
  • Last seen Mar 26 at 7:49