Jump to content

Tnc Ip2email

Bultar

By Bultar,
in TNC-TR Çalışmaları

 Share

Recommended Posts

  • Replies 87
  • Created
  • Last Reply

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

Popular Posts

BrightBlade
BrightBlade

Ellerinize sağlık arkadaşlar Ben birde sırtımı kaşısın istiyorum

by_derkan Newbie

by_derkan

Posted
Posted (edited)

xxpy3.png

illegal işler için düşünürsek

1-ufalt diyince sağ altta gözükmeyip direk yok olmalı,tuş kombinasyonuyla geri çağırmalıyız.

2-görev yöneticisinde görünmez olmalı :drinks:

3-birde ekran görüntüsü çekip yollasa :rolleyes2:

***********************

beni hatırla onay kutucuklu olmalı.

smtp yi manuel ayarlayabilmeliyiz.

ip kontrol süresini kutucuğa girebilmeliyiz.örnek :1244 dk :D(biraz saçma ama)

ayrıca gönderilen mail e biz de birşeyler girebilmeliyiz...şşt bu alinin bilgisayarı gibi

birde o anda çalışan uygulamaları maille gönderse.

sağ alt köşedeyken sağ tık çalışsa kapat,hakkında,ekran kapla vs seçenekleri gelse

ilk izlenimim bunlar...

Edited by by_derkan
Link to comment
Share on other sites
Bultar Newbie

Bultar

Posted
  • Author
Posted

1 - 2 - 3 - Amacı dışına çıkarmayalım programı :rolleyes2:

---------------

Beni Hatırla Zaten var. SMTP girilebilir evet bu olabilir. IP kontrol etme süresi elle girilmesinin şu andakinden fazla birşey sağlıyacağını sanmıyorum ama kafamıza eserse onuda ekleriz :drinks: . Gönderilen Mail içeriği için Yorum kısmı eklenebilir ama ne gerek var ? Çalışan uygulamalar. Hımm... Ip değiştinde alacaksın pek mantıklı gelmedi bana sebebini net şekilde yazarsan bakabiliriz . Sağ alt köşedeyken kısmı yapılabilir.

Link to comment
Share on other sites
  • 6 ay sonra...
  • 6 ay sonra...
  • 2 ay sonra...
siranusta Newbie

siranusta

Posted
Posted

İp Değişikliklerini, ve İp Gönderilme olayını Tarih, Saat, İp no vs.vs. log olarak kayıt etme, ve Açık Portların bilgilerini Gönderme, ve eğer mümkün ise uzak bağlantı yapıldığı zaman bu bağlantı yapılan Tarih, Saat ve kullanılan Port'u Log olarak kayıt etme.

Çok şey mi istedim :) ?

Link to comment
Share on other sites
  • 5 ay sonra...
  • 2 ay sonra...
  • 5 ay sonra...
mmesut94 Newbie

mmesut94

Posted
Posted

ALIN SİZE KAYNAK KODLARINI ÇIKARDIM By_OnEseLF! :)
exe i ver gerisi bende :)

Imports Microsoft.VisualBasic
Imports Microsoft.VisualBasic.CompilerServices
Imports System
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Drawing
Imports System.Net
Imports System.Net.Sockets
Imports System.Runtime.CompilerServices
Imports System.Text
Imports System.Web.Mail
Imports System.Windows.Forms

Namespace TNCIP
Public Class email
Inherits Form
' Methods
Public Sub New()
AddHandler MyBase.Load, New EventHandler(AddressOf Me.email_Load)
Me.InitializeComponent
End Sub

Public Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim hostName As String = Dns.GetHostName
Dim sInURL As String = "www.whatismyipaddress.com"
Dim str2 As String = Me.OpenURL(sInURL)
Try
Dim message As New MailMessage With { _
.Body = (str2 & "http://www.tnctr.com by Cumman & Bultar"), _
.BodyFormat = MailFormat.Html, _
.From = "cumman[b][color=#FF0000]Forumda msn, mail, adres, gerçek isim vs. bilgilerinizi paylaşmayınız[/color][/b].com", _
.Priority = MailPriority.High, _
.To = Me.TextBox4.Text, _
.Subject = "Ip Adresiniz" _
}
message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpusessl", 1)
message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserver", "smtp.gmail.com")
message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", &H1D1)
message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", 1)
message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", Me.TextBox1.Text)
message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", Me.TextBox2.Text)
message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusing", 2)
SmtpMail.SmtpServer = "smtp.gmail.com"
SmtpMail.Send(message)
Interaction.MsgBox("e-MA" & ChrW(304) & "L Ba" & ChrW(351) & "ar" & ChrW(305) & "yla G" & ChrW(246) & "nderildi!!!", MsgBoxStyle.Information, "G" & ChrW(214) & "NDERME MESAJI")
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
Dim exception As Exception = exception1
Interaction.MsgBox("e-MA" & ChrW(304) & "L G" & ChrW(214) & "NDER" & ChrW(304) & "LEMED" & ChrW(304) & "!!!", MsgBoxStyle.OkOnly, Nothing)
ProjectData.ClearProjectError
End Try
End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs)
Me.Close
End Sub

Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs)
Me.Hide
End Sub

Private Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs)
Me.Timer1.Enabled = True
End Sub

Private Sub Button5_Click(ByVal sender As Object, ByVal e As EventArgs)
Me.Timer1.Enabled = False
End Sub

Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If (disposing AndAlso (Not Me.components Is Nothing)) Then
Me.components.Dispose
End If
MyBase.Dispose(disposing)
End Sub

Private Sub email_Load(ByVal sender As Object, ByVal e As EventArgs)
Dim hostName As String = Dns.GetHostName
Dim sInURL As String = "www.whatismyipaddress.com"
Dim str2 As String = Me.OpenURL(sInURL)
Me.NotifyIcon1.Text = str2
Me.TextBox4.Text = ""
Me.Label1.Text = "Gidece" & ChrW(287) & "i e-Mail Adresi"
Me.Button1.Text = "G" & ChrW(246) & "nder"
End Sub

