UC知道直接生成EXE文件，在本机能正常运行，复制到别人机子时就不能正常了！
来源：百度知道 编辑：UC知道 时间：2024/05/28 19:19:37
本人编了个小程序，当中调用了系统时间函数，生成EXE文件可以运行且正常，但直接复制（没打包）到别人的机子时就不能正常显示。是不是到别人机子时就缺少了什么。比如函数，控件之类。是不是没打包的原因？还有怎么打包？打包之后安装能随处运行是什么原理？
源代码如下：
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Dim NameStr As String
Private Sub cmdA_Click()
Dim S$
Dim sz&
Dim dl$
S$ = String$(16, " ")
dl$ = GetComputerName(S$, 16)
Dim Cname As String '通信机名称
Dim CurrentTime As String
Cname = LCase(S$)
CurrentTime = Space(3) & "(" & Str(Hour(Time)) & ":" & Str(Minute(Time)) & ":" & Str(Second(Time)) & ")" & Chr(10)
If NameStr <> "" Then
txtoutput.Text = txtoutput.Text & txtsend.Text & CurrentTime & vbCrLf
UDPA.SendData Cname
UDPA.SendData CurrentTime
UDPA.SendData Space(2) & txtsend.Text
txtsend.Text = ""
Else: Ms
源代码如下：
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Dim NameStr As String
Private Sub cmdA_Click()
Dim S$
Dim sz&
Dim dl$
S$ = String$(16, " ")
dl$ = GetComputerName(S$, 16)
Dim Cname As String '通信机名称
Dim CurrentTime As String
Cname = LCase(S$)
CurrentTime = Space(3) & "(" & Str(Hour(Time)) & ":" & Str(Minute(Time)) & ":" & Str(Second(Time)) & ")" & Chr(10)
If NameStr <> "" Then
txtoutput.Text = txtoutput.Text & txtsend.Text & CurrentTime & vbCrLf
UDPA.SendData Cname
UDPA.SendData CurrentTime
UDPA.SendData Space(2) & txtsend.Text
txtsend.Text = ""
Else: Ms
你的机子有运行环境，而别人的没有（比如说编译运行环境），所以有这种情况出现，你可以考虑把运行环境也打包进去，或是让别人在机子上安装运行环境（例如JAVA的许多小应用程序需要的JDK&JRE等等），并设置环境变量，应该就没问题了～
根据你的代码，我想你用的应该是VB吧，对于VB来说你可以用自带的发布工具就可以了。
如果想做更专业的，你可以用setup factory好像是这个软件吧