[Visual Basic] Aplikacija deluje nepopolno

Pozdravljeni!

Naredil sem aplikacijo v programu Visual Studio 2013 v programskem jeziku Visual Basic. Vse skupaj teče na operacijskem sistemu WIN8.1 x64. Aplikacija mi deluje brez problema kakorkoli jo zaženem (V programu VS2013 ali .exe). Problem se pojavi ko aplikacijo hočem zagnati na OS WIN7 x64 ali na katerem koli drugem Pc-ju. Aplikacija se odpre, vidno so vsi elementi vendar ne deluje v popolnosti. Imam gumb, ki bi moral izvesti klik na določeni spletni strani, vendar ga ne izvede. Kot da ga aplikacija ne vidi. Na ostalih PC-jim imam Net.Framework 4.5. Spodaj sem prilepil del kode. Torej vprašanje je zakaj dela .exe mojem PC-ju, če pa aplikacijo dam na PC2 pa ta del kode ne deluje?

Dim sOld_Href As String = Form1.WebBrowser.Url.ToString()

        For iHref = 1 To Form1.WebBrowser.Document.Links.Count - 1
            If Form1.WebBrowser.Document.Links(iHref).InnerText = " Next " Then
                Form1.WebBrowser.Navigate(New Uri(Form1.WebBrowser.Document.Links(iHref).GetAttribute("href")))
            End If
        Next

Lep pozdrav

black ice je 15. mar 2015 ob 22:19 izjavil:

Si releasal aplikacijo? Možno, da manjkajo kakšni deli, če si samo skopiral .exe.

Tako je. App sem dal v release in nato mapo release prenesel na drug PC? Ali delam tukaj kaj narobe? Prav tako sem ustvaril setup.exe in sem dobil enako zgodbo.

borut_p je 15. mar 2015 ob 23:13 izjavil:

kako si pripravil .exe datoteko - s katerim programom (jaz delam z inno setup).

V kolikor imaš v \bin\release kakršnekoli .dll datoteke, kih moraš v setupu tudi vključiti

LP

Program s katerim sem pripravil .exe je Install Shield 2013 Limited Edition (to kar obstaja v VS 2013).

Sem našel problem.

Kot je prikazano v kodi v moji prvi objavi iščem določen "iHref" z imenom " Next ". V aplikaciji sem naredil "richtextbox", da sem videl kaj mi ta del programa vrne oz. najde. Prišel sem do zaključka, da na mojem PC mi najde;

 If Form1.WebBrowser.Document.Links(iHref).InnerText = " Next " Then

na PC2;

 If Form1.WebBrowser.Document.Links(iHref).InnerText = "Next " Then

Ko sem program spremenil, je začelo delati na PC2 na mojemu pa ne. Očitno so presledki zelo pomembni kar je dejstvo v programiranju! Tukaj se pojavita vprašanja:

Zakaj pride pri branju HTML kode do te razlike?
Ali je kakšen drug način branja določene povezave v HTML?

Lep pozdrav

win64 je 16. mar 2015 ob 08:45 izjavil:

Najbrž imaš drugo verzijo Internet explorer-ja(WebBrowser uporablja IE).
S funckcijo Trim se znebiš praznih znakov spredaj in zadaj.

Še nasvet, da ti bo malo hitreje delal program:

 Dim link
 For iHref = 1 To Form1.WebBrowser.Document.Links.Count - 1
 link = Form1.WebBrowser.Document.Links(iHref) ' enkrat pridobiš element iz seznama
 If LCase(Trim(link.InnerText)) = "next" Then
 Form1.WebBrowser.Navigate(New Uri(link.GetAttribute("href")))
 End If
 Next
 

Hvala!