F6のデフォルトのイベントがNetworkDialogとなっていたけど、探しても関数がないので作ってみた。
APIを使用するので、sfcMiniを使用。
作者さんがこうやって使ってるかは知らないけど、書いてみました。話題つくり。
ネットワーク接続ダイアログが出ます。
VBは使ったことあるけど、vbsは初めて。
declare使えない、型がVariantのみ、って初めて知った。よい勉強。

'----------------------------------------------------------------------------------
'【ネットワーク接続ダイアログを表示】 キーバインド F6
'----------------------------------------------------------------------------------
sub NetworkDialog()
Dim NetworkDialogBox
Const RESOURCETYPE_DISK = &H1

set NetworkDialogBox = CreateObject("SfcMini.DynaCall")
NetworkDialogBox.Declare "mpr" , "WNetConnectionDialog"
call NetworkDialogBox( 0 , RESOURCETYPE_DISK )
End Sub