WNetAddConnection2を使用しサーバー接続をするには

解決


中年初級PG  2010-08-10 02:03:56  No: 147023

VB掲示版からの移動です。
魔界の仮面弁士様からの指摘により以下の用に修正をしましたが戻り値「1219」のままです。
ここから----------------
    Public Declare Unicode Function WNetAddConnection2 Lib "mpr.dll" Alias "WNetAddConnection2A" (ByRef lpNetResource As NETRESOURCE, ByVal lpPassword As String, ByVal lpUserName As String, ByVal dwFlags As Integer) As Integer
    '
    Private Const RESOURCE_CONNECTED As Integer = &H1
    Private Const RESOURCETYPE_ANY As Integer = &H0
    Private Const RESOURCEDISPLAYTYPE_SHARE As Integer = &H3
    Private Const CONNECT_UPDATE_PROFILE As Integer = &H1
    '
    <StructLayout(LayoutKind.Sequential)> _
    Public Structure NETRESOURCE
        Public dwScope As Integer
        Public dwType As Integer
        Public dwDisplayType As Integer
        Public dwUsage As Integer
        Public lpLocalName As String
        Public lpRemoteName As String
        Public lpComment As String
        Public lpProvider As String
    End Structure
ここまで--------------------------------
2〜3年前のシステムを未知識の上に引き継いだため難儀しています。
戻り値=0にするためのご教授をお願いします。
以上


魔界の仮面弁士  2010-08-10 04:04:24  No: 147024

> VB掲示版からの移動です。
この質問内容だと、移動元を見ていない人には何の事だか
伝わりにくいと思いますよ。

移動元が示されていないので、リンクしておきます。
http://madia.world.coocan.jp/cgi-bin/VBBBS/wwwlng.cgi?print+201008/10080005.txt

> 指摘により以下の用に修正をしましたが
「用」→「様」

修正結果が悪化しています。
「Unicode Function」なのに、ANSI バージョンの Alias を付けてはいけません。
Alias 句を除外するか、Alias 句を WNetAddConnection2W に変更しておいてください。

> <StructLayout(LayoutKind.Sequential)> _
CharSet も明示した方が良いですよ。

> 戻り値「1219」のままです。
先の投稿にも回答しましたが、単純に、
ERROR_SESSION_CREDENTIAL_CONFLICT だからでは無いでしょうか?

つまり、「既存の接続と違う名前を指定している」か、あるいは
「既存の接続と同じ名前を指定したつもりだが、Unicode/ANSI 指定の
  誤りなどが原因で、実際には違う文字列として扱われてしまっている」
のいずれかだと思います。

> 戻り値=0にするためのご教授をお願いします。
http://www.tt.rim.or.jp/~rudyard/torii009.html
NET USE コマンドを用いて、既存の接続をすべて /DELETE してから
再度試してみては如何でしょう。


中年初級PG  2010-08-10 20:52:22  No: 147025

魔界の仮面弁士様。誤字の指摘とリンク設定ありがとうございました。
原因判明しました。
接続先フォルダーがネットワークのドライブ割り当てされていました。
ドライブ割り当てを解除し、以下のように指摘箇所を修正した後、
実行したところリターンコード=0になりました。
ここから-------------
    Public Declare Unicode Function WNetAddConnection2 Lib "mpr.dll" Alias "WNetAddConnection2W" (ByRef lpNetResource As NETRESOURCE, ByVal lpPassword As String, ByVal lpUserName As String, ByVal dwFlags As Integer) As Integer
    '
    Private Const RESOURCE_CONNECTED As Integer = &H1
    Private Const RESOURCETYPE_ANY As Integer = &H0
    Private Const RESOURCEDISPLAYTYPE_SHARE As Integer = &H3
    Private Const CONNECT_UPDATE_PROFILE As Integer = &H1
    '
    <StructLayout(LayoutKind.Sequential, CharSet:=System.Runtime.InteropServices.CharSet.Unicode)> _
    Public Structure NETRESOURCE
        Public dwScope As Integer
        Public dwType As Integer
        Public dwDisplayType As Integer
        Public dwUsage As Integer
        Public lpLocalName As String
        Public lpRemoteName As String
        Public lpComment As String
        Public lpProvider As String
    End Structure
