求助:用VB查看网页源代码
求助:用VB查看网页源代码的程序. 在Text2里面显示Text1里面指网页的源代码. 请问程序怎么写? 谢谢!
Private Declare Function InternetOpen Lib "wininet。dll" Alias "InternetOpenA" ( _ ByVal sAgent As String, ByVal lAccessType As Long, _ Private Declare Function InternetOpenUrl Lib "wininet。
dll" Alias "InternetOpenUrlA" ( _ ByVal hInternetSession As Long, ByVal sUrl As String, _ ByVal sHeaders As String, ByVal lHeadersLength As Long, _ ByVal lFlags As Long, ByVal lContext As Long) As Long Private Declare Function InternetReadFile Lib "wininet。
dll" ( _ ByVal hFile As Long, ByVal sBuffer As String, _ ByVal lNumBytesToRead As Long, _ lNumberOfBytesRead As Long) As Integer Public Function GetUrlFile(stUrl As String) As String Dim lgInternet As Long, lgSession As Long Dim stBuf As String * 1024 Dim inRes As Integer Dim lgRet As Long Dim stTotal As String stTotal = vbNullString lgSession = InternetOpen("VBTagEdit", 1, vbNullString, vbNullString, 0) DoEvents If lgSession Then lgInternet = InternetOpenUrl(lgSession, stUrl, vbNullString, _ 0, INTERNET_FLAG_NO_CACHE_WRITE, 0) If lgInternet Then Do inRes = InternetReadFile(lgInternet, stBuf, 1024, lgRet) stTotal = stTotal & StrConv(LeftB$(StrConv(stBuf, vbFromUnicode), lgRet), vbUnicode) Loop While (lgRet <> 0) End If inRes = InternetCloseHandle(lgInternet) End If GetUrlFile = stTotal End Function Private Sub Command1_Click() Text2。
text=GetUrlFile(Text1。text) End Sub 自己测试了一下,顺便把源码给你。
答:Private Sub Command1_Click() WB1.Navigate Text1 End Sub Private Sub Command2_Cli...详情>>
答:线性链表分好几种,分为单链,双链等,它们的存储顺序也不一样. 线性表是顺序存储的,占顺序的存储空间详情>>
问:电脑安装了VB6.0,为什么打开方式里面没有VB程序选项,进安装好的VB里去关联...
答:打开方式最下面还有一个《选择程序》,点开后查VB的安装目录的EXE,找到后直接打开,下次就会在打开方式里查到了详情>>