Hur kodar jag i VB en applikation som tar in en URL från användaren och sparar sedan ner sourcen automatiskt i en .txt fil?

Henrik

Kan detta vara not?

Getcode

http://www.pellesoft.se/login/upload/t_view4.asp?tid=228

såg att det var mitt program, källkoden är inte med så den hjälper nog inte speciellt mycket tyvärr

Hej,

Har endast flyktigt checkat din fråga, men ta bort det du inte behöver och testa:

Sub OpenSource()
On Error GoTo Error
MousePointer = vbHourglass
If txtString.Visible = False Then
tbToolBar.Buttons.Item(15).ToolTipText = "Klicka för att stänga textbox"
txtString.Visible = True
txtString.Text = GetUrlSource(cboAddress.Text)
tbToolBar.Buttons.Item(15).Image = imlToolbarIcons.ListImages.Item(12).Key
Else:
txtString.Text = " "
txtString.Visible = False
tbToolBar.Buttons.Item(15).Image = imlToolbarIcons.ListImages.Item(13).Key
tbToolBar.Buttons.Item(15).ToolTipText = "Klicka för att öppna Html-kod"
End If
MousePointer = vbNormal
Exit Sub
Error:
MousePointer = vbNormal
MsgBox "Kan inte öppna filen!", vbExclamation, App.Title
End Sub


Sub Spara()
On Error GoTo Error
If txtString.Visible = False Then
brwWebBrowser.Document.execCommand "SaveAs", False, sText
Else:
With CommonDialog1
.FLAGS = &H2
.Filter = "Text filer (*.txt)|*.txt"
.FileName = ""
.ShowSave
If .FileName = "" Then Exit Sub
If Not Right$(.FileName, 4) = "." Then .FileName = .FileName & ".txt"
txtString.SaveFile .FileName
End With
End If
Exit Sub
Error:
MsgBox "Kan ej spara filen!", vbExclamation, App.Title
End Sub

<code>
'Lägg till en kommandoknapp med namnet Command1
'Lägg till Microsoft Internet Transfer Control 6.0 (SP4) på formuläret
Option Explicit

Private Sub Command1_Click()
Dim strData As String
If Not Inet1.StillExecuting Then
strData = Inet1.OpenURL("www.pellesoft.se")
WriteFile "C:\TestUrl.txt", strData
MsgBox "Klar"
End If
End Sub

Private Sub WriteFile(FilePath As String, strData As String)
Dim intFilNr as Integer
intFilNr = FreeFile
Open FilePath For Output As intFilNr
Print #intFilNr, strData
Close #intFilNr
End Sub

</code>

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

Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function

Private Sub Form_Load()
'example by Matthew Gates (Puff0rz@hotmail.com)
DownloadFile "http://www.allapi.net", "c:\allapi.htm"
End Sub

(kopierat direkt från API-Guide)

onödigt att använda krångliga dll-filer när man kan använda Internet Transfer Control som Knoton visade ovan.