|
【代码】阿斯兰侃吧恶搞程序源代码 |
 准尉 十一級 |
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox("撕裂你！！！！！！！！！" & Chr(10) & _
"把你撕成碎片！！！！！！！！！！ " & Chr(10) & _
"我是爱激的男朋友！ " & Chr(10) & _
"不准你欺负我女朋友！！！！！！！！！！！ ", _
MsgBoxStyle.Critical, "张树人")
MsgBox("我要把你们撕成碎片！" & Chr(10) & _
"把一切娜环无情论者全都撕裂！！！！！！！！ ", _
MsgBoxStyle.Critical, "爱激")
MsgBox("你们别活了！" & Chr(10) & _
"全都给我自杀去！" & Chr(10) & _
"阿瓦达索命！！！！！！！！！！！！ ", _
MsgBoxStyle.Critical, "爱激")
MsgBox("迟早有一天我要把你们全都给撕成碎片！！！！！！！！ ", MsgBoxStyle.Critical, "爱激")
MsgBox("别再让我看到谁说过山车没有生命！" & Chr(10) & _
"永远别再让我看到！" & Chr(10) & _
"我只要看到就想撕裂！" & Chr(10) & _
"别把我惹急了！" & Chr(10) & _
"谁也不可以欺负我朋友！", _
MsgBoxStyle.Critical, "爱激")
MsgBox("迟早有一天我要把你们全都给撕成碎片！！！！！！！！" & Chr(10) & _
"永远无法组合！！！！！！！！！！！！！！！！！！！！！！！！！！！！", _
MsgBoxStyle.Critical, "爱激")
MsgBox("哈哈哈，" & Chr(10) & _
"你懂什么叫骑士吗，" & Chr(10) & _
"你懂什么叫骑士团吗，" & Chr(10) & _
"骑士是扶危救困的英雄，" & Chr(10) & _
"你们这些鸟人算哪门子骑士！", MsgBoxStyle.Critical, "瑞奇")
Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Close()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
|
|
准尉 十一級 |
【Form1.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()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
Me.Button1 = New System.Windows.Forms.Button
Me.Button2 = New System.Windows.Forms.Button
Me.SuspendLayout()
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(12, 12)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 0
Me.Button1.Text = "进入"
Me.Button1.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(93, 12)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(75, 23)
Me.Button2.TabIndex = 1
Me.Button2.Text = "退出"
Me.Button2.UseVisualStyleBackColor = True
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(181, 50)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "Form1"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "阿斯兰侃吧"
Me.ResumeLayout(False)
End Sub
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
End Class
|
|
准尉 十一級 |
【Form1.resx】
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAQAEBACAAEAAQCwAAAARgAAABAQEAABAAQAKAEAAPYAAAAQEAAAAQAIAGgFAAAeAgAAEBAAAAEA
IABoBAAAhgcAACgAAAAQAAAAIAAAAAEAAQAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AAAA
AAAEgAAAAQAAAAiQAAAFJAAAGJAAAApYAAAdUAAACygAAA2uAAAO0AAAC6wAAAbUAAAD2AAAAeAAAAAA
AAD//wAA+H8AAPgfAADwBwAA8AMAAOADAADgAwAA4AMAAOADAADwAQAA8AMAAPADAAD4AwAA/AcAAP4f
AAD//wAAKAAAABAAAAAgAAAAAQAEAAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACA
gACAAAAAgACAAICAAACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAAAAAAAAAAAA
BxNwAAAAAAADAgEAAAAAAHEhMwdwAAAAMDFhMDcAAAdzEhITFgAAA3NxMXMxAAAHgzMwM3IAAAc3NzNT
MQAAAIt5MzNzcAAAeDe3E3MAAACLi3MzMQAAAAh4k3N3AAAAAIuLNzAAAAAACIiAAAAAAAAAAAAAAP//
AAD4fwAA+B8AAPAHAADwAwAA4AMAAOADAADgAwAA4AMAAPABAADwAwAA8AMAAPgDAAD8BwAA/h8AAP//
AAAoAAAAEAAAACAAAAABAAgAAAAAAAABAAAAAAAAAAAAAAABAAAAAQAAAAAAAAghKQAKJzEACSkzAAsv
OgALMT0AFDA4AAwzQAANNkMADTlIAA48SwAOPk4AJjxDABBATwAPQVEAEENTABBDVAAQRVYAEUdZABFI
WgASSlwAKkJKAD5RVwA2VF4AP1dfABJPYgAUTmEAE1NnABRSZgATVGkAFFVqABVWbAAVWG4AGl1yABpf
dgAgXXEAF2J7ABhjfABebnIAbHp+ABloggAfaoMAGWqFABxshwAdcIsAG3OPAB92kgAcdpQAHn2dAC5t
ggAidZAAIXyaACF+nQBBcIAAU3SJACmCnwAnhqUAKYelACaIqAAji60AJ4yuACuKqQAsjKsAOIqlADeO
qwA7ka8AJZCzAC+UtQAtlrkAOZSyADaavABDgpcAS4CRAEyBlABrgYkARI2kAE6NogBfj6AAVpKlAGeb
rABvmq0AbJ2tAEGgvwBVpb8AaKi+AHOrvwBOqMUAXKnDAGGwygBstc0AcLDGAHO3zgB/u84Ae73TAI65
xwCJuckAi7zNAJO4yACMwtUAlsXTAL3Z4gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AAAAAAAAAAAAAAAAAAAA
AAAAAAAAADUNFxgAAAAAAAAAAAAAAAATCwsEBgEAAAAAAAAAAABOBQgLDg4DFSYAAAAAAAAAIQgJDhIT
EBkVJwAAAAAAT0cjEA4OEBktExYAAAAAADVRMRofEwsTOywMAAAAAABNYkUlJCATEy46AgAAAAAANklA
MzAqHxMlOAQAAAAAAABUVz86MCofITgaSgAAAAAAUVpMRUItID1DGQAAAAAAAGFVW1NGMyoyPR8AAAAA
AAAAX1xZVkQrKjdIAAAAAAAAAABjXVhSOEtOAAAAAAAAAAAAAGRfX14AAAAAAAAAAAAAAAAAAAAAAAAA
AAD//wAA+H8AAPgfAADwBwAA8AMAAOADAADgAwAA4AMAAOADAADwAQAA8AMAAPADAAD4AwAA/AcAAP4f
AAD//wAAKAAAABAAAAAgAAAAAQAgAAAAAABABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAADjpIIQw1QiwJKDIQBx8nCwQUGQEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAACzA8BxFMX8kOPk38CzA80gknMcYHIChlBx8mXAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAABNXbToQR1n9Dj5O/w06SP8LLzv/CCUu8gcgKP0HHyYrBh0jLwAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAB9ZbA8aaYO7CzE9/w02Q/8PP07/EENT/xBGV/8JKTP/CCUu2wcfJqUGGyIqAAAAAAAA
AAAAAAAAAAAAAAAAAAA9i6RsG11y/wwzQP8NOUj/EENU/xBFVv8RR1n/D0JT/xJPYv8HIyzbBx8mlwQT
FwQAAAAAAAAAAAAAAAA6YGwBSoid1kOCl/8gXXH/D0FR/xBEVf8QQ1P/D0FR/xNTZ/8bc4//EUha/wcf
J8YFGR8wAAAAAAAAAAAAAAAAbJ+wQEBwgP5sna3/Lm2C/xRNYf8UVGn/EUlb/w48S/8SSl3/I4ut/x1w
i/8HISnfBhshVQAAAAAAAAAAAAAAAIOzw0lfj6D+jMLV/zmUsv8YY3z/F2J7/xVYbv8RR1n/Ekpc/x92
kv8miKj/CCUv/AYbIlYAAAAAAAAAAAAAAAB4obAcPmN64kyBlP83jqv/IXya/x58nP8aa4X/FVZs/xFI
Wv8aX3b/J4al/wsvOv8JJzFPAAAAAAAAAAAAAAAAAAAAAFaGmydjpbz2XKnD/ziKpf8njK7/Hn6e/xlo
gv8VVmv/GV1z/ymHpf8UT2L/CzA8mgAAAAAAAAAAAAAAAAAAAAAAAAAAVomf2XCwxv9OjaL/O5Gv/yWQ
s/8cdpT/FVdt/yuKqf8vlLX/FFJm/w47SXoAAAAAAAAAAAAAAAAAAAAASm19CmaasbNzq7//c7fO/1Wl
v/82mrz/IH6d/xlqhf8idZD/LIyr/xNUaf8PPk43AAAAAAAAAAAAAAAAAAAAAAAAAABrmK0cgbXI73+7
zv9stc3/TqjF/y2Wuf8cbIf/H2qD/yN/nf4VW3HEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIGy
wjyBucvTer3T/WGwyv9BoL//KYKf/z6JofYteZHNGWN6NwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAXIiXBH+2yIKCt8nrda2/2Gmitb9ZkqV3OnGDCgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAV210AVNrcgQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD4PwAA8B8AAPAH
AADgAwAA4AEAAMABAADAAQAAwAEAAMABAADgAQAA8AEAAOABAADwAwAA+AMAAPwHAAD/PwAA
</value>
</data>
</root>
|
|
准尉 十一級 |
又话说vb文件可以直接用dw打开
代码颜色还是很好
|
