¡¡¡¡Re:
字串1
¡¡¡¡̉»¸öÀư×Ó£º̉»¸öCommand£¬Á½¸öText´úÂëÈçÏ£º 字串4
¡¡¡¡¡¡¡¡¡¡PrivateDeclareFunctionDoFileDownloadLib"shdocvw.dll"(ByVallpszFileAsString)AsLong 字串8
¡¡¡¡¡¡PrivateSubCommand1_Click() 字串9
¡¡¡¡¡¡¡¡¡¡DimsDownloadAsString 字串4
¡¡¡¡¡¡¡¡¡¡sDownload=StrConv(Text1.Text,vbUnicode) 字串1
¡¡¡¡¡¡¡¡¡¡CallDoFileDownload(sDownload) 字串5
¡¡¡¡¡¡¡¡¡¡EndSub
字串2
¡¡¡¡¡¡PrivateSubForm_Load() 字串9
¡¡¡¡¡¡¡¡¡¡Text1.Text="http://www.chat.ru/~softdaily/fo-ag162.zip"
¡¡¡¡¡¡¡¡¡¡Form1.Caption="Audiograbber1.62Full" 字串3
¡¡¡¡¡¡¡¡¡¡Text2.Text="http://www6.50megs.com/audiograbber/demos/cr-ag161.zip" 字串9
¡¡¡¡¡¡¡¡¡¡EndSub 字串3
¡¡¡¡Q:--ÈçºÎÔÚvbÖж¨̉å̉»¸öÈȼü£¬Ê¹µĂµ±̉»¸öÓ¦ÓĂ³̀Đ̣µÄ´°¿Ú×îĐ¡»¯ºó£¬¿É̉Ôͨ¹ưÈȼüÀ´»½ĐÑËü
字串9
¡¡¡¡Re: 字串5
¡¡¡¡ÏÈÉùĂ÷APIº¯ÊưSendMessage£¬È»ºó̀í¼Ó̉»¸ö°´Å¥ºÍÈçÏ´úÂ룻
¡¡¡¡¡¡¡¡¡¡PrivateDeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhwndAsLong,ByVal_¡¡¡¡¡¡wMsgAsLong,ByValwparamAsLong,lparamAsAny)AsLong
¡¡¡¡¡¡PrivateSubCommand1_Click()
字串2
¡¡¡¡¡¡¡¡¡¡DimwKeyAsLong
字串9
¡¡¡¡¡¡¡¡¡¡wKey=66 字串8
¡¡¡¡¡¡¡¡¡¡X=SendMessage(Me.hwnd,WM_SETHOTKEY,wKey,0)
字串7
¡¡¡¡¡¡¡¡¡¡MsgBox"B¼ü½«¼¤»î´°̀壡",64,"¶¨̉å¿́½Ư¼ü" 字串6
¡¡¡¡¡¡¡¡¡¡EndSub 字串2
¡¡¡¡
¡¡¡¡enjoyit! 字串8
->字串6