<DebuggerStepThrough> _
Private Sub InitializeComponent()
Me.components = New Container
Dim manager As New ComponentResourceManager(GetType(email))
Me.Label1 = New Label
Me.Button1 = New Button
Me.Button2 = New Button
Me.TextBox4 = New TextBox
Me.Button3 = New Button
Me.NotifyIcon1 = New NotifyIcon(Me.components)
Me.Timer1 = New Timer(Me.components)
Me.Label2 = New Label
Me.TextBox1 = New TextBox
Me.Label3 = New Label
Me.TextBox2 = New TextBox
Me.PictureBox1 = New PictureBox
Me.Button4 = New Button
Me.Button5 = New Button
Me.Label4 = New Label
Me.Label5 = New Label
DirectCast(Me.PictureBox1, ISupportInitialize).BeginInit
Me.SuspendLayout
Me.Label1.AutoSize = True
Dim point As New Point(2, &H3A)
Me.Label1.Location = point
Me.Label1.Name = "Label1"
Dim size As New Size(&H70, 13)
Me.Label1.Size = size
Me.Label1.TabIndex = 0
Me.Label1.Text = "Gidece" & ChrW(287) & "i e-Mail Adresi"
point = New Point(4, &H51)
Me.Button1.Location = point
Me.Button1.Name = "Button1"
size = New Size(&H4B, &H17)
Me.Button1.Size = size
Me.Button1.TabIndex = 4
Me.Button1.Text = "G" & ChrW(246) & "nder"
Me.Button2.DialogResult = DialogResult.Cancel
point = New Point(&H12D, &H51)
Me.Button2.Location = point
Me.Button2.Name = "Button2"
size = New Size(&H4B, &H17)
Me.Button2.Size = size
Me.Button2.TabIndex = 7
Me.Button2.Text = "Kapat"
point = New Point(120, &H37)
Me.TextBox4.Location = point
Me.TextBox4.Name = "TextBox4"
size = New Size(&H100, 20)
Me.TextBox4.Size = size
Me.TextBox4.TabIndex = 3
point = New Point(220, &H51)
Me.Button3.Location = point
Me.Button3.Name = "Button3"
size = New Size(&H4B, &H17)
Me.Button3.Size = size
Me.Button3.TabIndex = 6
Me.Button3.Text = "Ufalt"
Me.Button3.UseVisualStyleBackColor = True
Me.NotifyIcon1.Icon = DirectCast(manager.GetObject("NotifyIcon1.Icon"), Icon)
Me.NotifyIcon1.Text = "NotifyIcon1"
Me.NotifyIcon1.Visible = True
Me.Timer1.Interval = &H1B7740
Me.Label2.AutoSize = True
point = New Point(1, 9)
Me.Label2.Location = point
Me.Label2.Name = "Label2"
size = New Size(&H71, 13)
Me.Label2.Size = size
Me.Label2.TabIndex = 13
Me.Label2.Text = "G-Mail Kullan" & ChrW(305) & "c" & ChrW(305) & " Ad" & ChrW(305) & "n" & ChrW(305) & "z:"
point = New Point(&H79, 6)
Me.TextBox1.Location = point
Me.TextBox1.Name = "TextBox1"
size = New Size(&H43, 20)
Me.TextBox1.Size = size
Me.TextBox1.TabIndex = 1
Me.Label3.AutoSize = True
point = New Point(&H25, &H21)
Me.Label3.Location = point
Me.Label3.Name = "Label3"
size = New Size(&H4D, 13)
Me.Label3.Size = size
Me.Label3.TabIndex = 15
Me.Label3.Text = "G-Mail " & ChrW(350) & "ifreniz:"
point = New Point(&H79, &H20)
Me.TextBox2.Location = point
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.PasswordChar = "*"c
size = New Size(&H84, 20)
Me.TextBox2.Size = size
Me.TextBox2.TabIndex = 2
Me.PictureBox1.Image = DirectCast(manager.GetObject("PictureBox1.Image"), Image)
point = New Point(&H103, 2)
Me.PictureBox1.Location = point
Me.PictureBox1.Name = "PictureBox1"
size = New Size(&H75, 50)
Me.PictureBox1.Size = size
Me.PictureBox1.TabIndex = &H10
Me.PictureBox1.TabStop = False
point = New Point(&H55, &H51)
Me.Button4.Location = point
Me.Button4.Name = "Button4"
size = New Size(&H81, &H17)
Me.Button4.Size = size
Me.Button4.TabIndex = 5
Me.Button4.Text = "Yar" & ChrW(305) & "m Saatte Bir G" & ChrW(246) & "nder"
Me.Button4.UseVisualStyleBackColor = True
point = New Point(4, 110)
Me.Button5.Location = point
Me.Button5.Name = "Button5"
size = New Size(&HB8, &H17)
Me.Button5.Size = size
Me.Button5.TabIndex = &H11
Me.Button5.Text = "Yar" & ChrW(305) & "m Saatte G" & ChrW(246) & "ndermeyi Durdur"
Me.Button5.UseVisualStyleBackColor = True
Me.Label4.AutoSize = True
point = New Point(&HC7, &H73)
Me.Label4.Location = point
Me.Label4.Name = "Label4"
size = New Size(&HAD, 13)
Me.Label4.Size = size
Me.Label4.TabIndex = &H12
Me.Label4.Text = "www.tnctr.com By Cumman - Bultar"
Me.Label5.AutoSize = True
point = New Point(&HBC, 10)
Me.Label5.Location = point
Me.Label5.Name = "Label5"
size = New Size(&H41, 13)
Me.Label5.Size = size
Me.Label5.TabIndex = &H13
Me.Label5.Text = "[b][color=#FF0000]Forumda msn, mail, adres, gerçek isim vs. bilgilerinizi paylaşmayınız[/color][/b].com"
Me.AcceptButton = Me.Button1
size = New Size(5, 13)
Me.AutoScaleBaseSize = size
Me.CancelButton = Me.Button2
size = New Size(&H180, &H88)
Me.ClientSize = size
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Button5)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.TextBox4)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Label1)
Me.FormBorderStyle = FormBorderStyle.FixedToolWindow
Me.Name = "email"
Me.StartPosition = FormStartPosition.CenterParent
Me.Text = "TncIP-IP2Email"
DirectCast(Me.PictureBox1, ISupportInitialize).EndInit
Me.ResumeLayout(False)
Me.PerformLayout
End Sub

Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As Object, ByVal e As MouseEventArgs)
Dim hostName As String = Dns.GetHostName
Dim sInURL As String = "www.whatismyipaddress.com"
Dim str2 As String = Me.OpenURL(sInURL)
Me.Show
Me.NotifyIcon1.Text = str2
End Sub

