Code: Select all
Sub Main(ByVal Params As String)
Dim strData as String = hs.GetURL("http://www.djdive.com","/Download/index.html", True, 80)
Dim strArray = Split(strData," ")
Dim i As Integer
For i=0 to ubound(strArray)-1
hs.writelog("test", i.toString & " " & strArray(i))
Next
End Sub