Print #1, "[": now:"]":"用户名：": text1.Text
这行语句提示错误，但我不知道如何修改成正确语句，求指教

Print #1, "[" & now & "]用户名：" & text1.Text

二楼正解
基础的东西要学好啊，这个只是简单的字符串基本操作

修改后语句没问题，但运行后错误，我把所有代码发出来，帮我看一下。

Private Sub Command1_Click()
Open "d:\sys.ini" For Append As #1
Print #1, "[" & Now&; "]用户名：" & Text1.Text, "密码：": Text2.Text , "来源于：": winsock1.localip
 Print #1,
Close #1

End Sub

Private Sub Command2_Click()
Unload Me
End Sub

我目的是想，当运行程序后，输入用户名和密码后会记录登陆时间，用户名，密码，ip地址，请问如何修改？

看来你对变量的使用比较生疏，其实使用变量对你对程序有好处。

Private Sub Command1_Click()
Dim NW As String, YHM As String, MM As String, IPL As String    '声明四个字符变量
NW = "[" & Now & "]"    '变量NW存储日期时间
YHM = "用户名：" & Text1.Text   '变量YHM存储用户名
MM = "密码：" & Text2.Text    '变量MM存储密码
IPL = "来源于：" & Winsock1.LocalIP    '变量IPL存储用户的IP地址
Open "d:\sys.ini" For Append As #1
Write #1, NW, YHM, MM, IPL       '   每次将四个变量值写入一个记录中，注意是追加记录，就是在原来记录的后面写入记录
Close #1
'注意 ：Write是写入记录，Input 是读取记录，Pirnt 是打印记录内容
Open "d:\sys.ini" For Input As #1
Do While Not EOF(1)
Input #1, X, Y, X, W   '读取记录到变量，最笨的读取最后一条记录的方法
Loop
Label1.Caption = X & Space(3) & Y & Space(3) & Z & Space(3) & W  '在标签中显示出来
End Sub

看看，代码不是特别难懂吧。

运行后，显示错误

运行后，显示错误

 Print #1, "[" & now & "]用户名：" & text1.Text

???

显示错误，没有说什么错误，你不能多说二句吗？