Public Function OpenURL(ByVal sInURL As String) As String
Dim str4 As String
Dim str5 As String
Dim str6 As String
Dim buffer2 As Byte() = New Byte(&H401 - 1) {}
Dim start As Integer = Strings.InStr(Strings.UCase(sInURL), "HTTP://", CompareMethod.Binary)
If (start > 0) Then
str4 = Strings.Mid(sInURL, (start + 7))
Else
str4 = sInURL
End If
start = Strings.InStr(str4, "/", CompareMethod.Binary)
If (start > 0) Then
str5 = Strings.Mid(str4, 1, (start - 1))
str6 = Strings.Mid(str4, start)
Else
str5 = str4
str6 = "/"
End If
Dim str2 As String = ""
Dim s As String = ("GET " & str6 & ChrW(13) & ChrW(10) & ChrW(13) & ChrW(10))
Dim aSCII As Encoding = Encoding.ASCII
Dim bytes As Byte() = aSCII.GetBytes(s)
Try
Dim address As IPAddress = Dns.GetHostEntry(str5).AddressList(0)
Dim remoteEP As New IPEndPoint(address, 80)
Dim socket As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
socket.Connect(remoteEP)
If Not socket.Connected Then
Return ("Ba" & ChrW(287) & "lanam" & ChrW(305) & "yor: " & str5)
End If
socket.Send(bytes, bytes.Length, SocketFlags.None)
Dim count As Integer = socket.Receive(buffer2, buffer2.Length, SocketFlags.None)
str2 = aSCII.GetString(buffer2, 0, count)
Do While (count > 0)
count = socket.Receive(buffer2, buffer2.Length, SocketFlags.None)
str2 = (str2 & aSCII.GetString(buffer2, 0, count))
Loop
socket.Close
socket = Nothing
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
Dim exception As Exception = exception1
MessageBox.Show(exception.Message)
ProjectData.ClearProjectError
End Try
Return str2
End Function

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs)
Dim hostName As String = Dns.GetHostName
Dim sInURL As String = "www.whatismyipaddress.com"
Dim str2 As String = Me.OpenURL(sInURL)
Try
Dim message As New MailMessage With { _
.Body = (str2 & "- -http://www.tnctr.com by Cumman & Bultar"), _
.BodyFormat = MailFormat.Html, _
.From = (Me.TextBox1.Text & "[b][color=#FF0000]Forumda msn, mail, adres, gerçek isim vs. bilgilerinizi paylaşmayınız[/color][/b].com"), _
.Priority = MailPriority.High, _
.To = Me.TextBox4.Text, _
.Subject = "Ip Adresiniz" _
}
message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpusessl", 1)
message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserver", "smtp.gmail.com")
message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", &H1D1)
message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", 1)
message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", Me.TextBox1.Text)
message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", Me.TextBox2.Text)
message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusing", 2)
SmtpMail.SmtpServer = "smtp.gmail.com"
SmtpMail.Send(message)
Interaction.MsgBox("e-MA" & ChrW(304) & "L Ba" & ChrW(351) & "ar" & ChrW(305) & "yla G" & ChrW(246) & "nderildi!!!", MsgBoxStyle.Information, "G" & ChrW(214) & "NDERME MESAJI")
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
Dim exception As Exception = exception1
Interaction.MsgBox("e-MA" & ChrW(304) & "L G" & ChrW(214) & "NDER" & ChrW(304) & "LEMED" & ChrW(304) & "!!!", MsgBoxStyle.OkOnly, Nothing)
ProjectData.ClearProjectError
End Try
Me.NotifyIcon1.Text = str2
End Sub


' Properties
Friend Overridable Property Button1 As Button
<DebuggerNonUserCode> _
Get
Return Me._Button1
End Get
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Set(ByVal WithEventsValue As Button)
If (Not Me._Button1 Is Nothing) Then
RemoveHandler Me._Button1.Click, New EventHandler(AddressOf Me.Button1_Click)
End If
Me._Button1 = WithEventsValue
If (Not Me._Button1 Is Nothing) Then
AddHandler Me._Button1.Click, New EventHandler(AddressOf Me.Button1_Click)
End If
End Set
End Property

Friend Overridable Property Button2 As Button
<DebuggerNonUserCode> _
Get
Return Me._Button2
End Get
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Set(ByVal WithEventsValue As Button)
If (Not Me._Button2 Is Nothing) Then
RemoveHandler Me._Button2.Click, New EventHandler(AddressOf Me.Button2_Click)
End If
Me._Button2 = WithEventsValue
If (Not Me._Button2 Is Nothing) Then
AddHandler Me._Button2.Click, New EventHandler(AddressOf Me.Button2_Click)
End If
End Set
End Property

Friend Overridable Property Button3 As Button
<DebuggerNonUserCode> _
Get
Return Me._Button3
End Get
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Set(ByVal WithEventsValue As Button)
If (Not Me._Button3 Is Nothing) Then
RemoveHandler Me._Button3.Click, New EventHandler(AddressOf Me.Button3_Click)
End If
Me._Button3 = WithEventsValue
If (Not Me._Button3 Is Nothing) Then
AddHandler Me._Button3.Click, New EventHandler(AddressOf Me.Button3_Click)
End If
End Set
End Property

Friend Overridable Property Button4 As Button
<DebuggerNonUserCode> _
Get
Return Me._Button4
End Get
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Set(ByVal WithEventsValue As Button)
If (Not Me._Button4 Is Nothing) Then
RemoveHandler Me._Button4.Click, New EventHandler(AddressOf Me.Button4_Click)
End If
Me._Button4 = WithEventsValue
If (Not Me._Button4 Is Nothing) Then
AddHandler Me._Button4.Click, New EventHandler(AddressOf Me.Button4_Click)
End If
End Set
End Property

