UC知道vb如何读取txt的内容作为代码
来源：百度知道 编辑：UC知道 时间：2024/05/16 13:42:55
源码为
Private Sub Command1_Click()
If Len(Me!t1) = 0 And Len(Me!t2) = 0 Then
Timer2.Enabled = False
MsgBox "用户名.密码为空", vbCritical, "error"
Timer2.Enabled = True
Me!t1.SetFocus
ElseIf Len(Me!t1) = 0 Then
Timer2.Enabled = False
MsgBox "用户名为空", vbCritical, "error"
Timer2.Enabled = True
Me!t1.SetFocus
ElseIf Len(Me!t2) = 0 Then
Timer2.Enabled = False
MsgBox "密码为空", vbCritical, "error"
Timer2.Enabled = True
Me!t2.SetFocus
Else
Select Case t1.Text
Case "sdcdwsc"
If t2.Text = 19931022 Then
Timer2.Enabled = False
MsgBox "欢迎"
Shell ("f:\123.cmd")
End
Else
Timer2.Enabled = False
MsgBox "密码错误，退出！", vbCritical, "er
Private Sub Command1_Click()
If Len(Me!t1) = 0 And Len(Me!t2) = 0 Then
Timer2.Enabled = False
MsgBox "用户名.密码为空", vbCritical, "error"
Timer2.Enabled = True
Me!t1.SetFocus
ElseIf Len(Me!t1) = 0 Then
Timer2.Enabled = False
MsgBox "用户名为空", vbCritical, "error"
Timer2.Enabled = True
Me!t1.SetFocus
ElseIf Len(Me!t2) = 0 Then
Timer2.Enabled = False
MsgBox "密码为空", vbCritical, "error"
Timer2.Enabled = True
Me!t2.SetFocus
Else
Select Case t1.Text
Case "sdcdwsc"
If t2.Text = 19931022 Then
Timer2.Enabled = False
MsgBox "欢迎"
Shell ("f:\123.cmd")
End
Else
Timer2.Enabled = False
MsgBox "密码错误，退出！", vbCritical, "er
诚如楼上所说，不编译就运行的代码，只能是脚本，比如你可以在上面case语句中用shell调用wscript带上你的文件名参数运行。
条件是你要先把文件改成一个完整的VBS后缀（实际上也是文本文件）文件,vbs的语法和vb一样，只是比如Timer2.Enabled = False 是不能这样直接实现的了。
但是看你的代码后觉得完全不用如此，你可以建立一个文件放用户/密码，而不用增加一个，就加一个case语句。
帮不上忙，需要一个编译器
好象要创建一个对象叫***script****
楼下继续
改.txt为.vbs然后再……
不能实现,你了解编译器是什么吗?