Åpne php side fra VB [Løst]

[denvigz]

Hei!

Jeg prøver å sette sammen noe smart som skal åpne en webside i IE, men har støtt på et problem. Label2.caption er et tall fra 1 til 100, alt ettersom.

Koden går som følger:

 

modul:

 

Sub GotoSite(URL As String)

On Error GoTo someerror

If Left(URL, 4) = "www." Then URL = "http://" + URL

Shell ("explorer.exe " + URL), vbNormalFocus

Exit Sub

someerror:

Beep

Exit Sub

End Sub

 

Kommando:

 

GotoSite "http://www.site.com/index.php?id= + Label2.Caption"

 

Når VB skal utføre den aktuelle kommandoen kommer denne feilbeskjeden:

The path "+ label2.caption" does not exists or is not a directory

 

Hva skal jeg gjøre? Tror jeg har prøvd alt

Plz hjelp?

Endret 18. mars 2007 av denvigz

[aadnk]

VB erstatter ikke variablene dine automatisk i strengen. Du må bygge opp strengen utenfra (variabelnavnene må plasseres utenfor hermetegnene):

GotoSite "http://www.site.com/index.php?id=" & Label2.Caption

I tillegg ville jeg omskrevet GotoSite til følgende:

' *** BEMERK: Må plasseres FØR alle prosedyrer, men ETTER Option-klausulene.

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

 

Const SW_SHOWNORMAL = 1

 

Sub GotoSite(URL As String)

   

    ' Kjører URL'en i standardnettleseren

    ShellExecute Me.hwnd, vbNullString, URL, vbNullString, "C:\", SW_SHOWNORMAL

 

End Sub

Endret 15. mars 2007 av aadnk

[denvigz]

VB erstatter ikke variablene dine automatisk i strengen. Du må bygge opp strengen utenfra (variabelnavnene må plasseres utenfor hermetegnene):

GotoSite "http://www.site.com/index.php?id=" & Label2.Caption

I tillegg ville jeg omskrevet GotoSite til følgende:

' *** BEMERK: Må plasseres FØR alle prosedyrer, men ETTER Option-klausulene.

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

 

Const SW_SHOWNORMAL = 1

 

Sub GotoSite(URL As String)

   

    ' Kjører URL'en i standardnettleseren

    ShellExecute Me.hwnd, vbNullString, URL, vbNullString, "C:\", SW_SHOWNORMAL

 

End Sub

8162680[/snapback]

 

Hm.. Får bare opp:

Compile error:

Invalid use of Me keyword

Flere ideer? =)

Endret 15. mars 2007 av denvigz

[aadnk]

Hm.. Får bare opp:

Compile error:

Invalid use of Me keyword

Flere ideer? =)

8163149[/snapback]

Ah, du eksekverer ikke koden fra en form. Da må du endre Me.hWnd til 0 .

[denvigz]

Hm.. Får bare opp:

Compile error:

Invalid use of Me keyword

Flere ideer? =)

8163149[/snapback]

Ah, du eksekverer ikke koden fra en form. Da må du endre Me.hWnd til 0 .

8165388[/snapback]

Å da skal det stå hva og hvor?

[backup]

Du kan jo ta utgangspunkt i dette eksempel som funker på vb 6:

 

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 sfile As String

sfile = "http://www.vg.no" 'endre som du vil

noth = ShellExecute(0, "OPEN", sfile, "", "", 1)

End Sub

[denvigz]

Du kan jo ta utgangspunkt i dette eksempel som funker på vb 6:

 

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 sfile As String

sfile = "http://www.vg.no" 'endre som du vil

noth = ShellExecute(0, "OPEN", sfile, "", "", 1)

End Sub

8166370[/snapback]

 

Funka dårli

[aadnk]

Å da skal det stå hva og hvor?

8166221[/snapback]

Ser du ikke Me.hWnd i koden jeg gav deg?

 

Funka dårli tongue.gif

8166221[/snapback]

Kan du være litt mer spesifikk enn det? En feilmelding og litt mer utdypende informasjon om versjonnummer og installert program hadde vært å foretrekke. Endret 16. mars 2007 av aadnk

[denvigz]

Kan du være litt mer spesifikk enn det? En feilmelding og litt mer utdypende informasjon om versjonnummer og installert program hadde vært å foretrekke.

8168789[/snapback]

 

Altså, kjører følgende i en form:

 

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

 

Const SW_SHOWNORMAL = 0

 

Sub GotoSite(URL As String)

 

ShellExecute Me.hwnd, vbNullString, URL, vbNullString, "C:\", SW_SHOWNORMAL

 

End Sub

 

 

Private Sub Command1_Click()

GotoSite "http://www.site.com/index.php?id=" & Label2.Caption

End Sub

 

Men det skjer jo ingenting.

Versjon 8176, VB6.

[aadnk]

Men det skjer jo ingenting.

Versjon 8176, VB6.

8182038[/snapback]

Heter knappen Command1? Om ikke, endre Command1_Click til <Navn på din kontroll>_Click eller evt. endre knappens navn til Command1.

[denvigz]

Men det skjer jo ingenting.

Versjon 8176, VB6.

8182038[/snapback]

Heter knappen Command1? Om ikke, endre Command1_Click til <Navn på din kontroll>_Click eller evt. endre knappens navn til Command1.

8182127[/snapback]

 

Jepps, knappen heter command1, men alikevel, ingenting skjer

[denvigz]

Men det skjer jo ingenting.

Versjon 8176, VB6.

8182038[/snapback]

Heter knappen Command1? Om ikke, endre Command1_Click til <Navn på din kontroll>_Click eller evt. endre knappens navn til Command1.

8182127[/snapback]

 

Jepps, knappen heter command1, men alikevel, ingenting skjer

8182144[/snapback]

 

Eh, Sorry! Dette var vel mere min feil. DEt hadde blitt noe kluss med standardleser. Antakeligvis Dreamweaver som gjorde det. men er ikke sikker.

Men nå funker det!

Tusen takk! <3<3

*it's working like a charm*

[Hayer]

ja, så va var løsningen?