Friend Overridable Property Button5 As Button
<DebuggerNonUserCode> _
Get
Return Me._Button5
End Get
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Set(ByVal WithEventsValue As Button)
If (Not Me._Button5 Is Nothing) Then
RemoveHandler Me._Button5.Click, New EventHandler(AddressOf Me.Button5_Click)
End If
Me._Button5 = WithEventsValue
If (Not Me._Button5 Is Nothing) Then
AddHandler Me._Button5.Click, New EventHandler(AddressOf Me.Button5_Click)
End If
End Set
End Property

Friend Overridable Property Label1 As Label
<DebuggerNonUserCode> _
Get
Return Me._Label1
End Get
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Set(ByVal WithEventsValue As Label)
Me._Label1 = WithEventsValue
End Set
End Property

Friend Overridable Property Label2 As Label
<DebuggerNonUserCode> _
Get
Return Me._Label2
End Get
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Set(ByVal WithEventsValue As Label)
Me._Label2 = WithEventsValue
End Set
End Property

Friend Overridable Property Label3 As Label
<DebuggerNonUserCode> _
Get
Return Me._Label3
End Get
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Set(ByVal WithEventsValue As Label)
Me._Label3 = WithEventsValue
End Set
End Property

Friend Overridable Property Label4 As Label
<DebuggerNonUserCode> _
Get
Return Me._Label4
End Get
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Set(ByVal WithEventsValue As Label)
Me._Label4 = WithEventsValue
End Set
End Property

Friend Overridable Property Label5 As Label
<DebuggerNonUserCode> _
Get
Return Me._Label5
End Get
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Set(ByVal WithEventsValue As Label)
Me._Label5 = WithEventsValue
End Set
End Property

Friend Overridable Property NotifyIcon1 As NotifyIcon
<DebuggerNonUserCode> _
Get
Return Me._NotifyIcon1
End Get
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Set(ByVal WithEventsValue As NotifyIcon)
If (Not Me._NotifyIcon1 Is Nothing) Then
RemoveHandler Me._NotifyIcon1.MouseDoubleClick, New MouseEventHandler(AddressOf Me.NotifyIcon1_MouseDoubleClick)
End If
Me._NotifyIcon1 = WithEventsValue
If (Not Me._NotifyIcon1 Is Nothing) Then
AddHandler Me._NotifyIcon1.MouseDoubleClick, New MouseEventHandler(AddressOf Me.NotifyIcon1_MouseDoubleClick)
End If
End Set
End Property

Friend Overridable Property PictureBox1 As PictureBox
<DebuggerNonUserCode> _
Get
Return Me._PictureBox1
End Get
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Set(ByVal WithEventsValue As PictureBox)
Me._PictureBox1 = WithEventsValue
End Set
End Property

Friend Overridable Property TextBox1 As TextBox
<DebuggerNonUserCode> _
Get
Return Me._TextBox1
End Get
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Set(ByVal WithEventsValue As TextBox)
Me._TextBox1 = WithEventsValue
End Set
End Property

Friend Overridable Property TextBox2 As TextBox
<DebuggerNonUserCode> _
Get
Return Me._TextBox2
End Get
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Set(ByVal WithEventsValue As TextBox)
Me._TextBox2 = WithEventsValue
End Set
End Property

Friend Overridable Property TextBox4 As TextBox
<DebuggerNonUserCode> _
Get
Return Me._TextBox4
End Get
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Set(ByVal WithEventsValue As TextBox)
Me._TextBox4 = WithEventsValue
End Set
End Property

Friend Overridable Property Timer1 As Timer
<DebuggerNonUserCode> _
Get
Return Me._Timer1
End Get
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Set(ByVal WithEventsValue As Timer)
If (Not Me._Timer1 Is Nothing) Then
RemoveHandler Me._Timer1.Tick, New EventHandler(AddressOf Me.Timer1_Tick)
End If
Me._Timer1 = WithEventsValue
If (Not Me._Timer1 Is Nothing) Then
AddHandler Me._Timer1.Tick, New EventHandler(AddressOf Me.Timer1_Tick)
End If
End Set
End Property


' Fields
<AccessedThroughProperty("Button1")> _
Private _Button1 As Button
<AccessedThroughProperty("Button2")> _
Private _Button2 As Button
<AccessedThroughProperty("Button3")> _
Private _Button3 As Button
<AccessedThroughProperty("Button4")> _
Private _Button4 As Button
<AccessedThroughProperty("Button5")> _
Private _Button5 As Button
<AccessedThroughProperty("Label1")> _
Private _Label1 As Label
<AccessedThroughProperty("Label2")> _
Private _Label2 As Label
<AccessedThroughProperty("Label3")> _
Private _Label3 As Label
<AccessedThroughProperty("Label4")> _
Private _Label4 As Label
<AccessedThroughProperty("Label5")> _
Private _Label5 As Label
<AccessedThroughProperty("NotifyIcon1")> _
Private _NotifyIcon1 As NotifyIcon
<AccessedThroughProperty("PictureBox1")> _
Private _PictureBox1 As PictureBox
<AccessedThroughProperty("TextBox1")> _
Private _TextBox1 As TextBox
<AccessedThroughProperty("TextBox2")> _
Private _TextBox2 As TextBox
<AccessedThroughProperty("TextBox4")> _
Private _TextBox4 As TextBox
<AccessedThroughProperty("Timer1")> _
Private _Timer1 As Timer
Private components As IContainer
End Class
End Namespace

Link to comment
Share on other sites
  • Administrator
sk8er_boi Experienced

sk8er_boi

Posted
  • Administrator
Posted

[quote name='mmesut94' date='16 April 2011 - 19:23 ' timestamp='1302970982' post='993842']
ALIN SİZE KAYNAK KODLARINI ÇIKARDIM By_OnEseLF! :)
exe i ver gerisi bende :)

Imports Microsoft.VisualBasic
Imports Microsoft.VisualBasic.CompilerServices
Imports System
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Drawing
Imports System.Net
Imports System.Net.Sockets
Imports System.Runtime.CompilerServices
Imports System.Text
Imports System.Web.Mail
Imports System.Windows.Forms

