"Programımı Kaç Kişi Kullanıyor" (VB6 İçin)
Merhaba Arkadaşlar
http://www.turkhackteam.net/visual-basic/851443-programimi-kac-kisi-kullaniyor-kodu.html
Harviy Kardeşimizde Aynı Konuyu Açmış Fakat O Vb.net için.
ben visual basic 6 için anlatacağım
1 Tane Modül Ekleyin Ve İçine Şu Kodları Yazın
Şimdi Form1 Ekranına Gelelim. Forma Çift Tıklayarak Veya Sağ Tıklayarak View Codeye Tıklayıp Kod Penceresini Açın Ve Şu Kodları Yazın ( Form Loada )
yeşil yerleri kendinize göre düzenleyin
iyi forumlar kolay gelsin
Merhaba Arkadaşlar
http://www.turkhackteam.net/visual-basic/851443-programimi-kac-kisi-kullaniyor-kodu.html
Harviy Kardeşimizde Aynı Konuyu Açmış Fakat O Vb.net için.
ben visual basic 6 için anlatacağım
1 Tane Modül Ekleyin Ve İçine Şu Kodları Yazın
Kod:
Option Explicit
Private S1 As String
Private Declare Function GetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function FindUserName() As String
S1 = Space(512)
GetUserName S1, Len(S1)
FindUserName = Trim$(S1)
End FunctionŞimdi Form1 Ekranına Gelelim. Forma Çift Tıklayarak Veya Sağ Tıklayarak View Codeye Tıklayıp Kod Penceresini Açın Ve Şu Kodları Yazın ( Form Loada )
Kod:
On Error Resume Next
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.gmail.com" 'Gmailin Smtp Adresi
Flds.Item(schema & "smtpserverport") = 465 'Gmailin Smtp Portu
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = [COLOR="Lime"]"[email protected]"[/COLOR]
Flds.Item(schema & "sendpassword") =[COLOR="Lime"] "gmailşifresi"[/COLOR]
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
With iMsg
.To = [COLOR="lime"]"[email protected]"[/COLOR]
.From = [COLOR="lime"]"Mail Kimden Geldi. ?"[/COLOR][COLOR="Red"] 'Kendi Mail Adresinizi Yazın[/COLOR]
.Subject = "Programınız Kullanıldı !"
.HTMLBody = "Programınız" & vbCrLf & FindUserName & "Tarafından Kullanıldı !"
.Sender = ""
.Organization = "Mail Organtion"
.ReplyTo = ""
Set .Configuration = iConf
SendEmailGmail = .Send
End Withyeşil yerleri kendinize göre düzenleyin
iyi forumlar kolay gelsin
Son düzenleme:
