ByHellsinq Acemi
Mesaj Sayısı : 14 Rep Gücü : : 32387 Rep Puani : : 2000 Kayıt tarihi : 24/08/09 Yaş : 38
| Konu: Kaynak Kodu Çalıcı Ptsi Ağus. 24, 2009 9:48 pm | |
| Gerekenler 1 TextBox - 1 CommandButton - 1 ComboBox Kod - Kod:
-
Option Explicit Private 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 Private 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 Private Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer Private Const IF_FROM_CACHE = &H1000000 Private Const IF_MAKE_PERSISTENT = &H2000000 Private Const IF_NO_CACHE_WRITE = &H4000000 Private Const BUFFER_LEN = 256 Private Function GetUrlSource(sURL As String) As String Dim sBuffer As String * BUFFER_LEN, iResult As Integer, sData As String Dim hInternet As Long, hSession As Long, lReturn As Long hSession = InternetOpen("vb wininet", 1, vbNullString, vbNullString, 0) If hSession Then hInternet = InternetOpenUrl(hSession, sURL, vbNullString, 0, IF_NO_CACHE_WRITE, 0) If hInternet Then iResult = InternetReadFile(hInternet, sBuffer, BUFFER_LEN, lReturn) sData = sBuffer Do While lReturn <> 0 iResult = InternetReadFile(hInternet, sBuffer, BUFFER_LEN, lReturn) sData = sData + Mid(sBuffer, 1, lReturn) Loop End If iResult = InternetCloseHandle(hInternet) GetUrlSource = sData End Function Private Sub Command1_Click() MousePointer = vbHourglass Text2.Text = GetUrlSource(Combo1.Text) MousePointer = vbDefault End Sub
Kodda hata olabilir xD
En son ByHellsinq tarafından Ptsi Ağus. 24, 2009 9:59 pm tarihinde değiştirildi, toplamda 1 kere değiştirildi | |
|
safacm Acemi
Mesaj Sayısı : 17 Rep Gücü : : 2147483647 Rep Puani : : 5002 Kayıt tarihi : 22/08/09
| Konu: Geri: Kaynak Kodu Çalıcı Ptsi Ağus. 24, 2009 9:55 pm | |
| Compile Error:
Expected: string constant
böyle bir hata aliyorum:( | |
|
ByHellsinq Acemi
Mesaj Sayısı : 14 Rep Gücü : : 32387 Rep Puani : : 2000 Kayıt tarihi : 24/08/09 Yaş : 38
| Konu: Geri: Kaynak Kodu Çalıcı Ptsi Ağus. 24, 2009 9:56 pm | |
| - safacm demiş ki:
- Compile Error:
Expected: string constant
böyle bir hata aliyorum:( Proje olarak atabilirim ? | |
|
safacm Acemi
Mesaj Sayısı : 17 Rep Gücü : : 2147483647 Rep Puani : : 5002 Kayıt tarihi : 22/08/09
| Konu: Geri: Kaynak Kodu Çalıcı Ptsi Ağus. 24, 2009 10:01 pm | |
| tamam atarsan sevinirim:) | |
|
ByHellsinq Acemi
Mesaj Sayısı : 14 Rep Gücü : : 32387 Rep Puani : : 2000 Kayıt tarihi : 24/08/09 Yaş : 38
| Konu: Geri: Kaynak Kodu Çalıcı Ptsi Ağus. 24, 2009 10:02 pm | |
| | |
|
safacm Acemi
Mesaj Sayısı : 17 Rep Gücü : : 2147483647 Rep Puani : : 5002 Kayıt tarihi : 22/08/09
| Konu: Geri: Kaynak Kodu Çalıcı Ptsi Ağus. 24, 2009 10:07 pm | |
| ellerine sağlık ama kodda herhalde kaynak kodu alınca tek satir halinde aliyo çok kötü | |
|
ByHellsinq Acemi
Mesaj Sayısı : 14 Rep Gücü : : 32387 Rep Puani : : 2000 Kayıt tarihi : 24/08/09 Yaş : 38
| Konu: Geri: Kaynak Kodu Çalıcı Ptsi Ağus. 24, 2009 10:12 pm | |
| - safacm demiş ki:
- ellerine sağlık
ama kodda herhalde kaynak kodu alınca tek satir halinde aliyo çok kötü Evet onu çözemedim xD | |
|