【恶搞】MoHaCry程序及源码

兲菜到自己都看不下去!

下载链接

[code lang=”vb”]
From1.vb
Public Class Form1
Private Sub Timer1_Timer(sender As Object, e As EventArgs) Handles Timer1.Tick
Dim a, a1, a2 As String, b, b1, b2 As String, c, c1 As String, d, d1 As String, times As String
a = Format(Now, "dd")
b = Format(Now, "hh")
c = Format(Now, "mm")
d = Format(Now, "ss")
a1 = 115
b1 = 23
c1 = 59
d1 = 59

Me.Label4.Text = a1 – a & ":" & b1 – b & ":" & c1 – c & ":" & d1 – d
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim a As String
Me.Label4.Text = ""
Me.Timer1.Enabled = True
Me.Timer1.Interval = 1000
Me.RichTextBox1.SelectionFont = New Font("宋体", 12, FontStyle.Bold)
Me.RichTextBox1.AppendText("我的寿命出现了什么问题?")
Me.RichTextBox1.AppendText(Environment.NewLine)
Me.RichTextBox1.SelectionFont = New Font("宋体", 10)
Me.RichTextBox1.AppendText("您的寿命被他拿走了一点")
Me.RichTextBox1.AppendText(Environment.NewLine)
Me.RichTextBox1.AppendText(Environment.NewLine)
Me.RichTextBox1.SelectionFont = New Font("宋体", 12, FontStyle.Bold)
Me.RichTextBox1.AppendText("有没有恢复我的寿命的办法?")
Me.RichTextBox1.AppendText(Environment.NewLine)
Me.RichTextBox1.SelectionFont = New Font("宋体", 10)
Me.RichTextBox1.AppendText("当然没有")
Me.RichTextBox1.AppendText(Environment.NewLine)
Me.RichTextBox1.AppendText("您可以点击下面的<苟利国家生死以,岂因祸福避趋之>来获得额外寿命")
Me.RichTextBox1.AppendText(Environment.NewLine)
Me.RichTextBox1.AppendText("也可以单击<I’m angry>来表达你的愤怒")
ComboBox1.Items.Add("简体中文")
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
MsgBox("你又被续了一秒", , "来自蛤的消息")
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
MsgBox("你的寿命多了一秒", , "来自世界的消息")
End Sub

Private Sub Label6_Click(sender As Object, e As EventArgs) Handles Label6.Click
System.Diagnostics.Process.Start("https://blog.nchyn.xyz")
End Sub

Private Sub Label7_Click(sender As Object, e As EventArgs) Handles Label7.Click
System.Diagnostics.Process.Start("http://www.dashangcloud.com/sh/879130")
End Sub
End Class

From1.Designer.vb

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form

‘Form 重写 Dispose,以清理组件列表。
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub

‘Windows 窗体设计器所必需的
Private components As System.ComponentModel.IContainer

‘注意: 以下过程是 Windows 窗体设计器所必需的
‘可以使用 Windows 窗体设计器修改它。
‘不要使用代码编辑器修改它。
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.Label5 = New System.Windows.Forms.Label()
Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout()

‘PictureBox1

Me.PictureBox1.BackgroundImage = CType(resources.GetObject("PictureBox1.BackgroundImage"), System.Drawing.Image)
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.PictureBox1.Location = New System.Drawing.Point(53, 12)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(125, 125)
Me.PictureBox1.TabIndex = 0
Me.PictureBox1.TabStop = False

‘GroupBox1

Me.GroupBox1.Controls.Add(Me.Label4)
Me.GroupBox1.Controls.Add(Me.Label3)
Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Location = New System.Drawing.Point(12, 145)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(200, 130)
Me.GroupBox1.TabIndex = 1
Me.GroupBox1.TabStop = False

‘Label4

