AnasayfaKapıKayıt OlGiriş yap

Paylaş | 
 

 Kaynak Kodu Çalıcı

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
ByHellsinq
Acemi
Acemi
avatar

Mesaj Sayısı : 14
Rep Gücü : : 32387
Rep Puani : : 2000
Kayıt tarihi : 24/08/09
Yaş : 32

MesajKonu: Kaynak Kodu Çalıcı   Ptsi Ağus. 24, 2009 9:48 pm

Like a Star @ heaven Gerekenler

1 TextBox - 1 CommandButton - 1 ComboBox

Like a Star @ heaven 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
Sayfa başına dön Aşağa gitmek
safacm
Acemi
Acemi


Mesaj Sayısı : 17
Rep Gücü : : 2147483647
Rep Puani : : 5002
Kayıt tarihi : 22/08/09

MesajKonu: Geri: Kaynak Kodu Çalıcı   Ptsi Ağus. 24, 2009 9:55 pm

Compile Error:

Expected: string constant

böyle bir hata aliyorum:(
Sayfa başına dön Aşağa gitmek
ByHellsinq
Acemi
Acemi
avatar

Mesaj Sayısı : 14
Rep Gücü : : 32387
Rep Puani : : 2000
Kayıt tarihi : 24/08/09
Yaş : 32

MesajKonu: 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 ?
Sayfa başına dön Aşağa gitmek
safacm
Acemi
Acemi


Mesaj Sayısı : 17
Rep Gücü : : 2147483647
Rep Puani : : 5002
Kayıt tarihi : 22/08/09

MesajKonu: Geri: Kaynak Kodu Çalıcı   Ptsi Ağus. 24, 2009 10:01 pm

tamam atarsan sevinirim:)
Sayfa başına dön Aşağa gitmek
ByHellsinq
Acemi
Acemi
avatar

Mesaj Sayısı : 14
Rep Gücü : : 32387
Rep Puani : : 2000
Kayıt tarihi : 24/08/09
Yaş : 32

MesajKonu: Geri: Kaynak Kodu Çalıcı   Ptsi Ağus. 24, 2009 10:02 pm

Sayfa başına dön Aşağa gitmek
safacm
Acemi
Acemi


Mesaj Sayısı : 17
Rep Gücü : : 2147483647
Rep Puani : : 5002
Kayıt tarihi : 22/08/09

MesajKonu: 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üSad
Sayfa başına dön Aşağa gitmek
ByHellsinq
Acemi
Acemi
avatar

Mesaj Sayısı : 14
Rep Gücü : : 32387
Rep Puani : : 2000
Kayıt tarihi : 24/08/09
Yaş : 32

MesajKonu: 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üSad

Evet onu çözemedim xD
Sayfa başına dön Aşağa gitmek
 
Kaynak Kodu Çalıcı
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Metin-X :: Visual Basic Dersleri :: Acemi-
Buraya geçin: