Opslag på internettet

Option Explicit

' du skal bruge 5 TextBoxe (txtNavn, txtPostNr, txtBy, txtAdresse, txtTelefon) og en CommandButton (Command1) så kan du nok klare det

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
Dim strUrl As String
  strUrl = "http://www.degulesider.dk/vbw/super/resultat.do?compTrade=" & txtNavn.Text & _
                                                            "&compZip=" & txtPostNr.Text & _
                                                            "&compCity=" & txtBy.Text & _
                                                            "&compAddress=" & txtAdresse.Text & _
                                                            "&compPhone=" & txtTelefon.Text

  ShellExecute Me.hwnd, vbNullString, strUrl, vbNullString, vbNullString, vbNormalFocus
End Sub

Prøver det lige...

sjh>>
Det fungerer ikke helt som jeg havde tænkt mig.
Meningen er at "resultatet" skal hentes ind i min formular, altså så navn- og adressefelterne bliver udfyldt på min formular når jeg har indtastet tlf.nr.

nå.. men så skal du bruge noget "regular expression" til at hive oplysningerne ud fra deres side..

Jeg kan hjælpe dig med at hente siden.. men regular.. må du selv klare..


Option Explicit

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 Sub DownloadFile(strUrl As String, strFilename As String)
  Call URLDownloadToFile(0, strUrl, strFilename, 0, 0)
End Sub

Private Sub Command1_Click()
Dim strUrl As String
  strUrl = "http://www.degulesider.dk/vbw/super/resultat.do?compTrade=" & txtNavn.Text & _
                                                            "&compZip=" & txtPostNr.Text & _
                                                            "&compCity=" & txtBy.Text & _
                                                            "&compAddress=" & txtAdresse.Text & _
                                                            "&compPhone=" & txtTelefon.Text
  Call DownloadFile(strUrl, "C:\Temp.htm")

  'Her åbener du filen "C:\Temp.htm" og brug regular...
End Sub

Ok - men hvad er "regular expression"?

http://www.google.dk/search?sourceid=navclient&ie=UTF-8&q=vb+regular+expression

sjh>>
Har du et bud på hvilken kategori jeg skal placere spørgsmål vedr. "regular expression"?

Og... har du også url'en til en ligende søgning hos krak?

Smid et svar så du kan få dine point - tak for hjælpen.

kategori skal nok være her: http://www.eksperten.dk/spm/Programmering/RegExp/
hos krak.. prøv at se lidt på den adresse der kommer i din browser.. find det du har søgt på og gør på samme måde som :  strUrl = "http://www.degulesider.dk/vbw/super/resultat.do?compTrade=" & txtNavn.Text & _
                                                            "&compZip=" & txtPostNr.Text & _
                                                            "&compCity=" & txtBy.Text & _
                                                            "&compAddress=" & txtAdresse.Text & _
                                                            "&compPhone=" & txtTelefon.Text


Håber det kan hjælpe dig..

Hvis jeg søger på 33862020 på krak får jeg følgende: http://www.krak.dk/grids/subpages/companyprofile.asp?KNR=278150&pub_id=KVWW&Tagning=1.Fir_Fors/KN_Sog&kunde=
...hvor er variablen til telefonnummeret?

så prøv : http://www.krak.dk/grids/Subpages/GridRightRows2.asp?tlf=33862020

strUrl = "http://www.krak.dk/grids/Subpages/GridRightRows2.asp?tlf=" & txtTelefon.Text

Super..tak for hjælpen.

det var så lidt.. og tak for point..

Det er ikke sådan at kan få din færdige kode stry ?