İnternet Browser Geçmiş Hazırlama
1 sayfadaki 1 sayfası
İnternet Browser Geçmiş Hazırlama
Nesneler :
* Webbrowser,Form1,Form2,Command1,Textbox(Form2'ye)
Command1 name : "gecmis"
PHP- Kodu:
Private Sub Form_Load()
Form2.Text1.Text = GetSetting("vendetta thtx", "p", "THT") ' oku !
End Sub
Private Sub gecmis_Click()
Form2.Show ' form2yi aç
End Sub
Private Sub WebBrowser1_DownloadComplete()
Form2.Text1.Text = Form2.Text1.Text & vbNewLine & WebBrowser1.L o c a t i o n URL & " || " & WebBrowser1.L o c a t i o n Name ' text1'e site adını ve urlsini yazdırıyor
SaveSetting "vendetta thtx", "p", "THT", Form2.Text1.Text KAYDEDİYOR
End Sub
* Webbrowser,Form1,Form2,Command1,Textbox(Form2'ye)
Command1 name : "gecmis"
PHP- Kodu:
Private Sub Form_Load()
Form2.Text1.Text = GetSetting("vendetta thtx", "p", "THT") ' oku !
End Sub
Private Sub gecmis_Click()
Form2.Show ' form2yi aç
End Sub
Private Sub WebBrowser1_DownloadComplete()
Form2.Text1.Text = Form2.Text1.Text & vbNewLine & WebBrowser1.L o c a t i o n URL & " || " & WebBrowser1.L o c a t i o n Name ' text1'e site adını ve urlsini yazdırıyor
SaveSetting "vendetta thtx", "p", "THT", Form2.Text1.Text KAYDEDİYOR
End Sub
1 sayfadaki 1 sayfası
Bu forumun müsaadesi var:
Bu forumdaki mesajlara cevap veremezsiniz