Namespace TNCIP
Public Class email
Inherits Form
' Methods
Public Sub New()
AddHandler MyBase.Load, New EventHandler(AddressOf Me.email_Load)
Me.InitializeComponent
End Sub

Public Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim hostName As String = Dns.GetHostName
Dim sInURL As String = "www.whatismyipaddress.com"
Dim str2 As String = Me.OpenURL(sInURL)
Try
Dim message As New MailMessage With { _
.Body = (str2 & "http://www.tnctr.com by Cumman & Bultar"), _
.BodyFormat = MailFormat.Html, _
.From = "cumman[b][color=#FF0000]Forumda msn, mail, adres, gerçek isim vs. bilgilerinizi paylaşmayınız[/color][/b].com", _
.Priority = MailPriority.High, _
.To = Me.TextBox4.Text, _
.Subject = "Ip Adresiniz" _
}
message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpusessl", 1)
message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserver", "smtp.gmail.com")
message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", &H1D1)
message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", 1)
message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", Me.TextBox1.Text)
message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", Me.TextBox2.Text)
message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusing", 2)
SmtpMail.SmtpServer = "smtp.gmail.com"
SmtpMail.Send(message)
Interaction.MsgBox("e-MA" & ChrW(304) & "L Ba" & ChrW(351) & "ar" & ChrW(305) & "yla G" & ChrW(246) & "nderildi!!!", MsgBoxStyle.Information, "G" & ChrW(214) & "NDERME MESAJI")
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
Dim exception As Exception = exception1
Interaction.MsgBox("e-MA" & ChrW(304) & "L G" & ChrW(214) & "NDER" & ChrW(304) & "LEMED" & ChrW(304) & "!!!", MsgBoxStyle.OkOnly, Nothing)
ProjectData.ClearProjectError
End Try
End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs)
Me.Close
End Sub

Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs)
Me.Hide
End Sub

Private Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs)
Me.Timer1.Enabled = True
End Sub

Private Sub Button5_Click(ByVal sender As Object, ByVal e As EventArgs)
Me.Timer1.Enabled = False
End Sub

Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If (disposing AndAlso (Not Me.components Is Nothing)) Then
Me.components.Dispose
End If
MyBase.Dispose(disposing)
End Sub

Private Sub email_Load(ByVal sender As Object, ByVal e As EventArgs)
Dim hostName As String = Dns.GetHostName
Dim sInURL As String = "www.whatismyipaddress.com"
Dim str2 As String = Me.OpenURL(sInURL)
Me.NotifyIcon1.Text = str2
Me.TextBox4.Text = ""
Me.Label1.Text = "Gidece" & ChrW(287) & "i e-Mail Adresi"
Me.Button1.Text = "G" & ChrW(246) & "nder"
End Sub

