Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


44869 / 76732 ←次へ | 前へ→

【36872】Re:みなさんありがとうございました。
発言  Jaka  - 06/4/17(月) 10:53 -

引用なし
パスワード
   ▼カド さん:
>残念ながら色々簡単に試せる状況になく、今回は諦めます。
どういうう風に試していたのか解りませんが、JuJuさんの方法で出来ませんでしたか?
JuJuさんのを勝手にいじってみました。

Private Type NETRESOURCE
  dwScope As Long
  dwType As Long
  dwDisplayType As Long
  dwUsage As Long
  lpLocalName As String
  lpRemoteName As String
  lpComment As String
  lpProvider As String
End Type
Private Declare Function WNetAddConnection3 Lib "mpr.dll" Alias "WNetAddConnection3A" (ByVal hWndOwner As Long, lpNetResource As NETRESOURCE, ByVal lpPassword As String, ByVal lpUserName As String, ByVal dwFlags As Long) As Long
Private Const RESOURCETYPE_ANY = 0&
Private Const CONNECT_INTERACTIVE = &H8

Sub hoge()
  Dim udtResource As NETRESOURCE
  Dim lngRet As Long
  
  With Worksheets("Sheet1").OLEObjects("ComboBox1").Object
     If .ListIndex >= 0 Then
      CpmNam = .List(.ListIndex)
     Else
      MsgBox "コンボボックスで選択"
      End
     End If
  End With
  
  With udtResource
    .dwType = RESOURCETYPE_ANY
    .lpLocalName = vbNullString
    .lpRemoteName = CpmNam '"\\ComputerName"
    .lpProvider = vbNullString
  End With

  '一応ログイン名とパスワード
  SendKeys CreateObject("WScript.Network").UserName
  'SendKeys "({Tab})"  '必要に応じて
  'SendKeys "パスワード" ' 同じ
  
  '無理やりSendKeys..。
  '私の所では、これだけで何もせず直に入れました。
  'そちらのログインの許可状況?っていうのかが、わかっていませんが...。
  SendKeys "({ENTER})"
  
  lngRet = WNetAddConnection3(0&, udtResource, vbNullString, vbNullString, CONNECT_INTERACTIVE)
  If lngRet = 0 Then
    MsgBox "接続成功"
  Else
    MsgBox "失敗"
  End If
End Sub

0 hits

【36579】サーバーにアクセスする時に、パスワードを問い合わせるダイアログを出すに... カド 06/4/4(火) 13:29 質問
【36586】Re:サーバーにアクセスする時に、パスワー... Jaka 06/4/4(火) 17:35 発言
【36589】Re:サーバーにアクセスする時に、パスワー... カド 06/4/4(火) 18:22 お礼
【36594】Re:サーバーにアクセスする時に、パスワー... Jaka 06/4/5(水) 9:23 発言
【36596】Re:サーバーにアクセスする時に、パスワ... 小僧 06/4/5(水) 10:09 発言
【36597】Re:サーバーにアクセスする時に、パスワー... JuJu 06/4/5(水) 10:46 発言
【36607】Re:サーバーにアクセスする時に、パスワー... Jaka 06/4/5(水) 12:19 発言
【36599】Re:サーバーにアクセスする時に、パスワー... Blue 06/4/5(水) 10:53 回答
【36851】みなさんありがとうございました。 カド 06/4/15(土) 18:38 お礼
【36872】Re:みなさんありがとうございました。 Jaka 06/4/17(月) 10:53 発言

44869 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free