0

I am new in vb 2012 and when I tried to apply VB6 source of the two differ, I've been searching in google how to use this source vb 2012 but I do not find it, anyone there who can help me how to use this source in vb 2012, the following source code is

Dim FileTeks As String

FileTeks = App.Path & "\conn.ini"

UserName = Trim(txtUserName.Text)

Pass = Trim(txtPassword.Text)

Server = Trim(txtServer.Text)

Open FileTeks For Output As #1

Print #1, Enkrip(Server, 4)

Print #1, Enkrip(UserName, 4)

Print #1, Enkrip(Pass, 4)

Close #1

thanks for the help

4

2 回答 2

0

使用来自 .net 的 VisualBasic 包,您应该能够找到大部分 VB6 自己的命令。无论如何,vb.net 不仅仅是 vb6 的升级,它是一种完全不同的语言。

如果您的代码库不是太大,我会建议您尝试重构您的代码。我们曾经做过一次从 vb6 到 vb.net 的自动转换,现在我们后悔了。

于 2013-09-13T13:28:21.373 回答
0

这是在 .NET 中写入文件的一种方法

Using sw As New System.IO.StreamWriter("FileTeks.ini", False)
        sw.WriteLine(Enkrip(Server,4))
        sw.WriteLine(Enkrip(UserName,4))
        sr.WriteLine(Enkrip(Pass,4))

        sw.Flush()
        sw.Close()
End Using

这假设输出Enkrip是字符串。或者(因为它是一个ini):

sw.WriteLine("{0} = {1}", "Server", Enkrip(Server,4))
' or
sw.WriteLine("{0} {1}", "Server =", Enkrip(Server,4))

您可能需要明文的“密钥”,以便您可以再次读取它们,而不是加密整行。此外,您可能希望将其全部放在 Try/Catch 中,以便文件名错误或存在权限问题,您可以将其捕获。

另一种选择可能是使用 PInvoke 来使用旧的 Win32 Read/WritePrivateProfileString。

高温高压

于 2013-09-13T13:22:10.587 回答