none
不用winsock控件直接用代码连接到其它计算机的方法,讲高手指点! RRS feed

  • 问题

  • 我想用VB写一个连到其它计算机上的脚本,但是不知道用户名和密码怎么写进去!比如:
    Private Sub Command1_Click()
        Dim ServerAddress As String
        Dim LPath As String
        Dim Users As String
        Dim Password As String
      If FWQLJ.Text1.Text = "" Then
        MsgBox "服务器地址不能为空!", vbOKOnly + vbExclamation, ""
        Exit Sub
      End If
      If FWQLJ.Text1.Text <> "Pxzx-sv01" Then  '如果不等于这个服务器名称报错
        MsgBox "你输入的服务器地址有错,请重新输入!", vbOKOnly + vbExclamation, ""
        Text1.SetFocus
        Exit Sub
      End If
      ServerAddress = "\\" + FWQLJ.Text1.Text + "\"  '设置服务器地址!如果有用户名和密码需要怎样去写代码!有没有办法可以判断我已经连到了那台服务器上!但是不能用winsock的方式写代码,请教哪位高手来解决一下!
      FWQLJ.Text2.Text = ServerAddress
      Form1.Show
      Form1.Text1.Text = ServerAddress
      LPath = "*\*\"    '路径
      Form1.Text2.Text = LPath
    End Sub

    2008年8月19日 14:03

答案