initial commit

Golumpa · Jan 2, 2018 · c9d2bed · c9d2bed
commit c9d2bed
Show file tree

Hide file tree

Showing 64 changed files with 5,086 additions and 0 deletions.
diff --git a/App.config b/App.config
@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="utf-8" ?>
+<configuration>
+    <startup>
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1" />
+    </startup>
+</configuration>
diff --git a/BatchGUI.Designer.vb b/BatchGUI.Designer.vb
diff --git a/BatchGUI.resx b/BatchGUI.resx
diff --git a/BatchGUI.vb b/BatchGUI.vb
@@ -0,0 +1,174 @@
+Public Class BatchGUI
+
+    Public funi As String
+
+    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+    End Sub
+
+    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBoxDub.CheckedChanged
+
+    End Sub
+
+    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles EpFrom.TextChanged
+
+    End Sub
+
+    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles EpTo.TextChanged
+
+    End Sub
+
+    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Layers.SelectedIndexChanged
+
+    End Sub
+
+    Private Sub LabelEpTo_Click(sender As Object, e As EventArgs) Handles LabelEpTo.Click
+
+    End Sub
+
+    Private Sub Label2_Click(sender As Object, e As EventArgs) Handles LabelShowTitleOveride.Click
+
+    End Sub
+
+    Private Sub GroupBox1_Enter(sender As Object, e As EventArgs) Handles GroupBox1.Enter
+
+    End Sub
+
+    Private Sub ButtonCreateBatch_Click(sender As Object, e As EventArgs) Handles ButtonCreateBatch.Click
+
+        If EpFrom.Text = "" Then
+            EpFrom.Focus()
+            MessageBox.Show(text:="No Episode From Entered!", caption:="Data Entry Error", buttons:=MessageBoxButtons.OK, icon:=MessageBoxIcon.Error)
+            Stop
+        End If
+
+        If EpTo.Text = "" Then
+            EpTo.Focus()
+            MessageBox.Show(text:="No Episode To Entered!", caption:="Data Entry Error", buttons:=MessageBoxButtons.OK, icon:=MessageBoxIcon.Error)
+            Stop
+        End If
+
+        If SeriesId.Text = "" Then
+            SeriesId.Focus()
+            MessageBox.Show(text:="No Series ID Entered!", caption:="Data Entry Error", buttons:=MessageBoxButtons.OK, icon:=MessageBoxIcon.Error)
+            Stop
+        End If
+
+        If Layers.Text = "" Then
+            Layers.Focus()
+            MessageBox.Show(text:="No Layer Selected!", caption:="Data Entry Error", buttons:=MessageBoxButtons.OK, icon:=MessageBoxIcon.Error)
+            Stop
+        End If
+
+        If EpFrom.Text <> "" And EpTo.Text <> "" And SeriesId.Text <> "" And Layers.Text <> "" Then
+
+            TextBoxOutput.Clear()
+            funi = $"@echo off{vbNewLine}{vbNewLine}"
+
+            'Dim AllEps As IEnumerable(Of Integer) = Enumerable.Range(Convert.ToInt32(EpFrom.Text), Convert.ToInt32(EpTo.Text))
+
+            Dim TempFuni
+
+            TempFuni = $"""node"" ""%~dp0.\scripts\funi.js"" -s ""{SeriesId.Text}"" --sel ""PLACEHOLDEREPISODENUMBER"" -q ""{Layers.Text}"""
+
+            If RadioProxySocks.Checked And TextBoxProxyAddr.Text <> "" Then
+                TempFuni = $"{TempFuni} --socks ""{TextBoxProxyAddr.Text}"""
+            ElseIf RadioProxyHttp.Checked And TextBoxProxyAddr.Text <> "" Then
+                TempFuni = $"{TempFuni} --proxy ""{TextBoxProxyAddr.Text}"""
+            End If
+
+            If TextBoxReleaseGroup.Text <> "" Then
+                TempFuni = $"{TempFuni} -a ""{TextBoxReleaseGroup.Text}"""
+            End If
+
+            If TextBoxShowOveride.Text <> "" Then
+                TempFuni = $"{TempFuni} -t ""{TextBoxShowOveride.Text}"""
+            End If
+
+            If TextBoxSuffixOveride.Text <> "" Then
+                TempFuni = $"{TempFuni} --suffix ""{TextBoxSuffixOveride.Text}"""
+            End If
+
+            If CheckBoxMkv.Checked Then
+                TempFuni = $"{TempFuni} --mkv"
+            End If
+
+            If CheckBoxMks.Checked Then
+                TempFuni = $"{TempFuni} --mks"
+            End If
+
+            If CheckBoxDub.Checked Then
+                TempFuni = $"{TempFuni} --sub"
+            End If
+
+            If CheckBoxSubs.Checked Then
+                TempFuni = $"{TempFuni} --nosubs"
+            End If
+
+            If CheckBoxAlt.Checked Then
+                TempFuni = $"{TempFuni} --alt"
+            End If
+
+            Dim AllEps As New ArrayList
+            Dim CurrentEp = Convert.ToInt32(EpFrom.Text)
+            While CurrentEp <= Convert.ToInt32(EpTo.Text)
+                AllEps.Add(value:=CurrentEp)
+                CurrentEp += 1
+            End While
+
+
+            Dim TempFuniLoop
+            For Each num As Integer In AllEps
+                TempFuniLoop = TempFuni
+                TempFuniLoop = TempFuniLoop.Replace("PLACEHOLDEREPISODENUMBER", Convert.ToString(num))
+                funi = $"{funi}{TempFuniLoop}{vbNewLine}"
+            Next
+
+
+            funi = $"{funi}{vbNewLine}Pause"
+            TextBoxOutput.AppendText(text:=funi)
+        End If
+    End Sub
+
+    Private Sub ButtonCreateBat_Click(sender As Object, e As EventArgs) Handles ButtonCreateBat.Click
+        If funi <> "" Then
+
+            Try
+                Dim savefile As New SaveFileDialog
+                savefile.ShowDialog()
+                My.Computer.FileSystem.WriteAllText(savefile.FileName & ".bat", funi, False)
+                MsgBox("Saved .bat file!")
+            Catch ex As Exception
+
+            End Try
+
+        Else
+            MessageBox.Show(text:="Nothing to write, generate batch script first.", caption:="Cannot Save File", buttons:=MessageBoxButtons.OK, icon:=MessageBoxIcon.Error)
+            Stop
+        End If
+    End Sub
+
+    Private Sub EpFrom_KeyPress(sender As Object, e As KeyPressEventArgs) Handles EpFrom.KeyPress
+        If Asc(e.KeyChar) <> 8 Then
+            If Asc(e.KeyChar) < 48 Or Asc(e.KeyChar) > 57 Then
+                e.Handled = True
+            End If
+        End If
+    End Sub
+
+    Private Sub EpTo_KeyPress(sender As Object, e As KeyPressEventArgs) Handles EpTo.KeyPress
+        If Asc(e.KeyChar) <> 8 Then
+            If Asc(e.KeyChar) < 48 Or Asc(e.KeyChar) > 57 Then
+                e.Handled = True
+            End If
+        End If
+    End Sub
+
+    Private Sub SeriesId_KeyPress(sender As Object, e As KeyPressEventArgs) Handles SeriesId.KeyPress
+        If Asc(e.KeyChar) <> 8 Then
+            If Asc(e.KeyChar) < 48 Or Asc(e.KeyChar) > 57 Then
+                e.Handled = True
+            End If
+        End If
+    End Sub
+End Class
diff --git a/FodyWeavers.xml b/FodyWeavers.xml
@@ -0,0 +1,4 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Weavers>
+  <Costura />
+</Weavers>
diff --git a/FuniBatchGUI.vbproj b/FuniBatchGUI.vbproj
@@ -0,0 +1,197 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <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>{21502D37-4699-498E-ADA0-D0810543AAD7}</ProjectGuid>
+    <OutputType>WinExe</OutputType>
+    <StartupObject>FuniBatchGUI.My.MyApplication</StartupObject>
+    <RootNamespace>FuniBatchGUI</RootNamespace>
+    <AssemblyName>FuniBatchGUI</AssemblyName>
+    <FileAlignment>512</FileAlignment>
+    <MyType>WindowsForms</MyType>
+    <TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
+    <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
+    <PublishUrl>publish\</PublishUrl>
+    <Install>true</Install>
+    <InstallFrom>Disk</InstallFrom>
+    <UpdateEnabled>false</UpdateEnabled>
+    <UpdateMode>Foreground</UpdateMode>
+    <UpdateInterval>7</UpdateInterval>
+    <UpdateIntervalUnits>Days</UpdateIntervalUnits>
+    <UpdatePeriodically>false</UpdatePeriodically>
+    <UpdateRequired>false</UpdateRequired>
+    <MapFileExtensions>true</MapFileExtensions>
+    <ApplicationRevision>0</ApplicationRevision>
+    <ApplicationVersion>1.0.0.%2a</ApplicationVersion>
+    <IsWebBootstrapper>false</IsWebBootstrapper>
+    <UseApplicationTrust>false</UseApplicationTrust>
+    <BootstrapperEnabled>true</BootstrapperEnabled>
+    <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>FuniBatchGUI.xml</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>FuniBatchGUI.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionExplicit>On</OptionExplicit>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionCompare>Binary</OptionCompare>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionStrict>Off</OptionStrict>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionInfer>On</OptionInfer>
+  </PropertyGroup>
+  <PropertyGroup>
+    <ApplicationIcon>th_c4_UDf_icon.ico</ApplicationIcon>
+  </PropertyGroup>
+  <PropertyGroup>
+    <ApplicationManifest>My Project\app.manifest</ApplicationManifest>
+  </PropertyGroup>
+  <PropertyGroup>
+    <SignManifests>false</SignManifests>
+  </PropertyGroup>
+  <PropertyGroup>
+    <SignAssembly>false</SignAssembly>
+  </PropertyGroup>
+  <ItemGroup>
+    <Reference Include="Costura, Version=1.6.2.0, Culture=neutral, PublicKeyToken=9919ef960d84173d, processorArchitecture=MSIL">
+      <HintPath>..\packages\Costura.Fody.1.6.2\lib\dotnet\Costura.dll</HintPath>
+      <Private>False</Private>
+    </Reference>
+    <Reference Include="MetroFramework, Version=1.4.0.0, Culture=neutral, PublicKeyToken=5f91a84759bf584a, processorArchitecture=MSIL">
+      <HintPath>..\packages\MetroModernUI.1.4.0.0\lib\net\MetroFramework.dll</HintPath>
+      <EmbedInteropTypes>False</EmbedInteropTypes>
+    </Reference>
+    <Reference Include="MetroFramework.Design, Version=1.4.0.0, Culture=neutral, PublicKeyToken=5f91a84759bf584a, processorArchitecture=MSIL">
+      <HintPath>..\packages\MetroModernUI.1.4.0.0\lib\net\MetroFramework.Design.dll</HintPath>
+      <EmbedInteropTypes>False</EmbedInteropTypes>
+    </Reference>
+    <Reference Include="MetroFramework.Fonts, Version=1.4.0.0, Culture=neutral, PublicKeyToken=5f91a84759bf584a, processorArchitecture=MSIL">
+      <HintPath>..\packages\MetroModernUI.1.4.0.0\lib\net\MetroFramework.Fonts.dll</HintPath>
+      <EmbedInteropTypes>False</EmbedInteropTypes>
+    </Reference>
+    <Reference Include="System" />
+    <Reference Include="System.Data" />
+    <Reference Include="System.Deployment" />
+    <Reference Include="System.Drawing" />
+    <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="BatchGUI.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="BatchGUI.Designer.vb">
+      <DependentUpon>BatchGUI.vb</DependentUpon>
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="My Project\AssemblyInfo.vb" />
+    <Compile Include="My Project\Application.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Application.myapp</DependentUpon>
+    </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>
+  </ItemGroup>
+  <ItemGroup>
+    <EmbeddedResource Include="BatchGUI.resx">
+      <DependentUpon>BatchGUI.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="My Project\Resources.resx">
+      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
+      <CustomToolNamespace>My.Resources</CustomToolNamespace>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+  </ItemGroup>
+  <ItemGroup>
+    <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" />
+  </ItemGroup>
+  <ItemGroup>
+    <WCFMetadata Include="Connected Services\" />
+  </ItemGroup>
+  <ItemGroup>
+    <Content Include="th_c4_UDf_icon.ico" />
+    <None Include="FodyWeavers.xml" />
+  </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" />
+  <Import Project="..\packages\Fody.2.0.0\build\netstandard1.4\Fody.targets" Condition="Exists('..\packages\Fody.2.0.0\build\netstandard1.4\Fody.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\Fody.2.0.0\build\netstandard1.4\Fody.targets')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\Fody.2.0.0\build\netstandard1.4\Fody.targets'))" />
+    <Error Condition="!Exists('..\packages\Costura.Fody.1.6.2\build\dotnet\Costura.Fody.targets')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\Costura.Fody.1.6.2\build\dotnet\Costura.Fody.targets'))" />
+  </Target>
+  <Import Project="..\packages\Costura.Fody.1.6.2\build\dotnet\Costura.Fody.targets" Condition="Exists('..\packages\Costura.Fody.1.6.2\build\dotnet\Costura.Fody.targets')" />
+</Project>