Hejsan alla glada.

Jag har ett problem sitter och leker med ett gammalt program som jag gjorde för ett tag sen där jag använder en webbrowser i vb6 för att skicka en sträng via url till en asp sida för att ex utföra en update eller insert till en access databas, allt funkat hemma med bredbandsbolaget men när jag testar på jobbet som kanske inte har samma hastighet så måste jag stänga av vb programet för att webbrowsern uppdateras med den nya senast sparade datan för att sedan plocka ut och presenteras i programmet.

Verkas som man på något sätt måste utföra någon form att reset på webbrowsen stänga och öppna ingen.

Är det någon som kan ha en aning om varför det är på detta viset.

Tobbe

Spånar lite utan att vara säker.

Du skall använda <b>DoEvents</b> på lämpligt ställe i din VB6 kod.
Då lämnar VB över processen till datorn för annat jobb innan
den utför nästa kommando i sin egen kod.

Kan t.o.m vara så att du måste lägga in en Timer för att vänta på ditt Url kommando.
Ett annat sätt kan vara tex detta som jag öppnar SvenskaSpel på.
<code>
Dim ret As Long
ret = Shell("C:\Program\Mozilla Firefox\Firefox.exe http://www.casino.se/svenska-spel/keno-resultat", vbMaximizedFocus)
</code>

Hej Sven

Jag har DoEvents lite här och där samt en timer men det skumma är att hemma funkar det bra men inte i nätverket på jobbet om jag skickar iväg en sträng typ den här

Dim sWebb As String
sWebb = "http://www.itgaraget.se/CheckUpLite/AspFile/UpdateStation.asp?ID=" & lblID.Caption & "&Station=" & txtStation.Text & "&Tele1=" & txtTele1.Text & "&Tele2=" & txtTele2.Text & "&Mobil1=" & txtMobil1.Text & "&Mobil2=" & txtMobil2.Text & "&SMS=" & txtSMS.Text & "&Epost1=" & txtEpost1.Text & "&Epost2=" & txtEpost2.Text & "&Ref1=" & txtref1.Text & "&Ref2=" & txtref2.Text

If mbDontNavigateNow Then Exit Sub
Timer3.Enabled = True
WebBrowser1.Navigate sWebb

så körs en update mot databasen helt i sin ordning men webbrowsen vägrar på något sätt att uppdateras med den nya sökning.

Tobbe

Det finns ett kommando

<b>Uppdatera Flik</b>

Hur man kommer åt detta kommando vet jag inte men det är troligen lösningen på ditt problem

