很好的源程序,适合所有的学生,简单易懂 Private Sub mnuNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuNew.Click Dim userChoose As Integer If rtbEditor.Modified Then userChoose = MsgBox("当前文本已改变,是否保存文件?", _ MsgBoxStyle.YesNoCancel, "Not
进入www.ting88.com的网站,把歌手专辑页面的URL复制到文本框中再提交就可以得到歌曲的下载路径,如:http://www.ting88.com/MusicList/4141.htm 源程序如下: <% on error resume next dim id,url,getCode,m,i,j,s,d,ns,nd,num,name id=trim(request.querystring(“id”)) ‘1.获取原网页所有内容 Function getHTTPPage