VB查看源文件并以记事本打开

如题!

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Sub Command1_Click()
url = InputBox("请输入网页地址:", "查看源文件", "http://zhidao.baidu.com/question/44356139.html")
If Len(url) Then
tmp = Environ("TMP") & "\" & Format(Now, "YYMMDDHHMMSS")
URLDownloadToFile 0, url, tmp, 0, 0
Shell "notepad.exe " & tmp, vbNormalFocus
End If
End Sub
温馨提示:答案为网友推荐,仅供参考
第1个回答  2008-01-22
在VB原代码中找到要打开的单元文件,右键--打开方式--记事本
第2个回答  2008-01-22
<!--STATUS OK-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title>VB查看源文件并以记事本打开_百度知道 </title><link rel="alternate" type="application/rss+xml" title="“VB查看源文件并以记事本打开”的最新回答(RSS 2.0)" href="http://zhidao.baidu.com/q?ct=20&qid=44356139&pn=65535&rn=25&tn=rssqb">
<link href="/iknow1_1.css" rel="stylesheet" type="text/css">

<style>.cpro table{margin:auto}.cpro{ text-align:center;float:auto;}.mr20{margin-right:20px;}.note{background:url(https://gss0.bdstatic.com/70cFsjip0QIZ8tyhnq/img/iknow/popo.gif) no-repeat left; margin:12px 0;padding-left:20px;font-weight:bold;}
.answer1,.answer2,.answer3{background:url(https://gss0.bdstatic.com/70cFsjip0QIZ8tyhnq/img/iknow/answer.gif) no-repeat;width:100px;height:25px;overflow:hidden}
.answer1{background-position:0 0}
.answer2{background-position:0 -25px}
.answer3{background-position:0 -50px}
第3个回答  2008-01-23
打开记事本 把需要查看的代码 如 test.cls 拖进去 看
第4个回答  2008-01-22
问题描述不清