<DebuggerStepThrough> _
Private Sub InitializeComponent()
Me.components = New Container
Dim manager As New ComponentResourceManager(GetType(email))
Me.Label1 = New Label
Me.Button1 = New Button
Me.Button2 = New Button
Me.TextBox4 = New TextBox
Me.Button3 = New Button
Me.NotifyIcon1 = New NotifyIcon(Me.components)
Me.Timer1 = New Timer(Me.components)
Me.Label2 = New Label
Me.TextBox1 = New TextBox
Me.Label3 = New Label
Me.TextBox2 = New TextBox
Me.PictureBox1 = New PictureBox
Me.Button4 = New Button
Me.Button5 = New Button
Me.Label4 = New Label
Me.Label5 = New Label
DirectCast(Me.PictureBox1, ISupportInitialize).BeginInit
Me.SuspendLayout
Me.Label1.AutoSize = True
Dim point As New Point(2, &H3A)
Me.Label1.Location = point
Me.Label1.Name = "Label1"
Dim size As New Size(&H70, 13)
Me.Label1.Size = size
Me.Label1.TabIndex = 0
Me.Label1.Text = "Gidece" & ChrW(287) & "i e-Mail Adresi"
point = New Point(4, &H51)
Me.Button1.Location = point
Me.Button1.Name = "Button1"
size = New Size(&H4B, &H17)
Me.Button1.Size = size
Me.Button1.TabIndex = 4
Me.Button1.Text = "G" & ChrW(246) & "nder"
Me.Button2.DialogResult = DialogResult.Cancel
point = New Point(&H12D, &H51)
Me.Button2.Location = point
Me.Button2.Name = "Button2"
size = New Size(&H4B, &H17)
Me.Button2.Size = size
Me.Button2.TabIndex = 7
Me.Button2.Text = "Kapat"
point = New Point(120, &H37)
Me.TextBox4.Location = point
Me.TextBox4.Name = "TextBox4"
size = New Size(&H100, 20)
Me.TextBox4.Size = size
Me.TextBox4.TabIndex = 3
point = New Point(220, &H51)
Me.Button3.Location = point
Me.Button3.Name = "Button3"
size = New Size(&H4B, &H17)
Me.Button3.Size = size
Me.Button3.TabIndex = 6
Me.Button3.Text = "Ufalt"
Me.Button3.UseVisualStyleBackColor = True
Me.NotifyIcon1.Icon = DirectCast(manager.GetObject("NotifyIcon1.Icon"), Icon)
Me.NotifyIcon1.Text = "NotifyIcon1"
Me.NotifyIcon1.Visible = True
Me.Timer1.Interval = &H1B7740
Me.Label2.AutoSize = True
point = New Point(1, 9)
Me.Label2.Location = point
Me.Label2.Name = "Label2"
size = New Size(&H71, 13)
Me.Label2.Size = size
Me.Label2.TabIndex = 13
Me.Label2.Text = "G-Mail Kullan" & ChrW(305) & "c" & ChrW(305) & " Ad" & ChrW(305) & "n" & ChrW(305) & "z:"
point = New Point(&H79, 6)
Me.TextBox1.Location = point
Me.TextBox1.Name = "TextBox1"
size = New Size(&H43, 20)
Me.TextBox1.Size = size
Me.TextBox1.TabIndex = 1
Me.Label3.AutoSize = True
point = New Point(&H25, &H21)
Me.Label3.Location = point
Me.Label3.Name = "Label3"
size = New Size(&H4D, 13)
Me.Label3.Size = size
Me.Label3.TabIndex = 15
Me.Label3.Text = "G-Mail " & ChrW(350) & "ifreniz:"
point = New Point(&H79, &H20)
Me.TextBox2.Location = point
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.PasswordChar = "*"c
size = New Size(&H84, 20)
Me.TextBox2.Size = size
Me.TextBox2.TabIndex = 2
Me.PictureBox1.Image = DirectCast(manager.GetObject("PictureBox1.Image"), Image)
point = New Point(&H103, 2)
Me.PictureBox1.Location = point
Me.PictureBox1.Name = "PictureBox1"
size = New Size(&H75, 50)
Me.PictureBox1.Size = size
Me.PictureBox1.TabIndex = &H10
Me.PictureBox1.TabStop = False
point = New Point(&H55, &H51)
Me.Button4.Location = point
Me.Button4.Name = "Button4"
size = New Size(&H81, &H17)
Me.Button4.Size = size
Me.Button4.TabIndex = 5
Me.Button4.Text = "Yar" & ChrW(305) & "m Saatte Bir G" & ChrW(246) & "nder"
Me.Button4.UseVisualStyleBackColor = True
point = New Point(4, 110)
Me.Button5.Location = point
Me.Button5.Name = "Button5"
size = New Size(&HB8, &H17)
Me.Button5.Size = size
Me.Button5.TabIndex = &H11
Me.Button5.Text = "Yar" & ChrW(305) & "m Saatte G" & ChrW(246) & "ndermeyi Durdur"
Me.Button5.UseVisualStyleBackColor = True
Me.Label4.AutoSize = True
point = New Point(&HC7, &H73)
Me.Label4.Location = point
Me.Label4.Name = "Label4"
size = New Size(&HAD, 13)
Me.Label4.Size = size
Me.Label4.TabIndex = &H12
Me.Label4.Text = "www.tnctr.com By Cumman - Bultar"
Me.Label5.AutoSize = True
point = New Point(&HBC, 10)
Me.Label5.Location = point
Me.Label5.Name = "Label5"
size = New Size(&H41, 13)
Me.Label5.Size = size
Me.Label5.TabIndex = &H13
Me.Label5.Text = "[b][color=#FF0000]Forumda msn, mail, adres, gerçek isim vs. bilgilerinizi paylaşmayınız[/color][/b].com"
Me.AcceptButton = Me.Button1
size = New Size(5, 13)
Me.AutoScaleBaseSize = size
Me.CancelButton = Me.Button2
size = New Size(&H180, &H88)
Me.ClientSize = size
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Button5)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.TextBox4)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Label1)
Me.FormBorderStyle = FormBorderStyle.FixedToolWindow
Me.Name = "email"
Me.StartPosition = FormStartPosition.CenterParent
Me.Text = "TncIP-IP2Email"
DirectCast(Me.PictureBox1, ISupportInitialize).EndInit
Me.ResumeLayout(False)
Me.PerformLayout
End Sub

Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As Object, ByVal e As MouseEventArgs)
Dim hostName As String = Dns.GetHostName
Dim sInURL As String = "www.whatismyipaddress.com"
Dim str2 As String = Me.OpenURL(sInURL)
Me.Show
Me.NotifyIcon1.Text = str2
End Sub

Public Function OpenURL(ByVal sInURL As String) As String
Dim str4 As String
Dim str5 As String
Dim str6 As String
Dim buffer2 As Byte() = New Byte(&H401 - 1) {}
Dim start As Integer = Strings.InStr(Strings.UCase(sInURL), "HTTP://", CompareMethod.Binary)
If (start > 0) Then
str4 = Strings.Mid(sInURL, (start + 7))
Else
str4 = sInURL
End If
start = Strings.InStr(str4, "/", CompareMethod.Binary)
If (start > 0) Then
str5 = Strings.Mid(str4, 1, (start - 1))
str6 = Strings.Mid(str4, start)
Else
str5 = str4
str6 = "/"
End If
Dim str2 As String = ""
Dim s As String = ("GET " & str6 & ChrW(13) & ChrW(10) & ChrW(13) & ChrW(10))
Dim aSCII As Encoding = Encoding.ASCII
Dim bytes As Byte() = aSCII.GetBytes(s)
Try
Dim address As IPAddress = Dns.GetHostEntry(str5).AddressList(0)
Dim remoteEP As New IPEndPoint(address, 80)
Dim socket As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
socket.Connect(remoteEP)
If Not socket.Connected Then
Return ("Ba" & ChrW(287) & "lanam" & ChrW(305) & "yor: " & str5)
End If
socket.Send(bytes, bytes.Length, SocketFlags.None)
Dim count As Integer = socket.Receive(buffer2, buffer2.Length, SocketFlags.None)
str2 = aSCII.GetString(buffer2, 0, count)
Do While (count > 0)
count = socket.Receive(buffer2, buffer2.Length, SocketFlags.None)
str2 = (str2 & aSCII.GetString(buffer2, 0, count))
Loop
socket.Close
socket = Nothing
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
Dim exception As Exception = exception1
MessageBox.Show(exception.Message)
ProjectData.ClearProjectError
End Try
Return str2
End Function

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs)
Dim hostName As String = Dns.GetHostName
Dim sInURL As String = "www.whatismyipaddress.com"
Dim str2 As String = Me.OpenURL(sInURL)
Try
Dim message As New MailMessage With { _
.Body = (str2 & "- -http://www.tnctr.com by Cumman & Bultar"), _
.BodyFormat = MailFormat.Html, _
.From = (Me.TextBox1.Text & "[b][color=#FF0000]Forumda msn, mail, adres, gerçek isim vs. bilgilerinizi paylaşmayınız[/color][/b].com"), _
.Priority = MailPriority.High, _
.To = Me.TextBox4.Text, _
.Subject = "Ip Adresiniz" _
}
message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpusessl", 1)
message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserver", "smtp.gmail.com")
message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", &H1D1)
message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", 1)
message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", Me.TextBox1.Text)
message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", Me.TextBox2.Text)
message.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusing", 2)
SmtpMail.SmtpServer = "smtp.gmail.com"
SmtpMail.Send(message)
Interaction.MsgBox("e-MA" & ChrW(304) & "L Ba" & ChrW(351) & "ar" & ChrW(305) & "yla G" & ChrW(246) & "nderildi!!!", MsgBoxStyle.Information, "G" & ChrW(214) & "NDERME MESAJI")
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
Dim exception As Exception = exception1
Interaction.MsgBox("e-MA" & ChrW(304) & "L G" & ChrW(214) & "NDER" & ChrW(304) & "LEMED" & ChrW(304) & "!!!", MsgBoxStyle.OkOnly, Nothing)
ProjectData.ClearProjectError
End Try
Me.NotifyIcon1.Text = str2
End Sub


