这个简单啊
Me.Cursor = Cursors.WaitCursor
Dim sAnotherUser As String = ""
If CheckValue() Then
If LoadUserProfile(txtUserID.Text.Trim, txtPw.Text.Trim) = True Then
g_sTxtUserID = Me.txtUserID.Text.Trim
Dim path As String = Directory.GetCurrentDirectory.ToString & "\UserLogin.ini"
Using fileWriter As System.IO.StreamWriter = _
My.Computer.FileSystem.OpenTextFileWriter(Application.StartupPath + "\MD.ini", True, System.Text.Encoding.Default)
fileWriter.WriteLine("MD System")
fileWriter.WriteLine("User" & " " & Me.txtUserID.Text.Trim)
fileWriter.WriteLine("Password" & " " & XorString(Me.txtPw.Text.Trim))
fileWriter.WriteLine("WebJob" & " " & System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName()).AddressList().GetValue(0).ToString())
fileWriter.WriteLine("Server" & " " & g_sServerName)
fileWriter.WriteLine("Login Time: " & Format(Now, "yyyy/MM/dd HH:mm:ss"))
fileWriter.WriteLine("------------------------------------------------------------------------------")
End Using
Me.Cursor = Cursors.Default
Dim frmMain As New frm002Main
frmMain.Show()
Me.Visible = False
End If
End If
Me.Cursor = Cursors.Default