Gem/åben filer fra internettet!

prøv noget i stil af denne kode, husk blot at ændre filerne til at være dem du skal bruge:

Private Type TGUID
  Data1 As Long
  Data2 As Integer
  Data3 As Integer
  Data4(0 To 7) As Byte
End Type

Private Declare Function OleLoadPicturePath Lib \"oleaut32.dll\" (ByVal _
                szURLorPath As Long, ByVal punkCaller As Long, ByVal _
                dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef _
                riid As TGUID, ByRef ppvRet As IPicture) As Long

Public Function LoadPicture(ByVal strFileName As String) As Picture
Dim IID  As TGUID

  With IID
    .Data1 = &H7BF80980
    .Data2 = &HBF32
    .Data3 = &H101A
    .Data4(0) = &H8B
    .Data4(1) = &HBB
    .Data4(2) = &H0
    .Data4(3) = &HAA
    .Data4(4) = &H0
    .Data4(5) = &H30
    .Data4(6) = &HC
    .Data4(7) = &HAB
  End With

On Error GoTo ERR_LINE
  OleLoadPicturePath StrPtr(strFileName), 0&, 0&, 0&, IID, LoadPicture
Exit Function
ERR_LINE:
  Set LoadPicture = VB.LoadPicture(strFileName)
End Function

Private Sub Form_Load()
  Set Me.Picture = LoadPicture(\"http://www.eksperten.dk/images/elogo.gif\")
End Sub

du kan bruge \"URLDownloadToFile\" til at hente din fil.

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)
  URLDownloadToFile 0, URL, LocalFilename, 0, 0
End Function

Private Sub Form_Load()
  DownloadFile \"http://www.etellerandet.dk/filen.txt\", \"c:\\filen.txt\"
End Sub

Det ser meget rigtigt ud, men jeg kan ikke teste det før i aften.

Det jeg skal bruge det til er faktisk at lave en chat!

hvis du skal bruge det til pjat... øøhhh chat... så lav det med en fast winsock forbindelse... det er meget bedre og sikre...

Hvordan gemmer man filen??

funk.. det er et godt spørgsmål.. jeg det er ikke nødvendigt hvis du bruger winsock... jeg har et chat program jeg selv har lavet der kører over ws. Hvis du har et sted jeg kan uploade det... så kan jeg uploade det...

Okay så send det til:

rasmuss.jubiimail.dk

, men det skal gemme filerne på hjemmesiden!!

> Magic Star <

OK!!!

Undskyld mig alle sammen jeg har været væk fra internettet i meget lang tid, men nu tjekker jeg min mail!.

rasmuss er en fusker.

http://www.eksperten.dk/spm/157611
http://www.eksperten.dk/spm/158267