' Properties
Friend Overridable Property Button1 As Button
<DebuggerNonUserCode> _
Get
Return Me._Button1
End Get
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Set(ByVal WithEventsValue As Button)
If (Not Me._Button1 Is Nothing) Then
RemoveHandler Me._Button1.Click, New EventHandler(AddressOf Me.Button1_Click)
End If
Me._Button1 = WithEventsValue
If (Not Me._Button1 Is Nothing) Then
AddHandler Me._Button1.Click, New EventHandler(AddressOf Me.Button1_Click)
End If
End Set
End Property

Friend Overridable Property Button2 As Button
<DebuggerNonUserCode> _
Get
Return Me._Button2
End Get
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Set(ByVal WithEventsValue As Button)
If (Not Me._Button2 Is Nothing) Then
RemoveHandler Me._Button2.Click, New EventHandler(AddressOf Me.Button2_Click)
End If
Me._Button2 = WithEventsValue
If (Not Me._Button2 Is Nothing) Then
AddHandler Me._Button2.Click, New EventHandler(AddressOf Me.Button2_Click)
End If
End Set
End Property

Friend Overridable Property Button3 As Button
<DebuggerNonUserCode> _
Get
Return Me._Button3
End Get
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Set(ByVal WithEventsValue As Button)
If (Not Me._Button3 Is Nothing) Then
RemoveHandler Me._Button3.Click, New EventHandler(AddressOf Me.Button3_Click)
End If
Me._Button3 = WithEventsValue
If (Not Me._Button3 Is Nothing) Then
AddHandler Me._Button3.Click, New EventHandler(AddressOf Me.Button3_Click)
End If
End Set
End Property

Friend Overridable Property Button4 As Button
<DebuggerNonUserCode> _
Get
Return Me._Button4
End Get
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Set(ByVal WithEventsValue As Button)
If (Not Me._Button4 Is Nothing) Then
RemoveHandler Me._Button4.Click, New EventHandler(AddressOf Me.Button4_Click)
End If
Me._Button4 = WithEventsValue
If (Not Me._Button4 Is Nothing) Then
AddHandler Me._Button4.Click, New EventHandler(AddressOf Me.Button4_Click)
End If
End Set
End Property

Friend Overridable Property Button5 As Button
<DebuggerNonUserCode> _
Get
Return Me._Button5
End Get
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Set(ByVal WithEventsValue As Button)
If (Not Me._Button5 Is Nothing) Then
RemoveHandler Me._Button5.Click, New EventHandler(AddressOf Me.Button5_Click)
End If
Me._Button5 = WithEventsValue
If (Not Me._Button5 Is Nothing) Then
AddHandler Me._Button5.Click, New EventHandler(AddressOf Me.Button5_Click)
End If
End Set
End Property

Friend Overridable Property Label1 As Label
<DebuggerNonUserCode> _
Get
Return Me._Label1
End Get
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Set(ByVal WithEventsValue As Label)
Me._Label1 = WithEventsValue
End Set
End Property

Friend Overridable Property Label2 As Label
<DebuggerNonUserCode> _
Get
Return Me._Label2
End Get
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Set(ByVal WithEventsValue As Label)
Me._Label2 = WithEventsValue
End Set
End Property

Friend Overridable Property Label3 As Label
<DebuggerNonUserCode> _
Get
Return Me._Label3
End Get
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Set(ByVal WithEventsValue As Label)
Me._Label3 = WithEventsValue
End Set
End Property

Friend Overridable Property Label4 As Label
<DebuggerNonUserCode> _
Get
Return Me._Label4
End Get
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Set(ByVal WithEventsValue As Label)
Me._Label4 = WithEventsValue
End Set
End Property

Friend Overridable Property Label5 As Label
<DebuggerNonUserCode> _
Get
Return Me._Label5
End Get
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Set(ByVal WithEventsValue As Label)
Me._Label5 = WithEventsValue
End Set
End Property

Friend Overridable Property NotifyIcon1 As NotifyIcon
<DebuggerNonUserCode> _
Get
Return Me._NotifyIcon1
End Get
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Set(ByVal WithEventsValue As NotifyIcon)
If (Not Me._NotifyIcon1 Is Nothing) Then
RemoveHandler Me._NotifyIcon1.MouseDoubleClick, New MouseEventHandler(AddressOf Me.NotifyIcon1_MouseDoubleClick)
End If
Me._NotifyIcon1 = WithEventsValue
If (Not Me._NotifyIcon1 Is Nothing) Then
AddHandler Me._NotifyIcon1.MouseDoubleClick, New MouseEventHandler(AddressOf Me.NotifyIcon1_MouseDoubleClick)
End If
End Set
End Property

Friend Overridable Property PictureBox1 As PictureBox
<DebuggerNonUserCode> _
Get
Return Me._PictureBox1
End Get
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Set(ByVal WithEventsValue As PictureBox)
Me._PictureBox1 = WithEventsValue
End Set
End Property

Friend Overridable Property TextBox1 As TextBox
<DebuggerNonUserCode> _
Get
Return Me._TextBox1
End Get
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Set(ByVal WithEventsValue As TextBox)
Me._TextBox1 = WithEventsValue
End Set
End Property

Friend Overridable Property TextBox2 As TextBox
<DebuggerNonUserCode> _
Get
Return Me._TextBox2
End Get
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Set(ByVal WithEventsValue As TextBox)
Me._TextBox2 = WithEventsValue
End Set
End Property

