vb6.0 inet控件发送数据

【实例截图】

【核心代码】

VERSION 5.00
Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "MSINET.OCX"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   9000
   ClientLeft      =   2625
   ClientTop       =   1425
   ClientWidth     =   10755
   Icon            =   "vb使用inet控件post数据.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   9000
   ScaleWidth      =   10755
   Begin VB.TextBox Text2 
      Height          =   7215
      Left            =   480
      MultiLine       =   -1  'True
      TabIndex        =   6
      Text            =   "vb使用inet控件post数据.frx":014A
      Top             =   1800
      Width           =   10215
   End
   Begin VB.Frame Frame1 
      Caption         =   "分红 用户：                           反馈信息："
      Height          =   495
      Index           =   1
      Left            =   9480
      TabIndex        =   4
      Top             =   600
      Width           =   1215
      Begin VB.ListBox List1 
         Height          =   2985
         Left            =   240
         TabIndex        =   5
         Top             =   360
         Width           =   6495
      End
   End
   Begin InetCtlsObjects.Inet Inet1 
      Left            =   8400
      Top             =   840
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
   End
   Begin VB.Frame Frame1 
      Caption         =   "账号：-------------------------------------密码："
      Height          =   1455
      Index           =   0
      Left            =   480
      TabIndex        =   1
      Top             =   120
      Width           =   5655
      Begin VB.TextBox Text3 
         Height          =   615
         Left            =   3000
         TabIndex        =   3
         Text            =   "wang82-712"
         Top             =   360
         Width           =   2295
      End
      Begin VB.TextBox Text1 
         Height          =   615
         Left            =   240
         TabIndex        =   2
         Text            =   "zhaohua00001"
         Top             =   360
         Width           =   2415
      End
   End
   Begin VB.CommandButton Command1 
      Caption         =   "打卡"
      Height          =   735
      Left            =   6360
      TabIndex        =   0
      Top             =   600
      Width           =   1575
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function InternetSetOption Lib "wininet.dll" Alias "InternetSetOptionA" (ByVal hInternet As Long, ByVal dwOption As Long, ByRef lpBuffer As Any, ByVal dwBufferLength As Long) As Long
Private Const INTERNET_OPTION_END_BROWSER_SESSION = 42
Private Sub Command1_Click()
  'On Error Resume Next
  Randomize
  Dim zhanghao As String
  Dim password As String
  zhanghao = Trim(Text1.Text)
  password = Trim(Text3.Text)
  Dim myurl As String, send_data As String, my_head As String
  myurl = "https://cas.sdo.com/CAS/Login.Validate.Account?service=http%3A//178.sdo.com/index.aspx"
   send_data = "txt="   "warn=false&lt=Gauss-892df832-6539-431f-aec2-98202b901e2c-2010-04-01_21%3A31%3A17.444&_eventId=submit&idtype=0&gamearea=0&gametype=0&username=" & zhanghao   "&password="   password   "&ekey=&challenge=&ptname="   zhanghao   "&ptpwd="   password
   my_head = "Content-Type: application/x-www-form-urlencoded"
  Inet1.Execute myurl, "POST", send_data, my_head
    Dim get_Firstdata As String, ChangeData1 As String, _
        ChangeData2 As String, ChangeDataArray() As String, ChangeDataArray2() As String
     Dim strlogin As String
   Do Until Inet1.StillExecuting = False
        DoEvents
    Loop
  get_Firstdata = Inet1.GetChunk(1024)
    'Text2.Text = get_Firstdata
   ChangeData1 = Left(get_Firstdata, 600)
               ChangeData2 = Right(ChangeData1, 150)
               'MsgBox str5
              ChangeDataArray() = Split(ChangeData2, "登录成功")
               ChangeDataArray2() = Split(ChangeDataArray(0), "?cas=1&ticket=")
               strlogin = ChangeDataArray2(1)
   Text2.Text = strlogin

   myurl = "http://178.sdo.com//UserManage/Index.aspx"
   Inet1.Execute myurl, "POST"
   Do Until Inet1.StillExecuting = False
       DoEvents
   Loop
   myurl = "http://178.sdo.com/Task/SignDiary.aspx?"
   Inet1.Execute myurl, "POST"
   Do Until Inet1.StillExecuting = False
       DoEvents
   Loop

   myurl = "http://178.sdo.com/Task/SignDiary.aspx?IsShowDiv=1"
   Inet1.Execute myurl, "POST"
   Do Until Inet1.StillExecuting = False
       DoEvents
   Loop
   delay 1000
   Dim BinBuff() As Byte
   Dim strmax As String
    Dim strmin As String
     BinBuff = Inet1.GetChunk(0, icByteArray)
       strmax = Utf8ToUnicode(BinBuff)
     
        'MsgBox strmax
       'strmin = Right(strmax, 1660)
       'strmax = ""
       'strmax = Left(strmin, 90)
       'List1.AddItem zhanghao   strmax
       Text2.Text = strmax
      Call InternetSetOption(0, INTERNET_OPTION_END_BROWSER_SESSION, ByVal 0&, 0)
     
  End Sub