Skip to content

Commit 003aa59

Browse files
MahmoudAtef999MahmoudAtef999
committed
Upload the project.
1 parent 6114e92 commit 003aa59

File tree

82 files changed

+43608
-0
lines changed

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

82 files changed

+43608
-0
lines changed

‎IP information.sln‎

Lines changed: 20 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,20 @@
1+
2+
Microsoft Visual Studio Solution File, Format Version 10.00
3+
# Visual Basic Express 2008
4+
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "IP information", "IP information\IP information.vbproj", "{198AF779-FB2B-45D8-9598-CDADC875D20D}"
5+
EndProject
6+
Global
7+
GlobalSection(SolutionConfigurationPlatforms) = preSolution
8+
Debug|Any CPU = Debug|Any CPU
9+
Release|Any CPU = Release|Any CPU
10+
EndGlobalSection
11+
GlobalSection(ProjectConfigurationPlatforms) = postSolution
12+
{198AF779-FB2B-45D8-9598-CDADC875D20D}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
13+
{198AF779-FB2B-45D8-9598-CDADC875D20D}.Debug|Any CPU.Build.0 = Debug|Any CPU
14+
{198AF779-FB2B-45D8-9598-CDADC875D20D}.Release|Any CPU.ActiveCfg = Release|Any CPU
15+
{198AF779-FB2B-45D8-9598-CDADC875D20D}.Release|Any CPU.Build.0 = Release|Any CPU
16+
EndGlobalSection
17+
GlobalSection(SolutionProperties) = preSolution
18+
HideSolutionNode = FALSE
19+
EndGlobalSection
20+
EndGlobal

‎IP information.suo‎

31 KB
Binary file not shown.

‎IP information/ApplicationEvents.vb‎

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1 @@
1+


‎IP information/Form1.Designer.vb‎

Lines changed: 102 additions & 0 deletions
Some generated files are not rendered by default. Learn more about customizing how changed files appear on GitHub.

‎IP information/Functions.vb‎

Lines changed: 28 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,28 @@
1+
Imports Newtonsoft.Json.Linq
2+
3+
Public Class Functions
4+
5+
Public Shared Function GettingIP() As String
6+
Dim json As String = New System.Net.WebClient().DownloadString("https://api64.ipify.org?format=json")
7+
Dim parsejson As JObject = JObject.Parse(json)
8+
Dim IP = parsejson.SelectToken("ip").ToString()
9+
Return IP
10+
11+
End Function
12+
13+
14+
15+
Public Shared Function GetInfromation(ByVal IP As String) As Dictionary(Of String, String)
16+
Dim information As New Dictionary(Of String, String)
17+
Dim json As String = New System.Net.WebClient().DownloadString("http://ip-api.com/json/" & IP)
18+
Dim parsejson As JObject = JObject.Parse(json)
19+
20+
information.Add("ip", IP)
21+
information.Add("country", parsejson.SelectToken("country").ToString())
22+
information.Add("countryCode", parsejson.SelectToken("countryCode").ToString())
23+
information.Add("city", parsejson.SelectToken("city").ToString())
24+
information.Add("region", parsejson.SelectToken("regionName").ToString())
25+
Return information
26+
End Function
27+
28+
End Class

‎IP information/IP information.sln‎

Lines changed: 20 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,20 @@
1+
2+
Microsoft Visual Studio Solution File, Format Version 10.00
3+
# Visual Basic Express 2008
4+
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "IP information", "IP information\IP information.vbproj", "{198AF779-FB2B-45D8-9598-CDADC875D20D}"
5+
EndProject
6+
Global
7+
GlobalSection(SolutionConfigurationPlatforms) = preSolution
8+
Debug|Any CPU = Debug|Any CPU
9+
Release|Any CPU = Release|Any CPU
10+
EndGlobalSection
11+
GlobalSection(ProjectConfigurationPlatforms) = postSolution
12+
{198AF779-FB2B-45D8-9598-CDADC875D20D}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
13+
{198AF779-FB2B-45D8-9598-CDADC875D20D}.Debug|Any CPU.Build.0 = Debug|Any CPU
14+
{198AF779-FB2B-45D8-9598-CDADC875D20D}.Release|Any CPU.ActiveCfg = Release|Any CPU
15+
{198AF779-FB2B-45D8-9598-CDADC875D20D}.Release|Any CPU.Build.0 = Release|Any CPU
16+
EndGlobalSection
17+
GlobalSection(SolutionProperties) = preSolution
18+
HideSolutionNode = FALSE
19+
EndGlobalSection
20+
EndGlobal

‎IP information/IP information.suo‎

31 KB
Binary file not shown.

‎IP information/IP information.vbproj‎

