DirectX修复工具V1.0

为了与大家共同探讨和提高编程技术，在此我特别写了这篇技术文档。 本文档中将包含本程序的部分源代码以及注释说明，仅供高级用户参考。 其中部分代码来源于网络。 本程序的开发环境为：Microsoft Visual Studio 2008，开发语言： Visual Basic，.NET Framework版本：2.0，开发系统：Windows 7 旗舰版32位。 测试环境：Windows XP Home Edition(32 bit)、Windows XP Professional Edition(32 bit)、 Windows 7 旗舰版(32 bit)、Windows 7旗舰版(64 bit)。 程序中的部分代码： 1、检测系统是32位还是64位。 If Environment.GetEnvironmentVariable("PROCESSOR_ARCHITECTURE").IndexOf("64") <> -1 Then '64位系统 Else '32位系统 End If 2、检测操作系统版本。 If Val(My.Computer.Info.OSVersion) < 6 Then 'XP、2000等没有.NET的操作系统 Else 'Vista、Win 7等自带.NET的操作系统 End If 3、防止程序重复运行。 Dim procName As String procName = System.Diagnostics.Process.GetCurrentProcess().ProcessName If (System.Diagnostics.Process.GetProcessesByName(procName)).GetUpperBound(0) > 0 Then MsgBox("程序已经在运行！", MsgBoxStyle.Critical) Me.Dispose() Exit Sub End If 4、获取操作系统名及版本号。 My.Computer.Info.OSFullName & My.Computer.Info.OSVersion 5、拷贝文件。 syspath = Strings.Left(System.Environment.SystemDirectory, 11) My.Computer.FileSystem.CopyFile("\data\A\" & "d3dx9_31.dll", syspath & "system32\" & "d3dx9_31.dll" 6、后台线程报告进度。 Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged ProgressBar1.Value = e.ProgressPercentage End Sub 7、调用系统的DirectX 诊断工具。 Shell("dxdiag.exe", AppWinStyle.NormalFocus) 8、发送电子邮件。 Dim smtp As New System.Net.Mail.SmtpClient("smtp.163.com", 25) smtp.Credentials = New System.Net.NetworkCredential(//E-mail name//, //E-mail password//) Dim mail As New System.Net.Mail.MailMessage() mail.Subject = //Your subject// mail.SubjectEncoding = System.Text.Encoding.GetEncoding("GB2312") mail.BodyEncoding = System.Text.Encoding.GetEncoding("GB2312") mail.From = New System.Net.Mail.MailAddress(//Your E-mail address//) mail.Priority = System.Net.Mail.MailPriority.Normal mail.IsBodyHtml = True 'HTML格式的邮件,为false则发送纯文本邮箱 mail.Body = //mail body// '邮件内容 If Dir(//附件位置//) <> "" Then mail.Attachments.Add(New System.Net.Mail.Attachment(//附件位置//) End If mail.To.Add(//收件人//)'添加收件人,如果有多个,可以多次添加 smtp.Send(mail) mail.Dispose()