BASKALE.NETGOO

BASKALE.NETGOO

BLUE-MOON-HACKERTEAM
 
AnasayfaAnasayfa  GaleriGaleri  Üye ListesiÜye Listesi  Kullanıcı GruplarıKullanıcı Grupları  Kayıt OlKayıt Ol  Giriş yapGiriş yap  
Arama
 
 

Sonuç :
 
Rechercher çıkıntı araştırma
En son konular
» Delphi Derleyicileri Başlığı
Paz Şub. 20, 2011 12:53 am tarafından byhuysuz

» Modemi hızlandırma
C.tesi Şub. 19, 2011 2:17 pm tarafından byhuysuz

» Visual Studio 2010 Yükle Sadece [10mb]
C.tesi Şub. 19, 2011 12:16 pm tarafından byhuysuz

» Adobe'nin Bütün Versiyonları İçin Crack
Salı Şub. 15, 2011 9:25 pm tarafından byhuysuz

» 1st javascript Editor Professional Edition v5.1 | 8.11 Mb
Salı Şub. 08, 2011 3:35 pm tarafından byhuysuz

» 30 Sn'de [Pc Çökertme + Panzehir]
Ptsi Şub. 07, 2011 4:13 pm tarafından byhuysuz

» Java Görsel Eğitim Seti
Ptsi Ağus. 09, 2010 9:32 pm tarafından admin

» Programlamaya Nereden Baslamali?
Ptsi Ağus. 09, 2010 9:30 pm tarafından admin

» C / C++ E-Book Paylaşımı
Ptsi Ağus. 09, 2010 9:29 pm tarafından admin

» C dilinde basit bir mayın tarlası programı
Ptsi Ağus. 09, 2010 9:05 pm tarafından admin

» Delphi 7 Katılımsız Full | 150mb |
Ptsi Ağus. 09, 2010 8:58 pm tarafından admin

» Delphi 1
Ptsi Ağus. 09, 2010 8:57 pm tarafından admin

» İnternetle İlgili Doğru Sanılan Efsaneler
Ptsi Ağus. 09, 2010 8:54 pm tarafından admin

» Tek Tip Şarj Cihazı Dönemi Başlıyor ..
Ptsi Ağus. 09, 2010 8:53 pm tarafından admin

» Türk mucitten 7 boyutlu sinema
Ptsi Ağus. 09, 2010 8:52 pm tarafından admin

» Schrödinger’in Kedisi | Hem Ölü Hem Canlı
Ptsi Ağus. 09, 2010 8:51 pm tarafından admin

» Win Vista Püf Noktaları ve Optimizasyon
Ptsi Ağus. 09, 2010 8:48 pm tarafından admin

» Bölüm İndex
Ptsi Ağus. 09, 2010 8:47 pm tarafından admin

» Win 7 Püf Noktaları ve Optimizasyon
Ptsi Ağus. 09, 2010 8:45 pm tarafından admin

» Win Xp Püf Noktaları ve Optimizasyon
Ptsi Ağus. 09, 2010 8:44 pm tarafından admin

» Yeni Güvenlik Uygulamalarımız (2010)
Ptsi Ağus. 09, 2010 8:43 pm tarafından admin

» Önemli Olan Güvenlik İse?
Ptsi Ağus. 09, 2010 8:42 pm tarafından admin

» Perl ve Python Exploit Bilgisi (Bug-Res)
Ptsi Ağus. 09, 2010 8:41 pm tarafından admin

» Sonu Olmayan Bir Hack Dökümanı Bug-Res
Ptsi Ağus. 09, 2010 8:40 pm tarafından admin

» Hacking Interface Kitabı - X-Master
Ptsi Ağus. 09, 2010 8:38 pm tarafından admin

» Bug Nedir? Nasıl Oluşur/Bulunur? Bug-Res
Ptsi Ağus. 09, 2010 8:37 pm tarafından admin

» Gerçek Pc Hızlandırma(Uçak Gibi)
Cuma Ağus. 06, 2010 8:46 pm tarafından admin

» 50 Adet Hack Videosu Türkçe [Videolar]
Cuma Ağus. 06, 2010 8:45 pm tarafından admin

» İndexinize Bilgisayarınızdan Arka Plan Müziği||Mr.SoLucaN
Cuma Ağus. 06, 2010 8:44 pm tarafından admin

» Hatırlamadığınız Şifreyi Kırın! 2010
Cuma Ağus. 06, 2010 8:41 pm tarafından admin

