Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement