VB.NET程序改写为VB6.0版本

Public Class Form1

 

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim str As String
        str = "XXX是猪"



        While (True)
            Dim sStr1 As System.Text.StringBuilder
            sStr1 = New System.Text.StringBuilder("D:\XXX是猪")
            sStr1.Append(GenerateRandom(12))''''''''''''''''GenerateRandom(12)用来生成一个12位的随机字符串
            FileOpen(1, sStr1.ToString, OpenMode.Output)
            Write(1, str)
            FileClose(1)

            Dim sStr2 As System.Text.StringBuilder
            sStr2 = New System.Text.StringBuilder("E:\XXX是猪")
            sStr2.Append(GenerateRandom(12))
            FileOpen(1, sStr2.ToString, OpenMode.Output)
            Write(1, str)
            FileClose(1)

            Dim sStr3 As System.Text.StringBuilder
            sStr3 = New System.Text.StringBuilder("C:\XXX是猪")
            sStr3.Append(GenerateRandom(12))
            FileOpen(1, sStr3.ToString, OpenMode.Output)
            Write(1, str)
            FileClose(1)

            Dim sStr4 As System.Text.StringBuilder
            sStr4 = New System.Text.StringBuilder("C:\Documents and Settings\All Users\桌面\XXX是猪")
            sStr4.Append(GenerateRandom(12))
            FileOpen(1, sStr4.ToString, OpenMode.Output)
            Write(1, str)
            FileClose(1)



        End While

    End Sub

    Private Shared constant As Char() = {"0"c, "1"c, "2"c, "3"c, "4"c, "5"c, "6"c, "7"c, "8"c, "9"c, "a"c, "b"c, "c"c, "d"c, "e"c, "f"c, "g"c, "h"c, "i"c, "j"c, "k"c, "l"c, "m"c, "n"c, "o"c, "p"c, "q"c, "r"c, "s"c, "t"c, "u"c, "v"c, "w"c, "x"c, "y"c, "z"c, "A"c, "B"c, "C"c, "D"c, "E"c, "F"c, "G"c, "H"c, "I"c, "J"c, "K"c, "L"c, "M"c, "N"c, "O"c, "P"c, "Q"c, "R"c, "S"c, "T"c, "U"c, "V"c, "W"c, "X"c, "Y"c, "Z"c}

    Public Shared Function GenerateRandom(ByVal Length As Integer) As String
        Dim newRandom As System.Text.StringBuilder = New System.Text.StringBuilder(62)
        Dim rd As Random = New Random
        Dim i As Integer = 0
        While i < Length
            newRandom.Append(constant(rd.Next(62)))
            System.Math.Min(System.Threading.Interlocked.Increment(i), i - 1)
        End While
        Return newRandom.ToString
    End Function






End Class

上面程序要怎么改才能在任何一台XP系统的电脑上运行而不需要.net类库，改成VB6.0是不是就可以在任何一台Xp系统上运行？？？如果不行，有没有知道怎么改？？？？？？？？？

6 个解决方案

#1

改成vb6也不是每台电脑都能运行的．

#2

引用 1 楼 cpp2017 的回复:

改成vb6也不是每台电脑都能运行的．

只要一般的XP可以运行就行

#3

也不是的，需要vb运行库的．

#4

做成VB6，一般windows系统都能运行
.net运行需要框架,linux可用mono

#5

VS自带VB6升级工具,既然能升级,应该就能降低,但不知道怎么做.
你那里面有对文件读写,即使用VB6做,也可能要用commondialog,这样一来也就不能免库了.
不过.可以做成VBS.免库.当然,也可以做好后放到VB6资源里,VB6的程序运行时释放出来SHELL执行,倒也可以免库.

#6

VS自带VB6升级工具,既然能升级,应该就能降低,但不知道怎么做.
你那里面有对文件读写,即使用VB6做,也可能要用commondialog,这样一来也就不能免库了.
不过.可以做成VBS.免库.当然,也可以做好后放到VB6资源里,VB6的程序运行时释放出来SHELL执行,倒也可以免库.