Leahnaya/PKMG5DC
1
0
Fork 0
mirror of https://github.com/RenegadeRaven/PKMG5DC.git synced 2026-09-13 04:55:39 -05:00
Code Issues Actions Packages Projects Releases Wiki Activity

基于2.0.0.1汉化

Browse Source 
简中汉化版
This commit is contained in:
卧看微尘
2022-06-18 21:29:30 +08:00
committed by GitHub
parent cc89e35df4
commit 957d3c3200
45 changed files with 7263 additions and 5245 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
PKMG5DC/About.Designer.vb generated
View File

@@ -31,6 +31,8 @@ Partial Class About
Me.lklb_12distro = New System.Windows.Forms.LinkLabel()
Me.lb_Source = New System.Windows.Forms.Label()
Me.lklb_Source = New System.Windows.Forms.LinkLabel()
Me.lb_SourceCHS = New System.Windows.Forms.Label()
Me.lklb_SourceCHS = New System.Windows.Forms.LinkLabel()
Me.SuspendLayout()
'
'Timer1
@@ -45,9 +47,8 @@ Partial Class About
Me.lb_Description.Name = "lb_Description"
Me.lb_Description.Size = New System.Drawing.Size(276, 60)
Me.lb_Description.TabIndex = 0
Me.lb_Description.Text = "This program builds Distribution ROMs for Gen 5 " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Pokémon games. With a copy of t" &
"he Liberty Ticket" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Distribution ROM and a .pgf event file, you can " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "make a Dist" &
"ribution ROM."
Me.lb_Description.Text = "本程序用于构建GEN5游戏的配信ROM" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "通过一个原始的自由船票配信ROM" &
"和.pgf配信文件，" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "你可以自制一份对应事件的配信ROM。" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & ""
'
'lb_Includes
'
@@ -56,7 +57,7 @@ Partial Class About
Me.lb_Includes.Name = "lb_Includes"
Me.lb_Includes.Size = New System.Drawing.Size(160, 13)
Me.lb_Includes.TabIndex = 1
Me.lb_Includes.Text = "This program contains copies of:"
Me.lb_Includes.Text = "本程序包含以下程序的相关内容："
'
'lklb_Ndstool
'
@@ -95,7 +96,7 @@ Partial Class About
Me.lb_Source.Name = "lb_Source"
Me.lb_Source.Size = New System.Drawing.Size(72, 13)
Me.lb_Source.TabIndex = 5
Me.lb_Source.Text = "Source Code:"
Me.lb_Source.Text = "源代码:"
'
'lklb_Source
'
@@ -107,11 +108,32 @@ Partial Class About
Me.lklb_Source.TabStop = True
Me.lklb_Source.Text = "GitHub"
'
'lb_SourceCHS
'
Me.lb_SourceCHS.AutoSize = True
Me.lb_SourceCHS.Location = New System.Drawing.Point(13, 310)
Me.lb_SourceCHS.Name = "lb_SourceCHS"
Me.lb_SourceCHS.Size = New System.Drawing.Size(72, 13)
Me.lb_SourceCHS.TabIndex = 7
Me.lb_SourceCHS.Text = "汉化版源代码:"
'
'lklb_SourceCHS
'
Me.lklb_SourceCHS.AutoSize = True
Me.lklb_SourceCHS.Location = New System.Drawing.Point(92, 310)
Me.lklb_SourceCHS.Name = "lklb_SourceCHS"
Me.lklb_SourceCHS.Size = New System.Drawing.Size(40, 13)
Me.lklb_SourceCHS.TabIndex = 8
Me.lklb_SourceCHS.TabStop = True
Me.lklb_SourceCHS.Text = "GitHub-汉化"
'
'About
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(275, 365)
Me.Controls.Add(Me.lklb_SourceCHS)
Me.Controls.Add(Me.lb_SourceCHS)
Me.Controls.Add(Me.lklb_Source)
Me.Controls.Add(Me.lb_Source)
Me.Controls.Add(Me.lklb_12distro)
@@ -121,7 +143,7 @@ Partial Class About
Me.Controls.Add(Me.lb_Description)
Me.Name = "About"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "About"
Me.Text = "关于"
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -135,4 +157,6 @@ Partial Class About
Friend WithEvents lklb_12distro As LinkLabel
Friend WithEvents lb_Source As Label
Friend WithEvents lklb_Source As LinkLabel
Friend WithEvents lb_SourceCHS As Label
Friend WithEvents lklb_SourceCHS As LinkLabel
End Class

3
PKMG5DC/About.vb
View File

@@ -17,4 +17,7 @@
Private Sub LinkLabel4_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklb_Source.LinkClicked
Process.Start("https://github.com/PlasticJustice/PKMG5DC")
End Sub
Private Sub LinkLabel5_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklb_SourceCHS.LinkClicked
Process.Start("https://github.com/Wokann/PKMG5DC_CHS")
End Sub
End Class

44
PKMG5DC/App.config
View File

@@ -1,22 +1,22 @@
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
<section name="PKMG5DC.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
</configSections>
<connectionStrings />
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1" />
</startup>
<userSettings>
<PKMG5DC.My.MySettings>
<setting name="ticket" serializeAs="String">
<value />
</setting>
<setting name="Region" serializeAs="String">
<value>0</value>
</setting>
</PKMG5DC.My.MySettings>
</userSettings>
</configuration>
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<section name="PKMG5DC.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false"/>
</sectionGroup>
</configSections>
<connectionStrings/>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8"/>
</startup>
<userSettings>
<PKMG5DC.My.MySettings>
<setting name="ticket" serializeAs="String">
<value/>
</setting>
<setting name="Region" serializeAs="String">
<value>0</value>
</setting>
</PKMG5DC.My.MySettings>
</userSettings>
</configuration>

47
PKMG5DC/Common.vb
View File

@@ -1,5 +1,40 @@
Imports System.Text
Module Common
'Custom MsgBox
Public Function MsgB(ByVal mes As String, Optional ByVal numB As Integer = 1, Optional ByVal but1 As String = "OK", Optional ByVal but2 As String = "Cancel", Optional ByVal but3 As String = "", Optional ByVal head As String = "")
Dim msg As New CustomMessageBox(mes, numB, but1, but2, but3, head)
Dim result = msg.ShowDialog()
Dim Ans As Integer
If result = Windows.Forms.DialogResult.Yes Then
'user clicked "B1"
Ans = 6
ElseIf result = Windows.Forms.DialogResult.No Then
'user clicked "B2"
Ans = 7
ElseIf result = Windows.Forms.DialogResult.Cancel Then
'user clicked "B3"
Ans = 8
Else
'user closed the window without clicking a button
Ans = -1
'Form4.Close()
Form.ActiveForm.Close()
End If
Return Ans
End Function
Public Function GetString(data As Byte(), offset As Byte, count As UShort)
Return Encoding.Unicode.GetString(data, offset, count).Replace(ChrW(&HFFFF), "").Replace(ChrW(&H0), "").Replace(ChrW(&HFFFE), vbLf)
End Function
Public Function SetString(ByVal value As String, ByVal maxLength As Integer)
' value = value.Replace(vbLf, ChrW(&HFFFE))
If value.Length > maxLength Then value = value.Substring(0, maxLength)
Do While value.Length < maxLength
value &= ChrW(&HFFFF)
Loop
Dim temp As String = value & ChrW(&HFFFF)
Return Encoding.Unicode.GetBytes(temp)
End Function
Public Sub ReadIni()
With Main5.mySettings
.Filename = Main5.Local & "\settings.ini"
@@ -9,10 +44,10 @@ Module Common
Main5.ToolVer = .GetValue("Tool Version")
'.SetValue("Ticket", My.Settings.ticket)
If Not .SaveIni Then
MsgBox("Trouble writing Ini-File")
MsgB("无法写入Ini配置文件")
End If
Else
MsgBox("No Ini-File found")
MsgB("未找到Ini配置文件")
End If
End With
End Sub
@@ -22,13 +57,13 @@ Module Common
If .OpenIniFile() Then
'Dim MyValue As String = .GetValue("MyKey")
.SetValue("Ticket", My.Settings.ticket)
.SetValue("Region", My.Settings.Region)
.SetValue("Tool Version", Main5.ToolVer)
.SetValue("区域", My.Settings.Region)
.SetValue("工具版本", Main5.ToolVer)
If Not .SaveIni Then
MsgBox("Trouble by writing Ini-File")
MsgB("无法写入Ini配置文件")
End If
Else
MsgBox("No Ini-File found")
MsgB("未找到Ini配置文件")
End If
End With
End Sub

115
PKMG5DC/Essentials/CustomMessageBox.Designer.vb generated
View File

