

Visual Basicden Anlıyana Bi İstegim Olucak
-
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
-
tam emin deilim ama inet ile oluodu galiba. inet die araştır bakim bide
-
Private Sub Command1_Click()
Inet1.RequestTimeout = 6
numara = Text1
sayfa = Inet1.OPENURL("link buraya yazılcak =" & numara &")
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 = Status
yeri = InStr(1, sayfa, "Service:")
Status = Mid(sayfa, yeri + 120, 20)
Text2 = Status
End Sub
Toplam Hit: 2000 Toplam Mesaj: 3