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