[关闭]
@Seymour 2018-08-08T09:02:06.000000Z 字数 1961 阅读 996

IM实践——1

未分类


  1. using System;
  2. using System.Collections.Generic;
  3. using System.Linq;
  4. using System.Text;
  5. using System.Net;
  6. using Winista.Text.HtmlParser;
  7. using Winista.Text.HtmlParser.Util;
  8. using Winista.Text.HtmlParser.Http;
  9. using Winista.Text.HtmlParser.Visitors;
  10. using Winista.Text.HtmlParser.Filters;
  11. using Winista.Text.HtmlParser.Tags;
  12. using Winista.Text.HtmlParser.Lex;
  13. using Winista.Text.HtmlParser.Nodes;
  14. namespace MSNPSharpClient.SearchIP
  15. {
  16. class SearchIP
  17. {
  18. public string GetSearchIP(string IP)
  19. {
  20. GetSearchIPHtmlCode getUrlAndHtmlCode = new GetSearchIPHtmlCode();
  21. string str = "";
  22. Lexer lexer = new Lexer(getUrlAndHtmlCode.getSearchIPHtmlCode(IP));
  23. Parser myparser = new Parser(lexer);
  24. NodeFilter filter = new NodeClassFilter(typeof(TableTag));
  25. NodeList nodelist = myparser.ExtractAllNodesThatMatch(filter);
  26. str = nodelist.ElementAt(2).ToPlainTextString();
  27. string strInfo = "";
  28. Char[] c = str.ToCharArray();
  29. for (int i = 0; i < c.Length; i++)
  30. {
  31. if (c[i].ToString() != "/n" && c[i].ToString() != "/t" && c[i].ToString() != "/r")
  32. {
  33. strInfo += c[i].ToString().Trim();
  34. }
  35. }
  36. int m = nodelist.Count;
  37. strInfo = strInfo.Replace(" ", "");
  38. strInfo = strInfo.Replace("如果您发现查询结果不详细或不正确,请使用IP数据库自助添加功能进行修正", "");
  39. //ip138.com IP查询(搜索IP地址的地理位置)
  40. strInfo = strInfo.Replace("ip138.comIP查询(搜索IP地址的地理位置)", "");
  41. //Console.WriteLine(strInfo);
  42. //Console.ReadKey();
  43. return strInfo;
  44. }
  45. }
  46. }
  1. using System;
  2. using System.Collections.Generic;
  3. using System.Linq;
  4. using System.Text;
  5. using System.Net;
  6. namespace MSNPSharpClient.SearchIP
  7. {
  8. class GetSearchIPHtmlCode
  9. {
  10. public string getSearchIPUrl(string IP)
  11. {
  12. Encoding gb2312 = Encoding.GetEncoding("gb2312");
  13. //string SimplifiedChinese=Strings.StrConv(City);//繁體轉換成簡體失敗
  14. string strIP = System.Web.HttpUtility.UrlEncode(IP, gb2312);
  15. //http://www.ip138.com/ips.asp?ip=25.205.25.23
  16. string IDSearchUrl = "http://www.ip138.com/ips.asp?ip=" + strIP;
  17. //Console.WriteLine(CityUrl);
  18. //Console.ReadKey();
  19. return IDSearchUrl;
  20. }
  21. public string getSearchIPHtmlCode(string IP)
  22. {
  23. string url = getSearchIPUrl(IP);
  24. WebClient webclient = new WebClient();
  25. webclient.Encoding = Encoding.Default;
  26. string htmlcode = webclient.DownloadString(url);
  27. return htmlcode;
  28. }
  29. }
  30. }
添加新批注
在作者公开此批注前,只有你和作者可见。
回复批注