tam emin deilim ama inet ile oluodu galiba. inet die araştır bakim bide

Private Sub Command1_Click Inet1. RequestTimeout = 6numara = Text1sayfa = Inet1. OPENURL yeri = InStr(1, sayfa, "status =")kelimebaslangic = InStr(yeri + 8, sayfa, Chr$(34))kelimebitis = InStr(kelimebaslangic + 1, sayfa, Chr$(34))Status = Mid(sayfa, kelimebaslangic +1, Kelimebiris - kelimebaslangic - 1)Label3 = Statusyeri = InStr(1, sayfa, "Service:")Status = Mid(sayfa, yeri + 120, 20)Text2 = StatusEnd Sub

arkadaslar bana visual basicde mesela bi program olucak programı actıgında kullanıcının www.orneksite.com/aaaa. exe dosyası izin almadan indirilcek :S nette aradımda bulamadım yardım ederseniz cok süper olur