ここまで-------------------
魔界の仮面弁士様ほんとうにありがとうございました。感謝・感謝です。
また次回難儀することがありましたら質問させて頂きたいと思います。
そのときは誤字脱字/書込み板等迷惑をかけないように心がけますので
よろしくお願いします。
以上


三木谷浩  2010-08-12 02:25:50  No: 147026

ぷっ。
ほんまかいな。


松井  2010-08-13 06:41:41  No: 147027

>ぷっ。
>ほんまかいな
こいつは誰だ?
こいつを侮辱罪で告訴したほうがいい。


三木谷浩  2010-08-13 07:32:15  No: 147028

松井>あいかわらず入門者か?
ん?あはは、10年もVBやっていて入門者とはな。
これはコレでスゴイもんがある。

水戸黄門の歌

「後か〜ら♪き〜た〜のに、お〜い越され〜♪」
!!泣くの〜が、いやなら、さ〜あ、アル〜ケ〜♪ケケケ」

VBなんぞは朝飯前だろ?

簡単じゃのぉ〜。

ゲームはランクが高いぞ。

業務用のアプリなんぞは、猿でもつくれる。
↑人材があふれてるんで給料も安いし待遇も悪い。
ゲームは難易度が高いんで給料も高いらしいよ。

ぼく、ゲームは得意なんで、簡単につくれます。


松井  2010-08-13 22:13:11  No: 147029

縁なき衆生は救いがたし

この人はかなりいい歳なんじゃないかな

この不況でおかしくなってるのかいな

おっさん、がんばってよ
つらいのはあんただけじゃないんだよ。


三木谷浩  2010-08-14 05:07:22  No: 147030

松井>働け。ぷっ。
How do you sleep?


松井  2010-08-15 04:22:13  No: 147031

三木谷浩くん>
三丁目の夕日、手紙などの心を打つ映画をたくさん見て
本来のあなた自身に戻られること何より願っています
誰もあなたを責めてはいませんよ
あなたはあなた自身そのままでいいのですよ。

あなたの存在のそのものが大切にされているのですから。
あなたを否定しているのは、もしかしたらあなた自身なのかもしれません
あなたが幸せな人生を歩むことができるように心よりお祈りします


三木谷浩  2010-08-15 07:09:21  No: 147032

そんな話より、VBは上達したか?
子供時代に勉強をマッタクしてないだろ?
ま、VBやらソノ他のコム語は無理だぞ。
とゆうか、しばらくネットから離れた方がよい。
ネット依存がヒドイように思えます。

オレ様のプログラムは面白いだろ?タダだしな。

言ったろ?ゲームのプログラムはオレしか書いてくれないぞ。

タダだしな。


もものき  2010-08-15 20:48:16  No: 147033

ま、まさか年金受給者がネットでうさを晴らしてる
なんてことはないですよね。
ちなみに上級の実力を有する人は、ご自分で上級者とは名のりませんね。
これ社会的常識
常識をおぼえるには本を買ってたくさん読むこと
10冊は買って読みましょうね


匿名  2010-08-16 04:40:16  No: 147034

もものき>>キチ外はどうにもならんな。


てづか  2010-08-16 16:30:38  No: 147035

>三木谷浩 2010/08/14(土) 22:09:21 <上級者> 
 書込者ID:[ ""  ]
>匿名 2010/08/15(日) 19:40:16 <上級者> 
 書込者ID:[ "" bsp;]
>もものき>>キチ外はどうにもならんな
いい歳をしてガキのらくがきのようなことはやめましょうぜ。


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加