@@ -23,63 +23,63 @@ Partial Class CustomMessageBox
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(CustomMessageBox))
Me.bt_First = New System.Windows.Forms.Button()
Me.bt_Second = New System.Windows.Forms.Button()
Me.lb_Message = New System.Windows.Forms.Label()
Me.pb_ButtonArea = New System.Windows.Forms.PictureBox()
Me.bt_Third = New System.Windows.Forms.Button()
CType(Me.pb_ButtonArea, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Button3 = New System.Windows.Forms.Button()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'bt_First
'Button1
'
Me.bt_First.AutoSize = True
Me.bt_First.Location = New System.Drawing.Point(10, 80)
Me.bt_First.Name = "bt_First"
Me.bt_First.Size = New System.Drawing.Size(75, 23)
Me.bt_First.TabIndex = 0
Me.bt_First.Text = "Button1"
Me.bt_First.UseVisualStyleBackColor = True
Me.Button1.AutoSize = True
Me.Button1.Location = New System.Drawing.Point(10, 80)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 0
Me.Button1.Text = "按键1"
Me.Button1.UseVisualStyleBackColor = True
'
'bt_Second
'Button2
'
Me.bt_Second.AutoSize = True
Me.bt_Second.Location = New System.Drawing.Point(104, 80)
Me.bt_Second.Name = "bt_Second"
Me.bt_Second.Size = New System.Drawing.Size(75, 23)
Me.bt_Second.TabIndex = 1
Me.bt_Second.Text = "Button2"
Me.bt_Second.UseVisualStyleBackColor = True
Me.Button2.AutoSize = True
Me.Button2.Location = New System.Drawing.Point(104, 80)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(75, 23)
Me.Button2.TabIndex = 1
Me.Button2.Text = "按键2"
Me.Button2.UseVisualStyleBackColor = True
'
'lb_Message
'Label1
'
Me.lb_Message.Anchor = System.Windows.Forms.AnchorStyles.None
Me.lb_Message.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lb_Message.Location = New System.Drawing.Point(7, 6)
Me.lb_Message.Name = "lb_Message"
Me.lb_Message.Size = New System.Drawing.Size(270, 57)
Me.lb_Message.TabIndex = 2
Me.lb_Message.Text = "Label1"
Me.lb_Message.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.Label1.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(7, 6)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(270, 57)
Me.Label1.TabIndex = 2
Me.Label1.Text = "标签1"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'pb_ButtonArea
'PictureBox1
'
Me.pb_ButtonArea.BackColor = System.Drawing.SystemColors.ControlLight
Me.pb_ButtonArea.Location = New System.Drawing.Point(-4, 69)
Me.pb_ButtonArea.Name = "pb_ButtonArea"
Me.pb_ButtonArea.Size = New System.Drawing.Size(294, 70)
Me.pb_ButtonArea.TabIndex = 3
Me.pb_ButtonArea.TabStop = False
Me.PictureBox1.BackColor = System.Drawing.SystemColors.ControlLight
Me.PictureBox1.Location = New System.Drawing.Point(-4, 69)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(294, 70)
Me.PictureBox1.TabIndex = 3
Me.PictureBox1.TabStop = False
'
'bt_Third
'Button3
'
Me.bt_Third.AutoSize = True
Me.bt_Third.Location = New System.Drawing.Point(197, 80)
Me.bt_Third.Name = "bt_Third"
Me.bt_Third.Size = New System.Drawing.Size(75, 23)
Me.bt_Third.TabIndex = 4
Me.bt_Third.Text = "Button3"
Me.bt_Third.UseVisualStyleBackColor = True
Me.Button3.AutoSize = True
Me.Button3.Location = New System.Drawing.Point(197, 80)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(75, 23)
Me.Button3.TabIndex = 4
Me.Button3.Text = "按键3"
Me.Button3.UseVisualStyleBackColor = True
'
'CustomMessageBox
'
@@ -88,24 +88,25 @@ Partial Class CustomMessageBox
Me.BackColor = System.Drawing.SystemColors.Control
Me.ClientSize = New System.Drawing.Size(284, 111)
Me.ControlBox = False
Me.Controls.Add(Me.bt_Third)
Me.Controls.Add(Me.lb_Message)
Me.Controls.Add(Me.bt_Second)
Me.Controls.Add(Me.bt_First)
Me.Controls.Add(Me.pb_ButtonArea)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.PictureBox1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "CustomMessageBox"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = " "
CType(Me.pb_ButtonArea, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents bt_First As Button
Friend WithEvents bt_Second As Button
Friend WithEvents lb_Message As Label
Friend WithEvents pb_ButtonArea As PictureBox
Friend WithEvents bt_Third As Button
Friend WithEvents Button1 As Button
Friend WithEvents Button2 As Button
Friend WithEvents Label1 As Label
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents Button3 As Button
End Class

1974
PKMG5DC/Essentials/CustomMessageBox.resx
View File

File diff suppressed because it is too large Load Diff

73
PKMG5DC/Essentials/CustomMessageBox.vb
View File

@@ -1,61 +1,42 @@
Public Class CustomMessageBox
Public Sub New(ByVal message As String, Optional ByVal numberOfButtons As Integer = 1, Optional ByVal button1Text As String = "OK", Optional ByVal button2Text As String = "Cancel", Optional ByVal button3Text As String = "", Optional ByVal header As String = "")
Public Sub New(ByVal message As String, Optional ByVal numB As Integer = 1, Optional ByVal button1Name As String = "OK", Optional ByVal button2name As String = "Cancel", Optional ByVal button3name As String = "", Optional ByVal header As String = "")
InitializeComponent()
lb_Message.Text = message
If numberOfButtons = 0 Then numberOfButtons = 1
If numberOfButtons = 1 Then
bt_First.Text = button1Text
bt_First.Location = New Point(104, 80)
bt_Second.Hide()
bt_Third.Hide()
ElseIf numberOfButtons = 2 Then
bt_First.Text = button1Text
bt_Second.Text = button2Text
bt_First.Location = New Point(37, 80)
bt_Second.Location = New Point(163, 80)
bt_Third.Hide()
ElseIf numberOfButtons = 3 Then
bt_First.Text = button1Text
bt_Second.Text = button2Text
bt_Third.Text = button3Text
bt_First.Location = New Point(10, 80)
bt_Second.Location = New Point(104, 80)
bt_Third.Location = New Point(197, 80)
Label1.Text = message
If numB = 0 Then
numB = 1
End If
If numB = 1 Then
Button1.Text = button1Name
Button1.Location = New Point(104, 80)
Button2.Hide()
Button3.Hide()
ElseIf numB = 2 Then
Button1.Text = button1Name
Button2.Text = button2name
Button1.Location = New Point(37, 80)
Button2.Location = New Point(163, 80)
Button3.Hide()
ElseIf numB = 3 Then
Button1.Text = button1Name
Button2.Text = button2name
Button3.Text = button3name
Button1.Location = New Point(10, 80)
Button2.Location = New Point(104, 80)
Button3.Location = New Point(197, 80)
End If
Me.Text = header
DialogResult = Windows.Forms.DialogResult.Abort
End Sub
Private Sub Bt_First_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_First.Click
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
DialogResult = Windows.Forms.DialogResult.Yes
Close()
End Sub
Private Sub Bt_Second_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Second.Click
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
DialogResult = Windows.Forms.DialogResult.No
Close()
End Sub
Private Sub Bt_Third_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Third.Click
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
DialogResult = Windows.Forms.DialogResult.Cancel
Close()
End Sub
End Class
Module CustomMsgBox
'Custom MsgBox
Public Function MsgBox(ByVal message As String, Optional ByVal numberOfButtons As Integer = 1, Optional ByVal button1Text As String = "OK", Optional ByVal button2Text As String = "Cancel", Optional ByVal button3Text As String = "", Optional ByVal header As String = "")
Dim msg As New CustomMessageBox(message, numberOfButtons, button1Text, button2Text, button3Text, header)
Dim result = msg.ShowDialog()
If result = Windows.Forms.DialogResult.Yes Then
'user clicked "B1"
Return 6
ElseIf result = Windows.Forms.DialogResult.No Then
'user clicked "B2"
Return 7
ElseIf result = Windows.Forms.DialogResult.Cancel Then
'user clicked "B3"
Return 8
Else
'user closed the window without clicking a button
Form.ActiveForm.Close()
Return -1
End If
End Function
End Module
End Class

8
PKMG5DC/Essentials/IniFile.vb
View File

@@ -13,7 +13,7 @@ Public Class IniFile
Private _ds As DataSet
Private _dv As DataView
Private _dr As DataRow
Private TmpStringComplete As New StringBuilder
Private TmpStringInhaltKomplett As New StringBuilder
Private StringIniFile As String
Public Property Filename() As String
@@ -75,12 +75,12 @@ Public Class IniFile
End If
If tmpStringLine.StartsWith(_strIniArgumentsBegins) Then
tmpBool = True
_strPrefix = TmpStringComplete.ToString
_strPrefix = TmpStringInhaltKomplett.ToString
End If
TmpStringComplete.Append(tmpStringLine & Environment.NewLine)
TmpStringInhaltKomplett.Append(tmpStringLine & Environment.NewLine)
Loop Until tmpStringLine Is Nothing
ssr.Close()
StringIniFile = TmpStringComplete.ToString
StringIniFile = TmpStringInhaltKomplett.ToString
Return True
_ds.AcceptChanges()
Catch ex As Exception

810
PKMG5DC/Main5.Designer.vb generated
View File

@@ -22,411 +22,411 @@ Partial Class Main5
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Main5))
Me.lklb_Update = New System.Windows.Forms.LinkLabel()
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.tsmi_Options = New System.Windows.Forms.ToolStripMenuItem()
Me.tscb_Region = New System.Windows.Forms.ToolStripComboBox()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.tsmi_About = New System.Windows.Forms.ToolStripMenuItem()
Me.HoverInfo = New System.Windows.Forms.ToolTip(Me.components)
Me.pb_Donate = New System.Windows.Forms.PictureBox()
Me.gb_GameComp = New System.Windows.Forms.GroupBox()
Me.cb_White2 = New System.Windows.Forms.CheckBox()
Me.cb_Black2 = New System.Windows.Forms.CheckBox()
Me.cb_White = New System.Windows.Forms.CheckBox()
Me.cb_Black = New System.Windows.Forms.CheckBox()
Me.gb_Region = New System.Windows.Forms.GroupBox()
Me.cb_Region = New System.Windows.Forms.ComboBox()
Me.gb_DateLimit = New System.Windows.Forms.GroupBox()
Me.cb_MaxLimit = New System.Windows.Forms.CheckBox()
Me.lb_End = New System.Windows.Forms.Label()
Me.lb_Start = New System.Windows.Forms.Label()
Me.EndDatePicker = New System.Windows.Forms.DateTimePicker()
Me.StartDatePicker = New System.Windows.Forms.DateTimePicker()
Me.lb_EventMsg = New System.Windows.Forms.Label()
Me.rtb_EventMsg = New System.Windows.Forms.RichTextBox()
Me.lklb_Author = New System.Windows.Forms.LinkLabel()
Me.lb_By = New System.Windows.Forms.Label()
Me.bt_Custom = New System.Windows.Forms.Button()
Me.lb_PGF = New System.Windows.Forms.Label()
Me.bt_PGF = New System.Windows.Forms.Button()
Me.tc_Cards = New System.Windows.Forms.TabControl()
Me.tp_Add = New System.Windows.Forms.TabPage()
Me.pnl_EditCard = New System.Windows.Forms.Panel()
Me.bt_Build = New System.Windows.Forms.Button()
Me.MenuStrip1.SuspendLayout()
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
CType(Me.pb_Donate, System.ComponentModel.ISupportInitialize).BeginInit()
Me.gb_GameComp.SuspendLayout()
Me.gb_Region.SuspendLayout()
Me.gb_DateLimit.SuspendLayout()
Me.tc_Cards.SuspendLayout()
Me.tp_Add.SuspendLayout()
Me.pnl_EditCard.SuspendLayout()
Me.SuspendLayout()
'
'lklb_Update
'
Me.lklb_Update.AutoSize = True
Me.lklb_Update.Location = New System.Drawing.Point(1, 4)
Me.lklb_Update.Name = "lklb_Update"
Me.lklb_Update.Size = New System.Drawing.Size(116, 13)
Me.lklb_Update.TabIndex = 6
Me.lklb_Update.TabStop = True
Me.lklb_Update.Text = "New Update Available!"
Me.HoverInfo.SetToolTip(Me.lklb_Update, "New Features! Download the new version")
'
'MenuStrip1
'
Me.MenuStrip1.BackColor = System.Drawing.Color.Transparent
Me.MenuStrip1.Dock = System.Windows.Forms.DockStyle.None
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmi_Options})
Me.MenuStrip1.Location = New System.Drawing.Point(113, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(69, 24)
Me.MenuStrip1.Stretch = False
Me.MenuStrip1.TabIndex = 29
Me.MenuStrip1.Text = "MenuStrip1"
'
'tsmi_Options
'
Me.tsmi_Options.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tscb_Region, Me.ToolStripSeparator1, Me.tsmi_About, Me.ToolStripMenuItem2})
Me.tsmi_Options.Name = "tsmi_Options"
Me.tsmi_Options.Size = New System.Drawing.Size(61, 20)
Me.tsmi_Options.Text = "Options"
'
'tscb_Region
'
Me.tscb_Region.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.tscb_Region.DropDownWidth = 170
Me.tscb_Region.FlatStyle = System.Windows.Forms.FlatStyle.Standard
Me.tscb_Region.Items.AddRange(New Object() {"English (US/UK/AU)", "Français (France/Québec)", "Italiano (Italy)", "Deutsch (Germany)", "Español (Spain/Latin Americas)", "日本語 (Japan)", "한국어 (South Korea)"})
Me.tscb_Region.Name = "tscb_Region"
Me.tscb_Region.Size = New System.Drawing.Size(130, 23)
Me.tscb_Region.ToolTipText = "Default Region"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(187, 6)
'
'tsmi_About
'
Me.tsmi_About.Name = "tsmi_About"
Me.tsmi_About.Size = New System.Drawing.Size(190, 22)
Me.tsmi_About.Text = "About"
'
'ToolStripMenuItem2
'
Me.ToolStripMenuItem2.BackgroundImage = Global.PKMG5DC.My.Resources.Resources.ppdb
Me.ToolStripMenuItem2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.ToolStripMenuItem2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripMenuItem2.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
Me.ToolStripMenuItem2.Size = New System.Drawing.Size(215, 22)
Me.ToolStripMenuItem2.Text = " Donate"
Me.ToolStripMenuItem2.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'pb_Donate
'
Me.pb_Donate.BackColor = System.Drawing.SystemColors.Control
Me.pb_Donate.BackgroundImage = CType(resources.GetObject("pb_Donate.BackgroundImage"), System.Drawing.Image)
Me.pb_Donate.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.pb_Donate.Cursor = System.Windows.Forms.Cursors.Hand
Me.pb_Donate.Location = New System.Drawing.Point(218, 3)
Me.pb_Donate.Name = "pb_Donate"
Me.pb_Donate.Size = New System.Drawing.Size(80, 22)
Me.pb_Donate.TabIndex = 32
Me.pb_Donate.TabStop = False
'
'gb_GameComp
'
Me.gb_GameComp.Controls.Add(Me.cb_White2)
Me.gb_GameComp.Controls.Add(Me.cb_Black2)
Me.gb_GameComp.Controls.Add(Me.cb_White)
Me.gb_GameComp.Controls.Add(Me.cb_Black)
Me.gb_GameComp.Location = New System.Drawing.Point(6, 67)
Me.gb_GameComp.Name = "gb_GameComp"
Me.gb_GameComp.Size = New System.Drawing.Size(142, 66)
Me.gb_GameComp.TabIndex = 33
Me.gb_GameComp.TabStop = False
Me.gb_GameComp.Text = "Game Compatibility"
'
'cb_White2
'
Me.cb_White2.AutoSize = True
Me.cb_White2.Location = New System.Drawing.Point(73, 41)
Me.cb_White2.Name = "cb_White2"
Me.cb_White2.Size = New System.Drawing.Size(63, 17)
Me.cb_White2.TabIndex = 3
Me.cb_White2.Text = "White 2"
Me.cb_White2.UseVisualStyleBackColor = True
'
'cb_Black2
'
Me.cb_Black2.AutoSize = True
Me.cb_Black2.Location = New System.Drawing.Point(12, 41)
Me.cb_Black2.Name = "cb_Black2"
Me.cb_Black2.Size = New System.Drawing.Size(62, 17)
Me.cb_Black2.TabIndex = 2
Me.cb_Black2.Text = "Black 2"
Me.cb_Black2.UseVisualStyleBackColor = True
'
'cb_White
'
Me.cb_White.AutoSize = True
Me.cb_White.Location = New System.Drawing.Point(73, 18)
Me.cb_White.Name = "cb_White"
Me.cb_White.Size = New System.Drawing.Size(54, 17)
Me.cb_White.TabIndex = 1
Me.cb_White.Text = "White"
Me.cb_White.UseVisualStyleBackColor = True
'
'cb_Black
'
Me.cb_Black.AutoSize = True
Me.cb_Black.Location = New System.Drawing.Point(12, 18)
Me.cb_Black.Name = "cb_Black"
Me.cb_Black.Size = New System.Drawing.Size(53, 17)
Me.cb_Black.TabIndex = 0
Me.cb_Black.Text = "Black"
Me.cb_Black.UseVisualStyleBackColor = True
'
'gb_Region
'
Me.gb_Region.Controls.Add(Me.cb_Region)
Me.gb_Region.Location = New System.Drawing.Point(6, 139)
Me.gb_Region.Name = "gb_Region"
Me.gb_Region.Size = New System.Drawing.Size(142, 41)
Me.gb_Region.TabIndex = 34
Me.gb_Region.TabStop = False
Me.gb_Region.Text = "Region"
'
'cb_Region
'
Me.cb_Region.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cb_Region.FormattingEnabled = True
Me.cb_Region.Items.AddRange(New Object() {"English (US/UK/AU)", "Français (France/Québec)", "Italiano (Italy)", "Deutsch (Germany)", "Español (Spain/Latin Americas)", "日本語 (Japan)", "한국어 (South Korea)"})
Me.cb_Region.Location = New System.Drawing.Point(6, 14)
Me.cb_Region.Name = "cb_Region"
Me.cb_Region.Size = New System.Drawing.Size(130, 21)
Me.cb_Region.TabIndex = 35
'
'gb_DateLimit
'
Me.gb_DateLimit.Controls.Add(Me.cb_MaxLimit)
Me.gb_DateLimit.Controls.Add(Me.lb_End)
Me.gb_DateLimit.Controls.Add(Me.lb_Start)
Me.gb_DateLimit.Controls.Add(Me.EndDatePicker)
Me.gb_DateLimit.Controls.Add(Me.StartDatePicker)
Me.gb_DateLimit.Location = New System.Drawing.Point(155, 67)
Me.gb_DateLimit.Name = "gb_DateLimit"
Me.gb_DateLimit.Size = New System.Drawing.Size(117, 113)
Me.gb_DateLimit.TabIndex = 35
Me.gb_DateLimit.TabStop = False
Me.gb_DateLimit.Text = "Date Limit"
'
'cb_MaxLimit
'
Me.cb_MaxLimit.AutoSize = True
Me.cb_MaxLimit.Location = New System.Drawing.Point(12, 89)
Me.cb_MaxLimit.Name = "cb_MaxLimit"
Me.cb_MaxLimit.Size = New System.Drawing.Size(95, 17)
Me.cb_MaxLimit.TabIndex = 4
Me.cb_MaxLimit.Text = "Auto Max Limit"
Me.cb_MaxLimit.UseVisualStyleBackColor = True
'
'lb_End
'
Me.lb_End.AutoSize = True
Me.lb_End.Location = New System.Drawing.Point(8, 51)
Me.lb_End.Name = "lb_End"
Me.lb_End.Size = New System.Drawing.Size(29, 13)
Me.lb_End.TabIndex = 3
Me.lb_End.Text = "End:"
'
'lb_Start
'
Me.lb_Start.AutoSize = True
Me.lb_Start.Location = New System.Drawing.Point(8, 16)
Me.lb_Start.Name = "lb_Start"
Me.lb_Start.Size = New System.Drawing.Size(32, 13)
Me.lb_Start.TabIndex = 2
Me.lb_Start.Text = "Start:"
'
'EndDatePicker
'
Me.EndDatePicker.CustomFormat = "yyyy/MM/dd"
Me.EndDatePicker.Format = System.Windows.Forms.DateTimePickerFormat.Custom
Me.EndDatePicker.Location = New System.Drawing.Point(8, 64)
Me.EndDatePicker.Name = "EndDatePicker"
Me.EndDatePicker.Size = New System.Drawing.Size(102, 20)
Me.EndDatePicker.TabIndex = 1
Me.EndDatePicker.Value = New Date(2018, 10, 5, 0, 0, 0, 0)
'
'StartDatePicker
'
Me.StartDatePicker.CustomFormat = "yyyy/MM/dd"
Me.StartDatePicker.Format = System.Windows.Forms.DateTimePickerFormat.Custom
Me.StartDatePicker.Location = New System.Drawing.Point(8, 29)
Me.StartDatePicker.Name = "StartDatePicker"
Me.StartDatePicker.Size = New System.Drawing.Size(102, 20)
Me.StartDatePicker.TabIndex = 0
Me.StartDatePicker.Value = New Date(2018, 10, 5, 0, 0, 0, 0)
'
'lb_EventMsg
'
Me.lb_EventMsg.AutoSize = True
Me.lb_EventMsg.Location = New System.Drawing.Point(30, 183)
Me.lb_EventMsg.Name = "lb_EventMsg"
Me.lb_EventMsg.Size = New System.Drawing.Size(84, 13)
Me.lb_EventMsg.TabIndex = 37
Me.lb_EventMsg.Text = "Event Message:"
'
'rtb_EventMsg
'
Me.rtb_EventMsg.Location = New System.Drawing.Point(30, 196)
Me.rtb_EventMsg.MaxLength = 252
Me.rtb_EventMsg.Name = "rtb_EventMsg"
Me.rtb_EventMsg.ScrollBars = System.Windows.Forms.RichTextBoxScrollBars.None
Me.rtb_EventMsg.Size = New System.Drawing.Size(223, 97)
Me.rtb_EventMsg.TabIndex = 36
Me.rtb_EventMsg.Text = ""
Me.rtb_EventMsg.WordWrap = False
'
'lklb_Author
'
Me.lklb_Author.AutoSize = True
Me.lklb_Author.Location = New System.Drawing.Point(15, 434)
Me.lklb_Author.Name = "lklb_Author"
Me.lklb_Author.Size = New System.Drawing.Size(47, 13)
Me.lklb_Author.TabIndex = 40
Me.lklb_Author.TabStop = True
Me.lklb_Author.Text = "Regnum"
'
'lb_By
'
Me.lb_By.AutoSize = True
Me.lb_By.Location = New System.Drawing.Point(1, 434)
Me.lb_By.Name = "lb_By"
Me.lb_By.Size = New System.Drawing.Size(18, 13)
Me.lb_By.TabIndex = 41
Me.lb_By.Text = "by"
'
'bt_Custom
'
Me.bt_Custom.Font = New System.Drawing.Font("Microsoft Sans Serif", 32.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Document, CType(0, Byte))
Me.bt_Custom.Location = New System.Drawing.Point(6, 6)
Me.bt_Custom.Name = "bt_Custom"
Me.bt_Custom.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.bt_Custom.Size = New System.Drawing.Size(130, 23)
Me.bt_Custom.TabIndex = 44
Me.bt_Custom.Text = "Custom"
Me.bt_Custom.UseVisualStyleBackColor = True
'
'lb_PGF
'
Me.lb_PGF.AutoEllipsis = True
Me.lb_PGF.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.lb_PGF.Location = New System.Drawing.Point(6, 38)
Me.lb_PGF.Margin = New System.Windows.Forms.Padding(3, 3, 3, 0)
Me.lb_PGF.Name = "lb_PGF"
Me.lb_PGF.Size = New System.Drawing.Size(266, 17)
Me.lb_PGF.TabIndex = 43
Me.lb_PGF.Text = "▲▲▲ Open .pgf"
Me.lb_PGF.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'bt_PGF
'
Me.bt_PGF.Location = New System.Drawing.Point(142, 6)
Me.bt_PGF.Name = "bt_PGF"
Me.bt_PGF.Size = New System.Drawing.Size(130, 23)
Me.bt_PGF.TabIndex = 42
Me.bt_PGF.Text = "Open .pgf"
Me.bt_PGF.UseVisualStyleBackColor = True
'
'tc_Cards
'
Me.tc_Cards.Controls.Add(Me.tp_Add)
Me.tc_Cards.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.tc_Cards.ItemSize = New System.Drawing.Size(21, 18)
Me.tc_Cards.Location = New System.Drawing.Point(8, 27)
Me.tc_Cards.Name = "tc_Cards"
Me.tc_Cards.Padding = New System.Drawing.Point(2, 3)
Me.tc_Cards.SelectedIndex = 0
Me.tc_Cards.Size = New System.Drawing.Size(286, 341)
Me.tc_Cards.TabIndex = 45
'
'tp_Add
'
Me.tp_Add.Controls.Add(Me.pnl_EditCard)
Me.tp_Add.Location = New System.Drawing.Point(4, 22)
Me.tp_Add.Name = "tp_Add"
Me.tp_Add.Padding = New System.Windows.Forms.Padding(3)
Me.tp_Add.Size = New System.Drawing.Size(278, 315)
Me.tp_Add.TabIndex = 1
Me.tp_Add.Text = " +"
Me.tp_Add.UseVisualStyleBackColor = True
'
'pnl_EditCard
'
Me.pnl_EditCard.Controls.Add(Me.lb_EventMsg)
Me.pnl_EditCard.Controls.Add(Me.gb_GameComp)
Me.pnl_EditCard.Controls.Add(Me.bt_Custom)
Me.pnl_EditCard.Controls.Add(Me.gb_Region)
Me.pnl_EditCard.Controls.Add(Me.rtb_EventMsg)
Me.pnl_EditCard.Controls.Add(Me.lb_PGF)
Me.pnl_EditCard.Controls.Add(Me.gb_DateLimit)
Me.pnl_EditCard.Controls.Add(Me.bt_PGF)
Me.pnl_EditCard.Location = New System.Drawing.Point(0, 0)
Me.pnl_EditCard.Name = "pnl_EditCard"
Me.pnl_EditCard.Size = New System.Drawing.Size(278, 315)
Me.pnl_EditCard.TabIndex = 45
'
'bt_Build
'
Me.bt_Build.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.bt_Build.Location = New System.Drawing.Point(95, 380)
Me.bt_Build.Name = "bt_Build"
Me.bt_Build.Size = New System.Drawing.Size(128, 46)
Me.bt_Build.TabIndex = 46
Me.bt_Build.Text = "Build Event ROM"
Me.bt_Build.UseVisualStyleBackColor = True
'
'Main5
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(302, 450)
Me.Controls.Add(Me.bt_Build)
Me.Controls.Add(Me.tc_Cards)
Me.Controls.Add(Me.lklb_Author)
Me.Controls.Add(Me.lb_By)
Me.Controls.Add(Me.pb_Donate)
Me.Controls.Add(Me.lklb_Update)
Me.Controls.Add(Me.MenuStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MainMenuStrip = Me.MenuStrip1
Me.Name = "Main5"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "PKMG5DC"
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
CType(Me.pb_Donate, System.ComponentModel.ISupportInitialize).EndInit()
Me.gb_GameComp.ResumeLayout(False)
Me.gb_GameComp.PerformLayout()
Me.gb_Region.ResumeLayout(False)
Me.gb_DateLimit.ResumeLayout(False)
Me.gb_DateLimit.PerformLayout()
Me.tc_Cards.ResumeLayout(False)
Me.tp_Add.ResumeLayout(False)
Me.pnl_EditCard.ResumeLayout(False)
Me.pnl_EditCard.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Main5))
Me.lklb_Update = New System.Windows.Forms.LinkLabel()
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.tsmi_Options = New System.Windows.Forms.ToolStripMenuItem()
Me.tscb_Region = New System.Windows.Forms.ToolStripComboBox()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.tsmi_About = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.HoverInfo = New System.Windows.Forms.ToolTip(Me.components)
Me.pb_Donate = New System.Windows.Forms.PictureBox()
Me.gb_GameComp = New System.Windows.Forms.GroupBox()
Me.cb_White2 = New System.Windows.Forms.CheckBox()
Me.cb_Black2 = New System.Windows.Forms.CheckBox()
Me.cb_White = New System.Windows.Forms.CheckBox()
Me.cb_Black = New System.Windows.Forms.CheckBox()
Me.gb_Region = New System.Windows.Forms.GroupBox()
Me.cb_Region = New System.Windows.Forms.ComboBox()
Me.gb_DateLimit = New System.Windows.Forms.GroupBox()
Me.cb_MaxLimit = New System.Windows.Forms.CheckBox()
Me.lb_End = New System.Windows.Forms.Label()
Me.lb_Start = New System.Windows.Forms.Label()
Me.EndDatePicker = New System.Windows.Forms.DateTimePicker()
Me.StartDatePicker = New System.Windows.Forms.DateTimePicker()
Me.lb_EventMsg = New System.Windows.Forms.Label()
Me.rtb_EventMsg = New System.Windows.Forms.RichTextBox()
Me.lklb_Author = New System.Windows.Forms.LinkLabel()
Me.lb_By = New System.Windows.Forms.Label()
Me.bt_Custom = New System.Windows.Forms.Button()
Me.lb_PGF = New System.Windows.Forms.Label()
Me.bt_PGF = New System.Windows.Forms.Button()
Me.tc_Cards = New System.Windows.Forms.TabControl()
Me.tp_Add = New System.Windows.Forms.TabPage()
Me.pnl_EditCard = New System.Windows.Forms.Panel()
Me.bt_Build = New System.Windows.Forms.Button()
Me.MenuStrip1.SuspendLayout()
CType(Me.pb_Donate, System.ComponentModel.ISupportInitialize).BeginInit()
Me.gb_GameComp.SuspendLayout()
Me.gb_Region.SuspendLayout()
Me.gb_DateLimit.SuspendLayout()
Me.tc_Cards.SuspendLayout()
Me.tp_Add.SuspendLayout()
Me.pnl_EditCard.SuspendLayout()
Me.SuspendLayout()
'
'lklb_Update
'
Me.lklb_Update.AutoSize = True
Me.lklb_Update.Location = New System.Drawing.Point(1, 4)
Me.lklb_Update.Name = "lklb_Update"
Me.lklb_Update.Size = New System.Drawing.Size(101, 12)
Me.lklb_Update.TabIndex = 6
Me.lklb_Update.TabStop = True
Me.lklb_Update.Text = "有可用的新版本！"
Me.HoverInfo.SetToolTip(Me.lklb_Update, "New Features! Download the new version")
'
'MenuStrip1
'
Me.MenuStrip1.BackColor = System.Drawing.Color.Transparent
Me.MenuStrip1.Dock = System.Windows.Forms.DockStyle.None
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmi_Options})
Me.MenuStrip1.Location = New System.Drawing.Point(113, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(52, 25)
Me.MenuStrip1.Stretch = False
Me.MenuStrip1.TabIndex = 29
Me.MenuStrip1.Text = "MenuStrip1"
'
'tsmi_Options
'
Me.tsmi_Options.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tscb_Region, Me.ToolStripSeparator1, Me.tsmi_About, Me.ToolStripMenuItem2})
Me.tsmi_Options.Name = "tsmi_Options"
Me.tsmi_Options.Size = New System.Drawing.Size(44, 21)
Me.tsmi_Options.Text = "选项"
'
'tscb_Region
'
Me.tscb_Region.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.tscb_Region.DropDownWidth = 170
Me.tscb_Region.FlatStyle = System.Windows.Forms.FlatStyle.Standard
Me.tscb_Region.Items.AddRange(New Object() {"English (US/UK/AU)", "Français (France/Québec)", "Italiano (Italy)", "Deutsch (Germany)", "Español (Spain/Latin Americas)", "日本語 (Japan)", "한국어 (South Korea)"})
Me.tscb_Region.Name = "tscb_Region"
Me.tscb_Region.Size = New System.Drawing.Size(130, 25)
Me.tscb_Region.ToolTipText = "默认语种"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(187, 6)
'
'tsmi_About
'
Me.tsmi_About.Name = "tsmi_About"
Me.tsmi_About.Size = New System.Drawing.Size(190, 22)
Me.tsmi_About.Text = "关于"
'
'ToolStripMenuItem2
'
Me.ToolStripMenuItem2.BackgroundImage = Global.PKMG5DC.My.Resources.Resources.ppdb
Me.ToolStripMenuItem2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.ToolStripMenuItem2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripMenuItem2.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
Me.ToolStripMenuItem2.Size = New System.Drawing.Size(190, 22)
Me.ToolStripMenuItem2.Text = " 捐赠"
Me.ToolStripMenuItem2.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'pb_Donate
'
Me.pb_Donate.BackColor = System.Drawing.SystemColors.Control
Me.pb_Donate.BackgroundImage = CType(resources.GetObject("pb_Donate.BackgroundImage"), System.Drawing.Image)
Me.pb_Donate.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.pb_Donate.Cursor = System.Windows.Forms.Cursors.Hand
Me.pb_Donate.Location = New System.Drawing.Point(218, 3)
Me.pb_Donate.Name = "pb_Donate"
Me.pb_Donate.Size = New System.Drawing.Size(80, 20)
Me.pb_Donate.TabIndex = 32
Me.pb_Donate.TabStop = False
'
'gb_GameComp
'
Me.gb_GameComp.Controls.Add(Me.cb_White2)
Me.gb_GameComp.Controls.Add(Me.cb_Black2)
Me.gb_GameComp.Controls.Add(Me.cb_White)
Me.gb_GameComp.Controls.Add(Me.cb_Black)
Me.gb_GameComp.Location = New System.Drawing.Point(6, 62)
Me.gb_GameComp.Name = "gb_GameComp"
Me.gb_GameComp.Size = New System.Drawing.Size(142, 61)
Me.gb_GameComp.TabIndex = 33
Me.gb_GameComp.TabStop = False
Me.gb_GameComp.Text = "可接收配信的游戏版本"
'
'cb_White2
'
Me.cb_White2.AutoSize = True
Me.cb_White2.Location = New System.Drawing.Point(73, 38)
Me.cb_White2.Name = "cb_White2"
Me.cb_White2.Size = New System.Drawing.Size(42, 16)
Me.cb_White2.TabIndex = 3
Me.cb_White2.Text = "白2"
Me.cb_White2.UseVisualStyleBackColor = True
'
'cb_Black2
'
Me.cb_Black2.AutoSize = True
Me.cb_Black2.Location = New System.Drawing.Point(12, 38)
Me.cb_Black2.Name = "cb_Black2"
Me.cb_Black2.Size = New System.Drawing.Size(42, 16)
Me.cb_Black2.TabIndex = 2
Me.cb_Black2.Text = "黑2"
Me.cb_Black2.UseVisualStyleBackColor = True
'
'cb_White
'
Me.cb_White.AutoSize = True
Me.cb_White.Location = New System.Drawing.Point(73, 17)
Me.cb_White.Name = "cb_White"
Me.cb_White.Size = New System.Drawing.Size(36, 16)
Me.cb_White.TabIndex = 1
Me.cb_White.Text = "白"
Me.cb_White.UseVisualStyleBackColor = True
'
'cb_Black
'
Me.cb_Black.AutoSize = True
Me.cb_Black.Location = New System.Drawing.Point(12, 17)
Me.cb_Black.Name = "cb_Black"
Me.cb_Black.Size = New System.Drawing.Size(36, 16)
Me.cb_Black.TabIndex = 0
Me.cb_Black.Text = "黑"
Me.cb_Black.UseVisualStyleBackColor = True
'
'gb_Region
'
Me.gb_Region.Controls.Add(Me.cb_Region)
Me.gb_Region.Location = New System.Drawing.Point(6, 129)
Me.gb_Region.Name = "gb_Region"
Me.gb_Region.Size = New System.Drawing.Size(142, 46)
Me.gb_Region.TabIndex = 34
Me.gb_Region.TabStop = False
Me.gb_Region.Text = "语种"
'
'cb_Region
'
Me.cb_Region.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cb_Region.FormattingEnabled = True
Me.cb_Region.Items.AddRange(New Object() {"English (US/UK/AU)", "Français (France/Québec)", "Italiano (Italy)", "Deutsch (Germany)", "Español (Spain/Latin Americas)", "日本語 (Japan)", "한국어 (South Korea)"})
Me.cb_Region.Location = New System.Drawing.Point(6, 13)
Me.cb_Region.Name = "cb_Region"
Me.cb_Region.Size = New System.Drawing.Size(130, 20)
Me.cb_Region.TabIndex = 35
'
'gb_DateLimit
'
Me.gb_DateLimit.Controls.Add(Me.cb_MaxLimit)
Me.gb_DateLimit.Controls.Add(Me.lb_End)
Me.gb_DateLimit.Controls.Add(Me.lb_Start)
Me.gb_DateLimit.Controls.Add(Me.EndDatePicker)
Me.gb_DateLimit.Controls.Add(Me.StartDatePicker)
Me.gb_DateLimit.Location = New System.Drawing.Point(155, 62)
Me.gb_DateLimit.Name = "gb_DateLimit"
Me.gb_DateLimit.Size = New System.Drawing.Size(139, 113)
Me.gb_DateLimit.TabIndex = 35
Me.gb_DateLimit.TabStop = False
Me.gb_DateLimit.Text = "可接收配信的时间范围"
'
'cb_MaxLimit
'
Me.cb_MaxLimit.AutoSize = True
Me.cb_MaxLimit.Location = New System.Drawing.Point(12, 91)
Me.cb_MaxLimit.Name = "cb_MaxLimit"
Me.cb_MaxLimit.Size = New System.Drawing.Size(108, 16)
Me.cb_MaxLimit.TabIndex = 4
Me.cb_MaxLimit.Text = "自动满时间范围"
Me.cb_MaxLimit.UseVisualStyleBackColor = True
'
'lb_End
'
Me.lb_End.AutoSize = True
Me.lb_End.Location = New System.Drawing.Point(8, 52)
Me.lb_End.Name = "lb_End"
Me.lb_End.Size = New System.Drawing.Size(35, 12)
Me.lb_End.TabIndex = 3
Me.lb_End.Text = "结束:"
'
'lb_Start
'
Me.lb_Start.AutoSize = True
Me.lb_Start.Location = New System.Drawing.Point(8, 15)
Me.lb_Start.Name = "lb_Start"
Me.lb_Start.Size = New System.Drawing.Size(35, 12)
Me.lb_Start.TabIndex = 2
Me.lb_Start.Text = "开始:"
'
'EndDatePicker
'
Me.EndDatePicker.CustomFormat = "yyyy/MM/dd"
Me.EndDatePicker.Format = System.Windows.Forms.DateTimePickerFormat.Custom
Me.EndDatePicker.Location = New System.Drawing.Point(8, 65)
Me.EndDatePicker.Name = "EndDatePicker"
Me.EndDatePicker.Size = New System.Drawing.Size(102, 21)
Me.EndDatePicker.TabIndex = 1
Me.EndDatePicker.Value = New Date(2018, 10, 5, 0, 0, 0, 0)
'
'StartDatePicker
'
Me.StartDatePicker.CustomFormat = "yyyy/MM/dd"
Me.StartDatePicker.Format = System.Windows.Forms.DateTimePickerFormat.Custom
Me.StartDatePicker.Location = New System.Drawing.Point(8, 27)
Me.StartDatePicker.Name = "StartDatePicker"
Me.StartDatePicker.Size = New System.Drawing.Size(102, 21)
Me.StartDatePicker.TabIndex = 0
Me.StartDatePicker.Value = New Date(2018, 10, 5, 0, 0, 0, 0)
'
'lb_EventMsg
'
Me.lb_EventMsg.AutoSize = True
Me.lb_EventMsg.Location = New System.Drawing.Point(31, 178)
Me.lb_EventMsg.Name = "lb_EventMsg"
Me.lb_EventMsg.Size = New System.Drawing.Size(59, 12)
Me.lb_EventMsg.TabIndex = 37
Me.lb_EventMsg.Text = "事件描述:"
'
'rtb_EventMsg
'
Me.rtb_EventMsg.Location = New System.Drawing.Point(32, 193)
Me.rtb_EventMsg.MaxLength = 252
Me.rtb_EventMsg.Name = "rtb_EventMsg"
Me.rtb_EventMsg.ScrollBars = System.Windows.Forms.RichTextBoxScrollBars.None
Me.rtb_EventMsg.Size = New System.Drawing.Size(223, 90)
Me.rtb_EventMsg.TabIndex = 36
Me.rtb_EventMsg.Text = ""
Me.rtb_EventMsg.WordWrap = False
'
'lklb_Author
'
Me.lklb_Author.AutoSize = True
Me.lklb_Author.Location = New System.Drawing.Point(15, 401)
Me.lklb_Author.Name = "lklb_Author"
Me.lklb_Author.Size = New System.Drawing.Size(41, 12)
Me.lklb_Author.TabIndex = 40
Me.lklb_Author.TabStop = True
Me.lklb_Author.Text = "Regnum"
'
'lb_By
'
Me.lb_By.AutoSize = True
Me.lb_By.Location = New System.Drawing.Point(1, 401)
Me.lb_By.Name = "lb_By"
Me.lb_By.Size = New System.Drawing.Size(17, 12)
Me.lb_By.TabIndex = 41
Me.lb_By.Text = "by"
'
'bt_Custom
'
Me.bt_Custom.Font = New System.Drawing.Font("Microsoft Sans Serif", 32.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Document, CType(0, Byte))
Me.bt_Custom.Location = New System.Drawing.Point(6, 6)
Me.bt_Custom.Name = "bt_Custom"
Me.bt_Custom.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.bt_Custom.Size = New System.Drawing.Size(130, 21)
Me.bt_Custom.TabIndex = 44
Me.bt_Custom.Text = "自定义"
Me.bt_Custom.UseVisualStyleBackColor = True
'
'lb_PGF
'
Me.lb_PGF.AutoEllipsis = True
Me.lb_PGF.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.lb_PGF.Location = New System.Drawing.Point(6, 35)
Me.lb_PGF.Margin = New System.Windows.Forms.Padding(3, 3, 3, 0)
Me.lb_PGF.Name = "lb_PGF"
Me.lb_PGF.Size = New System.Drawing.Size(266, 16)
Me.lb_PGF.TabIndex = 43
Me.lb_PGF.Text = "▲▲▲ Open .pgf"
Me.lb_PGF.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'bt_PGF
'
Me.bt_PGF.Location = New System.Drawing.Point(142, 6)
Me.bt_PGF.Name = "bt_PGF"
Me.bt_PGF.Size = New System.Drawing.Size(130, 21)
Me.bt_PGF.TabIndex = 42
Me.bt_PGF.Text = "打开 .pgf文件"
Me.bt_PGF.UseVisualStyleBackColor = True
'
'tc_Cards
'
Me.tc_Cards.Controls.Add(Me.tp_Add)
Me.tc_Cards.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.tc_Cards.ItemSize = New System.Drawing.Size(21, 18)
Me.tc_Cards.Location = New System.Drawing.Point(8, 25)
Me.tc_Cards.Name = "tc_Cards"
Me.tc_Cards.Padding = New System.Drawing.Point(2, 3)
Me.tc_Cards.SelectedIndex = 0
Me.tc_Cards.Size = New System.Drawing.Size(305, 315)
Me.tc_Cards.TabIndex = 45
'
'tp_Add
'
Me.tp_Add.Controls.Add(Me.pnl_EditCard)
Me.tp_Add.Location = New System.Drawing.Point(4, 22)
Me.tp_Add.Name = "tp_Add"
Me.tp_Add.Padding = New System.Windows.Forms.Padding(3)
Me.tp_Add.Size = New System.Drawing.Size(297, 289)
Me.tp_Add.TabIndex = 1
Me.tp_Add.Text = " +"
Me.tp_Add.UseVisualStyleBackColor = True
'
'pnl_EditCard
'
Me.pnl_EditCard.Controls.Add(Me.lb_EventMsg)
Me.pnl_EditCard.Controls.Add(Me.gb_GameComp)
Me.pnl_EditCard.Controls.Add(Me.bt_Custom)
Me.pnl_EditCard.Controls.Add(Me.gb_Region)
Me.pnl_EditCard.Controls.Add(Me.rtb_EventMsg)
Me.pnl_EditCard.Controls.Add(Me.lb_PGF)
Me.pnl_EditCard.Controls.Add(Me.gb_DateLimit)
Me.pnl_EditCard.Controls.Add(Me.bt_PGF)
Me.pnl_EditCard.Location = New System.Drawing.Point(0, 0)
Me.pnl_EditCard.Name = "pnl_EditCard"
Me.pnl_EditCard.Size = New System.Drawing.Size(301, 291)
Me.pnl_EditCard.TabIndex = 45
'
'bt_Build
'
Me.bt_Build.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.bt_Build.Location = New System.Drawing.Point(95, 351)
Me.bt_Build.Name = "bt_Build"
Me.bt_Build.Size = New System.Drawing.Size(128, 42)
Me.bt_Build.TabIndex = 46
Me.bt_Build.Text = "生成配信ROM"
Me.bt_Build.UseVisualStyleBackColor = True
'
'Main5
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(325, 415)
Me.Controls.Add(Me.bt_Build)
Me.Controls.Add(Me.tc_Cards)
Me.Controls.Add(Me.lklb_Author)
Me.Controls.Add(Me.lb_By)
Me.Controls.Add(Me.pb_Donate)
Me.Controls.Add(Me.lklb_Update)
Me.Controls.Add(Me.MenuStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MainMenuStrip = Me.MenuStrip1
Me.Name = "Main5"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "PKMG5DC(汉化by卧看微尘)"
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
CType(Me.pb_Donate, System.ComponentModel.ISupportInitialize).EndInit()
Me.gb_GameComp.ResumeLayout(False)
Me.gb_GameComp.PerformLayout()
Me.gb_Region.ResumeLayout(False)
Me.gb_DateLimit.ResumeLayout(False)
Me.gb_DateLimit.PerformLayout()
Me.tc_Cards.ResumeLayout(False)
Me.tp_Add.ResumeLayout(False)
Me.pnl_EditCard.ResumeLayout(False)
Me.pnl_EditCard.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents lklb_Update As LinkLabel

2870
PKMG5DC/Main5.resx
View File

File diff suppressed because it is too large Load Diff

86
PKMG5DC/Main5.vb
View File

@@ -44,7 +44,7 @@ del arm9.bin arm7.bin banner.bin header.bin"}}
bt_Build.Enabled = False
End Sub
Private Sub Main_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
WriteSettings()
WriteIni()
End Sub
#Region "Essentials"
@@ -82,7 +82,7 @@ del arm9.bin arm7.bin banner.bin header.bin"}}
Reader.Close()
File.Delete(TempPath & "\dt.txt")
If dat <> dtt Then
lklb_Update.Text = "New Update Available! " & dtt
lklb_Update.Text = "有可用的新版本! " & dtt
MenuStrip1.Location = New Point(175, 0)
pb_Donate.Location = New Point(119, 427)
lklb_Update.Show()
@@ -102,8 +102,8 @@ del arm9.bin arm7.bin banner.bin header.bin"}}
If My.Computer.Network.IsAvailable Then
Process.Start("https://github.com/PlasticJustice/PKMG5DC/releases/latest")
Else
MsgBox("No Internet connection!
You can not update at the moment.", vbOKOnly, "Error 404")
MsgBox("无网络连接!
您现在不能更新。", vbOKOnly, "错误 404")
End If
End Sub
@@ -112,8 +112,8 @@ del arm9.bin arm7.bin banner.bin header.bin"}}
If My.Computer.Network.IsAvailable Then
Process.Start("https://github.com/PlasticJustice")
Else
MsgBox("No Internet connection!" & "
" & "You can look me up later.", 1, "OK",,, "Error" & " 404")
MsgB("无网络连接!" & "
" & "您可以之后再查看", 1, "好的",,, "错误" & " 404")
End If
End Sub
@@ -123,8 +123,8 @@ del arm9.bin arm7.bin banner.bin header.bin"}}
If My.Computer.Network.IsAvailable Then
Process.Start("https://www.paypal.com/cgi-bin/webscr?cmd=_s-xclick&hosted_button_id=UGSCC5VGSGN3E")
Else
MsgBox("No Internet connection!" & "
" & "I appreciate the gesture.", 1, "OK",,, "Error" & " 404")
MsgB("无网络连接!" & "
" & "感谢你。", 1, "好的",,, "错误" & " 404")
End If
End Sub
Private Sub Pb_Donate_MouseDown(sender As Object, e As MouseEventArgs) Handles pb_Donate.MouseDown
@@ -139,19 +139,25 @@ del arm9.bin arm7.bin banner.bin header.bin"}}
Private Sub CreateFolders(ByVal dirs As String())
Try
For i = 0 To UBound(dirs) Step 1
If Not dirs(i).Contains(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData)) Then dirs(i) = Local & dirs(i)
If dirs(i).Contains(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData)) Then
Else
dirs(i) = Local & dirs(i)
End If
Do While Not Directory.Exists(dirs(i))
If Not Directory.Exists(dirs(i)) Then Directory.CreateDirectory(dirs(i))
Loop
Next i
Catch ex As Exception
MsgBox(ex.Message)
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub CreateFiles(ByVal files(,))
Try
For i = 0 To UBound(files) Step 1
If Not files(i, 0).Contains(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData)) Then files(i, 0) = Local & files(i, 0)
If files(i, 0).Contains(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData)) Then
Else
files(i, 0) = Local & files(i, 0)
End If
Do While Not File.Exists(files(i, 0))
If Not File.Exists(files(i, 0)) Then
If TypeOf files(i, 1) Is String Then
@@ -163,7 +169,7 @@ del arm9.bin arm7.bin banner.bin header.bin"}}
Loop
Next i
Catch ex As Exception
MsgBox(ex.Message)
MessageBox.Show(ex.Message)
End Try
End Sub
@@ -171,15 +177,11 @@ del arm9.bin arm7.bin banner.bin header.bin"}}
Private Sub CheckLocal()
Dim locals As String() = {Local.Replace("\PKMG5DC", ""), Local, Local & "\tools"} ', Local & "\cards"}
CreateFolders(locals)
'*
If File.Exists(Local & "\settings.ini") Then
ReadIni()
File.Delete(Local & "\settings.ini")
If Not File.Exists(Local & "\settings.ini") Then
File.WriteAllText(Local & "\settings.ini", "")
WriteIni()
End If
If Not File.Exists(Local & "\settings.json") Then
WriteSettings()
End If
ReadSettings()
ReadIni()
tscb_Region.SelectedIndex = My.Settings.Region
End Sub
'Checks for Ticket
@@ -195,20 +197,22 @@ del arm9.bin arm7.bin banner.bin header.bin"}}
End If
End Sub
Private Sub GetTicket()
Dim ans = MsgBox("This program requires a clean copy of the Liberty Ticket Distribution ROM. Do you have one?", 2, "Yes", "No",, "Need Liberty Ticket ROM")
Dim ans = MsgB("本程序需要你有一个原始的自由船票配信ROM。你有吗？（按enter进行下一步）", 2, "是", "否",, "您需要拥有自由船票配信ROM方可使用本程序")
Select Case ans
Case 6
ans = MsgBox("Can you select it for me?", 2, "Sure", "Not sure",, "Need Liberty Ticket ROM")
ans = MsgB("你能把它选给我看吗？（按enter选择文件）", 2, "当然可以", "我不确定",, "您需要拥有自由船票配信ROM方可使用本程序")
Select Case ans
Case 6
Dim FileSelect As New OpenFileDialog With {
.Filter = "Event ROM (*.nds)|*.nds|All files (*.*)|*.*"}
.Filter = "配信ROM (*.nds)|*.nds|所有文件(*.*)|*.*"}
Dim res As DialogResult = FileSelect.ShowDialog()
If res = Windows.Forms.DialogResult.Cancel Then
Close()
Else
Dim myFile As String = FileSelect.FileName
If System.IO.File.Exists(Local & "\ticket.nds") Then System.IO.File.Delete(Local & "\ticket.nds")
If System.IO.File.Exists(Local & "\ticket.nds") Then
System.IO.File.Delete(Local & "\ticket.nds")
End If
System.IO.File.Copy(myFile, Local & "\ticket.nds")
My.Settings.ticket = Local & "\ticket.nds"
VerifyTicket()
@@ -224,28 +228,30 @@ del arm9.bin arm7.bin banner.bin header.bin"}}
Private Sub VerifyTicket()
Dim myFile As String = My.Settings.ticket
Dim l = System.IO.File.ReadAllText(myFile)
If Not l.Contains("POKWBLIBERTYY8KP01") Then
MsgBox("Error: Invaild File", 1, "OK",,, "ERROR FOUND")
If l.Contains("POKWBLIBERTYY8KP01") Then
Else
MsgB("错误: 无效文件", 1, "好的",,, "有错误")
File.Delete(My.Settings.ticket)
Close()
Else
WriteSettings()
End If
End Sub
Private Sub DeSmuME_Check()
Dim Everest_Registry As Microsoft.Win32.RegistryKey = My.Computer.Registry.ClassesRoot.OpenSubKey("Applications\DeSmuME.exe")
Dim Everest_Registry2 As Microsoft.Win32.RegistryKey = My.Computer.Registry.ClassesRoot.OpenSubKey("Applications\DeSmuME_0.9.11_x64.exe")
If Everest_Registry IsNot Nothing And Everest_Registry2 IsNot Nothing Then
If Everest_Registry Is Nothing And Everest_Registry2 Is Nothing Then
Else
Dim gen As New Random
Dim n = gen.Next(1, 26)
Dim f = gen.Next(0, 2)
If (n Mod (System.DateTime.Today.Day Mod 3)) = f Then
If My.Computer.Network.IsAvailable Then
Dim ans = MsgBox("Google is your friend.", 2, "I know", "How so?")
If ans = 7 Then Process.Start("https://www.google.com/search?q=pokemon+liberty+ticket+distribution+rom")
Dim ans = MsgB("谷歌/百度是你的好朋友", 2, "我懂了", "所以怎么做?")
If ans = 7 Then
Process.Start("https://www.google.com/search?q=pokemon+liberty+ticket+distribution+rom")
End If
End If
Else
MsgBox("Google is your friend.", 1, "OK")
MsgB("谷歌/百度是你的好朋友", 1, "好的")
End If
End If
End Sub
@@ -287,7 +293,7 @@ del arm9.bin arm7.bin banner.bin header.bin"}}
.Padding = New System.Windows.Forms.Padding(3)
.Size = New Size(278, 315)
.TabIndex = DelTab.TabIndex
.Text = "Card " & (DelTab.TabIndex + If(doneLoad = False, 0, 1))
.Text = "卡槽 " & (DelTab.TabIndex + If(doneLoad = False, 0, 1))
.UseVisualStyleBackColor = True
End With
tc_Cards.TabPages.Add(NewTab)
@@ -362,11 +368,9 @@ del arm9.bin arm7.bin banner.bin header.bin"}}
#End Region
#Region "Controls"
Private Sub Bt_PGF_Click(sender As Object, e As EventArgs) Handles bt_PGF.Click
OpenFile.Filter = "Gen 5 Wondercard (*.pgf)|*.pgf;*.wc5|All files (*.*)|*.*"
OpenFile.Filter = "Gen5神秘卡片文件 (*.pgf)|*.pgf;*.wc5|所有文件(*.*)|*.*"
Dim res As DialogResult = OpenFile.ShowDialog()
If res = Windows.Forms.DialogResult.Cancel Then
Exit Sub
Else
If res <> Windows.Forms.DialogResult.Cancel Then
Dim myFile As String = Path.GetFileName(OpenFile.FileName)
lb_PGF.Text = myFile
WC.Data = File.ReadAllBytes(OpenFile.FileName)
@@ -434,7 +438,9 @@ del arm9.bin arm7.bin banner.bin header.bin"}}
End Sub
Private Sub Cb_Region_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cb_Region.SelectedIndexChanged
If doneLoad Then SyncRegion()
If doneLoad Then
SyncRegion()
End If
End Sub
Private Sub SyncRegion()
Select Case cb_Region.SelectedIndex
@@ -499,9 +505,9 @@ del arm9.bin arm7.bin banner.bin header.bin"}}
Process.Start(Local & "\tools\compile.bat").WaitForExit()
Process.Start(Local & "\tools\clean.bat").WaitForExit()
Catch ex As Exception
MsgBox(ex.Message)
MsgB(ex.Message)
End Try
SaveFile.Filter = "NDS ROM (*.nds)|*.nds|All files (*.*)|*.*"
SaveFile.Filter = "NDS ROM (*.nds)|*.nds|所有文件(*.*)|*.*"
Dim res As DialogResult = SaveFile.ShowDialog()
If res <> Windows.Forms.DialogResult.Cancel Then
If File.Exists(SaveFile.FileName) Then File.Delete(SaveFile.FileName)

76
PKMG5DC/My Project/Application.Designer.vb generated
View File

@@ -1,38 +1,38 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
'NOTE: This file is auto-generated; do not modify it directly. To make changes,
' or if you encounter build errors in this file, go to the Project Designer
' (go to Project Properties or double-click the My Project node in
' Solution Explorer), and make changes on the Application tab.
'
Partial Friend Class MyApplication
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = false
Me.EnableVisualStyles = true
Me.SaveMySettingsOnExit = false
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.PKMG5DC.Main5
End Sub
End Class
End Namespace
'------------------------------------------------------------------------------
' <auto-generated>
' 此代码由工具生成。
' 运行时版本:4.0.30319.42000
'
' 对此文件的更改可能会导致不正确的行为，并且如果
' 重新生成代码，这些更改将会丢失。
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
'注意:此文件是自动生成的；请勿直接进行修改。若要更改，
' 或者如果您在此文件中遇到生成错误，请转至项目设计器
' (转至“项目属性”或在解决方案资源管理器中双击“我的项目”节点)，
' 然后在“应用程序”选项卡中进行更改。
'
Partial Friend Class MyApplication
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = false
Me.EnableVisualStyles = true
Me.SaveMySettingsOnExit = false
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.PKMG5DC.Main5
End Sub
End Class
End Namespace

204
PKMG5DC/My Project/Resources.Designer.vb generated
View File

@@ -1,102 +1,102 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Imports System
Namespace My.Resources
'This class was auto-generated by the StronglyTypedResourceBuilder
'class via a tool like ResGen or Visual Studio.
'To add or remove a member, edit your .ResX file then rerun ResGen
'with the /str option, or rebuild your VS project.
'''<summary>
''' A strongly-typed resource class, for looking up localized strings, etc.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Returns the cached ResourceManager instance used by this class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("PKMG5DC.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Overrides the current thread's CurrentUICulture property for all
''' resource lookups using this strongly typed resource class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set
resourceCulture = value
End Set
End Property
'''<summary>
''' Looks up a localized string similar to 2018/11/25.
'''</summary>
Friend ReadOnly Property _date() As String
Get
Return ResourceManager.GetString("_date", resourceCulture)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Byte[].
'''</summary>
Friend ReadOnly Property ndstool() As Byte()
Get
Dim obj As Object = ResourceManager.GetObject("ndstool", resourceCulture)
Return CType(obj,Byte())
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property ppdb() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("ppdb", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property ppdbs() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("ppdbs", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
End Module
End Namespace
'------------------------------------------------------------------------------
' <auto-generated>
' 此代码由工具生成。
' 运行时版本:4.0.30319.42000
'
' 对此文件的更改可能会导致不正确的行为，并且如果
' 重新生成代码，这些更改将会丢失。
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Imports System
Namespace My.Resources
'此类是由 StronglyTypedResourceBuilder
'类通过类似于 ResGen 或 Visual Studio 的工具自动生成的。
'若要添加或移除成员，请编辑 .ResX 文件，然后重新运行 ResGen
'(以 /str 作为命令选项)，或重新生成 VS 项目。
'''<summary>
''' 一个强类型的资源类，用于查找本地化的字符串等。
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' 返回此类使用的缓存的 ResourceManager 实例。
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("PKMG5DC.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' 重写当前线程的 CurrentUICulture 属性，对
''' 使用此强类型资源类的所有资源查找执行重写。
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set
resourceCulture = value
End Set
End Property
'''<summary>
''' 查找类似 2020/7/25 的本地化字符串。
'''</summary>
Friend ReadOnly Property _date() As String
Get
Return ResourceManager.GetString("_date", resourceCulture)
End Get
End Property
'''<summary>
''' 查找 System.Byte[] 类型的本地化资源。
'''</summary>
Friend ReadOnly Property ndstool() As Byte()
Get
Dim obj As Object = ResourceManager.GetObject("ndstool", resourceCulture)
Return CType(obj,Byte())
End Get
End Property
'''<summary>
''' 查找 System.Drawing.Bitmap 类型的本地化资源。
'''</summary>
Friend ReadOnly Property ppdb() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("ppdb", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' 查找 System.Drawing.Bitmap 类型的本地化资源。
'''</summary>
Friend ReadOnly Property ppdbs() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("ppdbs", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
End Module
End Namespace

194
PKMG5DC/My Project/Settings.Designer.vb generated
View File

@@ -1,97 +1,97 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.6.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "My.Settings Auto-Save Functionality"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property ticket() As String
Get
Return CType(Me("ticket"),String)
End Get
Set
Me("ticket") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("0")> _
Public Property Region() As Byte
Get
Return CType(Me("Region"),Byte)
End Get
Set
Me("Region") = value
End Set
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.PKMG5DC.My.MySettings
Get
Return Global.PKMG5DC.My.MySettings.Default
End Get
End Property
End Module
End Namespace
'------------------------------------------------------------------------------
' <auto-generated>
' 此代码由工具生成。
' 运行时版本:4.0.30319.42000
'
' 对此文件的更改可能会导致不正确的行为，并且如果
' 重新生成代码，这些更改将会丢失。
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.1.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "My.Settings 自动保存功能"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property ticket() As String
Get
Return CType(Me("ticket"),String)
End Get
Set
Me("ticket") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("0")> _
Public Property Region() As Byte
Get
Return CType(Me("Region"),Byte)
End Get
Set
Me("Region") = value
End Set
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.PKMG5DC.My.MySettings
Get
Return Global.PKMG5DC.My.MySettings.Default
End Get
End Property
End Module
End Namespace

996
PKMG5DC/PGFCreator.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

244
PKMG5DC/PGFCreator.resx
View File

@@ -1,123 +1,123 @@
<?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=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="HoverInfo.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<?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=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="HoverInfo.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

122
PKMG5DC/PGFCreator.vb
View File

@@ -3,14 +3,14 @@ Public Class PGFCreator
Dim WC As New PGF 'Wondercard
Dim InputPK5 As New PK5 'Pokemon Data
Dim OpenFile As New OpenFileDialog
ReadOnly Natures() As String = {"Hardy", "Lonely", "Brave", "Adamant", "Naughty", "Bold", "Docile", "Relaxed", "Impish", "Lax", "Timid", "Hasty", "Serious", "Jolly", "Naive", "Modest",
"Mild", "Quiet", "Bashful", "Rash", "Calm", "Gentle", "Sassy", "Careful", "Quirky"} 'List of Natures
ReadOnly Natures() As String = {"勤奋", "怕寂寞", "勇敢", "固执", "顽皮", "大胆", "坦率", "悠闲", "淘气", "乐天", "胆小", "急躁", "认真", "爽朗", "天真", "内敛",
"慢吞吞", "冷静", "害羞", "马虎", "温和", "温顺", "自大", "慎重", "浮躁"} 'List of Natures
Private Sub PGFCreator_Load(sender As Object, e As EventArgs) Handles MyBase.Load
#If DEBUG Then
Me.Size = New Size(1344, 579)
#Else
Me.Size = New Size(452, 579)
cb_CardType.Items.Remove("Pass Power")
cb_CardType.Items.Remove("释出之力")
CenterToScreen()
#End If
PopulateItems(cb_Item)
@@ -72,7 +72,7 @@ Public Class PGFCreator
With WC
Select Case WC.CardType
Case 1
If lbl_PK5Name.Text <> "Open .pk5 ------->" Then
If lbl_PK5Name.Text <> "打开.pk5文件 ------->" Then
.TID = InputPK5.TID
.SID = InputPK5.SID
If cx_Origin.Checked = False Then .Origin = InputPK5.Origin
@@ -140,9 +140,9 @@ Public Class PGFCreator
Private Sub Desc()
With InputPK5
lbl_Species.Text = GetPokeName(.Dex) & " @ " & GetItemName(.Item)
lbl_IVs.Text = "IVs: " & .IV_HP & "/" & .IV_ATK & "/" & .IV_DEF & "/" & .IV_SPA & "/" & .IV_SPD & "/" & .IV_SPE
lbl_Ability.Text = "Ability: " & GetAbilityName(.Ability)
lbl_Natures.Text = "Nature: " & Natures(.Nature)
lbl_IVs.Text = "个体值: " & .IV_HP & "/" & .IV_ATK & "/" & .IV_DEF & "/" & .IV_SPA & "/" & .IV_SPD & "/" & .IV_SPE
lbl_Ability.Text = "特性: " & GetAbilityName(.Ability)
lbl_Natures.Text = "性格: " & Natures(.Nature)
lbl_Move1.Text = GetMoveName(.Move1)
lbl_Move2.Text = GetMoveName(.Move2)
lbl_Move3.Text = GetMoveName(.Move3)
@@ -180,35 +180,35 @@ Public Class PGFCreator
Private Function Origin(id As Byte)
Select Case id
Case &H1
Return "Sapphire"
Return "蓝宝石"
Case &H2
Return "Ruby"
Return "红宝石"
Case &H3
Return "Emerald"
Return "绿宝石"
Case &H4
Return "FireRed"
Return "火红"
Case &H5
Return "LeafGreen"
Return "叶绿"
Case &HF
Return "Colosseum/XD"
Return "圆形竞技场/XD"
Case &HA
Return "Diamond"
Return "钻石"
Case &HB
Return "Pearl"
Return "珍珠"
Case &HC
Return "Platinum"
Return "白金"
Case &H7
Return "HeartGold"
Return "心金"
Case &H8
Return "SoulSilver"
Return "魂银"
Case &H14
Return "White"
Return "白"
Case &H15
Return "Black"
Return "黑"
Case &H16
Return "White 2"
Return "白2"
Case &H17
Return "Black 2"
Return "黑2"
Case Else
Return ""
End Select
@@ -217,7 +217,7 @@ Public Class PGFCreator
'Change Card Type
Private Sub Cb_CardType_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cb_CardType.SelectedIndexChanged
Select Case cb_CardType.Text
Case "Pokémon"
Case "宝可梦"
gb_Item.Enabled = False
gb_Power.Enabled = False
gb_Pokemon.Enabled = True
@@ -226,7 +226,7 @@ Public Class PGFCreator
gb_Power.Location = New Point(922, 59)
Array.Clear(WC.Data, 0, &H5F)
WC.CardType = 1
Case "Item"
Case "道具"
gb_Item.Enabled = True
gb_Pokemon.Enabled = False
gb_Power.Enabled = False
@@ -235,7 +235,7 @@ Public Class PGFCreator
gb_Power.Location = New Point(922, 59)
Array.Clear(WC.Data, 0, &H5F)
WC.CardType = 2
Case "Pass Power"
Case "释出之力"
gb_Item.Enabled = False
gb_Pokemon.Enabled = False
gb_Power.Enabled = True
@@ -257,30 +257,14 @@ Public Class PGFCreator
WC.EventTitle = tb_CardTitle.Text
End Sub
'To Encrypt, or to decrypt?
Private Function Crypto(filePath As String)
Dim b As Byte() = File.ReadAllBytes(filePath)
If filePath.EndsWith(".ek5") Then
Return DecryptIfEncrypted45(b)
ElseIf filePath.EndsWith(".pk5") Then
Return EncryptIfDecrypted45(b)
End If
Return b
End Function
'Loads the EK5/PK5 file
Private Sub Btn_OpenPKM_Click(sender As Object, e As EventArgs) Handles btn_OpenPKM.Click
OpenFile.Filter = "Gen 5 PKM (*.pk5; *.ek5)|*.pk5;*.ek5|All files (*.*)|*.*"
'Loads the PK5 file
Private Sub Btn_OpenPK5_Click(sender As Object, e As EventArgs) Handles btn_OpenPK5.Click
OpenFile.Filter = "Gen 5 PKM (*.pk5)|*.pk5|All files (*.*)|*.*"
Dim res As DialogResult = OpenFile.ShowDialog()
If res = Windows.Forms.DialogResult.Cancel Then
Exit Sub
Else
lbl_PK5Name.Text = OpenFile.SafeFileName
If OpenFile.FileName.EndsWith(".ek5") Then
InputPK5.Data = Crypto(OpenFile.FileName)
ElseIf OpenFile.FileName.EndsWith(".pk5") Then
InputPK5.Data = File.ReadAllBytes(OpenFile.FileName)
End If
If res <> Windows.Forms.DialogResult.Cancel Then
Dim myFile As String = Path.GetFileName(OpenFile.FileName)
lbl_PK5Name.Text = myFile
InputPK5.Data = File.ReadAllBytes(OpenFile.FileName)
End If
EnDisAblePKM(True)
GrabValues()
@@ -320,7 +304,7 @@ Public Class PGFCreator
'Choose Nature
Private Sub Cb_Nature_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cb_Nature.SelectedIndexChanged
Select Case cb_Nature.Text
Case "Random"
Case "随机"
WC.Nature = &HFF
Case Else
WC.Nature = Array.IndexOf(Natures, cb_Nature.Text)
@@ -332,13 +316,13 @@ Public Class PGFCreator
Select Case cx_PID.Checked
Case True
WC.PID = InputPK5.PID
cx_PID.Text = "Set PID"
HoverInfo.SetToolTip(cx_PID, "PID will be fixed To the PID from the .pk5
cx_PID.Text = "固定PID"
HoverInfo.SetToolTip(cx_PID, "PID将按.pk5文件中的设置
PID: " & Hex(InputPK5.PID))
Case False
WC.PID = &H0
cx_PID.Text = "Random PID"
HoverInfo.SetToolTip(cx_PID, "PID will be randomized upon recieval in-game")
cx_PID.Text = "随机PID"
HoverInfo.SetToolTip(cx_PID, "PID将在接收游戏中随机生成")
End Select
End Sub
@@ -352,8 +336,8 @@ PID: " & Hex(InputPK5.PID))
WC.IV_SPE = InputPK5.IV_SPE
WC.IV_SPA = InputPK5.IV_SPA
WC.IV_SPD = InputPK5.IV_SPD
cx_IV.Text = "Set IVs"
HoverInfo.SetToolTip(cx_IV, "IVs will be fixed to the IVs from the .pk5
cx_IV.Text = "固定IVs"
HoverInfo.SetToolTip(cx_IV, "个体值将按.pk5文件中的设置
" & lbl_IVs.Text)
Case False
WC.IV_HP = &HFF
@@ -362,8 +346,8 @@ PID: " & Hex(InputPK5.PID))
WC.IV_SPE = &HFF
WC.IV_SPA = &HFF
WC.IV_SPD = &HFF
cx_IV.Text = "Random IVs"
HoverInfo.SetToolTip(cx_IV, "IVs will be randomized upon recieval in-game")
cx_IV.Text = "随机个体值"
HoverInfo.SetToolTip(cx_IV, "个体值将在接收游戏中随机生成")
End Select
End Sub
@@ -372,13 +356,13 @@ PID: " & Hex(InputPK5.PID))
Select Case cx_Lang.Checked
Case True
WC.Language = &H0
cx_Lang.Text = "Recipient Language"
HoverInfo.SetToolTip(cx_Lang, "Language will be the recieving game's language")
cx_Lang.Text = "自适应设定为接收方的语种"
HoverInfo.SetToolTip(cx_Lang, "语种将为接收的游戏的语种设置")
Case False
WC.Language = InputPK5.Language
cx_Lang.Text = "Set Language"
HoverInfo.SetToolTip(cx_Lang, "Language will be fixed to the language from the .pk5
Language: " & Language(InputPK5.Language))
cx_Lang.Text = "固定语种"
HoverInfo.SetToolTip(cx_Lang, "语种将按.pk5文件中的设置
语种: " & Language(InputPK5.Language))
End Select
End Sub
@@ -387,13 +371,13 @@ Language: " & Language(InputPK5.Language))
Select Case cx_Origin.Checked
Case True
WC.Origin = &H0
cx_Origin.Text = "Recipient Origin Game"
HoverInfo.SetToolTip(cx_Origin, "Origin will be the recieving game's origin")
cx_Origin.Text = "自适应设定为接收方的游戏版本"
HoverInfo.SetToolTip(cx_Origin, "语种将为接收的游戏的游戏版本设置")
Case False
WC.Origin = InputPK5.Origin
cx_Origin.Text = "Set Origin Game"
HoverInfo.SetToolTip(cx_Origin, "Origin will be fixed to the origin from the .pk5
Game: " & Origin(InputPK5.Origin))
cx_Origin.Text = "固定游戏版本"
HoverInfo.SetToolTip(cx_Origin, "游戏版本按.pk5文件中的设置
游戏版本: " & Origin(InputPK5.Origin))
End Select
End Sub
@@ -437,10 +421,10 @@ Game: " & Origin(InputPK5.Origin))
Next i
Select Case chk
Case True
MsgBox("Missing Field",,,,, "Error")
MsgB("缺少字段",,,,, "错误")
Case Else
Main5.Card.Wondercards(Main5.tc_Cards.SelectedIndex) = WC.Data
Main5.lb_PGF.Text = nud_CardID.Value & " - " & tb_CardTitle.Text & " (Custom)"
Main5.lb_PGF.Text = nud_CardID.Value & " - " & tb_CardTitle.Text & " (自定义)"
Close()
End Select
End Sub

1
PKMG5DC/PKM/Cryption.vb
View File

@@ -7,6 +7,7 @@
Friend Const SIZE_5STORED As Integer = 136
Friend Const SIZE_5BLOCK As Integer = 32
Private ReadOnly BlockPosition As Byte() =
{
0, 1, 2, 3,

4062
PKMG5DC/PKM/Database.vb
View File

File diff suppressed because it is too large Load Diff

72
PKMG5DC/PKM/PK4.vb
View File

@@ -1212,19 +1212,20 @@
Return BitConverter.ToUInt16(Data, &H7E)
End Get
Set(ByVal value As UShort)
If (value = 0) Then
BitConverter.GetBytes(CUShort(0)).CopyTo(Data, &H44)
BitConverter.GetBytes(CUShort(0)).CopyTo(Data, &H7E)
ElseIf ((value < 2000 AndAlso value > 111) Or (2010 < value AndAlso value < 3000)) Then
' Met location Not in DP, set to Faraway Place
BitConverter.GetBytes(CUShort(value)).CopyTo(Data, &H44)
BitConverter.GetBytes(CUShort(&HBBA)).CopyTo(Data, &H7E)
Else
Dim pthgss As Integer = If(Origin = &HA OrElse &HB OrElse &HC, value, 0) ' only set to PtHGSS loc if encountered in game
BitConverter.GetBytes(CUShort(pthgss)).CopyTo(Data, &H44)
BitConverter.GetBytes(CUShort(value)).CopyTo(Data, &H7E)
End If
'BitConverter.GetBytes(value).CopyTo(Data, &H7E)
'If (value = 0) Then
' BitConverter.GetBytes(CUShort(0)).CopyTo(Data, &H44)
' BitConverter.GetBytes(CUShort(0)).CopyTo(Data, &H7E)
'ElseIf ((value < 2000 And value > 111) Or Locations.IsPtHGSSLocationEgg(value)) Then
' ' Met location Not in DP, set to Faraway Place
' BitConverter.GetBytes(CUShort(value)).CopyTo(Data, &H44)
' BitConverter.GetBytes(CUShort(&HBBA)).CopyTo(Data, &H7E)
'Else
' Dim pthgss As Integer = If(pthgss, value, 0) ' only set to PtHGSS loc if encountered in game
' BitConverter.GetBytes(CUShort(pthgss)).CopyTo(Data, &H44)
' BitConverter.GetBytes(CUShort(value)).CopyTo(Data, &H7E)
'End If
BitConverter.GetBytes(value).CopyTo(Data, &H7E)
End Set
End Property
Public Property Met As UShort
@@ -1233,19 +1234,20 @@
Return BitConverter.ToUInt16(Data, &H80)
End Get
Set(ByVal value As UShort)
If (value = 0) Then
BitConverter.GetBytes(CUShort(0)).CopyTo(Data, &H46)
BitConverter.GetBytes(CUShort(0)).CopyTo(Data, &H80)
ElseIf ((111 < value AndAlso value < 2000) Or (2010 < value AndAlso value < 3000)) Then
' Met location Not in DP, set to Faraway Place
BitConverter.GetBytes(CUShort(value)).CopyTo(Data, &H46)
BitConverter.GetBytes(CUShort(&HBBA)).CopyTo(Data, &H80)
Else
Dim pthgss As Integer = If(Origin = &HA OrElse &HB OrElse &HC, value, 0) ' only set to PtHGSS loc if encountered in game
BitConverter.GetBytes(CUShort(pthgss)).CopyTo(Data, &H46)
BitConverter.GetBytes(CUShort(value)).CopyTo(Data, &H80)
End If
'BitConverter.GetBytes(value).CopyTo(Data, &H80)
'If (value = 0) Then
' BitConverter.GetBytes(CUShort(0)).CopyTo(Data, &H46)
' BitConverter.GetBytes(CUShort(0)).CopyTo(Data, &H80)
'ElseIf (Locations.IsPtHGSSLocation(value) Or Locations.IsPtHGSSLocationEgg(value)) Then
' ' Met location Not in DP, set to Faraway Place
' BitConverter.GetBytes(CUShort(value)).CopyTo(Data, &H46)
' BitConverter.GetBytes(CUShort(&HBBA)).CopyTo(Data, &H80)
'Else
' Dim pthgss As Integer = If(pthgss, value, 0) ' only set to PtHGSS loc if encountered in game
' BitConverter.GetBytes(CUShort(pthgss)).CopyTo(Data, &H46)
' BitConverter.GetBytes(CUShort(value)).CopyTo(Data, &H80)
'End If
BitConverter.GetBytes(value).CopyTo(Data, &H80)
End Set
End Property
Public Property Pokerus As Byte
@@ -1277,17 +1279,17 @@
Return Math.Max(Data(&H86), Data(&H83))
End Get
Set(ByVal value As Byte)
' Ball to display in DPPt
Data(&H83) = CByte(If(value <= &H10, value, 4)) ' Cap at Cherish Ball
'' Ball to display in DPPt
'Data(&H83) = CByte(If(value <= &H10, value, 4)) ' Cap at Cherish Ball
' HGSS Exclusive Balls
If (value > &H10 Or (If(Origin = &HB OrElse &HC, True, False) And Not FatefulEncounter)) Then
Data(&H86) = CByte(If(value <= &H18, value, 4)) ' Cap at Comp Ball
Else
Data(&H86) = 0 ' Unused
End If
'' HGSS Exclusive Balls -- If the user wants to screw things up, let them. Any legality checking could catch hax.
'If (value > &H10 Or (HGSS And Not FatefulEncounter)) Then
' Data(&H86) = CByte(If(value <= &H18, value, 4)) ' Cap at Comp Ball
'Else
' Data(&H86) = 0 ' Unused
'End If
'Data(&H83) = value
Data(&H83) = value
End Set
End Property
Public Property OT_Gender As Byte

448
PKMG5DC/PKMG5DC.vbproj
View File

@@ -1,227 +1,223 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="..\packages\MSBuild.AutoILMerge.Task.1.1.1\build\MSBuild.AutoILMerge.Task.props" Condition="Exists('..\packages\MSBuild.AutoILMerge.Task.1.1.1\build\MSBuild.AutoILMerge.Task.props')" />
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{82FE1063-3E51-4717-BA32-AEB77F873E0A}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>PKMG5DC.My.MyApplication</StartupObject>
<RootNamespace>PKMG5DC</RootNamespace>
<AssemblyName>PKMG5DC</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
<Deterministic>true</Deterministic>
<NuGetPackageImportStamp>
</NuGetPackageImportStamp>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>
</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>
</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<DebugSymbols>true</DebugSymbols>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<PropertyGroup>
<ApplicationIcon>favicon1.ico</ApplicationIcon>
</PropertyGroup>
<PropertyGroup>
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
</PropertyGroup>
<PropertyGroup>
<SignManifests>true</SignManifests>
</PropertyGroup>
<PropertyGroup>
<ManifestCertificateThumbprint>60BE65DE8B23BD89153A729E77677150B1D8B64C</ManifestCertificateThumbprint>
</PropertyGroup>
<PropertyGroup>
<ManifestKeyFile>Regnum.pfx</ManifestKeyFile>
</PropertyGroup>
<ItemGroup>
<Reference Include="MSBuild.AutoILMerge.Task, Version=1.0.0.0, Culture=en-US, processorArchitecture=MSIL">
<HintPath>..\packages\MSBuild.AutoILMerge.Task.1.1.1\lib\net40\MSBuild.AutoILMerge.Task.dll</HintPath>
</Reference>
<Reference Include="Newtonsoft.Json, Version=10.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
<HintPath>..\packages\Newtonsoft.Json.10.0.3\lib\net45\Newtonsoft.Json.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Drawing" />
<Reference Include="System.Web.Services" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="System.Net.Http" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Drawing" />
<Import Include="System.Diagnostics" />
<Import Include="System.Windows.Forms" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="Event\Card5.vb" />
<Compile Include="Common.vb" />
<Compile Include="PKM\Cryption.vb" />
<Compile Include="Essentials\CustomMessageBox.designer.vb">
<DependentUpon>CustomMessageBox.vb</DependentUpon>
</Compile>
<Compile Include="Essentials\CustomMessageBox.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="About.Designer.vb">
<DependentUpon>About.vb</DependentUpon>
</Compile>
<Compile Include="About.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Main5.Designer.vb">
<DependentUpon>Main5.vb</DependentUpon>
</Compile>
<Compile Include="Main5.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Essentials\IniFile.vb" />
<Compile Include="Essentials\SettingsFile.vb" />
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
<DesignTime>True</DesignTime>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
<None Include="Event\PCD.vb" />
<Compile Include="Event\PGF.vb" />
<Compile Include="PGFCreator.Designer.vb">
<DependentUpon>PGFCreator.vb</DependentUpon>
</Compile>
<Compile Include="PGFCreator.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="PKM\Database.vb" />
<Compile Include="PKM\PK5.vb" />
<Compile Include="PKM\PKMStrings.vb" />
<Compile Include="Settings.vb" />
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="Essentials\CustomMessageBox.resx">
<DependentUpon>CustomMessageBox.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="About.resx">
<DependentUpon>About.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Main5.resx">
<DependentUpon>Main5.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
</EmbeddedResource>
<EmbeddedResource Include="PGFCreator.resx">
<DependentUpon>PGFCreator.vb</DependentUpon>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="ILMerge.props" />
<None Include="My Project\app.manifest" />
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
<None Include="App.config" />
<None Include="packages.config" />
<None Include="Regnum.pfx" />
</ItemGroup>
<ItemGroup>
<Content Include="content\ILMergeOrder.txt" />
<Content Include="favicon1.ico" />
<Content Include="ILMergeInternalizeExcludeList.txt" />
<Content Include="ILMergeOrder.txt" />
<None Include="Resources\12distro\ndstool.exe" />
<None Include="Resources\DonateButton\ppdbs.png" />
<None Include="Resources\DonateButton\ppdb.png" />
<None Include="Resources\date.txt" />
</ItemGroup>
<ItemGroup>
<BootstrapperPackage Include=".NETFramework,Version=v4.6.1">
<Visible>False</Visible>
<ProductName>Microsoft .NET Framework 4.6.1 %28x86 and x64%29</ProductName>
<Install>true</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5 SP1</ProductName>
<Install>false</Install>
</BootstrapperPackage>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<Target Name="EnsureNuGetPackageBuildImports" BeforeTargets="PrepareForBuild">
<PropertyGroup>
<ErrorText>This project references NuGet package(s) that are missing on this computer. Use NuGet Package Restore to download them. For more information, see http://go.microsoft.com/fwlink/?LinkID=322105. The missing file is {0}.</ErrorText>
</PropertyGroup>
<Error Condition="!Exists('..\packages\MSBuild.AutoILMerge.Task.1.1.1\build\MSBuild.AutoILMerge.Task.props')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\MSBuild.AutoILMerge.Task.1.1.1\build\MSBuild.AutoILMerge.Task.props'))" />
<Error Condition="!Exists('..\packages\MSBuild.AutoILMerge.Task.1.1.1\build\MSBuild.AutoILMerge.Task.targets')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\MSBuild.AutoILMerge.Task.1.1.1\build\MSBuild.AutoILMerge.Task.targets'))" />
</Target>
<Import Project="..\packages\MSBuild.AutoILMerge.Task.1.1.1\build\MSBuild.AutoILMerge.Task.targets" Condition="Exists('..\packages\MSBuild.AutoILMerge.Task.1.1.1\build\MSBuild.AutoILMerge.Task.targets')" />
<PropertyGroup>
<PostBuildEvent>
</PostBuildEvent>
</PropertyGroup>
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="..\packages\MSBuild.AutoILMerge.Task.1.1.1\build\MSBuild.AutoILMerge.Task.props" Condition="Exists('..\packages\MSBuild.AutoILMerge.Task.1.1.1\build\MSBuild.AutoILMerge.Task.props')" />
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{82FE1063-3E51-4717-BA32-AEB77F873E0A}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>PKMG5DC.My.MyApplication</StartupObject>
<RootNamespace>PKMG5DC</RootNamespace>
<AssemblyName>PKMG5DC</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
<Deterministic>true</Deterministic>
<NuGetPackageImportStamp>
</NuGetPackageImportStamp>
<TargetFrameworkProfile />
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>
</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>
</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<DebugSymbols>true</DebugSymbols>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<PropertyGroup>
<ApplicationIcon>favicon1.ico</ApplicationIcon>
</PropertyGroup>
<PropertyGroup>
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
</PropertyGroup>
<PropertyGroup>
<SignManifests>False</SignManifests>
</PropertyGroup>
<PropertyGroup>
<ManifestCertificateThumbprint>60BE65DE8B23BD89153A729E77677150B1D8B64C</ManifestCertificateThumbprint>
</PropertyGroup>
<PropertyGroup>
<ManifestKeyFile>Regnum.pfx</ManifestKeyFile>
</PropertyGroup>
<ItemGroup>
<Reference Include="MSBuild.AutoILMerge.Task, Version=1.0.0.0, Culture=en-US, processorArchitecture=MSIL">
<HintPath>..\packages\MSBuild.AutoILMerge.Task.1.1.1\lib\net40\MSBuild.AutoILMerge.Task.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Drawing" />
<Reference Include="System.Web.Services" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="System.Net.Http" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Drawing" />
<Import Include="System.Diagnostics" />
<Import Include="System.Windows.Forms" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="Event\Card5.vb" />
<Compile Include="Common.vb" />
<Compile Include="PKM\Cryption.vb" />
<Compile Include="Essentials\CustomMessageBox.designer.vb">
<DependentUpon>CustomMessageBox.vb</DependentUpon>
</Compile>
<Compile Include="Essentials\CustomMessageBox.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="About.Designer.vb">
<DependentUpon>About.vb</DependentUpon>
</Compile>
<Compile Include="About.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Main5.Designer.vb">
<DependentUpon>Main5.vb</DependentUpon>
</Compile>
<Compile Include="Main5.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Essentials\IniFile.vb" />
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
<DesignTime>True</DesignTime>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
<None Include="Event\PCD.vb" />
<Compile Include="Event\PGF.vb" />
<Compile Include="PGFCreator.Designer.vb">
<DependentUpon>PGFCreator.vb</DependentUpon>
</Compile>
<Compile Include="PGFCreator.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="PKM\Database.vb" />
<Compile Include="PKM\PK5.vb" />
<Compile Include="Settings.vb" />
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="Essentials\CustomMessageBox.resx">
<DependentUpon>CustomMessageBox.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="About.resx">
<DependentUpon>About.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Main5.resx">
<DependentUpon>Main5.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
</EmbeddedResource>
<EmbeddedResource Include="PGFCreator.resx">
<DependentUpon>PGFCreator.vb</DependentUpon>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="ILMerge.props" />
<None Include="My Project\app.manifest" />
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
<None Include="App.config" />
<None Include="packages.config" />
<None Include="Regnum.pfx" />
</ItemGroup>
<ItemGroup>
<Content Include="content\ILMergeOrder.txt" />
<Content Include="favicon1.ico" />
<Content Include="ILMergeInternalizeExcludeList.txt" />
<Content Include="ILMergeOrder.txt" />
<None Include="Resources\12distro\ndstool.exe" />
<None Include="Resources\DonateButton\ppdbs.png" />
<None Include="Resources\DonateButton\ppdb.png" />
<None Include="Resources\date.txt" />
</ItemGroup>
<ItemGroup>
<BootstrapperPackage Include=".NETFramework,Version=v4.6.1">
<Visible>False</Visible>
<ProductName>Microsoft .NET Framework 4.6.1 %28x86 and x64%29</ProductName>
<Install>true</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5 SP1</ProductName>
<Install>false</Install>
</BootstrapperPackage>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<Target Name="EnsureNuGetPackageBuildImports" BeforeTargets="PrepareForBuild">
<PropertyGroup>
<ErrorText>This project references NuGet package(s) that are missing on this computer. Use NuGet Package Restore to download them. For more information, see http://go.microsoft.com/fwlink/?LinkID=322105. The missing file is {0}.</ErrorText>
</PropertyGroup>
<Error Condition="!Exists('..\packages\MSBuild.AutoILMerge.Task.1.1.1\build\MSBuild.AutoILMerge.Task.props')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\MSBuild.AutoILMerge.Task.1.1.1\build\MSBuild.AutoILMerge.Task.props'))" />
<Error Condition="!Exists('..\packages\MSBuild.AutoILMerge.Task.1.1.1\build\MSBuild.AutoILMerge.Task.targets')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\MSBuild.AutoILMerge.Task.1.1.1\build\MSBuild.AutoILMerge.Task.targets'))" />
</Target>
<Import Project="..\packages\MSBuild.AutoILMerge.Task.1.1.1\build\MSBuild.AutoILMerge.Task.targets" Condition="Exists('..\packages\MSBuild.AutoILMerge.Task.1.1.1\build\MSBuild.AutoILMerge.Task.targets')" />
<PropertyGroup>
<PostBuildEvent>
</PostBuildEvent>
</PropertyGroup>
</Project>

BIN
PKMG5DC/bin/Debug/PKMG5DC.exe Normal file
View File

Binary file not shown.

BIN
PKMG5DC/bin/Debug/PKMG5DC.pdb
View File

Binary file not shown.

BIN
PKMG5DC/bin/Release/PKMG5DC.pdb
View File

Binary file not shown.

BIN
PKMG5DC/obj/Debug/6f2aa4f5-2d9b-4b28-96d4-ee72859a3bc8_PKMG5DC.pdb Normal file
View File

Binary file not shown.

BIN
PKMG5DC/obj/Debug/70476d7f-3c24-45a5-8db1-c36402f1e6b4_PKMG5DC.pdb Normal file
View File

Binary file not shown.

BIN
PKMG5DC/obj/Debug/DesignTimeResolveAssemblyReferences.cache Normal file
View File

Binary file not shown.

BIN
PKMG5DC/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache Normal file
View File

Binary file not shown.

BIN
PKMG5DC/obj/Debug/PKMG5DC.About.resources Normal file
View File

Binary file not shown.

BIN
PKMG5DC/obj/Debug/PKMG5DC.CustomMessageBox.resources Normal file
View File

Binary file not shown.

BIN
PKMG5DC/obj/Debug/PKMG5DC.Main5.resources Normal file
View File

Binary file not shown.

BIN
PKMG5DC/obj/Debug/PKMG5DC.PGFCreator.resources Normal file
View File

Binary file not shown.

BIN
PKMG5DC/obj/Debug/PKMG5DC.Resources.resources Normal file
View File

Binary file not shown.

BIN
PKMG5DC/obj/Debug/PKMG5DC.exe Normal file
View File

Binary file not shown.

2
PKMG5DC/obj/Debug/PKMG5DC.ilmerge Normal file
View File

@@ -0,0 +1,2 @@
PKMG5DC.exe
MSBuild.AutoILMerge.Task.dll

BIN
PKMG5DC/obj/Debug/PKMG5DC.pdb Normal file
View File

Binary file not shown.

BIN
PKMG5DC/obj/Debug/PKMG5DC.vbproj.AssemblyReference.cache Normal file
View File

Binary file not shown.

1
PKMG5DC/obj/Debug/PKMG5DC.vbproj.CoreCompileInputs.cache Normal file
View File

@@ -0,0 +1 @@
8cddb65a50efcf019caa3f95b30a4d88d780bce7

11
PKMG5DC/obj/Debug/PKMG5DC.vbproj.FileListAbsolute.txt Normal file
View File

@@ -0,0 +1,11 @@
D:\2022\11_宝可梦_配信器源码\Gen5\PKMG5DC-2.0.0.1_CHS\PKMG5DC\obj\Debug\PKMG5DC.vbproj.AssemblyReference.cache
D:\2022\11_宝可梦_配信器源码\Gen5\PKMG5DC-2.0.0.1_CHS\PKMG5DC\obj\Debug\PKMG5DC.vbproj.SuggestedBindingRedirects.cache
D:\2022\11_宝可梦_配信器源码\Gen5\PKMG5DC-2.0.0.1_CHS\PKMG5DC\obj\Debug\PKMG5DC.CustomMessageBox.resources
D:\2022\11_宝可梦_配信器源码\Gen5\PKMG5DC-2.0.0.1_CHS\PKMG5DC\obj\Debug\PKMG5DC.About.resources
D:\2022\11_宝可梦_配信器源码\Gen5\PKMG5DC-2.0.0.1_CHS\PKMG5DC\obj\Debug\PKMG5DC.Main5.resources
D:\2022\11_宝可梦_配信器源码\Gen5\PKMG5DC-2.0.0.1_CHS\PKMG5DC\obj\Debug\PKMG5DC.Resources.resources
D:\2022\11_宝可梦_配信器源码\Gen5\PKMG5DC-2.0.0.1_CHS\PKMG5DC\obj\Debug\PKMG5DC.PGFCreator.resources
D:\2022\11_宝可梦_配信器源码\Gen5\PKMG5DC-2.0.0.1_CHS\PKMG5DC\obj\Debug\PKMG5DC.vbproj.GenerateResource.cache
D:\2022\11_宝可梦_配信器源码\Gen5\PKMG5DC-2.0.0.1_CHS\PKMG5DC\obj\Debug\PKMG5DC.vbproj.CoreCompileInputs.cache
D:\2022\11_宝可梦_配信器源码\Gen5\PKMG5DC-2.0.0.1_CHS\PKMG5DC\obj\Debug\PKMG5DC.exe
D:\2022\11_宝可梦_配信器源码\Gen5\PKMG5DC-2.0.0.1_CHS\PKMG5DC\obj\Debug\PKMG5DC.pdb

BIN
PKMG5DC/obj/Debug/PKMG5DC.vbproj.GenerateResource.cache Normal file
View File

Binary file not shown.

0
PKMG5DC/obj/Debug/PKMG5DC.vbproj.SuggestedBindingRedirects.cache Normal file
View File

BIN
PKMG5DC/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll Normal file
View File

Binary file not shown.

BIN
PKMG5DC/obj/Debug/b48d55bd-83c5-4a94-a1a0-3b24445b0e49_PKMG5DC.pdb Normal file
View File

Binary file not shown.

BIN
PKMG5DC/obj/Debug/d0be178d-0b60-40dc-a3d4-4686fdd978ad_PKMG5DC.pdb Normal file
View File

Binary file not shown.

9
PKMG5DC/packages.config
View File

@@ -1,6 +1,5 @@
<?xml version="1.0" encoding="utf-8"?>
<packages>
<package id="ILMerge" version="2.14.1208" targetFramework="net461" />
<package id="MSBuild.AutoILMerge.Task" version="1.1.1" targetFramework="net461" />
<package id="Newtonsoft.Json" version="10.0.3" targetFramework="net461" />
<?xml version="1.0" encoding="utf-8"?>
<packages>
<package id="ILMerge" version="2.14.1208" targetFramework="net461" />
<package id="MSBuild.AutoILMerge.Task" version="1.1.1" targetFramework="net461" />
</packages>