Pasted

Dim http As WinHttpRequest
 
Private Sub Command1_Click()
Dim sTextHTML As String
Set http = New WinHttpRequest
http.Open "POST", "http://ayolagi.com/tiket/caritiket#konten", False
http.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
http.Send "data[Ticket][dari]=Makassar&data[Ticket][tujuan]=Jakarta+SOETA&data[Ticket][tglberangkat]=02-08-2012&list[1]=Garuda&list[2]=Lionair&list[3]=Batavia&list[4]=Merpati&list[5]=AirAsia&list[6]=Citilink"
sTextHTML = http.ResponseText
Hasil.Text = sTextHTML
 
Dim strStart As String, strEnd As String
Dim strEmail As String
 
strStart = "('Jam keberangkatan');"
strEnd = "</table>"
 
Hasil2.Text = ParsingData(Hasil.Text, strStart, strEnd)
Hasil2.Text = ParsingData(Hasil2.Text, "<tbody>", "</tbody>")
End Sub
 
 
Public Function ParsingData(IStringStr As String, StrAwal As String, StrAkhir As String)
On Error Resume Next
Dim iString As String
iString = IStringStr
iString = Right(iString, Len(iString) - InStr(iString, StrAwal) - Len(StrAwal) + 1)
iString = Mid(iString, 1, InStr(iString, StrAkhir) - 1)
ParsingData = iString
End Function
 
 
Private Sub GetMaskapai()
List1.Clear
Dim StrField1() As String
Dim StrField2() As String
   Dim i As Integer
   StrField1() = Split(Hasil2.Text, "tooltip.show(")
      
   Text1 = vbNullChar
   For i = 1 To UBound(StrField1)
       StrField1(i) = ParsingData(StrField1(i), "('", "')")
       List1.AddItem StrField1(i)
   Next i
   Erase StrField1
End Sub
 
Private Sub GetHarga()
List2.Clear
Dim StrField1() As String
Dim StrField2() As String
   Dim i As Integer
   StrField1() = Split(Hasil2.Text, "right")
      
   Text1 = vbNullChar
   For i = 1 To UBound(StrField1)
       StrField1(i) = ParsingData(StrField1(i), ">", "<")
       List2.AddItem StrField1(i)
   Next i
   Erase StrField1
End Sub
 
Private Sub GetKeberangkatan()
List3.Clear
List4.Clear
Dim StrField1() As String
Dim StrField2() As String
   Dim i As Integer
   StrField1() = Split(Hasil2.Text, "left")
       
   Text1 = vbNullChar
   For i = 1 To UBound(StrField1)
       StrField1(i) = ParsingData(StrField1(i), ">", "<")
       If i Mod 2 = 1 Then
            List3.AddItem StrField1(i)
        Else
           List4.AddItem StrField1(i)
        End If
   Next i
   Erase StrField1
End Sub
 
 
Private Sub Command3_Click()
GetMaskapai
GetHarga
GetKeberangkatan
End Sub