11-28-2009, 01:03 PM
Hello everyone. I previously posted this tutorial on HF , but I recently left and joined SF. I thought that this may be useful to some beginners.
Make the computer talk
Create a messagebox
Create A Message Box With A Yes + No Button
To change buttons,replace "vbyesno" with one of the following:
Start a process
Kill a process
Rename a file
Delete a file
Copy a file
Delete a registry key
Create a registry key
Over write a text file and then add text to it
Create an if statement (File Deletion)
For loop
Hide your application
Send an email with an attachment via SMTP Source
Visual Basic 2008 tutorials:
Link 1
Link2
The history of Visual Basic:
Link1
Link2
Do not quote post do to size.Thank you.
Make the computer talk
Code:
Dim sapi
sapi = CreateObject("sapi.spvoice")
sapi.Speak("TextHere")Create a messagebox
Code:
MsgBox("TextHere")Create A Message Box With A Yes + No Button
Code:
Dim Responce As Integer
Responce = MsgBox("Are You Sure", vbYesNo, "DELETE")
If Responce = vbYes Then
MsgBox(" You Clicked Yes!")
Else
MsgBox("You Clicked No!")
End IfTo change buttons,replace "vbyesno" with one of the following:
Code:
vbYesNoCancel
vbCritical
vbExcalmation
vbInformation
vbMsgBoxHelp
vbMsgBoxRight
vbOkOnly
vbRetryCancel
vbDefaultButton1
vbDefaultButton2
vbDefaultButton3
vbApplicationmodal
vbQuestion
vbOkCancel
vbAbortRetryIgnoreStart a process
Code:
Process.Start("notepad")
Process.Start("www.hackforum.net")Kill a process
Code:
Dim RunningProcess As System.Diagnostics.Process = Process.GetProcessesByName("taskmgr.exe")(0)
RunningProcess.Kill()Rename a file
Code:
My.Computer.FileSystem.RenameFile ("C:\Program Files\Mozilla Firefox\firefox.exe", "Anything.exe")Delete a file
Code:
Dim FileToDelete As String
FileToDelete = "C:\File.exe"
If System.IO.File.Exists(FileToDelete) = True Then
System.IO.File.Delete(FileToDelete)Copy a file
Code:
Dim FileToCopy As String
Dim NewCopy As String
FileToCopy = "C:\test.exe"
NewCopy = "C:\NewTest.txt"
If System.IO.File.Exists(FileToCopy) = True Then
System.IO.File.Copy(FileToCopy, NewCopy)Delete a registry key
Code:
My.Computer.Registry.LocalMachine.DeleteSubKey("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\SafeBoot")Create a registry key
Code:
Dim regKey As RegistryKey
regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE", True)
regKey.CreateSubKey("MyApp")
regKey.Close()Over write a text file and then add text to it
Code:
Dim OverWrite As String = "C:\Documents and Settings\All Users\Desktop\Example.txt"
If System.IO.File.Exists(OverWrite) = True Then
Dim ObjWriter4 As New System.IO.StreamWriter(OverWrite)
ObjWriter4.Write("Text To Add")
ObjWriter4.Close()Create an if statement (File Deletion)
Code:
Dim FileToDeleteWithAIfStatement As String
FileToDeleteWithAIfStatement = "C:\Windows\I386\regedit.exe"
If System.IO.File.Exists(FileToDeleteWithAIfStatement) = True The
System.IO.File.Delete(FileToDeleteWithAIfStatement)
End IfFor loop
Code:
For MessageBox = 1 To 60
MsgBox(" This Will Loop Sixty Times!")
Next MessageBoxHide your application
Code:
Me.Hide ()Send an email with an attachment via SMTP Source
Code:
Dim message As System.Net.Mail.MailMessage
Dim smtp As New System.Net.Mail.SmtpClient("smtp.gmail.com", 587)
Dim attach As System.Net.Mail.Attachment
message = New System.Net.Mail.MailMessage(txtFrom.Text, txtTo.Text, txtSubject.Text, txtMessage.Text)
If My.Computer.FileSystem.FileExists(txtAttachment.Text) Then message.Attachments.Add(attach)
smtp.EnableSsl = True
smtp.Credentials = New System.Net.NetworkCredential("yourUsername@yourmail.com", "password")
Try
smtp.Send(message)
MessageBox.Show("Well, the mail message appears to have been a success!", " Successful?", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch exc As Net.Mail.SmtpException
MessageBox.Show(exc.StatusCode.ToString, " Something Happened?", MessageBoxButtons.OK, MessageBoxIcon.Error)
End TryVisual Basic 2008 tutorials:
Link 1
Link2
The history of Visual Basic:
Link1
Link2
Do not quote post do to size.Thank you.
Maybe i use this e-mail one later ! Thank you