mmesut94

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