» Adsl Hack - Adsl Hackleme - Adls Hack 2010
Cuma Ağus. 06, 2010 8:01 pm tarafından admin

» 2009 Full Anti-Virus Programları
Cuma Ağus. 06, 2010 7:58 pm tarafından admin

Giriş yap
Kullanıcı Adı:
Şifre:
Beni hatırla: 
:: Şifremi unuttum

Paylaş | 
 

 Visual Studio/Basic.Net İle Sohbet Programı

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
YENİAJAN
spyajan
spyajan


Aktiflik :
0 / 9990 / 999

Mesaj Sayısı : 134
Yaş : 28
Kayıt tarihi : 23/07/08

MesajKonu: Visual Studio/Basic.Net İle Sohbet Programı   Cuma Tem. 25, 2008 3:31 pm

Merhaba Arkadaşlar.Öncelikle İlk Makalemi Yazdığım İçin Gurur Duyuyorum.Neyse Başlayalım.

Öncelikle Yeni Bir Windows Aplicattion Başlatalım.

Form1 Properties:
Size 656; 558

Formumuza 2 adet web browser ekleyin.

WebBrowser1 Properties:
Name: bw
Size: 378; 294
Location: 21; 225
Visible: True

Web Browser2 Properties:
Name: gbw
Location: 379; 22
Size: 67; 55
Visible: False

Ve 1 Adet Button Ekleyin:
Size: 121; 46
Text: Gönder
Location: 176; 32

Son olarak bir timer:
Invertal: 3000


Neden?
Form1'imizin Boyutunun Öyle Olması Sadece Tasarımla İlgili Kendi Tasarımınızı Yaparken Değiştirebilirsiniz, Geri Kalanlar Da Böyle.Yalnızca gbw adlı browserimizi Değiştirmeyelim.

Öncelikle iki tane notepad açıyoruz.Ve 1.sine şu kodları yazıp oku.asp olarak kaydediyoruz.
________________________________________________

________________________________________________

İkincisini de yaz.asp olarak kaydediyoruz:
________________________________________________

________________________________________________

Sonra da access'den bir adet db.mdb açıyoruz.İçine mesajlar adlı bir tablo koyuyoruz.Bunun içine de "id","ad","msg"(tırnaklar ve virgüller yok) adlı 3 kolon açıyoruz.
Hepsini kaydedip hostumuza gönderiyoruz.

KODLAMA KISMI:
Şimdi gelelim programlama kısmına.
Form1 açıkken F7 tuşuna basar kod kısmına giriyoruz.
Şu kodu tamamını silip yapıştırııyoruz:

Public Class Form1

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
gbw.Navigate("http://hostadi.com/yaz.asp?ad=" & t_ad.Text & "&msg=" & t_msg.Text)
yenile()
End Sub
Private Sub Form1_Invalidated(ByVal sender As Object, ByVal e As System.Windows.Forms.InvalidateEventArgs) Handles Me.Invalidated
yenile()
End Sub
Function yenile()
bw.Navigate("http://hostadi/oku.asp")
End Function
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
yenile()
End Sub
End Class

Sora hostadi kısmını adresimize göre düzenliyoruz.

Kodların Nedenleri:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
gbw.Navigate("http://hostadi.com/yaz.asp?ad=" & t_ad.Text & "&msg=" & t_msg.Text)
yenile()
End Sub
Asp Dosyamıza mdb dosyasıdna gerekli değişiklikleri yapması için mesaj gönderiyoruz("gbw.Navigate("http://hostadi.com/yaz.asp?ad=" & t_ad.Text & "&msg=" & t_msg.Text)" ve mesajların bulunduğu sayfayı yeniliyoruz("yenile()").

Private Sub Form1_Invalidated(ByVal sender As Object, ByVal e As System.Windows.Forms.InvalidateEventArgs) Handles Me.Invalidated
yenile()
End Sub
Form Açıldığında Sayfayı Otomatik Yeniliyor("yenile()")

Function yenile()
bw.Navigate("http://hostadi/oku.asp")
End Function
yenile() fonksiyonumuzu belirliyoruz.

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
yenile()
End Sub
Her 3 saniyede bir otomatik olarak mesaj sayfasını yeniliyoruz.
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör http://www.baskale.netgoo.org
 
Visual Studio/Basic.Net İle Sohbet Programı
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» Hare 1.5.1 +Serial

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
BASKALE.NETGOO :: PROGRAM DİLLERİ (giriş) :: VisuaL Basic-
Buraya geçin: