Inet Bilen Bi Arkadaş Baksın

[rebel_]

Private Sub Command9_Click()
On Error GoTo Hata
Inet3.URL = Text7
Inet3.RequestTimeout = 2
Inet3.RequestTimeout = 40
Inet3.Execute , "DIR"
Text8.Text = Inet3.OpenURL(Text7, Inet3.URL)
Do While Inet3.StillExecuting
DoEvents: DoEvents: DoEvents
Loop

Label9 = "Baglanıldı..."
Exit Sub
Hata:
Label9 = "Hata Oluştu..."
Inet3.Cancel
End Sub

--- benim hazırladığım komutlar bunlar arkadaşlar ama text8 sırasında bi hata var yapmak istediğim işlem şu text7 ye yazılan web adresinin kaynak komutlarını alabilmek

komutlar asağıdaki gibi olunca çalışıyor

Private Sub Command1_Click()
Text1.Text = Inet1.OpenURL("http://www.google.com")
End Sub



bilginize muhtacım arkadaşlar....

 

[NuLL!]

dediin anladigim kadariyla text7 deki adresin kodlarini almk

Private Sub Command1_Click()
Text1.Text = Inet1.OpenURL(text7.text)
End Sub