Q :--怎样在我的程序中实现文件下载

Re:

　　一个例子：一个Command，两个Text 代码如下：

　　　Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long

　　　Private Sub Command1_Click()
　　　Dim sDownload As String
　　　sDownload = StrConv(Text1.Text, vbUnicode)
　　　Call DoFileDownload(sDownload)
　　　End Sub

　　　Private Sub Form_Load()
　　　Text1.Text = "//www.chat.ru/~softdaily/fo-ag162.zip"
　　　Form1.Caption = "Audiograbber 1.62 Full"
　　　Text2.Text = "//www6.50megs.com/audiograbber/demos/cr-ag161.zip"
　　　End Sub

☆Q :--如何在vb中定义一个热键，使得当一个应用程序的窗口最小化后，可以通过热键来唤醒它

Re:

　　先声明API函数SendMessage，然后添加一个按钮和如下代码；

　　　Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVa l hwnd As Long, ByVal_ 　　　wMsg As Long, ByVal wparam As Long, lparam As Any) As Long

　　　Private Sub Command1_Click()
　　　Dim wKey As Long
　　　wKey = 66
　　　X = SendMessage(Me.hwnd, WM_SETHOTKEY, wKey, 0)
　　　MsgBox "B 键将激活窗体！", 64, "定义快捷键"
　　　End Sub

enjoy it!

--转自水木清华BBS