webservice 根据当前请求IP 获取天气预报 实例【附源码】

通过webservice 根据当前请求IP 获取该地区天气预报

    public partial class Form1 : Form
    {
        
        string myip,mycity;
        private double opacity = 0;//记录当前窗体的透明度   
        //实现无边框移动
        [DllImport("user32.dll")]
        public static extern bool ReleaseCapture();
        [DllImport("user32.dll")]
        public static extern bool SendMessage(IntPtr hwnd, int wMsg, int wParam, int lParam);
        public const int WM_SYSCOMMAND = 0x0112;
        public const int SC_MOVE = 0xF010;
        public const int HTCAPTION = 0x0002;
        //实现无边框移动

//实现win7 aero磨砂效果-------------------------------------------------------
        //[StructLayout(LayoutKind.Sequential)]
        //public struct MARGINS
        //{
        //    public int Left;
        //    public int Right;
        //    public int Top;
        //    public int Bottom;
        //}

        //[DllImport("dwmapi.dll", PreserveSig = false)]
        //static extern void DwmExtendFrameIntoClientArea(IntPtr hwnd, ref MARGINS margins);

        //[DllImport("dwmapi.dll", PreserveSig = false)]
        //static extern bool DwmIsCompositionEnabled();

        //protected override void OnLoad(EventArgs e)
        //{


        //    if (DwmIsCompositionEnabled())
        //    {
        //        MARGINS margins = new MARGINS();
        //        margins.Right = margins.Left = margins.Top = margins.Bottom = this.Width   this.Height;
        //        DwmExtendFrameIntoClientArea(this.Handle, ref margins);
        //    }
        //    base.OnLoad(e);
        //    GetIP();
        //    GetCityByIP(myip);
        //    DisplayWeather();


        //}

        //protected override void OnPaintBackground(PaintEventArgs e)
        //{
        //    base.OnPaintBackground(e);
        //    if (DwmIsCompositionEnabled())
        //    {
        //        e.Graphics.Clear(Color.Black);
        //    }
        //}
//实现win7 aero磨砂效果-------------------------------------------------------
        public Form1()
        {
            InitializeComponent();
          
        }

       

        private void Form1_Load(object sender, EventArgs e)
        {
               Opacity = 0;//指定窗体完全透明   
               GetIP();
               GetCityByIP(myip);
               DisplayWeather();
        }

        protected void GetIP()
        {
            try
            {
                string strUrl = "http://www.ip138.com/ip2city.asp"; //获得IP的网址了 
                Uri uri = new Uri(strUrl);
                System.Net.WebRequest wr = System.Net.WebRequest.Create(uri);
                System.IO.Stream s = wr.GetResponse().GetResponseStream();
                System.IO.StreamReader sr = new System.IO.StreamReader(s, Encoding.Default);
                string all = sr.ReadToEnd(); //读取网站的数据 
                int i = all.IndexOf("[")   1;
                string tempip = all.Substring(i, 15);
                string ip = tempip.Replace("]", "").Replace(" ", "");//找出i
                myip = ip;
            }
            catch (Exception e)
            {
                Console.WriteLine(e.ToString());
            }
        }

        protected void GetCityByIP(string myip)
        {
            IPCity.IpAddressSearchWebService city = new IPCity.IpAddressSearchWebService();


            string[] ss = city.getCountryCityByIp(myip);
           
            int n = ss[1].IndexOf(' ');//空格所在位置
            int m = ss[1].IndexOf('省');
            int x = n - m;
            mycity = ss[1].Substring(m 1,x-2);
          
        

        }
        protected void DisplayWeather()
        {


            webxml.WeatherWebService w = new webxml.WeatherWebService();
            //把webservice当做一个类来操作  

            string[] s = new string[23];//声明string数组存放返回结果  
          
            s = w.getWeatherbyCityName(mycity);
         
         
            if (s[8] == "")
            {
                MessageBox.Show("暂时不支持您查询的城市");
            }
            else
            {

                string png = s[8].Substring(0, s[8].Length - 4);
                string png2 = s[15].Substring(0, s[15].Length - 4);
                string png3 = s[20].Substring(0, s[20].Length - 4);
                string path = Application.StartupPath;
                pictoday.Image = Image.FromFile(path "\\images\\" png ".png");
                pic1.Image = Image.FromFile(path   "\\images\\"   png   ".png");
                pic2.Image = Image.FromFile(path   "\\images\\"   png2   ".png");
                pic3.Image = Image.FromFile(path   "\\images\\"   png3   ".png");
                this.lbl1.Text = s[5].ToString();
                this.lbl2.Text = s[12].ToString();
                this.lbl3.Text = s[17].ToString();
                this.time.Text = s[4].ToString();
                this.address.Text = s[1].ToString();
                this.temperature.Text = s[5].ToString();
                this.label4.Text = s[6].Substring(s[6].IndexOf('日') 1).ToString();
                this.label5.Text = s[7].ToString();
                this.tempo1.Text = s[6].Substring(s[6].IndexOf('日') 1);
                this.tempo2.Text = s[13].Substring(s[13].IndexOf('日') 1);
                this.tempo3.Text = s[18].Substring(s[18].IndexOf('日') 1);
               

            }
        }
        //实现无边框移动
        private void Form1_MouseDown(object sender, MouseEventArgs e)
        {
            ReleaseCapture();
            SendMessage(this.Handle, WM_SYSCOMMAND, SC_MOVE   HTCAPTION, 0);
        }

        private void timer1_Tick(object sender, EventArgs e)
        {
             if (opacity <= 1)  
 
            {  
 
                opacity = opacity   0.05;  
 
                Opacity = opacity;  
            }   
        }

      

       

    
    }

