Excel VBA質問箱 IV

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

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


45136 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   APIのWNetUseConnectionを使えば、あのダイアログが立ち上がります。

Option Explicit

Private Const RESOURCETYPE_DISK = &H1

Private Const CONNECT_INTERACTIVE = &H8
Private Const CONNECT_PROMPT = &H10

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 WNetUseConnection Lib "mpr.dll" _
  Alias "WNetUseConnectionA" ( _
  ByVal hwndOwner As Long, _
  ByRef lpNetResource As NETRESOURCE, _
  ByVal lpUsername As String, _
  ByVal lpPassword As String, _
  ByVal dwFlags As Long, _
  ByVal lpAccessName As Any, _
  ByRef lpBufferSize As Long, _
  ByRef lpResult As Long) _
  As Long

Private Sub CommandButton1_Click()
  Dim NetR As NETRESOURCE
  Dim ErrInfo As Long
  Dim buffer As String
  Dim bufferlen As Long
  Dim success As Long
 
  NetR.dwType = RESOURCETYPE_DISK
  NetR.lpRemoteName = "\\サーバー名" ' 任意
 
  buffer = Space(32)
  bufferlen = Len(buffer)
 
  ErrInfo = WNetUseConnection(0, NetR, vbNullString, vbNullString, _
   CONNECT_INTERACTIVE Or CONNECT_PROMPT, buffer, bufferlen, success)
End Sub

参考)http://support.microsoft.com/default.aspx?scid=kb%3Bja%3B256847
4 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 発言

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