V1oL
Administrator
Data inscrierii: 07/Oct/2008
Mesaje: 92
|
|
Acest mic cod "fura" codul sursa la o pagina de pe web si il previzualizeaza intr-un TextBox. Sa incepem, prima data, cream un modul in care declaram cele 4 functii API care ne folosesc, din wininet.dll :
Cod:
Public Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Public Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal sURL As String, ByVal sHeaders As String, ByVal lHeadersLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Public Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Public Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
Am declarat functiile ca Public pentru a putea fi utilizate in program (form). Pentru mai numeroase informatii despre ele, check msdn.com :D.
Acum ceea ce punem in interiorul Formului, mai exact in Form_Load:
Cod:
| Citat: |
Private Sub Form_Load()
Dim a As Long
Dim b As Long
Dim c As Integer
Dim d As Long
Dim rst As Long
Dim buffer As String * 512
a = InternetOpen("vbwininet", 1, vbNullString, vbNullString, 0)
If a Then
b = InternetOpenUrl(a, "http://www.ipfind.eu", vbNullString, 0, &H4000000, 0)
If b Then
c = InternetReadFile(b, buffer, 512, rst)
rstzone = buffer
While rst <> 0
c = InternetReadFile(b, buffer, 512, rst)
rstzone = rstzone + Mid(buffer, 1, rst)
Wend
End If
End If
c = InternetCloseHandle(b)
End Sub |
Si acum sa "ciopartim" oarecum codul pentru a obtine ipul. Inainte de toate, trebuie sa declaram o variabila:
Cod:
| Citat: |
Option Explicit
Public rstzone As String |
Cream un buton, in care introducem urmatorul cod (care parseaza codul sursa):
Cod:
| Citat: |
Private Sub Command1_Click()
Dim ipfinal As String
ipfinal = rstzone
ipfinal = Right(ipfinal, Len(ipfinal) - 2515)
ipfinal = Left(ipfinal, Len(ipfinal) - 5017)
Text1.Text = ipfinal
End Sub |
Puneti pe Form si un TextBox cu numele Text1 si ati terminat balciul. 
daca nu stiti ceva postati aci
Enjoy !
|
 |
