hi ppl iv bean doing a littal work on a simple web leacher an i thought you guys might like to c how it works so here gose please leve a post PUBLIC stage AS Integer
PUBLIC httpck AS String PCK AS String Rhost AS String Gsearch AS String
PUBLIC SUB Form_Open()
stage = 10
Rhost = "www.google.com"
Gsearch = "proxy" 'put here what sites you would like to leach for
httpck = Chr(13) & Chr(10) & "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*" & Chr(13) & Chr(10)
httpck = httpck & "User-Agent: Mozilla/3.0 (compatible)" & Chr(13) & Chr(10)
httpck = httpck & "httpck & Host: " & rhost & Chr(13) & Chr(10) & Chr(13) & Chr(10)
Socket1.Connect(Rhost, 80)
END
PUBLIC SUB Socket1_Read()
DIM z AS Integer
DIM buffer AS String
IF Socket1.Status = Net.Connected THEN
READ #Socket1, buffer, Lof(Socket1)
psksaad(buffer, "www", "/")
END IF
END
PUBLIC SUB Socket1_Ready()
DIM z AS Integer
pck = "GET /search?q=" & Gsearch & "&hl=en&client=safari&rls=en-us&start=" & stage & "&sa=N HTTP/1.1" & httpck '"GET /search?q=" & Gsearch & "&ie=UTF-8&oe=UTF-8 HTTP/1.0" & httpck
WRITE #Socket1, PCK, Len(PCK)
FOR Z = 0 TO 10
WAIT 10
pck = "GET /search?q=" & Gsearch & "&hl=en&client=safari&rls=en-us&start=" & stage & "&sa=N HTTP/1.1" & httpck '"GET /search?q=" & Gsearch & "&ie=UTF-8&oe=UTF-8 HTTP/1.0" & httpck
WRITE #Socket1, PCK, Len(PCK)
stage = stage + 10
NEXT
END
PUBLIC FUNCTION psksaad(data AS String, indata AS String, outdata AS String) AS String
DIM A1, A2, A3 AS String
A1 = InStr(data, indata)
IF A1 = 0 THEN GOTO Err
A2 = Mid(data, A1)
A3 = InStr(A2, outdata) - 1
IF Left(A2, A3) = "www.google.com" THEN GOTO Err
PRINT Left(A2, A3)
Err:
END
