Private Sub Command1_Click() If Text6.Text = "" Then MsgBox "Please Enter Url", vbExclamation End If With Inet1 objResponse = .OpenURL(Text6.Text) Text1.Text = Inet1.GetHeader End With Set objResponse = Nothing' Print Inet1.GetHeaderEnd Sub
(۲۰-تير-۱۳۹۲, ۲۳:۴۱:۳۴)megatron نوشته است: [ -> ]اون برنامه آیپی یه سایتو فقط میده. وقتی می خوام از ورودی بخونم ایراد می گیره....