Upload the project.

tecwindow · Oct 9, 2022 · 003aa59 · 003aa59
1 parent 6114e92
commit 003aa59
Show file tree

Hide file tree

Showing 82 changed files with 43,608 additions and 0 deletions.
diff --git a/IP information.sln b/IP information.sln
@@ -0,0 +1,20 @@
+
+Microsoft Visual Studio Solution File, Format Version 10.00
+# Visual Basic Express 2008
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "IP information", "IP information\IP information.vbproj", "{198AF779-FB2B-45D8-9598-CDADC875D20D}"
+EndProject
+Global
+	GlobalSection(SolutionConfigurationPlatforms) = preSolution
+		Debug|Any CPU = Debug|Any CPU
+		Release|Any CPU = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(ProjectConfigurationPlatforms) = postSolution
+		{198AF779-FB2B-45D8-9598-CDADC875D20D}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{198AF779-FB2B-45D8-9598-CDADC875D20D}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{198AF779-FB2B-45D8-9598-CDADC875D20D}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{198AF779-FB2B-45D8-9598-CDADC875D20D}.Release|Any CPU.Build.0 = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(SolutionProperties) = preSolution
+		HideSolutionNode = FALSE
+	EndGlobalSection
+EndGlobal
diff --git a/IP information.suo b/IP information.suo
diff --git a/IP information/ApplicationEvents.vb b/IP information/ApplicationEvents.vb
@@ -0,0 +1 @@
+
diff --git a/IP information/Form1.Designer.vb b/IP information/Form1.Designer.vb
diff --git a/IP information/Functions.vb b/IP information/Functions.vb
@@ -0,0 +1,28 @@
+Imports Newtonsoft.Json.Linq
+
+Public Class Functions
+
+    Public Shared Function GettingIP() As String
+        Dim json As String = New System.Net.WebClient().DownloadString("https://api64.ipify.org?format=json")
+        Dim parsejson As JObject = JObject.Parse(json)
+        Dim IP = parsejson.SelectToken("ip").ToString()
+        Return IP
+
+    End Function
+
+
+
+    Public Shared Function GetInfromation(ByVal IP As String) As Dictionary(Of String, String)
+        Dim information As New Dictionary(Of String, String)
+        Dim json As String = New System.Net.WebClient().DownloadString("http://ip-api.com/json/" & IP)
+        Dim parsejson As JObject = JObject.Parse(json)
+
+        information.Add("ip", IP)
+        information.Add("country", parsejson.SelectToken("country").ToString())
+        information.Add("countryCode", parsejson.SelectToken("countryCode").ToString())
+        information.Add("city", parsejson.SelectToken("city").ToString())
+        information.Add("region", parsejson.SelectToken("regionName").ToString())
+        Return information
+    End Function
+
+End Class
diff --git a/IP information/IP information.sln b/IP information/IP information.sln
@@ -0,0 +1,20 @@
+
+Microsoft Visual Studio Solution File, Format Version 10.00
+# Visual Basic Express 2008
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "IP information", "IP information\IP information.vbproj", "{198AF779-FB2B-45D8-9598-CDADC875D20D}"
+EndProject
+Global
+	GlobalSection(SolutionConfigurationPlatforms) = preSolution
+		Debug|Any CPU = Debug|Any CPU
+		Release|Any CPU = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(ProjectConfigurationPlatforms) = postSolution
+		{198AF779-FB2B-45D8-9598-CDADC875D20D}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{198AF779-FB2B-45D8-9598-CDADC875D20D}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{198AF779-FB2B-45D8-9598-CDADC875D20D}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{198AF779-FB2B-45D8-9598-CDADC875D20D}.Release|Any CPU.Build.0 = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(SolutionProperties) = preSolution
+		HideSolutionNode = FALSE
+	EndGlobalSection
+EndGlobal
diff --git a/IP information/IP information.suo b/IP information/IP information.suo
diff --git a/IP information/IP information.vbproj b/IP information/IP information.vbproj
@@ -0,0 +1,139 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="3.5" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <ProductVersion>9.0.21022</ProductVersion>
+    <SchemaVersion>2.0</SchemaVersion>
+    <ProjectGuid>{198AF779-FB2B-45D8-9598-CDADC875D20D}</ProjectGuid>
+    <OutputType>WinExe</OutputType>
+    <StartupObject>IP_information.MainWindow</StartupObject>
+    <RootNamespace>IP_information</RootNamespace>
+    <AssemblyName>IP information</AssemblyName>
+    <FileAlignment>512</FileAlignment>
+    <MyType>WindowsFormsWithCustomSubMain</MyType>
+    <TargetFrameworkVersion>v3.5</TargetFrameworkVersion>
+    <OptionExplicit>On</OptionExplicit>
+    <OptionCompare>Binary</OptionCompare>
+    <OptionStrict>Off</OptionStrict>
+    <OptionInfer>On</OptionInfer>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <DebugSymbols>true</DebugSymbols>
+    <DebugType>full</DebugType>
+    <DefineDebug>true</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <OutputPath>bin\Debug\</OutputPath>
+    <DocumentationFile>IP information.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <DebugType>pdbonly</DebugType>
+    <DefineDebug>false</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <Optimize>true</Optimize>
+    <OutputPath>bin\Release\</OutputPath>
+    <DocumentationFile>IP information.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <ItemGroup>
+    <Reference Include="Newtonsoft.Json, Version=13.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\..\..\..\Downloads\Compressed\Json130r1\Bin\net20\Newtonsoft.Json.dll</HintPath>
+    </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">
+      <RequiredTargetFramework>3.5</RequiredTargetFramework>
+    </Reference>
+    <Reference Include="System.Xml.Linq">
+      <RequiredTargetFramework>3.5</RequiredTargetFramework>
+    </Reference>
+    <Reference Include="System.Data.DataSetExtensions">
+      <RequiredTargetFramework>3.5</RequiredTargetFramework>
+    </Reference>
+  </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" />
+  </ItemGroup>
+  <ItemGroup>
+    <Compile Include="Functions.vb" />
+    <Compile Include="MainWindow.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="Form1.Designer.vb">
+      <DependentUpon>MainWindow.vb</DependentUpon>
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="Module.vb" />
+    <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>
+    <Compile Include="ViewInfo.Designer.vb">
+      <DependentUpon>ViewInfo.vb</DependentUpon>
+    </Compile>
+    <Compile Include="ViewInfo.vb">
+      <SubType>Form</SubType>
+    </Compile>
+  </ItemGroup>
+  <ItemGroup>
+    <EmbeddedResource Include="MainWindow.resx">
+      <DependentUpon>MainWindow.vb</DependentUpon>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+    <EmbeddedResource Include="My Project\Resources.resx">
+      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
+      <CustomToolNamespace>My.Resources</CustomToolNamespace>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+    <EmbeddedResource Include="ViewInfo.resx">
+      <DependentUpon>ViewInfo.vb</DependentUpon>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+  </ItemGroup>
+  <ItemGroup>
+    <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>
+  </ItemGroup>
+  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+  <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
+       Other similar extension points exist, see Microsoft.Common.targets.
+  <Target Name="BeforeBuild">
+  </Target>
+  <Target Name="AfterBuild">
+  </Target>
+  -->
+</Project>
diff --git a/IP information/IP information.vbproj.user b/IP information/IP information.vbproj.user
@@ -0,0 +1 @@
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003" />
diff --git a/IP information/IP information/ApplicationEvents.vb b/IP information/IP information/ApplicationEvents.vb
@@ -0,0 +1 @@
+