Код

'
Dim Wrapper
Sub Configurator_AllPluginsInit()
	SendCommand 33205
End Sub
Sub Configurator_OnMsgBox(Text, Style, DefAnswer, Answer)
	message Text
	Answer = DefAnswer
End Sub
Sub Configurator_OnDoModal(Hwnd, Caption, Answer)
	message Caption
	'это путь к файлу загрузки
	Wrapper.SetDlgItemTextA Hwnd, 6248, "d:\desktop\qwerty.zip"
	'это пароль
	Wrapper.SetDlgItemTextA Hwnd, 24862, "dfg"
	Answer = mbaOK
End Sub
Private Sub Init()
	set Wrapper = CreateObject("DynamicWrapper")
	Wrapper.Register "USER32.DLL", "SetDlgItemTextA",   "I=lls", "f=s", "r=l"
End Sub
Sub Test()
	SendCommand 33205
End Sub
Init()