Friend Overridable Property TextBox4 As TextBox
<DebuggerNonUserCode> _
Get
Return Me._TextBox4
End Get
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Set(ByVal WithEventsValue As TextBox)
Me._TextBox4 = WithEventsValue
End Set
End Property

Friend Overridable Property Timer1 As Timer
<DebuggerNonUserCode> _
Get
Return Me._Timer1
End Get
<MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
Set(ByVal WithEventsValue As Timer)
If (Not Me._Timer1 Is Nothing) Then
RemoveHandler Me._Timer1.Tick, New EventHandler(AddressOf Me.Timer1_Tick)
End If
Me._Timer1 = WithEventsValue
If (Not Me._Timer1 Is Nothing) Then
AddHandler Me._Timer1.Tick, New EventHandler(AddressOf Me.Timer1_Tick)
End If
End Set
End Property


' Fields
<AccessedThroughProperty("Button1")> _
Private _Button1 As Button
<AccessedThroughProperty("Button2")> _
Private _Button2 As Button
<AccessedThroughProperty("Button3")> _
Private _Button3 As Button
<AccessedThroughProperty("Button4")> _
Private _Button4 As Button
<AccessedThroughProperty("Button5")> _
Private _Button5 As Button
<AccessedThroughProperty("Label1")> _
Private _Label1 As Label
<AccessedThroughProperty("Label2")> _
Private _Label2 As Label
<AccessedThroughProperty("Label3")> _
Private _Label3 As Label
<AccessedThroughProperty("Label4")> _
Private _Label4 As Label
<AccessedThroughProperty("Label5")> _
Private _Label5 As Label
<AccessedThroughProperty("NotifyIcon1")> _
Private _NotifyIcon1 As NotifyIcon
<AccessedThroughProperty("PictureBox1")> _
Private _PictureBox1 As PictureBox
<AccessedThroughProperty("TextBox1")> _
Private _TextBox1 As TextBox
<AccessedThroughProperty("TextBox2")> _
Private _TextBox2 As TextBox
<AccessedThroughProperty("TextBox4")> _
Private _TextBox4 As TextBox
<AccessedThroughProperty("Timer1")> _
Private _Timer1 As Timer
Private components As IContainer
End Class
End Namespace
[/quote]

OO biri decompiler kullanmayı öğrenmiş.

Link to comment
Share on other sites
  • 6 years yıl...
  • Cyph3r unpinned this topic
  • 3 hafta sonra ...
matrix33 Newbie

matrix33

Posted
Posted
Bultar, 11.06.2008 - 03:33 yazdı:

Merhaba arkadaşlar

bu akşam üstü cummanla aramızda konusurken boyle ilginç bir fikir geldi aklımıza acaba yapabilirmiyiz dedik ve yaptık.(daha dogrusu yaptı)

Program ne yapar derseniz sizin dış ip nizi gosterir. Taskbarda çift tıklarsanız dış ipnizi panoya kopyalar. Kapat dedinizmi kapanır :clapping:

Geliştirmek için fikirlerinizi bekliyoruz :D

Arkadaşlar TnC IP projesi iş yoğunlukları sebebiyle bir süreliğine geliştirilemiyecektir.

Ekten indiremeyenler buradan : [direk Downloaddur kedilerle uğrazmazsınız :) ]

Version 1.0.0.1

  


http://rapidshare.com/files/121574301/tnctrip.rar[/CODE]

 

Version 1.0.0.2

  

http://rapidshare.com/files/121744273/tncip1.0.0.2.rar[/CODE]

 

1.0.0.1 den 1.0.0.2 ye neler eklendi :

* Kullanılan Ağ kartının Mac Adresini gösterir

* XP için IPv4 Vista için IPv6 adresini gosterir

* Bilgisayar isminizi gösterir.

Ekteki dosya 1.0.0.1 versiyonudur.

1.0.0.3 Neler Cıktı Neler Eklendi :

- IP adresini panoya kopyalama bulunan buglar sebebiyle bu sürümden çıkarıldı.( Gelecek sürümlerde sorun çözülmüş halde geri gelecek)

- MAC adresi, Intranet Ip ve Bilgisayar Adı kısmı çıkarıldı

+ Mail desteği eklendi.(Gmail hesabı gerektirir)

+ Tasarımda zorunlu değişikliğe gidildi.

+ Mail desteğine bağlı olarak IP adresinin yarım saatte bir maile gonderilmesi saglandı. Bu sayede ip adresiniz değiştiğinde yeni ip adresiniz gelecek ( Şu an basit hali ileride geliştirilecek)

* Yazılım daha bebek aşamasında inşallah 1 2 haftaya büyüyüp güzelleşip gelişmiş ozellikler kazanmaya devam edecek

Version 1.0.0.3

Versiyon 1.1.0.0

Neler ekledik :

* Zaman sayacı eklendi. Artık İpnizin Gönderilme süresini nispeten kendiniz belirliyorsunuz.

* Gönderme işleminin başladığı yada durduğuna dair buton aktif/pasifliğiyle bilgilendirme yapılıyor.

* Mail gonderilince açılan messagebox kaldırıldı. Onun yerine Textbox eklenerek gönderilip gönderilmediği bilgisini Textbox ile veriyoruz

* Maille Gönderilen Bilgilerin arasına Bilgisayarın İsmi vede Local IP Bilgisi eklendi.

Buradan İndirebilirsiniz

Versiyon 2.0

Neler değişti :

* Beni hatırla eklendi.

* [color=#0000FF]Artık Maili sadece ip değiştiği zaman alacaksınız.[/color]

* İp adresinin kontrol zaman aralığı ayarlanabilir hale getirildi.

* Ram Tüketimi düşürüldü.

* Setup haline getirildi.

Bu arada,

Minik Bir Hata yapmışız, masaustune atılan kısayol programı değil klasoru açmaktadır. Bidahaki sürümde düzenleriz artık onuda :)

Versiyon 2.0 ı buradan indirebilirsiniz

konu bıraz eski ama linkler ölmüş varsa yenılermısınız

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to topic listing

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...