Launch Jw kullanıcısının son içeriği

  1. L

    Vb de xp butonu yapalım/Xp/

    'modüle kodu Public Declare Function InitCommonControls Lib "comctl32.dll" () As Long 'rastgele forma buton koyun 'Form Kodu Private Sub Form_Initialize() InitCommonControls End Sub *********************************************************** şimdi bir txt dosyası açın: içine bunu yazın; <?xml...
  2. L

    vb kiremit kırma olayı :D :D

    kİremiKıRMA!!! Formdakıler 1)ıkı tane timer 2)1 tane command buton 3)1 tane label 4)1 tane shape 5)1 tane dızı olusturulmus picture1(0) *not:5 sıradakı nesneyı olusturmak ıcın foruma bı tane picture1 koyun ve ona sag tıklayın copy dıyın daha sonra formun herhangı bır yerıne sag tıklayın ve...
  3. L

    Vb keylogger kodları

    kEYLOGGER!!! Oncelıkle sayfaya bi koycaklarınızı yazıyorum. 1)2 tane text koyun bırının ısmını text1 dıgerının ısmını txtFileName olarak verın. 2)1 tane command button ısmını cmdExit verın 3)2 tane tımer koyun bırının ısmını timer1 verın interval özellıgını ıse 1 yapın dıger timer ısmını ıse...
  4. L

    TextBox ta değişiklik yapılıp yapılmadığını kontrol et

    Private TextCh As Boolean Private Sub Form_Unload(Cancel As Integer) If TextCh Then If MsgBox("Degisiklikler kaydedilsin mi?", vbYesNo, "Kayit") = vbYes Then TextCh = False End If End If End Sub Private Sub...
  5. L

    TextBox a kendi menümüzü yapmak

    Private Sub Text1_MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Single) If Button = vbRightButton Then Text1.Enabled = False PopupMenu GizliMonu...
  6. L

    TextBox içeriğinde son işlemi geri almak

    (Modul)(General)(Declaration) Global Const WM_USER = &H400 Global Const EM_UNDO = WM_USER + 23 Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _ lParam As Any) As Long Private Sub...
  7. L

    TextBox içeriğini word e aktarmak

    'Proje referansları arasına "Microsoft Word Object Library" eklenir. Private Sub Command1_Click() Dim objWord As New Word.Application ' Word nesnesi oluşturuluyor objWord.Visible = True objWord.********s.Add With objWord.Selection...
  8. L

    Web Tarayıcısı Yapımı/Anlatımı (Videolu)

    Video bana ait değildir (Sunum bana ait) Paylaşmakta bir beceridir... --------------------------------------------------------------- Video youtube ' dendir Hem izleme hemde İndirme linki vardır İnternet Download Manager dan indirme linkini aldım...
  9. L

    Arkadaşar yazıya link verme kodunu bilen yokmu ??

    Yazıya link verme kodunu bilen versin lütfen
  10. L

    Yaıya link verme kodu pls

    Lütfen biri bana yazıya link verme kodunu verebilirmi acil..
  11. L

    Linklere trojan koymak (Programsz)

    Evet arkadaşlar Linklere trojan/virus koyabiliriz fakat logger koyamayız logger ancak indirdikten sonra işlev görür fakat Trojan/virus linke tıkladığınızanda işlev görecektir bunu yapmak o kadar da basit değil ama programsız dır........ Anlatım ; 1-Not defterini açıyoruz 2-İlk satıra...
  12. L

    Mouse ile çizim

    Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim mx, my mx = X my = Y PSet (X, Y) 'başlangıç koordinatını belirlek için nota koy End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim mx, my 'sağ tuşa...
  13. L

    Formu yakıp söndür

    Private Sub Timer1_Timer() If Me.Visible = True Then Me.Visible = False Else Me.Visible = True End If End Sub Private Sub Command1_Click() Timer1.Interval = 1000 End Sub
  14. L

    İnternet bağlantı durumunu öğrenelim

    Bu kod sayesinde internete bagli olup olmadigimiz ögrenilebilir Option Explicit Private Declare Function RasEnumConnections Lib "RasApi32.dll" _ Alias "RasEnumConnectionsA" (lpRasCon As Any, lpcb As _ Long, lpcConnections As Long) As Long Private Declare Function RasGetConnectStatus Lib...
  15. L

    Databese'yi şifrelemek

    Private Sub Form_Load() With Data1 ' Veri tabanı tanımları .DatabaseName = "referans.mdb" .RecordSource = "full" .Connect = ";Pwd=eski" .******* End With End Sub Private Sub Command1_Click()...
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.