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

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

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

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

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

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

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

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

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

Yazıya link verme kodunu bilen versin lütfen

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

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

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

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

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

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