Excel VBA質問箱 IV

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

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


45138 / 76732 ←次へ | 前へ→

【36597】Re:サーバーにアクセスする時に、パスワードを問い合わせるダイアログを出すには?
発言  JuJu  - 06/4/5(水) 10:46 -

引用なし
パスワード
   エクスプローラなどが表示するネットワークパス入力ダイアログは、Windows標準で実装されておりまして、
WNetAddConnection3などのAPIを使用することによって実現できます。

WNetAddConnection3を使ったサンプルはよく見かけますが、
パスワード入力の付きのサンプルはあまり見かけないようですので、手短に...

-------- 8< -------- 8= -------- 8< -------- 8= -------- 8< --------

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 udtResource
    .dwType = RESOURCETYPE_ANY
    .lpLocalName = vbNullString
    .lpRemoteName = "\\ComputerName"
    .lpProvider = vbNullString
  End With
  lngRet = WNetAddConnection3(0&, udtResource, vbNullString, vbNullString, CONNECT_INTERACTIVE)
  If lngRet = 0 Then
    ' 接続成功
  End If
End Sub

-------- 8< -------- 8= -------- 8< -------- 8= -------- 8< --------

エラー処理とかhWndOwnerの指定はしていないので、使用する状況によっては注意。

ではではぁ
5 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 発言

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