Me.Label4.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label4.Font = New System.Drawing.Font("黑体", 15.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Label4.ForeColor = System.Drawing.Color.White
Me.Label4.Location = New System.Drawing.Point(1, 97)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(198, 30)
Me.Label4.TabIndex = 2
Me.Label4.Text = "Label4"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter

‘Label3

Me.Label3.AutoSize = True
Me.Label3.ForeColor = System.Drawing.Color.White
Me.Label3.Location = New System.Drawing.Point(70, 69)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(59, 12)
Me.Label3.TabIndex = 1
Me.Label3.Text = "Life Left"

‘Label2

Me.Label2.AutoSize = True
Me.Label2.ForeColor = System.Drawing.Color.White
Me.Label2.Location = New System.Drawing.Point(44, 41)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(113, 12)
Me.Label2.TabIndex = 1
Me.Label2.Text = "5/15/2017 23:59:59"

‘Label1

Me.Label1.AutoSize = True
Me.Label1.BackColor = System.Drawing.Color.Transparent
Me.Label1.Font = New System.Drawing.Font("微软雅黑", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Label1.ForeColor = System.Drawing.Color.Gold
Me.Label1.Location = New System.Drawing.Point(14, 17)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(156, 17)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Paylife will be raised on"

‘Timer1


‘Label5

Me.Label5.AutoSize = True
Me.Label5.ForeColor = System.Drawing.Color.White
Me.Label5.Location = New System.Drawing.Point(223, 12)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(161, 12)
Me.Label5.TabIndex = 2
Me.Label5.Text = "震惊!您的寿命减少了一秒!"

‘RichTextBox1

Me.RichTextBox1.Location = New System.Drawing.Point(225, 41)
Me.RichTextBox1.Name = "RichTextBox1"
Me.RichTextBox1.Size = New System.Drawing.Size(448, 234)
Me.RichTextBox1.TabIndex = 4
Me.RichTextBox1.Text = ""

‘ComboBox1

Me.ComboBox1.FormattingEnabled = True
Me.ComboBox1.Location = New System.Drawing.Point(552, 9)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(121, 20)
Me.ComboBox1.TabIndex = 5
Me.ComboBox1.Text = "简体中文"

‘Button1

Me.Button1.Location = New System.Drawing.Point(225, 292)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(141, 23)
Me.Button1.TabIndex = 6
Me.Button1.Text = "I’m angry"
Me.Button1.UseVisualStyleBackColor = True

‘Button2

Me.Button2.Location = New System.Drawing.Point(372, 292)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(301, 23)
Me.Button2.TabIndex = 6
Me.Button2.Text = "苟利国家生死以,岂因祸福避趋之"
Me.Button2.UseVisualStyleBackColor = True

‘Label6

Me.Label6.AutoSize = True
Me.Label6.Cursor = System.Windows.Forms.Cursors.Hand
Me.Label6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Label6.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Label6.ForeColor = System.Drawing.Color.CornflowerBlue
Me.Label6.Location = New System.Drawing.Point(15, 292)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(53, 12)
Me.Label6.TabIndex = 7
Me.Label6.Text = "By Nchyn"

‘Label7

Me.Label7.AutoSize = True
Me.Label7.Cursor = System.Windows.Forms.Cursors.Hand
Me.Label7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Label7.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Label7.ForeColor = System.Drawing.Color.CornflowerBlue
Me.Label7.Location = New System.Drawing.Point(15, 306)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(65, 12)
Me.Label7.TabIndex = 7
Me.Label7.Text = "Support us"

‘Form1

Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(125, Byte), Integer), CType(CType(13, Byte), Integer), CType(CType(11, Byte), Integer))
Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.ClientSize = New System.Drawing.Size(685, 332)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.ComboBox1)
Me.Controls.Add(Me.RichTextBox1)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.PictureBox1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "Form1"
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "MoHaCry"
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()

End Sub

Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents GroupBox1 As GroupBox
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents Label3 As Label
Friend WithEvents Timer1 As Timer
Friend WithEvents Label4 As Label
Friend WithEvents Label5 As Label
Friend WithEvents RichTextBox1 As RichTextBox
Friend WithEvents ComboBox1 As ComboBox
Friend WithEvents Button1 As Button
Friend WithEvents Button2 As Button
Friend WithEvents Label6 As Label
Friend WithEvents Label7 As Label
End Class
[/code]