Kald standardbrowser med URL

hmm ligesom når du kalder en anden fil, i stedet skriver du bare "URL:http://www.server.dk

Cyberesben det lyder ikke til at du har en skid forstand på VB, så gidder du ikke lade være ed at komme med sådan et ubrugeligt svar:

Joern her er noget kode der gør det:

http://www.thescarms.com/downloads/RunUrl.zip

eller se MS artikel om det på:

http://support.microsoft.com/support/kb/articles/q174/1/56.asp?FR=0

og afvis nu cyberesbens ubrugelige svar

Sorry, ok jeg ved ikke ret meget om VB men det plejer at virker andre steder når man laver det sådan

ja, men VB er jo et programmerings sprog, og der kommer du ikke særligt langt hvis du URL:http://www.server.dk
det er jo ikke ligesom det sprog der bliver brugt i ASP (vbscript som er en lille del af VB)

nej det ved jeg men man kan lave links via URL: mange andre steder... nåh pyt

Foreløbig tak.  Linket til zip-filen er ikke mere gyldigt, men hos MS kunne jeg grabbe noget kode, som jeg nu vil afprøve.  Så hører 127144146281 nærmere.
Cyberesben viser sin interesse og gode vilje, men Visual basic er ikke HTML. Kig engang på MS-linket og se hvad der skal til.  m.v.h.  Jørn

Du skal bare sige til hvis jeg skal sende et demo project til dig

Til 127144....
Det må du gerne.  Den kode jeg hentede hos MS fordelte sig på en måde, så den ikke kan fungere.  Def. af funktioner, private sub's etc.  Jeg udvikler næsten udelukkende i VB 3.0 Pro i en win 3.11 installation, men jeg har en 5 Enterprise under win95.  Jeg har ikke rodet noget videre med MS-koden endnu, jeg kan nok omskrive den, så den i hvert fald kan starte.  API-kald trænger jeg gradvis ind i, det er ikke så meget jeg har haft brug for det, til de ting jeg laver (www.jkfsoft.dk).  Min mail er joern.thorsen@get2net.dk

M.v.h.  Jørn

skal det også kunne virke i VB 3 eler hvad er det du siger?

Til 127...
Hvilken version af VB begyndte du med?  Jeg har kun de 2 omtalte og kan se at komplicerede projekter ikke sådan lader sig flytte fra ver. 3 til ver. 5
Da mine eksisterende programmer er skrevet i ver 3, er det dér jeg ønsker at indsætte linket.
Hvis der indgår kald eller funktioner, der ikke understøttes af 3'eren, så må jeg jo nøjes med at bruge muligheden i fremtidige creationer.  Projektfiler i ver. 5 heder .vbp mens de i ver 3 hedder .mak  Det kan jeg nok finde ud at at håndtere.
Men altså:  Jeg skriver mest i ver 3 - og råder over en ver. 5.
M.v.h.  Jørn  - det var hurtigt svaret.

jeg kontakter dig lige over e-mail

Her er koden hvis andre er interesseret:

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 Label1_Click()
    Dim ret As Long
    ret = ShellExecute(Me.hwnd, "Open", "http://www.michael-jensen.dk", "", App.Path, 1)
        'Check om det lykkes
        If ret > 32 Then
        MsgBox "Success"
        Else
        MsgBox "Error"
        End If
End Sub

Hej Michael.
Den tilsendte kode fungerer.  I min 3.11 inst. har jeg 3 filer, der måske kunne fungere ligesom shell32.dll i win95.
Shell.dll fra 1993  shell16x.dll fra 1998 og i win32s-directory'et ligger faktisk shell32.dll en lille en på kun 7.680 bytes fra 6-9-95 . Den shell32.dll jeg har her i win95 er på hele 822.272 bytes, så det er i hvert fald en helt anden sag.

Den kode du har sendt og vist ovenfor er meget, meget mindre end den hos MS, der godt nok også indeholder en hel del fejlhåndtering.  Hermed dine 60 points.
M.v.h.  Jørn

du er godt nok kommet til at give Cyberesben pointene, men det kan jo ske for enhver

I win95 og opefter ligger der en fil der hedder start.exe, den starter alle filer også dem der er associaseret til bestemte programmer, den kan også bruges til at starte standardprogrammer med, hvis du ikke er tryg ved at declare!

EKS:
x = shell("START http://www.url.dk")
eller
x = shell("START C:\Billed.bmp")

Til Michael.
Det er første gang jeg har stillet spørgsmål, og jeg klikkede bare på godkend svar.  Jeg har ikke læst hvad jeg SKULLE have gjort.  Er han en gentleman må han jo stille et dumt spørgsmål, som du kan svare på, så du får det fortjente.
bkp skal have tak for kommentaren, jeg vil afprøve også den.  Men i win 3.11 er den så ikke en option.
M.v.h.  Jørn

eksemplet fra bkp virker heller ikke under WinNT!

joern, det er egentlig lige meget med de point, jeg vill e bare fortælle dig det, så du ungår at gøre det samme næste gang