Jag skulle kolla att lösa det så här.
<code>
Dim ret As Long
ret = Shell("WebBrowser1.Navigate http://www.itgaraget.se/CheckUpLite/AspFile/UpdateStation.asp?ID=" _
& lblID.Caption & "&Station=" & txtStation.Text & "&Tele1=" & txtTele1.Text & "&Tele2=" & txtTele2.Text _
& "&Mobil1=" & txtMobil1.Text & "&Mobil2=" & txtMobil2.Text & "&SMS=" & txtSMS.Text & "&Epost1=" _
& txtEpost1.Text & "&Epost2=" & txtEpost2.Text & "&Ref1=" & txtref1.Text & "&Ref2=" & txtref2.Text")
</code>
Har ingen koll men efter denna princip borde det funka.
Lite strul med alla ( " )

Hej Sven och tack ditt arrangemang.

Testade ditt ex lite snabbt men fick det inta att funka orkar inte felsöka nu men jag misstänker att webbrowser1 använder lokala inställningar på datorn och kanske detta beror på vilken IE som är installerad.

Men jag jobbar vidare med detta vore kul om man finner något sätt som funkar.

Vet någon om man kan göra en egen browser utan att använda någon som redan är färdig.


Tobbe

Skulle vara intressant om du ville prova med ditt FireFox elle IE om du använder det.
<code>
Dim ret As Long
'Sökväg till din normala webbbrowser
ret = Shell("C:\Program\Mozilla Firefox\Firefox.exe _
http://www.itgaraget.se/CheckUpLite/AspFile/UpdateStation.asp?ID=" _
& lblID.Caption & "&Station=" & txtStation.Text & "&Tele1=" & txtTele1.Text & "&Tele2=" & txtTele2.Text _
& "&Mobil1=" & txtMobil1.Text & "&Mobil2=" & txtMobil2.Text & "&SMS=" & txtSMS.Text & "&Epost1=" _
& txtEpost1.Text & "&Epost2=" & txtEpost2.Text & "&Ref1=" & txtref1.Text & "&Ref2=" & txtref2.Text) _
,vbMaximizedFocus)
</code>

Hej Sven

Testade dit ex. det funkar men problemet är inte att stängen skickas till ASP sidan för update det funkar, problemet som jag tror är att efter update så ska webbrowser1 som jag använder i programmet göra en uppdatering av sökt resultat som jag sedan plockar från.

Det funkar hemma men inte på jobbet där måste jag stänga av programmet för att den ska uppdateras.

Frågan är om det finns någon sparad sida webbrowser1 använder sig av hela tiden.

Tobbe.

Har aldrig gjort något med Web Browsern men detta borde vara något för dig.

<b>Basic Web Browser. It has an address bar and refresh command</b>

refresh command borde vara intressant.
<b>"Shows how-to refresh a page using a Timer. Basic commands and well commented."</b>

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=72329&lngWId=1

<code>
Private Sub Command2_Click()
'Testa Timer1.interval = 3000
Timer1.Enabled = True 'this calls Timer1 to begin.

End Sub

Private Sub Timer1_Timer()

WebBrowser1.Refresh 'this means to refresh the website .refresh is usful.

Timer1.Enabled = False 'sets the timer1 to false to turn it off
End Sub
</code>

Nu vet jag vad detta beror på, i IE ändrar man så att den aldrig ska hämta lagrade sidor utan alltid hämta senaste sidan.

Nu undrar jag om det finns någon som ligger inne med någon kodsnutt där man kan gå förbi IE inställningar och i vb koden få webbrowser1 att inte hämta lagrade sidor från cachen.

Tobbe

Prova

Tycker att denna tråd är intressant.
Har själv ett liknande projekt på G.

Konfunderad varför du hänvisar du till IE som boven !?
Tomas förtydligande ovan skall testas verka logiskt.

Det måste väl vara din egen Browser (WebBrowser1) som skall leverera !?

Jag körde det nedladdade programet
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=72329&lngWId=1
Funkad perfekt mot mitt Svenska Spel Keno efter lite småmodifieringar.

Jag kör FF om det har någon betydels.

Hej Sven!

Har redan tittat på denna länk och tyvärr till ingen hjälp,

Att jag hänvisar till IE är det ända alternativet jag hat just nu är att Webbrowser1 på något sätt använder IE som värd och dess inställningar.

Jag söker efter egna inställningar för webbrowser1 som redan finns i vb och ända sättet att få detta att funka är att ändra inställnigarna i IE så att webbrowser1 inte hämtar från chascade sidor.

Funkar inte med Webbrowser.refrech i alla dess former

Funkar kanske om man avinstallerar IE men då dom flesta använder IE är inte det något alternativ.

Måste finnas något sätt att få webbrowser1 att alltid hämta ny sidor???????????

Hälsningar
Tobbe

<Att jag hänvisar till IE är det ända alternativet jag hat just nu är att Webbrowser1 på något sätt använder IE som värd och dess inställningar.>

mmm.. kom på det efter jag skrivit.

Tillbaks till ruta 1.
Har du testat Tomas förslag här ovan ang. Refresh tillägget ?

Hej!

Har testat Tomas förslag, måste få webbrowser1 att frångå att hämta redan lagrade sidor som ligger lokalt på datorn.

Tobbe

mmm... Vad är det som då skiljer sig från din dator där det funkar och !

Måste finnas ett sätt att ta bort gammalt Shit och uppdatera med det du vill.

Kan det vara så att maskinen som det inte funkar på är inställd att använda en http-proxy?
Har du provat sätta en expiry-date på sidan som hämtas?

Jag skulle vilja prova att köra en fiddler-session och se hur http-anropen ser ut (om det blir några).
http://www.fiddler2.com/fiddler2/

Hej!

Men är det inte så att om IE är inställd på att alltid söka efter sidor lokalt innan den hämtar från webben?

Då hjälper det väl inte vad jag än skriver på sidan?


Installerade Fiddler för att se vad som händer och om IE är inställd på detta i IE.
>Kontrollera om det finns senare versioner av lagrade sidor<
Alt 1 :Varje gång jag besöker webbsidan "Då skickas den uppdatera strängen till aspsidan och hämtar hem den uppdaterade sidan allt funkar"
Alt 2: Varje gång jag startar Internet Explorer "Har inte testat denna"
Alt 3: Automastiskt "Som första funkar"
Alt 4: Aldrig "Då skickas strängen med ändringar men hämtar inte hem den uppdaterade sidan"

Hoppas ni förstår vad jag skrev!

Tobbe

Hej tror detta är löst nu.

Skriver bara så här som jag hittade på nätet.

WebBrowser1.Navigate sWebb, 4 '''''''''''''''' Fyran efter säger till att inte hämta lagrade sidor.

Flags is a set of values that specify whether to add the resource to the history list, whether to read from or write to the cache, and whether to display the resource in a new window. It can be a sum of zero or more of the following:

Constant Value Meaning
NavOpenInNewWindow $01 Open the resource or file in a new window.
NavNoHistory $02 Do not add the resource or file to the history list. The new page replaces the current page in the list.
NavNoReadFromCache $04 Do not read from the disk cache for this navigation.
NavNoWriteToCache $08 Do not write the results of this navigation to the disk cache.
NavAllowAutosearch $10 If the navigation fails, the Web browser attempts to navigate common root domains (.com, .org, and so on). If this still fails, the URL is passed to a search engine.

Tobbe