String() to Text
Ahojte, z nasledujúcého kódu by som ptoreboval zistit čo sa nachádza v danom html medzi "nofollow" & X & ">", "</a> " , a potom to porovnať s textom v Uname
Public Function GetThanks(ByVal thanks As String) As String()
Dim source As String = New IO.StreamReader(Net.WebRequest.Create(("moja.url")).GetResponse.GetResponseStream).ReadToEnd
Dim X As String = Label8.Text
Dim Uname As String = Label2.Text
Dim UID As String = Label1.Text
Dim test As String()
test = StringBetween("www.elitepvpers.com/forum/members/" & UID & "-" & Uname & ".html" & " rel=" & X & "nofollow" & X & ">", "</a> ", source, False, False)
Return New String() {test(0)}
End Function
Neviem však, kde je chyba, ale potreboval by som z toho stvorit niečo takéto :
Public Function GetThanks(ByVal thanks As String) As String()
Dim source As String = New IO.StreamReader(Net.WebRequest.Create(("moja.url")).GetResponse.GetResponseStream).ReadToEnd
Dim X As String = Label8.Text
Dim Uname As String = Label2.Text
Dim UID As String = Label1.Text
Dim test As String()
test = StringBetween("www.elitepvpers.com/forum/members/" & UID & "-" & Uname & ".html" & " rel=" & X & "nofollow" & X & ">", "</a> ", source, False, False)
>>> Dim full As String
full = (data z) test
Label9.Text = full
If Label9.Text = Label2.Text Then / If full = Uname Then
MsgBox("1")
Else
MsgBox("0")
End If <<<
Return New String() {test(0)}
End Function
Vopred vďaka za každú radu
Nějak nechápu, o co se vlastně snažíš.
Snažím se o nasledující. Uživatel si stáhne mojí apliakci, po její spuštění si aplikace podle jeho HWID vyhledá jeho profil na internetu a zjistí jeho jméno na daném fore.Dál aplikace zjistí, podle jména, zda mi uživatel zmáčkl tlačítko Děkuji, nebo ne, v případě že ne, ukáže se mu chyba, v opačném případe, mu vyskočí podekování a může začít program používat.
Takže zkráceně, není nějaká funkce která by mi v zdrojáku dané stránky vyhledala nasledující?
V případě že ano, vidím totiž mnohem lehčí řešení, než jsem předpokládal
Na to by stačil jednoduchý regulární výraz.
Daj si vypisat jednotlive premenne funkciou -> printf() a zistis hned co tam je.
To už dneska níkdo neumí pracovat s debugem? Zrovna dneska jsem narazil na programátora, který si proměnné vypisoval raději na konzoli, než aby debugoval...
Az taku narocnu vec sme nechceli poradit, lebo hned by nasledovala otazka:
"a kde sa to da stiahnut" ?
Až tak zle na tom našťastie niesom
No, problém je vyriešený, vďaka :)