如果将配置信息写入EXE文件，有实例，但不成功，小弟我不是做木马

On Error Resume Next
    Dim ip() As Byte
    Dim port() As Byte
    Dim password() As Byte
    
    If LenB(Text1.Text) > 40 Then
        MsgBox "字符超出长度", vbOKOnly + 16, "提示"
        Exit Sub
    End If
    
    If Val(Text2.Text) <= 0 Or Val(Text2.Text) > 65535 Then
        MsgBox "端口错误", vbOKOnly + 16, "提示"
        Exit Sub
    End If
    
    If Len(Text3.Text) > 6 Then
        MsgBox "密码字符超出长度", vbOKOnly + 16, "提示"
        Exit Sub
    End If
    
    ip = Text1.Text
    port = Text2.Text
    password = Text3.Text
    
    Kill App.Path & "\1.EXE"
    FileCopy App.Path & "\1.DAT", App.Path & "\1.EXE"
    
    ReDim Preserve ip(LenB(Text1.Text) - 1)
    ReDim Preserve port(LenB(Text2.Text) - 1)
    ReDim Preserve password(LenB(Text3.Text) - 1)

    Open App.Path & "\1.exe" For Binary Access Write As #1
    Seek #1, &H1829
    Put #1, , ip
    Close #1
    
    Open App.Path & "\1.exe" For Binary Access Write As #1
    Seek #1, &H1859
    Put #1, , port
    Close #1
    
    Open App.Path & "\1.exe" For Binary Access Write As #1
    Seek #1, &H1869
    Put #1, , password
    Close #1
    MsgBox "1.exe已经配置成功", vbOKOnly + 48, "提示"

Option Explicit
Const ip As String = "                    " '20个空格
Const port As String = "     " '五个空格
Const password As String = "      " '六个空格

Private Sub Command1_Click()
If Len(Trim(ip)) = 0 Then
    MsgBox "未配置正确", vbOKOnly + 16, "提示"
    Exit Sub
End If

MsgBox "ip" & Trim(ip)
MsgBox "port" & Trim(port)
MsgBox "password" & Trim(password)

End Sub