Lines changed: 139 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,139 @@
1+
<?xml version="1.0" encoding="utf-8"?>
2+
<Project ToolsVersion="3.5" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
3+
<PropertyGroup>
4+
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
5+
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
6+
<ProductVersion>9.0.21022</ProductVersion>
7+
<SchemaVersion>2.0</SchemaVersion>
8+
<ProjectGuid>{198AF779-FB2B-45D8-9598-CDADC875D20D}</ProjectGuid>
9+
<OutputType>WinExe</OutputType>
10+
<StartupObject>IP_information.MainWindow</StartupObject>
11+
<RootNamespace>IP_information</RootNamespace>
12+
<AssemblyName>IP information</AssemblyName>
13+
<FileAlignment>512</FileAlignment>
14+
<MyType>WindowsFormsWithCustomSubMain</MyType>
15+
<TargetFrameworkVersion>v3.5</TargetFrameworkVersion>
16+
<OptionExplicit>On</OptionExplicit>
17+
<OptionCompare>Binary</OptionCompare>
18+
<OptionStrict>Off</OptionStrict>
19+
<OptionInfer>On</OptionInfer>
20+
</PropertyGroup>
21+
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
22+
<DebugSymbols>true</DebugSymbols>
23+
<DebugType>full</DebugType>
24+
<DefineDebug>true</DefineDebug>
25+
<DefineTrace>true</DefineTrace>
26+
<OutputPath>bin\Debug\</OutputPath>
27+
<DocumentationFile>IP information.xml</DocumentationFile>
28+
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
29+
</PropertyGroup>
30+
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
31+
<DebugType>pdbonly</DebugType>
32+
<DefineDebug>false</DefineDebug>
33+
<DefineTrace>true</DefineTrace>
34+
<Optimize>true</Optimize>
35+
<OutputPath>bin\Release\</OutputPath>
36+
<DocumentationFile>IP information.xml</DocumentationFile>
37+
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
38+
</PropertyGroup>
39+
<ItemGroup>
40+
<Reference Include="Newtonsoft.Json, Version=13.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
41+
<SpecificVersion>False</SpecificVersion>
42+
<HintPath>..\..\..\..\..\Downloads\Compressed\Json130r1\Bin\net20\Newtonsoft.Json.dll</HintPath>
43+
</Reference>
44+
<Reference Include="System" />
45+
<Reference Include="System.Data" />
46+
<Reference Include="System.Deployment" />
47+
<Reference Include="System.Drawing" />
48+
<Reference Include="System.Windows.Forms" />
49+
<Reference Include="System.Xml" />
50+
<Reference Include="System.Core">
51+
<RequiredTargetFramework>3.5</RequiredTargetFramework>
52+
</Reference>
53+
<Reference Include="System.Xml.Linq">
54+
<RequiredTargetFramework>3.5</RequiredTargetFramework>
55+
</Reference>
56+
<Reference Include="System.Data.DataSetExtensions">
57+
<RequiredTargetFramework>3.5</RequiredTargetFramework>
58+
</Reference>
59+
</ItemGroup>
60+
<ItemGroup>
61+
<Import Include="Microsoft.VisualBasic" />
62+
<Import Include="System" />
63+
<Import Include="System.Collections" />
64+
<Import Include="System.Collections.Generic" />
65+
<Import Include="System.Data" />
66+
<Import Include="System.Drawing" />
67+
<Import Include="System.Diagnostics" />
68+
<Import Include="System.Windows.Forms" />
69+
<Import Include="System.Linq" />
70+
<Import Include="System.Xml.Linq" />
71+
</ItemGroup>
72+
<ItemGroup>
73+
<Compile Include="Functions.vb" />
74+
<Compile Include="MainWindow.vb">
75+
<SubType>Form</SubType>
76+
</Compile>
77+
<Compile Include="Form1.Designer.vb">
78+
<DependentUpon>MainWindow.vb</DependentUpon>
79+
<SubType>Form</SubType>
80+
</Compile>
81+
<Compile Include="Module.vb" />
82+
<Compile Include="My Project\AssemblyInfo.vb" />
83+
<Compile Include="My Project\Application.Designer.vb">
84+
<AutoGen>True</AutoGen>
85+
<DependentUpon>Application.myapp</DependentUpon>
86+
</Compile>
87+
<Compile Include="My Project\Resources.Designer.vb">
88+
<AutoGen>True</AutoGen>
89+
<DesignTime>True</DesignTime>
90+
<DependentUpon>Resources.resx</DependentUpon>
91+
</Compile>
92+
<Compile Include="My Project\Settings.Designer.vb">
93+
<AutoGen>True</AutoGen>
94+
<DependentUpon>Settings.settings</DependentUpon>
95+
<DesignTimeSharedInput>True</DesignTimeSharedInput>
96+
</Compile>
97+
<Compile Include="ViewInfo.Designer.vb">
98+
<DependentUpon>ViewInfo.vb</DependentUpon>
99+
</Compile>
100+
<Compile Include="ViewInfo.vb">
101+
<SubType>Form</SubType>
102+
</Compile>
103+
</ItemGroup>
104+
<ItemGroup>
105+
<EmbeddedResource Include="MainWindow.resx">
106+
<DependentUpon>MainWindow.vb</DependentUpon>
107+
<SubType>Designer</SubType>
108+
</EmbeddedResource>
109+
<EmbeddedResource Include="My Project\Resources.resx">
110+
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
111+
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
112+
<CustomToolNamespace>My.Resources</CustomToolNamespace>
113+
<SubType>Designer</SubType>
114+
</EmbeddedResource>
115+
<EmbeddedResource Include="ViewInfo.resx">
116+
<DependentUpon>ViewInfo.vb</DependentUpon>
117+
<SubType>Designer</SubType>
118+
</EmbeddedResource>
119+
</ItemGroup>
120+
<ItemGroup>
121+
<None Include="My Project\Application.myapp">
122+
<Generator>MyApplicationCodeGenerator</Generator>
123+
<LastGenOutput>Application.Designer.vb</LastGenOutput>
124+
</None>
125+
<None Include="My Project\Settings.settings">
126+
<Generator>SettingsSingleFileGenerator</Generator>
127+
<CustomToolNamespace>My</CustomToolNamespace>
128+
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
129+
</None>
130+
</ItemGroup>
131+
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
132+
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
133+
Other similar extension points exist, see Microsoft.Common.targets.
134+
<Target Name="BeforeBuild">
135+
</Target>
136+
<Target Name="AfterBuild">
137+
</Target>
138+
-->
139+
</Project>

‎IP information/IP information.vbproj.user‎

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1 @@
1+
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003" />

‎IP information/IP information/ApplicationEvents.vb‎

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1 @@
1+


0 commit comments

Comments
 (0)