2000,代码实现登录别人机器

[warlord]

知道对方的用户名和密码。
Private Declare Function NetUserLogon Lib "Advapi32.dll" Alias "LogonUserA" (ByVal lpszUsername As String, ByVal lpszDomain As Any, ByVal lpszPassword As String, ByVal dwLogonType As Long, ByVal dwLogonProvider As Long, phToken As Long) As Long
用此函数登录不上。

[excuseser]

对方开了什么服务了？telnet?3389?.....

[warlord]

就是想实现和从网上邻居登录的效果一样。

[warlord]

要是不要对话框呢？

[warlord]

rainstormmaster(暴风雨 v2.0):

局域网内连不上。

[warlord]

在局域网中登录没有问题，但在VB6用这个API却联接不上。
谁能给个例子？

[rainstormmaster]

Option Explicit
Private Declare Function NetUserLogon Lib "Advapi32" Alias "LogonUserA" (ByVal lpszUsername As String, ByVal lpszDomain As Any, ByVal lpszPassword As String, ByVal dwLogonType As Long, ByVal dwLogonProvider As Long, phToken As Long) As Long
' ---------------------------------------------
' Constants used by LogonUser
' ---------------------------------------------'
Private Const LOGON32_PROVIDER_DEFAULT As Long = 0&
Private Const LOGON32_LOGON_NETWORK As Long = 3&
'Private Const LOGON32_PROVIDER_WINNT35 As Long = 1&
'Private Const LOGON32_LOGON_INTERACTIVE As Long = 2&
'Private Const LOGON32_LOGON_BATCH As Long = 4&
'Private Const LOGON32_LOGON_SERVICE As Long = 5&

' Works on Win 95 & NT
Public Function Login2(ByVal UserName As String, ByVal Password As String, ByVal Domain As String) As Boolean

On Error Resume Next ' Don't accept errors here
Dim p_lngToken As Long
Dim p_lngRtn As Long
p_lngRtn = NetUserLogon(UserName, Domain, Password, LOGON32_LOGON_NETWORK, LOGON32_PROVIDER_DEFAULT, p_lngToken)
If p_lngRtn = 0 Then
Login2 = False
Else
Login2 = True
End If
On Error GoTo 0
End Function

Private Sub Command1_Click()
MsgBox Login2("mc", "2223asas", "\\192.168.6.4")
End Sub

[hhjjhjhj]

shell "net use \\机名 密码 /user:用户"

[yassee]

Shell "explorer \\server\e$\Program Files", vbNormalFocus

[warlord]

唉，总是返回FALSE，结帖吧。