资源下载

此资源下载价格为2D币（VIP免费），请先登录

资源文件列表

MyWeather_haolizi/MyWeather/app.config , 1095
MyWeather_haolizi/MyWeather/bin/Debug/images/0.png , 20945
MyWeather_haolizi/MyWeather/bin/Debug/images/1.png , 32591
MyWeather_haolizi/MyWeather/bin/Debug/images/10.png , 31769
MyWeather_haolizi/MyWeather/bin/Debug/images/11.png , 31769
MyWeather_haolizi/MyWeather/bin/Debug/images/12.png , 31769
MyWeather_haolizi/MyWeather/bin/Debug/images/14.png , 27274
MyWeather_haolizi/MyWeather/bin/Debug/images/15.png , 32166
MyWeather_haolizi/MyWeather/bin/Debug/images/16.png , 32166
MyWeather_haolizi/MyWeather/bin/Debug/images/17.png , 32166
MyWeather_haolizi/MyWeather/bin/Debug/images/18.png , 27731
MyWeather_haolizi/MyWeather/bin/Debug/images/19.png , 29144
MyWeather_haolizi/MyWeather/bin/Debug/images/2.png , 24632
MyWeather_haolizi/MyWeather/bin/Debug/images/20.png , 23067
MyWeather_haolizi/MyWeather/bin/Debug/images/21.png , 27884
MyWeather_haolizi/MyWeather/bin/Debug/images/22.png , 31769
MyWeather_haolizi/MyWeather/bin/Debug/images/23.png , 31769
MyWeather_haolizi/MyWeather/bin/Debug/images/24.png , 31769
MyWeather_haolizi/MyWeather/bin/Debug/images/25.png , 31769
MyWeather_haolizi/MyWeather/bin/Debug/images/26.png , 32166
MyWeather_haolizi/MyWeather/bin/Debug/images/27.png , 32166
MyWeather_haolizi/MyWeather/bin/Debug/images/28.png , 32166
MyWeather_haolizi/MyWeather/bin/Debug/images/29.png , 23323
MyWeather_haolizi/MyWeather/bin/Debug/images/3.png , 36880
MyWeather_haolizi/MyWeather/bin/Debug/images/30.png , 23323
MyWeather_haolizi/MyWeather/bin/Debug/images/31.png , 23067
MyWeather_haolizi/MyWeather/bin/Debug/images/4.png , 39492
MyWeather_haolizi/MyWeather/bin/Debug/images/5.png , 41059
MyWeather_haolizi/MyWeather/bin/Debug/images/6.png , 30410
MyWeather_haolizi/MyWeather/bin/Debug/images/7.png , 24744
MyWeather_haolizi/MyWeather/bin/Debug/images/8.png , 27884
MyWeather_haolizi/MyWeather/bin/Debug/images/9.png , 31769
MyWeather_haolizi/MyWeather/bin/Debug/images/bg.png , 352385
MyWeather_haolizi/MyWeather/bin/Debug/images/msdtc_exe_01_16.ico , 58210
MyWeather_haolizi/MyWeather/bin/Debug/Microsoft.VisualStudio.HostingProcess.Utilities.Sync.dll , 24576
MyWeather_haolizi/MyWeather/bin/Debug/MyWeather.exe , 688128
MyWeather_haolizi/MyWeather/bin/Debug/MyWeather.exe.config , 1095
MyWeather_haolizi/MyWeather/bin/Debug/MyWeather.pdb , 56832
MyWeather_haolizi/MyWeather/bin/Debug/MyWeather.vshost.exe , 5632
MyWeather_haolizi/MyWeather/bin/Debug/MyWeather.vshost.exe.config , 1095
MyWeather_haolizi/MyWeather/Form1.cs , 6261
MyWeather_haolizi/MyWeather/Form1.Designer.cs , 17722
MyWeather_haolizi/MyWeather/Form1.resx , 973905
MyWeather_haolizi/MyWeather/MyWeather.csproj , 6431
MyWeather_haolizi/MyWeather/MyWeather.csproj.user , 168
MyWeather_haolizi/MyWeather/obj/Debug/MyWeather.csproj.GenerateResource.Cache , 842
MyWeather_haolizi/MyWeather/obj/Debug/MyWeather.exe , 688128
MyWeather_haolizi/MyWeather/obj/Debug/MyWeather.Form1.resources , 646151
MyWeather_haolizi/MyWeather/obj/Debug/MyWeather.pdb , 56832
MyWeather_haolizi/MyWeather/obj/Debug/MyWeather.Properties.Resources.resources , 180
MyWeather_haolizi/MyWeather/obj/MyWeather.csproj.FileListAbsolute.txt , 963
MyWeather_haolizi/MyWeather/Program.cs , 468
MyWeather_haolizi/MyWeather/Properties/AssemblyInfo.cs , 1166
MyWeather_haolizi/MyWeather/Properties/Resources.Designer.cs , 2842
MyWeather_haolizi/MyWeather/Properties/Resources.resx , 5350
MyWeather_haolizi/MyWeather/Properties/Settings.Designer.cs , 2321
MyWeather_haolizi/MyWeather/Properties/Settings.settings , 746
MyWeather_haolizi/MyWeather/Web References/IPCity/IpAddressSearchWebService.disco , 855
MyWeather_haolizi/MyWeather/Web References/IPCity/IpAddressSearchWebService.wsdl , 16455
MyWeather_haolizi/MyWeather/Web References/IPCity/Reference.cs , 12373
MyWeather_haolizi/MyWeather/Web References/IPCity/Reference.map , 668
MyWeather_haolizi/MyWeather/Web References/webxml/Reference.cs , 19082
MyWeather_haolizi/MyWeather/Web References/webxml/Reference.map , 636
MyWeather_haolizi/MyWeather/Web References/webxml/WeatherWebService.disco , 807
MyWeather_haolizi/MyWeather/Web References/webxml/WeatherWebService.wsdl , 31810